QB64 is a historical programming language created in 2007.

12Years Old 1,020Users 0Jobs

Example code from Wikipedia:

t1 = _FREETIMER
t2 = _FREETIMER
ON TIMER(t1, 1) GOSUB Timer.Trap 'the code following the Timer.Trap label will be run every 1 second

ON TIMER(t2, .5) mySub 'QB64 can also trigger a SUB procedure with TIMER;
'                       in this case mySUB will be triggered every 500 milliseconds

'activate timers:
TIMER(t1) ON
TIMER(t2) ON

DO 'go into an infinite loop until the window is closed
    _LIMIT 1 'run the main loop at 1 cycle per second, to show how timers are independent from main program flow
LOOP

Timer.Trap:
PRINT "1s; ";
RETURN

SUB mySub
    PRINT "500ms; ";
END SUB
Edit

Last updated February 11th, 2019