Timer in SuperBasic?

[XorA]

I have tried the examples....

But I think it is still a pity that there seems not a precise sync timer in .01 or .001 seconds independent of the platform.

An extension for 20ms would be easy enough!

[Derek_Stewart]

Hi,

Why look at QL World 1989 May page 14, DIY Toolkit Stopwatches.

Where Simon Goodwin develops QDOS Timer routines in assembley language routines,

See QL Homepage for magazine and code files.

[tofro]

Hi,

Why look at QL World 1989 May page 14, DIY Toolkit Stopwatches.

Where Simon Goodwin develops QDOS Timer routines in assembley language routines,

See QL Homepage for magazine and code files.

That's more or less the exact same thing I posted in my first answer. Dilwyn has taken Simon's code and slightly improved it.

[NL_QL_Usr]

That's more or less the exact same thing I posted in my first answer. Dilwyn has taken Simon's code and slightly improved it.

Youre right!!

I didn't tried it on the right way at first...
But it is very usable!!!

Thanks all!

100 REMark test timer
110 :
120 REMark lrespr WIN2_ext_timing_cde
130 :
140 t1=10 :c1=0
150 x=0
160 tst
170 :
180 DEFine PROCedure tst
190 T_START 1
200 T_ON 1
210 REPeat l
220 t=T_COUNT(1)
230 IF t=t1
240 c1=c1+1
250 AT 0,0:PRINT FDEC$(c1,6,0)
260 T_START 1
270 SCROLL #2,1
280 END IF
290 x=x+1:AT 0,20:PRINT FDEC$(x,6,0)
300 END REPeat l
310 END DEFine

[stevepoole]

Hi NL_QL_Usr,
Quote << But I think it is still a pity that there seems not a precise sync timer in .01 or .001 seconds independent of the platform. >>

Does Simon Goodwin's code fit the bill completely ? I have just cobbled together some Basic Code which does....

You can time from units of 1 sec down to 1E-6 sec units, tried and tested under QPC2 & SGC under QDOS or SMSQ/E.

It ajusts itself instantly to take account of any system & overheads, which can vary a lot with multitasking and multicores.

Being adapted to make music 'silent beeps' dead accurate, at any tempo.

Not yet fully ready for release, as I need to adapt it a liitle for user friendliness, but it is still simple to use as it stands. Steve.

______________________________

[NL_QL_Usr]

It ajusts itself instantly to take account of any system & overheads, which can vary a lot with multitasking and multicores.

Being adapted to make music 'silent beeps' dead accurate, at any tempo.

Not yet fully ready for release, as I need to adapt it a liitle for user friendliness, but it is still simple to use as it stands. Steve.

______________________________

Great work sounds very promising!

your auto adjusting is a very good idea I am looking forward to see it!!

[stevepoole]

Hi NL_QL_Usr,

Here is the Beta version of my Superbasic TIMER_bas, (2ko). UNZIP & LRUN the demo, (which here times filled circles with random inks).

Timings shown are selectable (on line 250) : 1/1, 1/10, 1/100, 1/1000, 1/0000 or 1/100000 of a second units.

Put your own code to time between lines 671 and 699. ( but do not delete any lines with a 'warning remark', these are vital ! ).

Extra routines : BIP (corrects QL's 'BEEPING' weakness), BEP (can produce accurate rest notes), and WAIT (can pause any, say, secs/n...)

Tested ok under QPC2, SGC with QDOS or SMSQ/E. Should adapt correctly to any configuration or overheads whilst running. Regards, Steve.

timer.zip

(1.22 KiB) Downloaded 128 times

[stevepoole]

Hi Folks,

If you notice any (insignificant) slight variations on your results, it is because your computer is multitasking during 1 sec timing !

If you REmark out lines 680 & 690, you can see the very slight (constant) overhead of the timing loop... Regards, Steve.
_________________________