nambahin jg..
If Not IsNumeric(Text1) Then
MsgBox "Bukan Data Numeric"
Else
MsgBox "Data Numeric"
End If
Note:
Text1 --> Textbox
jika text1 = textbox.. maka sebaiknya dijadiin text1.text jangan text1
doang... memang umumnya bisa.. karena vb otomatis melakukan typecasting...
dari tipe textbox diambil textnya..
tapi pada kasus2 tertentu coding seperti ini bisa menyebabkan error yang
akan membingungkan anda... karena bisa jadi di computer laen jalan... tapi
di beberapa komp laen error...
jadi sebaiknya jadi seperti ini :
If Not IsNumeric(Text1.text) Then
MsgBox "Bukan Data Numeric"
Else
MsgBox "Data Numeric"
End If
Note:
Text1 --> Textbox
=======================
http://www.fire888.com
-----Original Message-----
From: [email protected]
[mailto:[EMAIL PROTECTED] Behalf Of Stefanus Agus Setiawan
Sent: Friday, December 28, 2007 9:33 AM
To: [email protected]
Subject: Re: [Programmer-VB] Tips n Triks membatasi input pada TextBox
ikutan nambahin juga yach, kalau untuk validasi input tipe angka saya
biasanya pakai code dibawah ini.
If Not IsNumeric(Text1) Then
MsgBox "Bukan Data Numeric"
Else
MsgBox "Data Numeric"
End If
Note:
Text1 --> Textbox
salam
Agus Setiawan
----- Original Message ----
From: Sodik Ihwan <[EMAIL PROTECTED]>
To: [email protected]
Sent: Friday, December 28, 2007 8:45:13 AM
Subject: Re: [Programmer-VB] Tips n Triks membatasi input pada TextBox
menambahkan saja Bu, kalo saya biasanya pake ini:
Private Sub TxtNama_KeyPress(KeyAscii As Integer)
ValidIsi 7, KeyAscii
If KeyAscii = vbKeyReturn Then
If Trim(Me.ActiveControl.Text) = "" Then Exit Sub
ObjekBerikutnya TxtAlamat
End If
End Sub
Public Sub ValidIsi(ModeNa As Byte, AsciNa As Integer, _
Optional JadiHurufBesar As Boolean = False, _
Optional JadiHurufKecil As Boolean = False)
Dim KarakterSah As String, i As Integer
If ModeNa = 1 Then KarakterSah = "0123456789"
If ModeNa = 2 Then KarakterSah = "0123456789-"
If ModeNa = 3 Then KarakterSah = "0123456789."
If ModeNa = 4 Then KarakterSah = "0123456789.-"
If ModeNa = 5 Then KarakterSah = "0123456789,."
If ModeNa = 6 Then KarakterSah = "0123456789,.-"
If ModeNa = 7 Then KarakterSah = "0123456789,.-" & _
"ABCDEFGHIJKLMNOPQRSTUVWXYZ" & _
" abcdefghijklmnopqrstuvwxyz" & _
"[EMAIL
PROTECTED]&*()_+-=[]\{}|;:/<>?€" &
Chr(34)
If ModeNa = 8 Then
KarakterSah = ""
For i = 0 To 255
KarakterSah = KarakterSah + Chr(i)
Next i
End If
If ModeNa = 11 Then KarakterSah = "PWpw" 'Pria/Wanita
If ModeNa = 12 Then KarakterSah = "LPlp" 'Laki-laki/Perempuan
If ModeNa = 13 Then KarakterSah = "YTyt" 'Ya/Tidak
If ModeNa = 14 Then KarakterSah = "YNyn" 'Yes/No
If ModeNa = 15 Then KarakterSah = "SIsi" 'Suami/Istri
If AsciNa > 26 Then
If InStr(KarakterSah, Chr(AsciNa)) = 0 Then AsciNa = 0
End If
If JadiHurufBesar = True Then AsciNa = Asc(UCase(Chr(AsciNa)))
If JadiHurufKecil = True Then AsciNa = Asc(LCase(Chr(AsciNa)))
End Sub
salam,
sodik
On Thu, 27 Dec 2007 14:24:43 +0700, Lilis <[EMAIL PROTECTED]>
wrote:
> hallo programmer
>
> sedikit trik nih utk membuat validasi inputan, contoh ini biasanya
dibuat
> spy user ga salah menginput.
>
> ketik kodingnya spt dibawah ini pada event keypress
>
> Private Sub Text1_KeyPress(KeyAscii As Integer)
> If (Not KeyAscii >= Asc("A") Or Not KeyAscii <= Asc("Z")) _
> And (Not KeyAscii >= Asc("0") Or Not KeyAscii <= Asc("9")) _
> And KeyAscii <> Asc(vbBack) Then
>
> MsgBox "Hanya huruf dan Angka aja"
>
> End If
> End Sub
>
> kode diatas hnya membatasi user utk menginput huruf atau angka dan
> backspace
> utk menghapus kalo ada kesalahan
> dan hurufnya nya pun cuma bisa huruf besar aja jadi perlu ditambah spy
> bisa
> juga utk huruf kecil dan juga mungkin
> perlu ditambah spasi ( itu PR yg hrs diselesaikan ) dan kalo
> diperhatikan,
> aku menggunakan sintak Asc daripada Chr, kenapa?
> karena kalo memakai chr kombinasinya kan dgn angka sehingga bacanya agak
> susah bagi orang awam spt aku.
> tapi kalo menggunakan asc spt diatas, kodenya jadi jelas dan maksudnya
> dapat
> dimengerti.
>
> ok semoga bermanfaat, sampe ketemu di trik berikutnya :-)
>
> salam
> lilis
>
--
Using Opera's revolutionary e-mail client: http://www.opera.com/mail/
Send instant messages to your online friends
http://asia.messenger.yahoo.com
Wahana Programmer Groups Links
Yahoo! Groups Links
----------------------------------------------------------------------------
--
Be a better friend, newshound, and know-it-all with Yahoo! Mobile. Try it
now.
No virus found in this outgoing message.
Checked by AVG Free Edition.
Version: 7.5.516 / Virus Database: 269.17.11/1200 - Release Date: 12/27/2007
1:34 PM
