KODE TOMBOL KELUAR
Private Sub CmdKeluar_Click()
Unload Me
End Sub
KODE TOMBOL LAGI
Private Sub CmdLagi_Click()
TxtNpm.Text = ""
TxtNama.Text = ""
TxtAbsen.Text = ""
TxtKuis.Text = ""
TxtTugas.Text = ""
TxtUts.Text = ""
TxtUas.Text = ""
TxtNA.Text = ""
Label2.Caption = ""
TxtNpm.SetFocus
End Sub
KODE TOMBOL PROSES
Private Sub cmdproses_Click()
txtnilaiakhir.Text = (Val(txtabsensi.Text) + Val(txtkuis.Text) + Val(txttugas.Text) + Val(txtuts.Text) + Val(txtuas.Text)) / Val(5)
If txtnilaiakhir >= 80 Then
Label1.Caption = " A "
ElseIf txtnilaiakhir >= 70 Then
Label1.Caption = " B "
ElseIf txtniaiakhir >= 60 Then
Label1.Caption = " C "
ElseIf txtniaiakhir >= 50 Then
Label1.Caption = "D"
Else
Label1.Caption = "BL"
End If
End Sub
txtnilaiakhir.Text = (Val(txtabsensi.Text) + Val(txtkuis.Text) + Val(txttugas.Text) + Val(txtuts.Text) + Val(txtuas.Text)) / Val(5)
If txtnilaiakhir >= 80 Then
Label1.Caption = " A "
ElseIf txtnilaiakhir >= 70 Then
Label1.Caption = " B "
ElseIf txtniaiakhir >= 60 Then
Label1.Caption = " C "
ElseIf txtniaiakhir >= 50 Then
Label1.Caption = "D"
Else
Label1.Caption = "BL"
End If
End Sub
Casino Games | DMB
BalasHapusExperience the thrilling 양주 출장마사지 excitement 제이티엠허브출장안마 of playing casino games at DMB! Explore our live casino, featuring 100+ 평택 출장샵 authentic slots and table games. Join now and 충청남도 출장샵 get a 100% 제천 출장안마