As I am always paranoid about my machine crashing (which it does from time to time)I like to have an animated cartoon (or what ever takes the fancy) as visual check that the machine is still "up" when left at the Startup/Main Choice Form.
So I tried the following (which is also a good way to understand conditional objects)
*Form Variables*
Define Global name:duck, type:Number
*Form Properties*
Set Timer interval to 2 (this can be adjusted to suite taste)
*On Activate Script* (On main form)
dim global duck as n
On Form Definition:
setup 8 conditional objects and set properties for each 1 (in my example I set cond1 to duck=1, cond2 to duck=2 etc.)
then I imported the required graphic to within each cond object.
Now when I am at my main menu I get a duck moving up and down so that I know the system has not crashed. It is also a good way to find out if you really understand conditional objects.
On Timer Script
dim global duck as n
cond1.refresh()
cond2.refresh()
cond3.refresh()
cond8.refresh()
cond4.refresh()
cond5.refresh()
cond6.refresh()
cond7.refresh()
duck = duck + 1
if duck > 8 then
duck = 1
end if
end
as variable duck increments up to 8 only one field will be visible at any one time. You could go further and just define one conditional object, but put more conditions on it so that you still see only one object at atime but it remain in situ.
I now have a acrtoon duck walking up and down as my "Cartoon".
So I tried the following (which is also a good way to understand conditional objects)
*Form Variables*
Define Global name:duck, type:Number
*Form Properties*
Set Timer interval to 2 (this can be adjusted to suite taste)
*On Activate Script* (On main form)
dim global duck as n
On Form Definition:
setup 8 conditional objects and set properties for each 1 (in my example I set cond1 to duck=1, cond2 to duck=2 etc.)
then I imported the required graphic to within each cond object.
Now when I am at my main menu I get a duck moving up and down so that I know the system has not crashed. It is also a good way to find out if you really understand conditional objects.
On Timer Script
dim global duck as n
cond1.refresh()
cond2.refresh()
cond3.refresh()
cond8.refresh()
cond4.refresh()
cond5.refresh()
cond6.refresh()
cond7.refresh()
duck = duck + 1
if duck > 8 then
duck = 1
end if
end
as variable duck increments up to 8 only one field will be visible at any one time. You could go further and just define one conditional object, but put more conditions on it so that you still see only one object at atime but it remain in situ.
I now have a acrtoon duck walking up and down as my "Cartoon".
Comment