Validasi Karakter

Dalam postingan ini, sebelum saya mulai memposting tutorial membuat program, saya ingin memberikan trik mengenai cara memvalidasi karakter yang diinput dalam SingleLineEdit.

Maksud dari trik ini adalah agar User yang menggunakan program mengetik atau memasukkan karakter yang sesuai dengan kebutuhan, misalnya untuk keperluan penginputan Username, yang biasanya username itu hanya boleh berupa Huruf dan/atau Angka saja, atau mungkin jika kita ingin disebuah kolom tidak boleh ada spasi dan lain sebagainya.

Trik ini (sesuai dengan judulnya Validasi Karakter) akan dieksekusi bukan pada saat User mengetik pada keyboardnya, melainkan pada event lainnya, misalnya pada event Clicked di command button.

Di lain kesempatan saya akan jabarkan trik yang langsung memvalidasi karakter pada saat User mengetik di keyboardnya.

Trik ini menggunakan Looping FOR... NEXT

berikut ini adalah contoh codingnya untuk validasi hanya karakter Huruf yang diperbolehkan dalam sle_1:

---

string ls_valid = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz" // validasi karakter
integer li_pos // looping
integer li_ok = 0 // 0 = OK, >0 = ada karakter yang tidak sesuai validasi karakter
char lc_test // karakter yang akan dicek

// cek null atau string kosong, jika true jangan lakukan apa-apa
IF IsNull(sle_1.Text) OR Trim(sle_1.Text, True) = "" THEN Return
// looping untuk mendapatkan karakter yang akan dicek
FOR li_pos = 1 TO LenA(sle_1.Text)
lc_test = Char(MidA(sle_1.Text, li_pos, LenA(sle_1.Text)))
IF PosA(ls_valid, lc_test) = 0 THEN // ada karakter yang tidak sesuai dengan validasi
li_ok ++
Exit
END IF
NEXT

IF li_ok > 0 THEN
MessageBox("Ilegal", "Ada karakter yang tidak diperbolehkan.", Exclamation!)
ELSE
MessageBox("OK", "Semua karakter sesuai dengan validasinya.")
END IF

---

ls_valid = Karakter yang diperbolehkan

li_pos = Untuk keperluan loop

li_ok = Status karakter, dimana selain 0 berarti ada karakter yang tidak termasuk didalam ls_valid

lc_test = Karakter-karakter yang diinput

Untuk contoh samplenya bisa anda download di halaman Sample

Ini hanyalah salah satu trik untuk anda, simple memang, tapi kalau ada yang simple mengapa harus susah payah membuat yang ribet ?

Akhir kata, semoga sukses untuk semua yang sedang dan akan anda lakukan.