Computer Programming Concepts and Visual Basic David I. Schneider

Private Sub DrawData(male() As Single, female() As Single, _ numYears As
Integer)
Dim i As Integer
‘Draw rectangles
For i = 1 To numYears
picEnroll.Line (i - .3, male(i))-(i, 0), , BF
picEnroll.Line (i, female(i))-(i + .3, 0), , B
Next i
End Sub
Private Sub Locate(x As Single, y As Single)
picEnroll.CurrentX = x
picEnroll.CurrentY = y
End Sub
Private Sub ReadData(label() As String, male() As Single, _ female() As
Single, numYears As Integer, maxEnroll As Single)
Dim i As Integer
‘Assume the data have been placed in the file ENROLLMF.TXT
‘(First line is file is “1960”,283,170)
‘Read data into arrays, find highest enrollment
Open ”ENROLLMF.TXT” For Input As #1
maxEnroll = 0
For i = 1 To numYears
Input #1, label(i), male(i), female(i)
If male(i) > maxEnroll Then
maxEnroll = male(i)
End If
If female(i) > maxEnroll Then
maxEnroll = female(i)
End If
Next i
Close #1
End Sub
Private Sub ShowLabels(|label() As String, numYears As Integer, _ maxEnroll As
Single) Dim i As Integer, lbl As String, lblWid As
Single
Dim lblHght As Single, tickFactor As Single
‘Draw tick marks and label them
For i = 1 To numYears
lbl = label(i)
lblWid = picEnroll.TextWidth(lbl)
tickFactor = .02 * maxEnroll
picEnroll.Line (i, -tickFactor)-(i, tickFactor)
Call Locate(i - lblWid / 2, -tickFactor)
picEnroll.Print lbl
Next i
lbl = Str(maxEnroll)
lblWid = picEnroll.TextWidth(lbl)
lblHght = picEnroll.TextHeight(lbl)
tickFactor = .01 * numYears
picEnroll.Line (-tickFactor, maxEnroll)-(tickFactor, maxEnroll)
Call Locate(-tickFactor - lblWid, maxEnroll - lblHght / 2)
picEnroll.Print lbl
End Sub
Bar Charts 275