Computer Programming Concepts and Visual Basic David I. Schneider

252 Computer Programming Concepts and Visual Basic
EXAMPLE 1
The following program creates and writes records to the random-access file COLLEGES.TXT.
`In BAS Module
Public Type collegeData
nom As String * 30 ‘Name of college
state As String * 2 ‘State where college is located
yrFounded As Integer ‘Year college was founded
End Type
’In Form code
Dim recordNum As Integer
Private Sub cmdAddCollege_Click()
‘Write a record into the file COLLEGES.TXT
Dim college As collegeData
college.nom = txtCollege.Text
college.state = txtState.Text
college.yrFounded = Val(txtYear.Text)
recordNum = recordNum + 1
Put #1, recordNum, college
txtCollege.Text = “”
txtState.Text = “”
txtYear.Text = “”
txtCollege.SetFocus
End Sub
Private Sub cmdDone_Click()
Close #1
End
End Sub
Private Sub Form_Load()
‘Create COLLEGES.TXT
Dim college As collegeData
Open “COLLEGES.TXT” For Random As #1 Len = Len(college)
recordNum = 0
End Sub
[Run, and type into the text boxes the data shown in the following first window. Click the “Add College
to File” command button. Record number 1 is added to COLLEGES.TXT and the text boxes are cleared.
Proceed to record the data shown for the other two colleges and then click the “Done” command button.]