Tecnologia, programação e muito Visual FoxPro.

segunda-feira, 21 de junho de 2010

Re: ]] XL-mania [[ vba d excel ->fungsi timer

 

Perulangan :
Do While ... Loop
Do Until ... Loop
Do .... Loop Until


Intinya ada Do ada Loop seperti ada For ada Next

Kid.


On Sun, Jun 20, 2010 at 9:15 PM, ~sHeRaV~ <count_vn@yahoo.co.id> wrote:
 

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..


__._,_.___
Recent Activity:
+-:: XL-mania ::::::::::::::::::::----------------------------------+
| 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              |
+-------------------------------------------------------------------+
MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.


Get great advice about dogs and cats. Visit the Dog & Cat Answers Center.


Hobbies & Activities Zone: Find others who share your passions! Explore new interests.

.

__,_._,___

Nenhum comentário:

Arquivo do blog