Sy sudah pernah nerapin sistem untuk acara doorprize. gambaran umumnya adalah sbb :
1. peserta yang hadir kita masukin ke sistem ( table peserta , gunakan id yang unik
tiap peserta )
2. tampilan form untuk memulai random.
untuk menampilkan data acak adalah :
a. select peserta dengan menggunakan fungsi random dengan where
pemenang = .f. ( biar yang diselect hanya yang belum menang saja) simpan di
cursor
b. dari cursor tsb lakukan proses looping sampai eof(), bila sudah eof() go top lagi
lakukan sampai user menekan tombol stop. Supaya tampil indicator di form sy
gunakan fungsi sys(2015) (biar engak ketebak posisi record )
c. begitu tombol stop ditekan , tampilkan pemenangnya lalu update ke table peserta
set pemenang tersebut mnjadi .T. ( hal ini dilakukan biar yang menang tdk 2 kali )
d. lakukan proses (a) untuk melanjutkan pemenang doorprize
semoga bisa menjadi pencerahan