ane baru join nih..
numpang tnya..
Dim PauseTime, Start, Finish, TotalTime
Private Sub memulai()
If (MsgBox("Press Yes untuk memulai", 4)) = vbYes Then
PauseTime = 3 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Image1.Left = Image1.Left + Rnd() * 100
Image2.Left = Image2.Left + Rnd() * 100
Image3.Left = Image3.Left + Rnd() * 100
Finish = Timer ' Set end time.
TotalTime = Finish - Start ' Calculate total time.
MsgBox "Paused for " & TotalTime & " seconds"
Else
End
End If
End Sub
it codingan ane,
logika yg mw ane jalanin tuh gni:
ketika d tekan tombol yes maka akan memulai hitungan sampai 3 detik...
dalam 3 detik itu, gambar 1,2,dan 3 akan bergerak secara random kearah kiri...
kemudian finish dan selesai...jika tidak ditekan yes maka tidak ada event yang
terjadi..
pertanyaannya:
1. tidak mw jalan, dan debug d image'a..
2. klo saya ganti do while timerny bkal ad message box yg berkata ELSE WITHOUT
IF..padahal da jelas ada if d awal..(ap sy salah memasukan coding)??
mohon di bantu..
