Tugas Menghitung Nilai

Private Sub Cmdbersih_Click()

Me.txtabsen = ""

Me.txttgs = ""

Me.txtuts = ""

Me.txtuas = ""

Me.habsen = ""

Me.htgs = ""

Me.huts = ""

Me.huas = ""

Me.txttotnil = ""

Me.txtgrade = ""

Me.textket = ""

End Sub

Private Sub cmdkeluar_Click()

x = MsgBox("Apakah Anda ingin keluar dari Form ini?", vbQuestion + vbOKCancel, "informasi")

If x = vbOK Then

End

End If

End Sub

Private Sub Form_Activate()

habsen.Enabled = False

htgs.Enabled = False

huts.Enabled = False

huas.Enabled = False

txtabsen.SetFocus

End Sub

Private Sub cmdhitung_Click()

'Menghitung Total Nilai

txttotnil = Val(habsen.Text) + Val(htgs.Text) + Val(huts.Text) + Val(huas.Text)

'menghitung grade

If txttotnil >= 80 And txttotnil <= 100 Then

txtgrade = "A"

Else

If txttotnil >= 69 And txttotnil <= 79 Then

txtgrade = "B"

Else

If txttotnil >= 56 And txttotnil <= 68 Then

txtgrade = "C"

Else

If txttotnil >= 40 And txttotnil <= 55 Then

txtgrade = "D"

Else

txtgrade = "E"

End If

End If

End If

End If

'Menghitung keterangan

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

textket = "LULUS"

Else

textket = "GAGAL"

End If

End Sub

Private Sub txtabsen_Change()

Me.habsen = 0.1 * Val(txtabsen)

End Sub

Private Sub txttgs_Change()

Me.htgs = 0.2 * Val(txttgs)

End Sub

Private Sub txtuas_Change()

Me.huas = 0.4 * Val(txtuas)

End Sub

Private Sub txtuts_Change()

Me.huts = 0.3 * Val(txtuts)

End Sub