Di tutorial - tutorial sebelumnya, aku sudah menjelaskan cara semoga semua karakter menjadi karakter Kapital dan Kecil, dan juga mengakibatkan karakter di awal kata menjadi kapital, masih dengan tema yang sama mengenai input data di textbox, untuk tutorial kali ini kita akan mencar ilmu Agar Textbox hanya dapat di input variabel angka.
Input data yang hanya memakai variabel angka, sering kita jumpai pada pengisian form angka menyerupai quantity (jumlah pada form barang), dan form harga, script ini dapat kita gunakan untuk mencegah / menghindari user salah dalam pengisian sebuah form, sehingga kita dapat meminimalisir debug aktivitas alasannya yaitu salah input variabel data ke database.
Tak hanya angka saja, di sini aku akan menunjukkan tutorial semoga text box hanya dapat di isi huruf, berikut tutorialnya :
1. Seperti biasa, jalankan VB, dengan aktivitas standar exe.
2. Karena di sini aku akan menjelaskan 3 jenis script, maka tambahkan 3 text box, dan sebagai tool box pendukungya, tambahkan 3 label dan dan 2 tool box.
3. Atur propertienya (caption), sehingga menyerupai ini :
4. Jika sudah, tuliskan script berikut :
'Script untuk mengkosongkan text box
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
'Script untuk menghentikan program
Private Sub Command2_Click()
End
End Sub
'Script untuk input text box hanya angka (versi 1)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
MsgBox "Isi Dengan Angka !", vbInformation, "Routeros Mikrotik"
KeyAscii = 0
End If
End Sub
'Script untuk input text box hanya angka (versi 2)
Private Sub Text2_Change()
If Not IsNumeric(Text2) Then
Text2.Text = ""
End If
End Sub
'Script untuk input text box hanya huruf
Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
MsgBox "Isi Dengan Huruf !", vbInformation, "Routeros Mikrotik"
KeyAscii = 0
End If
End Sub
Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
'Script untuk menghentikan program
Private Sub Command2_Click()
End
End Sub
'Script untuk input text box hanya angka (versi 1)
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("0") & Chr(13) And KeyAscii <= Asc("9") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace) Then
MsgBox "Isi Dengan Angka !", vbInformation, "Routeros Mikrotik"
KeyAscii = 0
End If
End Sub
'Script untuk input text box hanya angka (versi 2)
Private Sub Text2_Change()
If Not IsNumeric(Text2) Then
Text2.Text = ""
End If
End Sub
'Script untuk input text box hanya huruf
Private Sub Text3_KeyPress(KeyAscii As Integer)
If Not (KeyAscii >= Asc("a") & Chr(13) And KeyAscii <= Asc("z") & Chr(13) Or (KeyAscii >= Asc("A") & Chr(13) And KeyAscii <= Asc("Z") & Chr(13) Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete Or KeyAscii = vbKeySpace)) Then
MsgBox "Isi Dengan Huruf !", vbInformation, "Routeros Mikrotik"
KeyAscii = 0
End If
End Sub
5. Jika sudah, silahkan jalankan program
- Untuk text box 1 dan 2 hanya dapat di input dengan variabel angka, tapi untuk versi satu hanya dapat di input dari 0 hingga 9, selain itu tidak akan dapat atau akan muncul pesan.
- sedangkan versi 2 kita dapat input dari 0 hingga 9, koma (,) dan titik (.), kalau selain itu maka text box akan kosong.
- Untuk Text box 3, kita hanya dapat input karakter saja (a hingga z).
Sekian tutorial kali ini, semoga bermanfaat
Comments
Posting Komentar