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
<*> 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/
