Cara Memvalidasi Penginputan Karakter

15 views
Pada kesempatan kali ini admin akan sedikit share perihal Cara Memvalidasi Penginputan Karakter pada textBox di Microsoft Visual Basic 6.0. Terkadang kita menghadapi suatu studi kasus dalam pembuatan sebuah aplikasi, adakalanya TextBox yang kita buat hanya diperbolehkan angka / numeric saja, ada pula hanya karakter-karakter tertentu yang dihentikan diinputkan.
Buat dan designlah sebuah form pada Micorosoft Visual Basic 6.0 dengan menambahkan beberapa komponen
No
Komponen
Name
Caption
1
Form1
Form1
Validasi Karakter
2
OptionButton
OptNumeric
Hanya Numeric
3
OptionButton
optHurufBesar
Hanya Huruf Besar
4
OptionButton
optHurufKecil
Hanya Huruf Kecil
5
OptionButton
optValidasi
Hanya Karakter Selain (!#$%^&*’ `{}\/)
6
TextBox
Text1
Kemudian double klik pada textbox kemudian pilih mekanisme KeyPress dan copykan syntak dibawah ini
If OptNumeric.Value = True Then
  If Not (KeyAscii >= Asc(“0”) & Chr(13) _
     And KeyAscii <= Asc(“9”) & Chr(13) _
     Or KeyAscii = vbKeyBack _
     Or KeyAscii = vbKeyDelete _
     Or KeyAscii = vbKeySpace) Then
        Beep
        KeyAscii = 0
   End If
  
ElseIf optHurufBesar.Value = True Then
   KeyAscii = Asc(UCase(Chr(KeyAscii)))
  
ElseIf optHurufKecil.Value = True Then
   KeyAscii = Asc(LCase(Chr(KeyAscii)))

ElseIf optValidasi.Value = True Then
    Dim sTemplate As String
    sTemplate = “!#$%^&*’ `{}\/”
    If InStr(1, sTemplate, Chr(KeyAscii)) > 0 Then
        KeyAscii = 0
    End If
End If

Simpan dan RUN/F5. Pilihlah salah satu dari opsi pada form diatas kemudian inputkan abjad pada textbox. Secara outomatis syntak diatas akan menseleksi abjad yang diinputkan menurut opsi yang kita pilih. Cukup gampang bukan dan agar bermanfaat

Author: 
    author
    No related post!