Perulangan :
Do While ... Loop
Do Until ... Loop
Do .... Loop Until
Intinya ada Do ada Loop seperti ada For ada Next
Kid.
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..
| momod akan terdampar seminggu lagi, moderasi akan lemodmod... |
| hidup tanpa google dan fesbuk dan yahuuuu... ampun dehhh... |
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário