Hmm… Saya gak setuju dengan bung lai min feng…menurut saya kalo emang niatnya membantu orang ya harus iklas..tulus…no matter what they are….kalo emang gak niat bantu..ya udah gak usah di bantu..beres kan…gitu aja kok repot…pake nulis gak penting di milis…
Semoga kita bisa sama – sama berkembang dengan sharing ilmu dan pengetahuan, Regards, Me.. From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Lai Min Feng Sent: 04 Januari 2008 8:44 To: [email protected] Subject: RE: [Programmer-VB] Tips n Triks membatasi input pada TextBox .......... hari ini lagi semangat ceramah.... jadi kira2 gini... sudahkah anda bisa menampilkan data di dbgrid ??? kalu sudah bisa, apakah anda benar2 sudah bisa ??? atau cuma download source code sudah jadi, lalu liat2 aja ?? coba dibikin ulang dari mula... dan dimengerti semua codingnya.... kalu anda yakin sudah bisa... percayalah.. seharusnya anda jg sudah bisa menampilkan data yang difilter.... kalu rupanya yang anda inginkan lebih rumit daripada yang saya bayangkan (yang menyebabkan anda jadi gak bisa), cobalah bikin dulu sendiri... setelah itu di post disini coding yang sudah anda gunakan.. dan bingungnya dimana.... ps : untuk semuanya yang menghubungi saya via japri.... maaf sekali, saya ini pemalas.. dalam artian.. saya tidak serajin *beberapa orang rajin dalam milis ini* untuk membuatkan anda contoh dalam program jadi serumit atau sesimple apapun... jadi jika anda memang membutuhkan contoh dalam source code jadi.. mgkn anda bisa coba menghubungi *orang2 rajin dalam milis ini* (gak berani nyebut nama, untuk menghindari hal2 seperti mgkn orangnya tidak mau namanya disebut2... anyway.. jika anda mengikuti milis ini, harusnya anda sudah tau siapa) atau jika memang anda membutuhkan program jadi dari saya, silakan liat2 di website saya (yang saya tulis di signature - tapi sekarang lagi error karena hostingnya.. mgkn butuh bbrp hari benerinnya.. hehe..), disana saya taruh beberapa contoh program simple (yang saya buat ketika saya iseng dan lagi pengen), silakan request di forum saya jika membutuhkan contoh lain.. tapi saya tidak berjanji akan membuatkan.. saya dengan senang hati akan membantu anda dengan catatan : - saya sedang ada waktu dan bisa membantu (saya jg sering sibuk, dan saya jg bukan master vb yang bisa semuanya, tapi saya hanya bisa membantu apa yang saya tau dan pernah pake) - anda sudah mencoba mencari sendiri (jika anda memang tipe yang perlu contoh source code, silakan cari di google, sangat banyak contohnya dari yang simple sekali sampai yang rumit... jika anda bilang tidak ada di google untuk contoh yang simple.. berarti anda berbohong dan belum mencoba mencari di google.. dan jangan harap saya akan membantu anda) - anda sudah mencoba coding sendiri dan mentok... (jika memang anda sudah coba coding sendiri, tentunya anda tau dasar coding anda dan masalahnya apa.. silakan tanyakan masalahnya saja... tapi jangan minta contoh coding source code full dari awal... percayalah anda tidak akan mendapatkannya dari saya... kecuali saya abis nabrak tembok) - anda meminta dengan sopan dan maklum jika saya sedang tidak bisa membantu (jangan rese dan jangan memaksa2... percayalah.. tidak lama kemudian anda akan di ignore selamanya..) terima kasih untuk membaca sepanjang ini... maaf, saya tidak ada maksud menyinggung siapapun atau bermaksud sombong atau maksud2 negatif lainnya... cuma biar sama2 enak.. karena banyak yang menghubungi saya via japri, meminta contoh source code jadi, minta diajarin dari mula sama sekali, bilang udah coba cari di google tidak ada (padahal begitu saya cari keluar ratusan link), sampai memaksa2 dan bilang2 pelit, dan lainnya... (walaupun ada jg yang minta tolong dengan sopan dan langsung pada inti masalahnya seperti yang saya inginkan) hal ini cukup mengganggu saya, dan membuat saya jadi semakin malas ikut membantu jawab di milis, dan mgkn orang2 lain jg dalam milis ini... dan jg tidak memberikan kebaikan apapun untuk anda yang meminta bantuan (karena anda jadi tidak mendapatkan apapun jg) jadi daripada saya dan anda juga orang2 lain sama2 rugi dan susah, saya tulis hal2 di atas.. sekali lagi, maaf jika ada yang tersinggung, atau menangkap maksud2 negatif lainnya... dan sekali lagi, saya tidak ada maksud negatif apapun, hanya bermaksud mengatakan rule yang cukup baik menurut saya agar kita sama2 enak.. ======================= http://www.fire888.com <http://www.fire888.com/> -----Original Message----- From: [email protected] [mailto:[EMAIL PROTECTED] Behalf Of Sam Cahaya Sent: Friday, December 28, 2007 10:23 AM To: [email protected] Subject: Re: [Programmer-VB] Tips n Triks membatasi input pada TextBox Dear Lai...., Tolong dong gmana caranya untuk menampilkan data yang terfilter dalam Dbgrid misalnya yang alamatnya di Jakarta aja, atau yang namanya benny aja gitu. Thanks sebelumnya. Benny ----- Original Message ---- From: Lai Min Feng <[EMAIL PROTECTED]> To: [email protected] Sent: Friday, December 28, 2007 10:14:31 AM Subject: RE: [Programmer-VB] Tips n Triks membatasi input pada TextBox 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 <http://www.fire888.com/> -----Original Message----- From: Programmer-VB@ yahoogroups. com [mailto:Programmer- [EMAIL PROTECTED] com]On Behalf Of Stefanus Agus Setiawan Sent: Friday, December 28, 2007 9:33 AM To: Programmer-VB@ yahoogroups. com 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 <sodik_ihwan@ yahoo.com <http://yahoo.com/> . sg> To: Programmer-VB@ yahoogroups. com 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.ActiveContr ol.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, .-" & _ "ABCDEFGHIJKLMNOPQR STUVWXYZ" & _ " abcdefghijklmnopqrs tuvwxyz" & _ "[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/Perempua n 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 <lilis.5ury4n1@ <mailto:[EMAIL PROTECTED]> yahoo.co. id> 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 >
