Nilai Mahasiswa

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