file nya mana om japri dong ke [EMAIL PROTECTED] ----- Original Message ----- From: [EMAIL PROTECTED] To: [email protected] Sent: Friday, August 04, 2006 8:57 AM Subject: Re: [indoprog-vb] program acak
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] [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/
