buat form seperti ini :
|
|
Private Sub cmdproses_Click()
If Val(txtnilai) <> 0 Then
If txtnilai <= 74 Then
txtpredikat = "kurang"
ElseIf txtnilai <= 75 Then
txtpredikat = "standar"
ElseIf txtnilai <= 85 Then
txtpredikat = "cukup"
ElseIf txtnilai <= 89 Then
txtpredikat = "baik"
Else
txtpredikat = "memuaskan"
End If
Else
MsgBox "inputkan dulu dong nilainya....!! ^_^"
txtnilai.SetFocus
txthasil = ""
End If
End Sub
Hasilnya :
Tidak ada komentar:
Posting Komentar