Performance counter and tick counter. Timing.

[OW]

So I'm making a little 1-9 multiplication flash card/timed test application to help me , and possibly others memorize it easier, but I have a question about the performance counter and tick counter.

The programmers guide say that they time the number of milliseconds since your computer is turned on. Can I make it so that it can time the number of milliseconds since you started the loop (test)?

Here is my code, BTW It's fully functional, I'm just adding some bells and whistles.



Dim X,Y,ans,xpos,ypos,wWin,hWin,ans$,flash,test
x =Rnd()%9+1
y =Rnd()%9+1
ans = x*y

print "Flash cards or Test?"
input ans$
if ans$ = "f" then
  flash = true
  cls
endif
if ans$ = "t" then
   test = true  
   cls
endif    
   while flash = true
       locate 0,0
       print x
       Locate 0,1
       print "X"
       locate 0,2
       print y
       locate 0,3
       print ans  
if ScanKeyDown(VK_SPACE) then
cls
x = Rnd()%9+1
y =Rnd()%9+1
sleep(190)
ans = x*y
   locate 0,0
   print x
   locate 0,1
   print "X"
   locate 0,2
   print Y
   locate 0,3
   print ans
   drawtext()
endif
   wend
   

While test = true
   locate 0,0
   print x
   locate 0,1
   print "x"
   locate 0,2
   print Y
   locate 0,3
   input ans$
   if ans$ = ans then
cls
x = Rnd()%9+1
y =Rnd()%9+1
sleep(190)
ans = x*y
endif
wend


[matthew]

Hi OW, you'll need to do something like the following.

dim startTime, EndTime, elapsedTime

while true

   startTime = PerformanceCounter() ' Start the timer
   
       Sleep(1000) ' Do stuff here

   endTime = PerformanceCounter() ' End the timer

   elapsedTime = (endTime - startTime) ' Time taken in milliseconds
   
   printr elapsedTime ' Print time taken in milliseconds
   
   elapsedTime = 0 ' Reset time taken to zero

wend

[OW]

Hmm, ok, but how do I stop the timer automatically, at the set time?

Could I say "if PerformanceCounter() = however many milliseconds are in 3 minutes then whatever?

[Nicky Peter Hollyoake]

if INT((StartTime - EndTime) / 1000.0) >= 3 then
      END
endif

- Nicky

[twasik4]

Thanks, glad I found this I need something like this for my biology experiment. =D

[Darkjester]

biology experiment + basic4gl?

[shadow008]

yeah.... i already did it for him -.- it needed background colors which was just perfect for b4gl!... oh yeah, and performancecounter.