
1.membuat 3 label yang digunakan untuk judul dan keterangan
2.membuat 1 label yang digunakan untuk menentukan hasil
3.membuat 1 textbox yang digunakan untuk memasukkan nilai
4.membuat 3 command button.
ubah propertinya lihat seperti dibawah ini
OBJEK | PROPERTI | NILAI |
form | caption | mengetahui nilai |
label 1 | caption | NILAI A,B,C,D,E |
label 2 | caption | nilai |
label 3 | caption | hasil |
text 1 | name | text1 |
command 1 | caption | proses |
command 2 | caption | bersih |
command 3 | caption | exit |
Lalu mulai codingnya………!!!!
Private Sub Command1_Click()
If Text1.Text = “” Then
MsgBox “maaf, anda belum memasukkan angka”, vbCritical, “critikal”
Text1.SetFocus
Else
Dim nilai As Integer
Dim ank As String
nilai = Text1.Text
Select Case nilai
Case 80 To 100
ank = “A”
Case 65 To 81
ank = “B”
Case 55 To 66
ank = “C”
Case 40 To 56
ank = “D”
Case Is = Asc(“0”) & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = 13 Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then
KeyAscii = 0
MsgBox "maaf, hanya angka saja yang boleh masuk", vbCritical, "critikal"
End If
If KeyAscii = 13 Then
If Text1.Text = "" Then
MsgBox "maaf, anda belum memasukkan angka", vbCritical, "critikal"
Text1.SetFocus
Else
Command1.SetFocus
End If
End If
End Sub
selesai lah pembuatan aplikasinya
semoga berhasil………
jika anda ingin mendownload souce codenya silahkan klik disini dan aplikasinya klik disini.