Validasi Input Hanya Angka atau Hanya Huruf Saja VB6

Baca Juga :

Didalam penginputan sebuah data pada sistem, validasi penginputan merupakan suatu hal yang sangat penting untuk dapat menghasilkan sebuah output informasi yang dibutuhkan, misalkan dalam penginputan nominal angka, biasanya pada textbox hanya memperkenankan karakter yang bersifat nominal angka saja begitu juga ada beberapa bagian yang hanya diperkenankan penginputan berupa karakter tanpa adanya nilai nominal angka. Pada kesempatan kali ini admin akan berbagi source code Validasi Input Hanya Angka atau Hanya Huruf Saja VB6.

Langsung saja masuk ke pokok pembahasan, buka Ms. Visual Basic 6.0 kemudian tambahkan beberapa komponen textbox dan optionbutton pada form seperti layout gambar di bawah ini

Validasi Input Hanya Angka atau Hanya Huruf Saja VB6

Ubah name Text1 (textbox) menjadi txtInput

Ubah name Option1 (OptionButton) menjadi OptHanyaAngka

Ubah name Option2 (OptionButton) menjadi OptHanyaHuruf

Selanjutnya double klik pada txtInput pilih event KeyPress dan copas coding di bawah ini

If OptHanyaAngka.Value = True Then
If Not (KeyAscii >= Asc("0") And KeyAscii <= Asc("9") Or KeyAscii = vbKeyBack) Then
Beep
KeyAscii = 0
End If
End If

If OptHanyaHuruf.Value = True Then
If InStr("ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghjklmnopqrstuvwxyz", Chr(KeyAscii)) = 0 Then
If KeyAscii <> vbKeyBack Then
KeyAscii = 0
End If
End If
End If

Jika telah selesai RUN/F5 pilih OptHanyaAngka kemudian coba inputkan huruf, maka secara otomatis coding akan memverifikasi hanya karakter berupa numeric (angka) saja yang dapat diinputkan pada txtInput, begitu juga sebaliknya jika memilih OptHanyaHuruf, maka coding akan memverifikasi hanya karakter berupa huruf saja yang boleh diinputkan. Untuk lebih jelasnya source code Validasi Input Hanya Angka atau Hanya Huruf Saja VB6 dapat didownload pada link download diakhir artikel ini. Cukup sekian semoga bermanfaat dan terima kasih banyak atas kunjungannya.

0 Response to "Validasi Input Hanya Angka atau Hanya Huruf Saja VB6"

Post a Comment