Coba yang ini........
(See attached file: Counter.zip)
"Aryo Sanjaya"
<[EMAIL PROTECTED] To:
[email protected]
net> cc:
Sent by: Subject: Re: [indoprog-vb]
program acak
[EMAIL PROTECTED]
groups.com
08/03/2006 22:27
Please respond to
indoprog-vb
Coba dengan aplikasi simpel ini:
Tambahkan Command1, Command2 dan Label1 ke form, codenya gini:
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim n As Long
Dim s As Boolean
Private Sub Command1_Click()
s = True
While s
n = Rnd() * 900000 + 100000
Label1 = n
Refresh
DoEvents
Sleep 100
Wend
End Sub
Private Sub Command2_Click()
s = False
End Sub
Private Sub Form_Load()
Randomize Timer
End Sub
On 8/3/06, adhy nunu <[EMAIL PROTECTED]> wrote:
>
>
> para suhu sekalian,
> ada yang bisa ngasih saya pencerahan untuk kasus ini : Tombol Start
> mengacak angka yang kemudian ditampilkan di layar. Ketika tombol Stop
> di-klik, maka pengacakan akan berhenti. Angka yang terakhir di kocok akan
> tetap tampil di layar.
> Bagaimana caranya ya. Saya udah bikin, tapi error terus. Mohon maaf
dengan
> pertanyaannya, maklum masih newbie...
>
>
>
--
Aryo Sanjaya
http://www.mahesajenar.com/
Y!: aryo_sanjaya
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke :
[EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
The contents of this e-mail and attachments are confidential and subject to
legal privilege. If you are not the intended recipient, you are strictly
prohibited and may be unlawful to use, copy, store, distribute, disclose or
communicate any part of it to others and you are obliged to return it
immediately to sender or notify us and delete the e-mail and any attachments
from your system. PT BANK PERMATA TBK and subsidiaries do not accept liability
for loss or damage resulting from computer viruses. The integrity of e-mail
across the internet cannot be guaranteed and PT BANK PERMATA TBK will not
accept liability for any claims arising as a result of the use of this medium
for transmissions by or to PT BANK PERMATA TBK.
[Non-text portions of this message have been removed]
Untuk berhenti berlangganan kirim email kosong ke : [EMAIL PROTECTED]
Forum ini berkembang dengan pesat, jika anda memiliki
dedikasi dan waktu, silahkan mengaplikasikan diri
menjadi moderator.
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/indoprog-vb/
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
