Visual basic untuk menentukan grade

nb:

text box absensi ----> namedi ganti txtabsen

text box tugas -------> name di ganti txttgs

text box uts ----------> name di ganti txtuts

text box uas ---------> name di ganti txtuas

text box nilai akhir ---> name di ganti txtnilai

text box keterangan --- > name di ganti txtket

text box garde ----------> name di ganti txtgrade

label BERSIH ---> name diganti cmdbersih dan apabila B Caption pada properties penulisannya &BERSIH sama halnya untung KELUAR(name cmdkeluar) dan HITUNG (name cmd hitung)

listing :

Private Sub cmdbersih_Click()

txtabsen.Text = ""

txttgs.Text = ""

txtuts.Text = ""

txtuas.Text = ""

txtnilai.Text = ""

txtket.Text = ""

txtgrade.Text = ""

End Sub

Private Sub Cmdhitung_Click()

'menghitung nilai akhir

txtnilai = 0.1 * Val(txtabsen.Text) + 0.2 * Val(txttgs.Text) + 0.3 * Val(txtuts.Text) + 0.4 * Val(txtuas.Text)

'menghitung grade

If txtnilai >= 85 And txtnilai <= 100 Then

    txtgrade = "A"

    Else

    

If txtnilai >= 70 And txtnilai <= 84 Then

    txtgrade = "B"

    Else

    

If txtnilai >= 55 And txtnilai <= 69 Then

    txtgrade = "C"

    Else

    

If txtnilai >= 35 And txtnilai <= 54 Then

    txtgrade = "D"

Else

   txtgrade = "E"

   End If

   End If

   End If

   End If

   

   'menghitung keterangan

   If txtgrade = "A" Or txtgarde = "B" Or txtgrade = "C" Then

        txtket = "LULUS"

        Else

    txtket = "GAGAL"

    End If

    

End Sub

Private Sub cmdkeluar_Click()

X = MsgBox("Anda Akan Keluar dari From ini ?", vbQuestion + vbOKCancel, "Informasi")

If X = vbOK Then

End

End If

End Sub

Private Sub txtabsen_Change()

habsen = 0.1 * Val(txtabsen)

End Sub

Private Sub txttgs_Change()

htgs = 0.2 * Val(txttgs)

End Sub

Private Sub txtuas_Change()

huas = 0.4 * Val(txtuas)

End Sub

Private Sub txtuts_Change()

huts = 0.3 * Val(txtuts)

End Sub