Sabtu, 10 April 2010

Hanya Angka Yang Bisa (Tips dan Trik Visual Basic 6.0)


    Pastikan sebelumnya anda telah membaca artikel sebelumnya tentang "Membatasi Penggunaan karakter pada Textbox (Tips dan rik Visual Basic 6.0)".

    Kali ini kita akan membahas penggunaan textbox dengan membatasi penggunaannya anya untuk angka,bukan yang lain.

    Untuk mempermudahnya,kita cukup gunakan program yang sebelumnya dan akan kita tambahkan beberapa listing program yang kita butuhkan sehingga nantinya program kita akan mendekati sempurna.(cie..cie..cie...).ok langsung saja ketahapan pembuatanya. Seperti biasa langkahnya dibawah ini.


- buka program visual basic 6.0
-pada form 1,tambakan sebuah control textbox
-sehingga tampak seperti gambar dibawah

Gambar.1 Form Layout
-buka jendela code,dan ketikan listing program seperti gambar.2


Gambar.2 Listing Program
-tambahkan listing program dibawah ini :
If Not IsNumeric(Chr(KeyAscii)) Then
KeyAscii = 0
MsgBox "yang anda masukan bukan angka!"
End If
Sehingga program kita nantinya akan seperti gambar dibawah:

Gambar.3 Listing Code

-coba jalankan program anda.
-coba ketikan berbagai karakter yang anda inginkan,lihat!apa yang terjadi. Ketika anda akan mengetikan huruf dan bukan angka maka kotak pesan akan muncul "yang anda masukan bukan angka" sebaliknya jika angka akan dieksekusi.

Download:
Hanya Angka Yang Bisa (Tips dan Trik Visual Basic 6.0).zip
Source code "textbox2.zip"

Link yang bermamfaat:
vbaccelerator.com
www.codeguru.com
www.codeproject.com
www.freevbcode.com
www.planetsourcecode.com
www.programmersheaven.com
www.vbcode.com

6 komentar:

  1. Gan mohon pencerahannya,...
    Gan saya mau tanya.... untuk merubah angka yang di acak jadi berurutan tu gmana caranya,... apa kode yang harus di rubah supaya jadi berurutan.
    trimakasih atas bantuannya...

    BalasHapus
  2. Maksudnya Hitung Counter dari 1 ampe 100 Gitu!
    Mudah kok Gan!
    gunain perintah berikut:
    Dim i As Integer

    pada bagian timer letakan perintah berikut
    i=i+1
    label1.Caption= i
    If i >= 100 then i=0

    pada bagian Form Load letakan
    i=0

    udah kayak gitu aza!
    moga bermamfaa!
    kunjungi juga
    http://elektronika00.tk

    BalasHapus
  3. gan,... mau tanya nie,.. kode apa yang harus di rubah, supaya angka yang lambangnya XXX yang biasanya muncul secara teracak bisa jalan berurutan, contohnya hitungannya bisa berurutan dari 1-100 tanpa teracak, mohon bantuannya gan.... karna saya sdh coba2 ngerubah kodenya tapi ga bisa sama sekali... trima kasih banget kalo agan bisa membantu saya,...

    BalasHapus
  4. Pertama, Hapus Script VB yang ada di kontrol Timer.
    Dim a as integer
    a=int(rnd*999)
    label1.caption = a

    Selanjutnya ganti kode tersebut dengan ini
    dim i as integer
    i=i+1
    label1.caption =i

    if i>100 then i=0


    dan deklarasikan kondisi awal dibagian form1_load
    i=0

    BalasHapus
  5. makasih banyak atas jawabannya gan,... salam kenal & selalu sukses...

    BalasHapus
  6. Sama-sama gan.... terima kasih atas supportnya

    BalasHapus

Need Your Comments, Please !!!