Terima kasih Mas Edy udah nambah banyak cara nie. Ntar tak coba dulu ya mana yang lebih bisa saya pakai.
Salam, Wahyu From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Edy WIYONO Sent: 26 Oktober 2007 5:23 To: [email protected] Subject: Re: [indoprog-vb] Re: Random aku coba bantu juga ya mas Wahyu, mas Cahyo coba fungsi random di bawah ini. Function GetRandom(ByVal IntMaxRange As Integer) As Integer Do Randomize retVal = CInt(Rnd * IntMaxRange) Loop Until retVal > 0 GetRandom = retVal End Function Ada dua kemungkinan penggunaan fungsi random ini. 1. orang yang sudah dipanggil dikeluarkan dari list. maksudnya: orang yang sudah terpilih akan diberi nomor urut orang dengan nomor urut yang paling besar, nama dan fotonya akan ditampilkan di layar trus dibunyikan suara "PANGGILAN KEPADA SAUDARA X DIHARAP MENGISI ABSEN" (ini misalnya loh he he he) kode GetRandomEmployee akan dilakukan bila supervisor menekan tombol - Cek Absensi, atau di trigger lewat cara lain. kita hanya akan meneruskan program ke orang lain yang belum ditandai. 2. setiap kali kode dijalankan tanda x dihapus. semua orang punya kemungkinan dipanggil lagi. implementasinya yang paling mungkin ya yg nomor 1. Oke kita mulai pembahasannya. saya mencoba membuat aplikasi sederhana dgn MS Access XP, karena VBA mirip2 / bisa diterapkan di VB. Mari kita intip hasilnya: Session 1: Session 2: Session 3: ----- Original Message ----- From: cahyo kusworo To: [email protected] <mailto:indoprog-vb%40yahoogroups.com> Sent: Thursday, October 25, 2007 14:08 Subject: [indoprog-vb] Re: Random ide-nya adalah menciptakan sebuah angka random yang nlainya antara 0 s/d (jumlah yg ada di list-1), kemudian recordset kita move sesuai angka random yg kita dapatkan tadi setelah sebelumnya recordset kita pindahkan ke baris ke-1. Dengan demikian orang yg dipanggil jg akan acak. misal sudah ada objek RS yg merupakan recordset yg berisi list anda, dan variabel jml yg merupakan jumlah(count) dari list anda. randomize angkamove = int(rnd * (jml -1)) rs.movefirst rs.move angkamove semoga membantu. --- In [email protected] <mailto:indoprog-vb%40yahoogroups.com> , Wahyu D S S <[EMAIL PROTECTED]> wrote: > > Halo master vb, > Mohon arahannya saya lgi buat program payroll. > Saya ingin membuat random di payroll tersebut, jadi gini jika staf absen > maka di akan masuk dalam daftar random yang gunannya nanti akan di > panggil (Secara Acak & waktu juga acak) untuk melakukan absen lagi > gunanya agar staf tersebut selalu di toko selama jam kerja. Pada waktu > staf melakukan absen maka dia akan masuk dalam daftar absen contohnya > seperti ini : > --------------------- > No | ID | Nama | > --------------------- > 1 | 001 | A | > 2 | 002 | B | > 3 | 003 | C | > 4 | 004 | D | > 5 | 005 | E | > > Nah seperti itu nanti data yang ada di list absen. > Gimana yang caranya supaya di dalam list itu bisa random untuk dipanggil > kembali? > Tolong bantuannya ya teman2....trima ksih > > Wahyu > [Non-text portions of this message have been removed] __________ NOD32 2618 (20071026) Information __________ This message was checked by NOD32 antivirus system. http://www.eset.com [Non-text portions of this message have been removed]
