Computer Programming Concepts and Visual Basic David I. Schneider

360 Computer Programming Concepts and Visual Basic
Property Let midGrade(ByVal vGrade As Single)
m_midterm = vGrade
End Property
Property Let finGrade(ByVal vGrade As Single)
m_final = vGrade
End Property
Public Function SemGrade() As String
Dim grade As Single
grade = (m_midterm + m_final) / 2
grade = Round(grade) ‘Round the grade
Select Case grade
Case Is = 90
SemGrade = “A”
Case Is = 80
SemGrade = “B”
Case Is = 70
SemGrade = “C”
Case Is = 60
SemGrade = “D”
Case Else SemGrade = “F”
End Select
End Function
‘Form Code
Private pupil As CStudent ‘pupil is an object of class CStudent
Private Sub Form_Load()
Set pupil = New CStudent
End Sub
Private Sub cmdEnter_Click()
‘Read the values stored in the text boxes
pupil.Name = txtName
pupil.SocSecNum = txtSSN
pupil.midGrade = Val(txtMidterm)
pupil.finGrade = Val(txtFinal)
‘Clear Text Boxes
txtName.Text = “”
txtSSN.Text = “”
txtMidterm.Text = “”
txtFinal.Text = “”
picGrade.Cls
picGrade.Print “Student recorded.”
End Sub
Private Sub cmdDisplay_Click()
picGrade.Cls
picGrade.Print pupil.Name; Tab(28); pupil.SocSecNum(); _
Tab(48); pupil.SemGrade
End Sub
Private Sub cmdQuit_Click()
End
End Sub