Fivembois’s Weblog

Agustus 5, 2008

Cara membuat program pengacak no undian pada VB 6

Filed under: ILMu — fivembois @ 5:02 am

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-

ditulis oleh : fivembois

About these ads

3 Komentar »

  1. Terima Kasih, Saya Sudah Coba Membuat sesuai prosedur diatas, tapi waktu saya pindahkan ke pc lain muncul error ” Run Time Error 91:Object Variable or With Block Variable Not Set “, Apa Maksudnya Ya, Maklum masih belajar, Solusinya Bagaimana, terima Kasih (Sgarkananta@Yahoo.com)

    Komentar oleh Budiman — Agustus 25, 2008 @ 5:48 am

  2. kalo php gmn pak caranya

    Komentar oleh dian indah savitri — September 3, 2008 @ 10:02 am

  3. ZzZzZZ…………. SaMa KyK BuDIman (d_shadowtech@yahoo.com)

    Komentar oleh lastshadow — Oktober 5, 2008 @ 11:15 pm


Umpan RSS untuk komentar-komentar pada tulisan ini. TrackBack URI

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Logout / Ubah )

Twitter picture

You are commenting using your Twitter account. Logout / Ubah )

Facebook photo

You are commenting using your Facebook account. Logout / Ubah )

Google+ photo

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

The Silver is the New Black Theme Blog pada WordPress.com.

Ikuti

Get every new post delivered to your Inbox.

%d bloggers like this: