• Home
 · 
• Miscellaneous
 · 
• This code is for highschool students who want to find out their grade for the 1st semester and 2nd

This code is for highschool students who want to find out their grade for the 1st semester and 2nd

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

Rate This code is for highschool students who want to find out their grade for the 1st semester and 2nd

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'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