applikasi acak hadiah/ random number: VB6 - SQL 2005 - CR8

Berikut Applikasi untuk acak hadiah, biasa digunakan untuk family gathering atau sejesnisnya.
diiringi dengan musik / lagu.
environment:

1. sqlserver 2005 di local database
2. VB6
3. Crystal report v8
4. file applikasi ( source tak ada ) 
5. koneksi ODB.
6. file mp3 dan rename dengan nama " sajojo.mp3"

cara kerja
(1) masukkan data hadiah, urut dari terbesar ( mahal) ke yang terkecil ( murah) ke table "tbl_gift"
(2) masukkan data peserta ( acak boleh, urut boleh) ke table "tbl_user"
(3) applikasi ( file exe, rpt, mp3) simpan di drive C dan dalam folder "undian"
(4) data peserta akan diacak dan diberi nomor random lalu diurutkan di ambil 10 tertinggi ( TOP 10)
(5) data TOP 10 yang dihasilakn akan dipasangkan dengan hadiah, dari yang terendah.
(6) setelah berpasangan antara 10 peserta yang dapat dengan hadiah, maka 10 peserta tadi akan dikeluarkan dari list berikutnya. Tidak ikut diacak lagi, begitupun juga dengan 10 hadiah tadi.
(7) demikian dilakukan sampai habis
(8) ada menu reset jika ingin mulai dari awal (acak dari awal lagi)

Inti dari process random aplikasi ini adalah:

1. penggunaan "ORDER BY NEWID()" di SQL Server 2005 untuk generate unique code !
2. kemudian sort base on unique code tadi dan exclude data yang telah tampil
3. newid(), hanya ada di SQL Server mulai versi 2005.

berikut table yang perlu dicreate:

CREATE TABLE IF NOT EXISTS `tbl_final` (
  `user_id` int(11) NOT NULL,
  `hadiah_id` int(11) NOT NULL,
  PRIMARY KEY (`hadiah_id`)
);



CREATE TABLE IF NOT EXISTS `tbl_gift` (
  `id_gft` int(11) DEFAULT NULL,
  `nm_gft` varchar(50) DEFAULT NULL,
  `lvl_gft` varchar(50) DEFAULT NULL
);



CREATE TABLE IF NOT EXISTS `tbl_list` (
  `name_lst` varchar(20) DEFAULT NULL,
  `gift_lst` varchar(20) DEFAULT NULL
)  ;


CREATE TABLE IF NOT EXISTS `tbl_newfinal` (
  `user_name` varchar(50) NOT NULL,
  `user_gift` varchar(50) NOT NULL
) ;

CREATE TABLE IF NOT EXISTS `tbl_user` (
  `user_id` int(11) NOT NULL,
  `user_name` varchar(50) DEFAULT NULL,
  `user_gift` varchar(20) NOT NULL
);



# untuk file silakan download disini: