Enrollment System v1.0

what is your course? add me on facebook and i will give you the details cloudy_lyt@yahoo.com

I have a fully functional Enrolment & Registration System developed in ASP/MySQL... you can email at networks911@gmail.com if you need help for this. Jake

'in (declarations) section of (general) Dim numyears As Integer, maxenroll As Single Private Sub cmddraw_Click() 'line charts of college enrollments numyears = 5 ReDim label(1 To numyears) As String ReDim male(1 To numyears) As Single ReDim female(1 To numyears) As Single ReDim total(1 To numyears) As Single Call readdata(label(), male(), female(), total()) Call drawaxes Call drawdata(male(), female(), total()) Call showtitle Call showlabels(label()) Call showlegend End Sub Private Sub drawaxes() 'draw axes picenroll.Scale (-1, 1.2 * maxenroll)-(numyears + 1, -0.2 * maxenroll) picenroll.Line (-1, 0)-(numyears + 1, 0) picenroll.Line (0, -0.1 * maxenroll)-(0, 1.1 * maxenroll) End Sub Private Sub drawdata(male() As Single, female() As Single, total() As Single) Dim i As Integer For i = 1 To numyears If i numyears Then 'draw lines connecting data points picenroll.DrawStyle = 2 picenroll.Line (i, male(i))-(i + 1, male(i + 1)) picenroll.DrawStyle = 1 picenroll.Line (i, female(i))-(i + 1, female(i + 1)) picenroll.DrawStyle = 0 picenroll.Line (i, total(i))-(i + 1, total(i + 1)) End If 'draw small circle around data points picenroll.Circle (i, male(i)), 0.01 * numyears picenroll.Circle (i, female(i)), 0.01 * numyears picenroll.Circle (i, total(i)), 0.01 * numyears 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, total() As Single) 'the two lines above should be enter as one line Dim i As Integer 'assume the data has been placed in the file"ENROLLMF.TXT" 'as year ,male,female '(first line of file is "1960,283,170) 'read data into arrays,find highest enrollment maxenroll = 0 For i = 1 To numyear Input #1, label(i), female(i) total(i) = male(i) + female(i) If maxenroll total(i) Then maxenroll = total(i) End If Next i Close #1 End Sub Private Sub showlabels(label() As String) 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 = Right(label(i), 2) lblwid = picenroll.TextWidth(lbl) tickfactor = 0.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 = 0.02 * numyear picenroll.Line (-tickfactor, maxenroll)-(tickfactor, maxenroll) Call locate(-tickfactor - lblwid, maxenroll - lblhght / 2) picenroll.Print lbl End Sub Private Sub showlegend() 'show legebd picenroll.DrawStyle = 2 picenroll.Line (0.1, 1.05 * maxenroll)-(0.9, 1.05 * maxenroll) Call locate(1, 1.1 * maxenroll) picenroll.Print "male" picenroll.DrawStyle = 1 picenroll.Line (0.1, 0.95 * maxenroll)-(0.9, 0.95 * maxenroll) Call locate(1, maxenroll) picenroll.Print "female" picenroll.DrawStyle = 0 picenroll.Line (0.1, 0.9 * maxenroll)-(0.9, 0.85 * maxenroll) Call locate(1, 0.9 * maxenroll) picenroll.Print "total" End Sub Private Sub showtitle() 'display source and title Call locate(-0.5, -0.1 * maxenroll) picenroll.Print "source:statistical abstract of theunited states" Call locate(0.5, 1.2 * maxenroll) picenroll.Print "college enrollment(in thousands)" End Sub