Coba tambahkan 1 buah kompenen Timer
Selanjutnya silahkan dimodifikasi kode berikut ini. CMIIW.
----
Private Sub cmd_mulai_Click()
Timer1.Interval = 1000 * (counter_x / durasi_waktu)
Timer1.Enabled = True
End Sub
Private Sub cmd_stop_Click()
Timer1.Enabled = False
nomor_terpilih = acak_nomor
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000 * (counter_x / durasi_waktu)
nomor_terpilih = ""
End Sub
Private Sub Timer1_Timer()
acak_nomor = Format(Int(Rnd * (angka_akhir - angka_awal)) + angka_awal,
"0000")
End Sub
----
On 6/24/10, mr-BIG <pmuda2...@yahoo.com> wrote:
>
>
>
> [Attachment(s)<https://mail.google.com/mail/?ui=1&ik=61d72f279a&view=cv&search=inbox&th=12968d775d071f21&ww=1346&cvap=3&qt=&zx=m3afw0shm9kc#12968d775d071f21_TopText>from
> mr-BIG included below]
>
> 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
>
>
>
--
Regards,
~fzi~
