Kode Program Huruf Mutu

 Kode Hitung lagi

Private Sub cmdlagi_Click()

txtnpm.Text = " "

txtabsen.Text = " "

txtkuis.Text = " "

txtuts.Text = " "

txttugas.Text = " "

txtuas.Text = " "

txtnilai.Text = " "

lblmutu.Caption = " "

txtnpm.SetFocus

End Sub

 Kode Hitung

Private Sub cmdproses_Click()

txtnilai.Text = Val((txtabsen.Text) + Val(txtkuis.Text) + Val(txtuts.Text) + Val(txttugas.Text) + Val(txtuas.Text)) / 5

If txtnilai.Text > 80 Then

lblmutu.Caption = "A"

ElseIf txtnilai.Text > 70 Then

lblmutu.Caption = "b"

ElseIf txtnilai.Text > 60 Then

lblmutu.Caption = "c"

ElseIf txtnilai.Text < 59 Then

lblmutu.Caption = "Bl"

End If

End Sub

 Kode Selesai

Private Sub cmdselesai_Click()

Unload Me

End Sub