anga 10 x itu sebetulnya sebagai ukuran kecepatan putaran angka dalam 60 detik, jadi angka 200 s/d 4500 itu akan diputar berulang sebanyak 10 x dalam waktu 60 detik, angka itu bisa juga dirubah tergantung inputan misalnya 100x ato 150 x, kalau terlalu cepat tentu kurang bisa dilihat mata... begitu mas.
salam, m --- In [email protected], Evan <e...@...> wrote: > > 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 <pmuda2...@...> > > > > > > > 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] >
