📄 fresult.frm
字号:
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 660
Index = 4
Left = 1920
TabIndex = 14
Top = 1560
Width = 1905
End
Begin VB.Label lblR
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "24"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FF00&
Height = 300
Index = 3
Left = 1920
TabIndex = 13
Top = 1200
Width = 1875
End
Begin VB.Label lblR
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "12345678"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 300
Index = 2
Left = 1920
TabIndex = 12
Top = 840
Width = 1905
End
Begin VB.Label lblR
Alignment = 1 'Right Justify
BackColor = &H00000000&
Caption = "12"
BeginProperty Font
Name = "MS Sans Serif"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FFFFFF&
Height = 300
Index = 1
Left = 1920
TabIndex = 11
Top = 480
Width = 1905
End
Begin VB.Label lblR
BackColor = &H00000000&
Caption = "语文／抓作弊"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Index = 0
Left = 1920
TabIndex = 10
Top = 120
Width = 1905
End
Begin VB.Label lbl
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "领导评价"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 5
Left = 360
TabIndex = 9
Top = 1560
Width = 1275
End
Begin VB.Label lbl
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "恒算得分"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Index = 4
Left = 360
TabIndex = 8
Top = 1200
Width = 1275
End
Begin VB.Label lbl
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "累计得分"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 3
Left = 360
TabIndex = 7
Top = 840
Width = 1275
End
Begin VB.Label lbl
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "冲刺难度"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H0000FFFF&
Height = 300
Index = 2
Left = 360
TabIndex = 6
Top = 480
Width = 1275
End
Begin VB.Label lbl
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "今日课程"
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 300
Index = 1
Left = 360
TabIndex = 5
Top = 120
Width = 1275
End
End
Begin VB.CommandButton cmd
Caption = "<-Back"
Enabled = 0 'False
Height = 375
Index = 1
Left = 1320
TabIndex = 2
Top = 2520
Width = 1335
End
Begin VB.CommandButton cmd
Caption = "Next->"
Height = 375
Index = 0
Left = 2760
TabIndex = 1
Top = 2520
Width = 1335
End
Begin VB.PictureBox pic
Height = 2295
Index = 0
Left = 120
ScaleHeight = 149
ScaleMode = 3 'Pixel
ScaleWidth = 277
TabIndex = 0
Top = 120
Width = 4215
Begin VB.Label lbl
BackColor = &H00C0FFFF&
Caption = $"fResult.frx":000C
BeginProperty Font
Name = "楷体_GB2312"
Size = 15
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000000&
Height = 2295
Index = 0
Left = 0
TabIndex = 3
Top = 0
Width = 4215
End
End
End
Attribute VB_Name = "fResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim CurScr As Integer
Dim RcdBreaker, LastScr As Boolean
Private Sub cmd_Click(Index As Integer)
Select Case Index
Case 0
If LastScr Then
If txt.Visible Then Call WriteRecord
Unload Me
If gameData.gnrDay = 0 Then
fNMET.Show
Exit Sub
End If
If gameMode And (Not NextWork) Then
fRest.Show
Else
fGameSel.Show
End If
Exit Sub
End If
cmd(1).Enabled = True
CurScr = CurScr + 1
pic(CurScr).ZOrder
LastScr = False
If CurScr = 2 And txt.Visible Then
txt.SetFocus
txt.SelStart = 0
txt.SelLength = Len(txt.Text)
End If
If (CurScr = 2) And (Not gameMode) Then LastScr = True
If (CurScr = 3) And (gameMode) Then LastScr = True
If LastScr Then cmd(0).Caption = "Finish!" Else cmd(0).Caption = "Next->"
Case 1
cmd(0).Caption = "Next->"
LastScr = False
CurScr = CurScr - 1
If CurScr = 0 Then cmd(1).Enabled = False
pic(CurScr).ZOrder
End Select
End Sub
Private Sub Form_Load()
Me.Move (Screen.Width - Me.Width) / 2, (Screen.Height - Me.Height) / 2 - 200
For i = 2 To 0 Step -1
pic(i).ZOrder
Next
CurScr = 0
LastScr = False
pic(CurScr).ZOrder
b = 1 - ((1 - gameData.gnrStrict / 4) * (1 - gameData.gnrStrict / 4))
a = Int((CourseMark / 100) * (CourseMark / 100) * 5 * (100 - Abs(100 - gameData.scPE)) * b) / 100
Select Case GameSelected
Case 1
lblR(0).Caption = "语文／抓作弊"
lblR(11).Caption = gameData.scChinese
lblR(10).Caption = a
gameData.scChinese = gameData.scChinese + a
If gameData.scChinese > 150 Then gameData.scChinese = 150
lblR(9).Caption = gameData.scChinese
Case 2
lblR(0).Caption = "英语／默单词"
lblR(11).Caption = gameData.scEnglish
lblR(10).Caption = a
gameData.scEnglish = gameData.scEnglish + a
If gameData.scEnglish > 150 Then gameData.scEnglish = 150
lblR(9).Caption = gameData.scEnglish
Case 3
lblR(0).Caption = "数学／发试卷"
lblR(11).Caption = gameData.scMaths
lblR(10).Caption = a
gameData.scMaths = gameData.scMaths + a
If gameData.scMaths > 150 Then gameData.scMaths = 150
lblR(9).Caption = gameData.scMaths
Case 4
lblR(0).Caption = "综合／连课时"
lblR(11).Caption = gameData.scScience
lblR(10).Caption = a
gameData.scScience = gameData.scScience + a
If gameData.scScience > 300 Then gameData.scScience = 300
lblR(9).Caption = gameData.scScience
Case 5
lblR(0).Caption = "体育／夺篮球"
lblR(11).Caption = gameData.scPE
lblR(10).Caption = a * 10
gameData.scPE = gameData.scPE + a * 5
If gameData.scPE > 200 Then gameData.scPE = 200
lblR(9).Caption = gameData.scPE
End Select
lblR(1).Caption = CourseLevel
lblR(7).Caption = CourseLevel
lblR(2).Caption = GetMark
lblR(8).Caption = GetMark
lblR(3).Caption = CourseMark
lblR(12).Caption = Left(lblR(0).Caption, 2)
Select Case Int(CourseMark / 10)
Case 0
lblR(4).Caption = "真不晓得你今天在干什么！"
Case 1, 2
lblR(4).Caption = "不太理想，以后再认真点！"
Case 3, 4
lblR(4).Caption = "还不错，继续努力哟！"
Case 5, 6
lblR(4).Caption = "了不起！"
Case 6, 7
lblR(4).Caption = "真希望多一些您这样的老师"
Case 8, 9
lblR(4).Caption = "应该给您颁发奖章！"
Case Else
lblR(4).Caption = "无法想象！"
End Select
gameData.scPE = gameData.scPE - ((1 + gameData.gnrStrict) / 2) * (gameData.gnrStrict / 2)
If gameData.scPE < 0 Then gameData.scPE = 0
gameData.gnrDay = gameData.gnrDay - 1
gameData.gnrWeekday = gameData.gnrWeekday + 1
If gameData.gnrWeekday = 7 Then gameData.gnrWeekday = 0
Call ReadRecord
End Sub
Public Sub ReadRecord()
Open App.Path & "\Sav\Record.ini" For Input As #1
Do
Line Input #1, StrIn
Loop Until Left(StrIn, 2) = "[" & GameSelected
Line Input #1, StrIn
lblR(5).Caption = StrIn
Line Input #1, StrIn
lblR(6).Caption = StrIn
Close #1
lbl(10).Visible = False
txt.Visible = False
If (Val(lblR(7).Caption) > Val(lblR(5).Caption)) Or ((Val(lblR(7).Caption) = Val(lblR(5).Caption)) And (Val(lblR(8).Caption) > Val(lblR(6).Caption))) Then
lbl(10).Visible = True
txt.Visible = True
If gameMode Then txt.Text = STrim(gameData.namePresident)
End If
End Sub
Public Sub WriteRecord()
Dim Outing(1 To 5, 1 To 2) As Long
Dim Outing2(1 To 5, 1 To 2) As String
Open App.Path & "\Sav\Record.ini" For Input As #1
For i = 1 To 5
Line Input #1, StrIn
Outing2(i, 1) = StrIn
Line Input #1, StrIn
Outing(i, 1) = StrIn
Line Input #1, StrIn
Outing(i, 2) = StrIn
Line Input #1, StrIn
Outing2(i, 2) = StrIn
Next
Close #1
Outing(GameSelected, 1) = CourseLevel
Outing(GameSelected, 2) = GetMark
Outing2(GameSelected, 2) = txt.Text
Open App.Path & "\Sav\Record.ini" For Output As #1
For i = 1 To 5
Print #1, Outing2(i, 1)
Print #1, Outing(i, 1)
Print #1, Outing(i, 2)
Print #1, Outing2(i, 2)
Next
Close #1
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -