Attachmen Kosong Om thq. ----- Original Message ----- From: <[EMAIL PROTECTED]> To: <[email protected]> Sent: Friday, August 04, 2006 7: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] > > > > 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 > > > > > > > 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/
