Cara Agar TextBox Hanya Bisa Di Input Angka Dan Huruf Saja

Di tutorial - tutorial sebelumnya, saya sudah menjelaskan cara agar semua huruf menjadi huruf Kapital dan Kecil, dan juga menjadikan huruf di awal kata menjadi kapital, masih dengan tema yang sama mengenai input data di textbox, untuk tutorial kali ini kita akan belajar Agar Textbox hanya bisa di input variabel angka.

Input data yang hanya menggunakan variabel angka, sering kita jumpai pada pengisian form angka seperti quantity (jumlah pada form barang), dan form harga, script ini bisa kita gunakan untuk mencegah / menghindari user salah dalam pengisian sebuah form, sehingga kita bisa meminimalisir debug program karena salah input variabel data ke database.

Tak hanya angka saja, di sini saya akan memberikan tutorial agar text box hanya bisa di isi huruf, berikut tutorialnya :

1. Seperti biasa, jalankan VB, dengan program standar exe.

2. Karena di sini saya 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 seperti 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, "Blues Pedia"
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, "Blues Pedia"
KeyAscii = 0
End If
End Sub

5. Jika sudah, silahkan jalankan program

- Untuk text box 1  dan 2 hanya bisa di input dengan variabel angka, tapi untuk versi satu hanya bisa di input dari 0 sampai 9, selain itu tidak akan bisa atau akan muncul pesan.

- sedangkan versi 2 kita bisa input dari 0 sampai 9,  koma (,) dan titik (.), jika selain itu maka text box akan kosong.

- Untuk Text box 3, kita hanya bisa input huruf saja (a sampai z).

Sekian tutorial kali ini, semoga bermanfaat