FRIHOST FORUMS SEARCH FAQ TOS BLOGS COMPETITIONS
You are invited to Log in or Register a free Frihost Account!


i need help with pause code in visual basic 6





andy26
okay so i found some source code that will let me pause so i can make a simple animation.
the source code is

[code]
Sub Pause(interval)
Dim Current
Current = Timer
Do While Timer - Current < Val(interval)
DoEvents
Loop[code]
End Sub
[/code]

and i am currently using it to make an animation. but then i wanted to use the code to make the age of a cyber pet increase over a duration of 30 mins but the pause (1800) conflicts with my animations pause (1) code so i need help in making it so i can have the timer set individually so the animation uses the pause 1 second and the age uses pause in 1800 seconds

my current code for the age update is



[code]Private Sub Tage_Timer()
Dim age1 As Integer
Dim age2 As Integer
Dim agetotal As Integer
Pause (1800)
pet.Recordset.Edit
age1 = txtage.Text
age2 = 1
agetotal = age1 + age2
txtage.Text = agetotal
pet.Recordset.Update
End Sub[/code]
Related topics
Visual Basic Tutorial - Control Arrays: What, Why and How
Visual Basic Express Addition
Visual Basic 6
help me ..,.,about visual basic
how about security of visual basic 6.0??
Visual Basic 6
VB Help for those who need small pointers in Visual Basic
Saving a .txt file to a ftp using vb6. i need help please
Is it posible to make skins in visual basic 6
how to check if a file exists. please help (visual basics 6)
visual basic
VB 6 problem executing a .exe program via a visual basic app
Visual Basic 6 vs Visual Basic 2010
Visual basic 6
Reply to topic    Frihost Forum Index -> Scripting -> Others

FRIHOST HOME | FAQ | TOS | ABOUT US | CONTACT US | SITE MAP
© 2005-2011 Frihost, forums powered by phpBB.