Membuat Program Hitung Nilai Mahasiswa

Yang di gunakan dalam membuat program ini hanya Label, Textbox, dan Button. Letakkan seperti pada gambar di bawah ini.

Klik 2x pada button Mulai, ketikan code berikut:

Private Sub command1_Click()

Text1.Text = "": Text1.SetFocus

Text2.Text = ""

End Sub

Klik 2x pada button Hitung, ketikan code berikut:

Private Sub command2_Click()

If (Text1.Text > 100) Then

MsgBox ("Nilai yang anda masukkan error")

ElseIf (Text1.Text >= 80) And (Text1.Text <= 100) Then

Text2.Text = "Nilai anda A (SANGAT BAIK)"

ElseIf (Text1.Text >= 67) And (Text1.Text <= 79) Then

Text2.Text = "Nilai anda B (BAIK)"

ElseIf (Text1.Text >= 56) And (Text1.Text <= 66) Then

Text2.Text = "Nilai anda C (CUKUP BAIK)"

ElseIf (Text1.Text >= 40) And (Text1.Text <= 55) Then

Text2.Text = "Nilai anda D (KURANG BAIK)"

ElseIf (Text1.Text >= 40) Then

Text2.Text = "Nilai anda E (JELEK)"

End If

End Sub

Klik 2x pada button Keluar, ketikan code berikut:

Private Sub Command3_Click()

End

End Sub