Search
Left Quote    Knowledge speaks, but wisdom listens.
- Jimi Hendrix    
Right Quote
 
[login] | [Register]
 

Grade Calculator

by: bs0d
 

Description:


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

Code:


 


Comments:

  Makoret
  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



Code:
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

24,809 Views
2 Total Comments
4 Rating of 5 (1 Votes)

Options

Code Options

· Login to Rate This Code
· Login to Post a Comment
· Read more by this author
Digg This Code! Del.icio.us: 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

Related    

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





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