Cara Membuat Grade/Nilai Pada Program Visual Basic

CONTOH PERTAMA

• Buka VB, Pilih Standard EXE. Open
  
   
• Tampilan saaat pertama kali kita buka
  
• Inputkan Componen yang diperlukan
  
  
• Isikan Codingnya
  
  Private Sub Form_Load()
  Label1 = Date
  Text3 = ""
  Text4 = ""
  Text5 = ""
  Text1 = ""
  Text2 = ""
  End Sub
  Private Sub Text4_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
  Text5 = (Val(Text3) + Val(Text4)) / 2
  Select Case Val(Text5)
  Case Is >= 90
  Text1 = "A"
  Text2 = "Sangat Istimewa"
  Case Is >= 80
  Text1 = "B"
  Text2 = "Istimewa"
  Case Is >= 90
  Text1 = "C"
  Text2 = "Cukup"
  Case Else
  Text1 = "D"
  Text2 = "Kurang"
  End Select
  End If
  End Sub

          Private Sub Timer1_Timer()
          Label2 = Time
          End Sub

• Jangan Lupa Isikan Pula Pada Propertie Timer1 Lihat Gambar :