Tugas Ke-2 (Percabangan)

Programnya :

Listingnya :

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.TxtKet = ""
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
TxtKet = "LULUS"
Else
TxtKet = "GAGAL"
End If
End Sub

Private Sub CmdKeluar_Click()
a = MsgBox("Yakin Anda Mau Keluar dari Form ini?", vbQuestion + vbOKCancel, "Tanya")
If a = 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