A. Skenario untuk membuat panggilan acak dgn jam acak.
1. buat tabel tblJamModuleAcak
Fieldnya: JamModule, typedata: DateTime
Fungsinya utk menampung jam berapa module acak akan dieksekusi.
2. pada event timer dibuat module utk mengecek data tsb:
bila now()=JamModule, maka jalankan :
a. Fungsi random utk mengambil data dari 1 to 32400.
Misalnya kembalian fungsi tsb adalah "1000" ---> ditampung di variable
: AcakJam
b. Fungsi random utk mengambil data pegawai
Misal kembalian fungsi tsb adalah "SN001" ---> ditampung di variable :
AcakPegawai
3. Nilai AcakJam, dan AcakPegawai di masukkan ke tblRandomPanggil dgn sQL
statement.
INSERT INTO tblRandomPanggil (SN,Jam) VALUES (AcakPegawai, AcakJam)
(cek lagi sintaksnya..)
4. Jalankan ini sampai data seluruh pegawai tertampung di tblRandomPanggil.
B. Skenario utk memanggil pengawai tsb.
pada event timer dibuat module untuk mengecek data di tblRandom.
bila Now() = data di tblRandomPanggil, Jam
---jalankan prosedur panggil tsb.
--- bisa panggil file .wav / .mp3 yang isinya "saudara XXX"
ini skenarionya, saya tdk ngecek mengenai sintaks dll.
----- Original Message -----
From: Wahyu D S S
To: [email protected]
Sent: Wednesday, October 31, 2007 09:12
Subject: RE: [indoprog-vb] Funsi
Saya udah coba jalankan tapi error 'Argument not optional' ? Maaf bias lebih
jelas lagi gak. Saya udah coba seperti ini :
Dim jammasuk, jamDipanggil
Dim s As Integer
Do
Randomize
s = CInt(Rnd * 32400)
Loop Until s > 0
jammasuk = "08.00"
jamDipanggil = DateAdd("s", jammasuk)
MsgBox jamDipanggil
Mohon bantuannya secepatnya ya.
Terima Kasih
From: [email protected] [mailto:[EMAIL PROTECTED] On
Behalf Of wedhi access
Sent: 29 Oktober 2007 15:45
To: [email protected]
Subject: Re: [indoprog-vb] Funsi
Asumsi saya fungsi ini dijalankan tiap hari.
Misalnya jam 00.00 WIB secara otomatis.
Tiap jam tsb - ia akan mengupdate sebuah tabel RandomPanggil berisi:
KodeStaf
JamDipanggil
Idenya sbb:
Misal karyawan masuk jam 07.00 s.d 16.00
berarti : 9 jam / 32400 detik.
Buat aja fungsi random yang mengambil nilai dari 1 sd 32400, trus
JamDipanggil=dateADD("s",JamMasuk) , misalnya dapat jam 07.01
KodeStaf juga dipanggil secara random, misal hasilnya : SN001
Nilai ini akan dimasukkan tabel RandomPanggil tsb.
Sekedar Ide. Mudah2-an membantu.
On 10/29/07, Wahyu D S S <[EMAIL PROTECTED]
<mailto:c4k3p_d55%40telkom.net> > wrote:
>
> Hai semuanya,
> saya punya sebuah fungsi membaca data untuk memanggil nama staf, gimana
> caranya supaya fungsi yang sudah dibuat itu dipanggil secara random
> artinya fungsi tersebut dijalankan pada waktu / jam yang kita sendiri
> tidak tahu.
> Mohon pencerahanyan yang semuanya, terima kasih.
>
> Wahyu
>
>
>
[Non-text portions of this message have been removed]
__________ NOD32 2626 (20071030) Information __________
This message was checked by NOD32 antivirus system.
http://www.eset.com
[Non-text portions of this message have been removed]
[Non-text portions of this message have been removed]
