• Home
 · 
• Math/Dates
 · 
• This code counts from one number to another at specified intervals. I didn't see this anywhere and

This code counts from one number to another at specified intervals. I didn't see this anywhere and

This code counts from one number to another at specified intervals. I didn't see this anywhere and it is very usefull.

API Declarations


' It is just a standard timeout.bas

Sub TimeOut(Duration)
starttime = Timer
Do While Timer - starttime < Duration
DoEvents
Loop

End Sub

' Example :
'
' TimeOut (3)
' Waits for 3 seconds




Rate This code counts from one number to another at specified intervals. I didn't see this anywhere and

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

' Make 1 command button on your form.
' Place this code inside the command button

Text1 = "1"             ' Begin counting at 1
start:
addme = 1               ' Change this to the amount you want to add.
Text1 = Text1 + addme   ' Add the value of addme {1} to the value of the textbox
Call TimeOut(1)         ' Wait for 1 second.
GoTo start              ' Loops the process.