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
