by Bryan, got an error in newtons (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 12th May 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
This code is for highschool students who want to find out their grade for the 1st semester and 2nd semester also the final grade added to it
VBcoders
'found a error with newtons averaging program so i made one myself
'thanks newton
'If you modify this program at least give credit to me and newton
'*$*$*$*$*$*$*$*$*$*$*$*$'
'*$*$*$*$ Burner *$*$*$*'
'*$*$*$*$*$*$*$*$*$*$*$*$'
'add a picture box picAverage
' two command buttons cmdcalculate and cmdexit
' a label lblF
' 3 text boxes name txtQ1 txtQ2 txtE
Private Sub cmdCalculate_Click()
Dim q1 As Single, _
q2 As Single, _
E As Single, _
final As Single, _
Fname As String
q1 = Val(txtQ1)
q2 = Val(txtQ2)
E = Val(txtE)
final = ((q1 * 2) + (q2 * 2) + (E)) / 5
lblF = final
Fname = txtFname
picAverage.ForeColor = "&H0000FF"
picAverage.FontSize = 20
picAverage.FontBold = True
picAverage.Print "Hi, ";
picAverage.Print ; Fname
picAverage.ForeColor = "&HFF0000"
picAverage.Print "Yearly average for you "
picAverage.ForeColor = "&H008800"
picAverage.Print "Quater 1 grade was "; txtQ1
picAverage.ForeColor = "&H008800"
picAverage.Print "Quater 2 grade was"; txtQ2
picAverage.ForeColor = "&H008800"
picAverage.Print "The Exam grade was "; txtE
picAverage.ForeColor = "&HFF0000"
picAverage.Print "The average of the Grades is "; lblF
End Sub
Private Sub cmdEnd_Click()
End
End Sub
Private Sub Form_Load()
lblF.Visible = False
End Sub
No comments have been posted about This code is for highschool students who want to find out their grade for the 1st semester and 2nd . Why not be the first to post a comment about This code is for highschool students who want to find out their grade for the 1st semester and 2nd .