Cara Membuat Program Pengacak No Undian Pada VB 6.0

Minggu, 09 Januari 2011

Mengawali tahun 2011 dengan postingan Membuat Program Pengacak Undian menggunakan aplikasi yang saya pelajari yaitu Visual Basic 6.0.

Undian itu salah satu hal yang paling digemari masyarakat. Undian ada berbagai macam : ada yang melalui media elektronik dan salah satu aplikasi yang bisa digunakan untuk membuat undian adalah Visual basic 6.0.
Simak cara singkatnya di bawah ni…

1. Buka aplikasi Visual basic dengan cara klik start-program-microsoft visual studio 6.0-microsoft visual basic 6.0

2. maka akan muncul tampilan sbb:
pilih standart exe untuk memulai membuat aplikasi baru dan klik open untuk memulai membuat aplikasi.


3. setelah anda klik open, maka akan muncul tampilan form seperti dibawah ini :

4. Buat label dengan cara klik Label pada toolbox lalu ganti namanya melalui caption.

5. lakukan hal yang sama namun ganti caption dengan NO handphone

6. Lalu klik pada text box dan hapus tulisan “text” pada properties. dan tambahkan 1 text box lagi dibawahnya.


7. Setelah selesai menambahkan textbox, lalu tambahkan command button seperti gambar dibawah ini, dan ubah caption pada properti menjadi Acak, setelah itu tambahkan 1 command button lagi dan ganti captionnya menjadi stop.

8. Lalu kita tambahkan timer dengan cara klik timer yang ada di toolbox


9. Lalu kita akan memasukkan komponenen adodc dan datagirid.
Sebelumnya kita arahkan kursor ke toolbar dan pilih project, lalu klik component.


10. setelah kita klik akan  muncul component box, lalu kita beri tanda check pada Microsoft ADO Data Control 6.0 (SP6) dan Microsoft DataGrid Control 6.0(Sp6) dan pilih apply lalu Ok.


11. Setelah itu kita pilih adodc yang ada di toolbox


12. Setelah kita pilih adodc, kita pilih datagrid yang ada di toolbox




13.  Setelah kita menambahkan komponen yang diperlukan, lalu kita buat database di Microsoft Access,
dengan cara  kita klik start-program-microsoft office-microsoft access 2003



14. untuk membuat database baru, kita klik File-New



15. Lalu klik blank database




16. Lalu kita simpan dahulu database yang akan kita buat, ke folder yang diinginkan.



17. lalu klik kanan pada create table in design view, dan pilih design view



18. lalu kita isi field name dan data typenya




19. lalu kita ubah nama tabelnya dengan menyimpan ulang




20. Klik ganda pada database untuk muali mengisinya

21. Setelah kita membuat database di access, lalu kita kembali pada Visual Basic 6.0, lalu kita mengkoneksikan adodc nya dengan cara,
1. Klik pada Connection string
2. Klik build properties page
3. lalu kita pilih Microsoft Jet 4.0
4. Lalu kita klik next


22.  Setelah klik next maka akan muncul Data Link Properties, pada Data Link Properties,Klik
1. pada Select or enter database name pilih folder tempat penyimpanannya
2. Pilih nama databasenya
3. Klik open
4. Lalu klik Test Connection, Jika Berhasil maka akan muncul Test Connection Succeeded



23. di Properties pages pada Record Source isikan tampilan seperti gambar di bawah ini, lalu klik apply dan Ok


24. Pada Properties datagrid, kita ubah koneksi data source dengan adodc1

25.Klik ganda pada command “Acak” lalu isikan script sbb :


26. Klik ganda pada timer lalu ketik script sbb:

27. Klik ganda pada command “Stop” lalu ketik script sbb:

Jangan lupa, pada properti text boxnya, Pilih data source dengan adodc1. dan datafield sesuai dengan nama fieldnya.
- Jika anda ingin tampilan adodc dan datagrid tidak terlihat waktu dijalankan,, pada properties visible,,nilainya kita ganti dengan false.
Untuk menjalankan kita klik tombol Run pada Vb atau tekan F5 pada keyboard.
dan inilah tampilannya


Share this article :

3 komentar:

  1. semoga postingan ini bermanfaat bagi Anda seorang programer......

    BalasHapus
  2. kalo mo acak isi database Access pake delphi gimana boz? misalkan pake adotabel,
    misalkan isi databasenya ada 5 recod, kemudian ingin ditampilin di listbox/memo secara acak.

    matur suwun....

    BalasHapus
  3. scriptnya ga jelas gan , gambarnya ga bisa di perbesar ya gan ?
    hehe

    BalasHapus

Followers on Facebook

 
Copyright © 2011. Jangan Malu Menjadi Programer - All Rights Reserved
Proudly powered by Blogger