Left Quote    A clever person solves a problem. A wise person avoids it.
- Einstein    
Right Quote
[login] | [Register]

Grade Calculator

by: bs0d


Another program to become more familiar about how Visual Basic works. Perform actions based on user input, calculate results using loops. Select case used and more. Check out the picture to see how it should look.

See Full Size




  Subject: "An easier code" Date: Sep 04 2011 at 9:50 am    
In my country is four bimonthly periods, notes from the four two-month periods are added together and divided by two, and that is the final grade. But I wrote too with the notes of A, B, C, D and F. Its translated

Private Sub Command1_Click( )
Text5 = (Val(Text1) + Val(Text2) + Val(Text3) + Val(Text4)) / 4
If Text5 <= 20 Then
Text6 = "A"
End If
If Text5 <= 15 Then
Text6 = "B"
End If
If Text5 <= 11 Then
Text6 = "C"
End If
If Text5 <= 5 Then
Text6 = "D"
End If
If Text5 <= 0 Then
Text6 = "F"
End If
End Sub

Private Sub Command2_Click( )
Text1 = ""< br /> Text2 = ""< br /> Text3 = ""< br /> Text4 = ""< br /> Text5 = ""< br /> Text6 = "&&q uot;
End Sub

Private Sub Command3_Click( )
MsgBox "creado por Mr.Makoret el 4/9/11 3:14 a.m. ", vbInformation, "version 1.0"

End Sub

Make me know if i'm right, or wrong, please. Thanks... all for the knowledge!!
You Must be signed in or a member to comment.

Code Stats

Code Stats

2 Total Comments
4 Rating of 5 (1 Votes)


Code Options

· Login to Rate This Code
· Login to Post a Comment
· Read more by this author
Digg This Code! Bookmark This Code Reddit: Bookmark This Code! BlinkList: Blink This Code! YahooMyWeb BlogMarks: Add This Mark! Furl: Save This Code Spurl: Mark This Code!

Code Samples


· RGB Color Fader
· Adder
· Math Problems
· Cut and Paste
· Combo Box Colors
· Flag Viewer

"" Copyright © 2002-2017; All rights lefted, all lefts righted.
Privacy Policy  |  Internet Rank