Computer Programming Concepts and Visual Basic David I. Schneider

368 Computer Programming Concepts and Visual Basic
Property Get Name() As String
Name = m_name
End Property
Property Let Name(ByVal vName As String)
m_name = vName
End Property
Property Get SocSecNum() As String
SocSecNum = m_ssn
End Property
Property Let SocSecNum(ByVal vNum As String)
m_ssn = vNum
End Property
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
If grade = 60 Then
SemGrade = “Pass”
Else
SemGrade = “Fail”
End If
End Function
‘Form code
Dim section As New Collection
Private Sub cmdAdd_Click()
Dim pupil As Object
If optReg.Value Then
Set pupil = New CSTudent
Else
Set pupil = New CPFStudent
End If
‘Read the Values stored in the Text boxes
pupil.Name = txtName
pupil.SocSecNum = txtSSN
pupil.midGrade = Val(txtMidterm)
pupil.finGrade = Val(txtFinal)
section.Add pupil
‘Clear Text Boxes
txtName.Text = “”
txtSSN.Text = “”
txtMidterm.Text = “”