Senin, 09 Januari 2012

operator perbandingan


buat form seperti ini :

 

 
masukkan script di bawah 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