Computer Programming Concepts and Visual Basic David I. Schneider

EXAMPLE 1
and then an instance of the class is created inside a procedure with the statement
Set pupil = New CStudent
The object pupil will be local to the procedure. That is, it will cease to exist
after the procedure has ended. The Property Let procedures are used to assign
values to the member variables, and the Property Get procedures are used to
retrieve values. The function SemGrade becomes a method for obtaining the
student’s grade.
Some examples are
pupil.Name = “Adams, Al” ‘Assign a value to m_name
picBox.Print pupil.Name ‘Display the student’s name
picBox.Print pupil.SemGrade ‘Display the student’s semester grade
The first statement calls the Property Let Name procedure, the second statement
calls the Property Get Name procedure, and the third statement calls the
method procedure SemGrade.
The following program uses the class CStudent to calculate and display a student’s semester grade.
‘Student Class (CStudent)
Private m_name As String
Private m_ssn As String
Private m_midterm As Single
Private m_final As Single
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
Object Property Setting
frm13_1_1 Caption Semester Grade
lblName Caption Name
txtName Text (blank)
lblSSN Caption SSN
txtSSN Text (blank)
lblMidterm Caption Midterm
txtMidterm Text (blank)
lblFinal Caption Final
txtFinal Text (blank)
cmdEnter Caption &Enter Information
cmdDisplay Caption &Display Grade
cmdQuit Caption &Quit
picGrade
Classes and Objects 359