Sumbang pemikiran ya... Saya belum pernah membuat program semacam itu, tapi pada dasarnya VB bisa membuat hal seperti itu. Logikanya begini:
Setiap data yang akan di undi sudah tercatat dalam database, salah satu informasi yang harus ada adalah informasi status yang menerangkan bahwa peserta tersebut sudah pernah menang atau belum. Proses randomnya sendiri dalam VB menggunakan fungsi Rnd. proses pengacakannya adalah Rnd * Jumlah Peserta, Contoh: Jml = X Pemenang = Round(Rnd * Jml) dimana, X bisa anda tentukan bilangan pasti misalnya 10, 20 atau lainnya. atau juga X bisa bernilai jumlah record peserta. Selanjutnya hasil dari variabel 'Pemenang' tersebut akan bernilai sebuah angka, dimana angka tersebut bisa dijadikan sebagai penentu siapa pemenangnya, bagaimana menentukannya? ya.. pada database peserta tersebut langsung sorot posisi record dari angka variabel Pemenang (Ref: absolute position). kemudian cek statusnya apakan sudah pernah menang atau belum jika sudah pernahmenang, acak lagi. kalo belum menang ya peserta tersebut adalah pemenangnnya. Pseudocode nya kira kira gini: X = Jumlah Peserta Lakukan Random sebanyak jumlah peserta, dan masukan kedalam variabel Pindah posisi record sesuai dengan nilai variabel Cek apakah peserta sudah menang jika sudah pernah menang kembali ke proses awal untuk random ulang jika belum pernah menang ambil informasi peserta dan update statusnya jadi 'pernah menang' CMIIW, On 27/06/07, Apriandi Kusnadi <[EMAIL PROTECTED]> wrote: > > Dear All, > > Saya mau Tanya gimana caranya membuat program Undian dengan mencari secara > acak nama peserta seperti program Undian di Televisi. > Misalnya peserta yang di undi ada 10 orang. Dan di acak berdasarkan No ID > mereka (biasanya kalo di TV berdasarkan No. Tlp peserta). > Jika dalam pengacakan, salah satu No. ID peserta ada yg keluar maka dia > menjadi pemenang nya. Dan berarti jumlah peserta Undian berkurang menjadi > 9 > orang. Nah yang 9 orang ini kemudian di acak lagi sampai keluar No. > peserta > berikutnya yg jadi pemenang. > Berarti Intinya setiap peserta yang berhasil jadi pemenang, maka No ID > mereka tidak akan keluar lagi dalam undian pengacakan berikutnya. > Apakah ini perlu menggunakan Database sebagai tempat penyimpanan dari > No.ID > peserta. > Saya harap diantara teman2 semua sudah ada yang pernah membuat program > semacam ini, dan kalo boleh saya minta di kasih tau caranya. > > Thanks > > > "The above message is for the intended recipient only and may contain > confidential information and/or may be subject to legal privilege. If you > are not the intended recipient, you are hereby notified that any > dissemination, distribution, or copying of this message, or any > attachment, > is strictly prohibited. If it has reached you in error please inform us > immediately by reply e-mail or telephone, reversing the charge if > necessary. > Please delete the message and the reply (if it contains the original > message) thereafter. Thank you." > > > > [Non-text portions of this message have been removed] > > > > Untuk berhenti berlangganan kirim email kosong ke : > [EMAIL PROTECTED] > > Bagi terjangkit virus lokal, zip virus tersebut > dan kirim ke [EMAIL PROTECTED], kami > akan membuat removalnya untuk anda. > Yahoo! Groups Links > > > > -- Best Regard, [zZzz] [Non-text portions of this message have been removed]
