AllSyntax.com: » Code » Visual Basic » 43 » Grade Calculator


	Wise men speak because they have something to say; Fools because they have to say something. - Plato (427-347 B.C.)

[login] | [Register]

Grade Calculator

by: bs0d

Description:

Another program to become more familiar about how Visual Basic works. Perform actions based on user input, calculate results using loops. Select case used and more. Check out the picture to see how it should look.

See Full Size

Code:

Private Sub chkDone_Click(Index As Integer)
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