Tugas 3 Bahagian B ( penghitungan Nilai Tanpa Database )

Source Kodenya

Private Sub Command1_Click()

a = Val(Text5)

If a > 86 And a <= 100 Then
Text6.Text = "A"
Else
If a > 70 And a <= 85 Then
Text6.Text = "B"
Else
If a > 55 And a <= 70 Then
Text6.Text = "C"
Else
If a > 40 And a <= 55 Then
Text6.Text = "D"
Else
If a > 0 And a <= 40 Then
Text6.Text = "E"

End If
End If

End If

End If

End If



End Sub

Private Sub Command2_Click()
Text1.Text = " "
Text2.Text = " "
Text3.Text = " "
Text4.Text = " "
Text5.Text = " "
Text6.Text = " "
Text7.Text = " "
Text8.Text = " "
End Sub

Private Sub Command3_Click()
End
End Sub




Private Sub Option1_Click()
  Text7.Text = Option1.Caption
End Sub



Private Sub Option2_Click()
Text7.Text = Option2.Caption
End Sub

Private Sub Option3_Click()
Text7.Text = Option3.Caption
End Sub

Private Sub Option4_Click()
Text7.Text = Option4.Caption
End Sub

Private Sub Option5_Click()
Text7.Text = Option5.Caption
End Sub

Private Sub Option6_Click()
Text7.Text = Option6.Caption
End Sub

Private Sub Option7_Click()
Text7.Text = Option7.Caption
End Sub

Private Sub Option8_Click()
Text7.Text = Option8.Caption
End Sub

Private Sub Option9_Click()
Text7.Text = Option9.Caption
End Sub

Private Sub Text7_Change()
If Text7.Text = "TEK 11409" Then
Text8.Text = " Kalkulus II"
ElseIf Text7.Text = "TEK 12209" Then
Text8.Text = "Fisika Dasar II"
ElseIf Text7.Text = "TEK 14209" Then
Text8.Text = "Praktikum Fisika DasarII"
ElseIf Text7.Text = "TKP 11209" Then
Text8.Text = "Kimia Analitik"
ElseIf Text7.Text = "TKP 14209" Then
Text8.Text = "Praktiku Kimia Analitik"
ElseIf Text7.Text = "UNI 10609" Then
Text8.Text = "Etika"
ElseIf Text7.Text = "TKP 11309" Then
Text8.Text = "Program Komputer"
ElseIf Text7.Text = "TKP 14309" Then
Text8.Text = "Praktikum Program Komputer"
ElseIf Text7.Text = "UNI 10509" Then
Text8.Text = "Bahasa Inggris II"

End If

End Sub

Private Sub Timer1_Timer()
Label11.Caption = Time()
Label12.Caption = Format(Now, "DD  MMMM  YYYY")
End Sub