saya gak ngerti maksudnya diputer 10x ? tapi biasanya klo bikin angka random seperti ini : ================================================ Option Explicit Dim dievalue, acak As Variant
Private Sub CMD_Start_Click() Timer1.Enabled = True End Sub Private Sub CMD_Stop_Click() Timer1.Enabled = False End Sub Private Sub Timer1_Timer() acak = Int((4500 - 200 + 1) * Rnd) + 200 Label1 = acak End Sub ================================================ timer1 disetting disable, intervalnya juga bisa disesuaikan sendiri. dan hasil randomnya pun akan langsung tampil di label1. 2010/6/24 mr-BIG <[email protected]> > > > Para pakar Mohon bantuannya dong, > > saya mau buat program untuk undian dorprize, > > bagaimana caranya untuk menemukan 1 angka dari counter angka antara, > misalnya 200 s/d 4500. > > kondisinya begini : > > ketika di tekan tombol Mulai label ACAK NOMOR akan berputar > > Program akan mengacak angka dari 200 s/d 4500 dalam waktu 60 detik sebanyak > 10x acak - jadi setelah angka 4500 ketemu akan diputar lagi sampai 10 x > (anka ini bisa dirubah) dalam waktu 60 detik. > > dan ketika tombol STOP di tekan akan berhenti dan menampilkan nomor > terpilih pada label nomor Terpilih. > > disini saya lampirkan source form nya. > > terimakasih banyak atas kesdiaan rekan-rekan. > > salam, > mb > > [Non-text portions of this message have been removed] > > > -- Thx Regards Evan Sent from my NOKIA® smartphone from Indosat M3, "Disini kami menyebutnya teknologi yang mengerti anda" [Non-text portions of this message have been removed] ------------------------------------ Untuk berhenti berlangganan kirim email kosong ke : [email protected]. Untuk forum diskusi lainnya kunjungi : http://www.geocities.com/indoprog Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/indoprog-vb/ <*> Your email settings: Individual Email | Traditional <*> To change settings online go to: http://groups.yahoo.com/group/indoprog-vb/join (Yahoo! ID required) <*> To change settings via email: [email protected] [email protected] <*> 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/
