----- Visual Basic 0.6 ( Looping Repetition )
------- GRADE CALCULATOR CODES.
Dim intCount As Integer, strChecked As String
If chkDone(Index).Value = vbChecked Then
cmdDisplay.Enabled = True
txtScore(Index).Enabled = True
txtScore(Index).SetFocus
Else
txtScore(Index).Text = 0
txtScore(Index).Enabled = False
strChecked = "N"
Do While intCount <= 4 And strChecked = "N"
If chkDone(intCount).Value = vbChecked Then
strChecked = "y"
End If
intCount = intCount + 1
Loop
If strChecked = "n" Then
cmdDisplay.Enabled = False
End If
End If
End Sub
Private Sub cmdClear_Click()
Dim x As Integer
For x = 0 To 4
chkDone(x).Value = False
txtScore(x).Text = ""
Next x
lblGrade.Caption = ""
txtName.SetFocus
End Sub
Private Sub cmdDisplay_Click()
Dim intEarned As Integer, intPossible As Integer
Dim sngRatio As Single, intCount As Integer
For intCount = 0 To 4
If chkDone(intCount).Value = vbChecked Then
intEarned = intEarned + Val(txtScore(intCount).Text)
Select Case intCount
Case 0 To 2
intPossible = intPossible + 10
Case Else
intPossible = intPossible + 50
End Select
End If
Next intCount
sngRatio = intEarned / intPossible
Select Case sngRatio
Case Is >= 0.9
lblGrade.Caption = "A"
Case Is >= 0.8
lblGrade.Caption = "B"
Case Is >= 0.7
lblGrade.Caption = "C"
Case Is >= 0.6
lblGrade.Caption = "D"
Case Else
lblGrade.Caption = "F"
End Select
End Sub
Private Sub cmdExit_Click()
Unload frmGrade
End Sub
Private Sub cmdPrint_Click()
PrintForm
End Sub
Private Sub Form_Load()
frmGrade.Top = (Screen.Height - frmGrade.Height) / 2
frmGrade.Left = (Screen.Width - frmGrade.Width) / 2
End Sub
Private Sub Form_Unload(Cancel As Integer)
Const conBtns As Integer = vbYesNo + vbExclamation + vbDefaultButton1 + vbApplicationModal
Dim intUserResponse As Integer
intUserResponse = MsgBox("Do you want to exit?", conBtns, "Grade Application")
If intUserResponse = vbNo Then 'User does not want to quit the app
Cancel = 1 'prevent form unload.
End If
End Sub
Private Sub txtScore_GotFocus(Index As Integer)
txtScore(Index).SelStart = 0
txtScore(Index).SelLength = Len(txtScore(Index).Text)
End Sub
