Membuat program undian dengan vb6
Posted on 01/11/10
Cara membuat program pengacak no undian pada VB 6
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
-Selamat mencoba-
source : FIVEMBOIS
