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]
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], 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]
