PureBasic Forums - English

Code: Select all

[b]StartTimer( #Timer, MilliSec, @proc() )[/b]
      #Timer  = Timer-Number (0-15)
     MilliSec = Milliseconds
      @proc() = your Procedure


Starts a Timer. The procedure @proc() is called
every MilliSec.
The Timer-Procedure cant have any Parameters
and runs in its own thread (so make needed
variables SHARED in the procedure).


[b]EndTimer( #Timer )[/b]
      #Timer  = Timer-Number (0-15)


Ends the Timer.


[b]x = GetMinTimerResolution()[/b]


Get the minimal timer resolution.
The minimal Timer resolution is different
on Win9x and WinNT/2k.
On NT based Systems (NT/2k, dunno about XP)
it should be 1 millisecond. On Win9x based
system this value can be different.


[b]x = GetMaxTimerResolution()[/b]


Get the maximal Timer Resolution.
The max resolution is different on misc.
Windows systems.
Values up to 1 Minute (60.000ms) should be
OK on all systems.

Code: Select all

;--------------------
;--------------------
Procedure mytimer1()
Shared hoehe
If hoehe = 1000: hoehe = 100: EndIf
   beep_(hoehe,100)
hoehe+100
EndProcedure


Procedure mytimer2()
   beep_(1800,5)
EndProcedure


Procedure mytimer3()
   beep_(1800,100)
EndProcedure


Procedure mytimer4()
   beep_(800,100)
EndProcedure


hWnd = OpenWindow(0, (GetSystemMetrics_(#SM_CXSCREEN)-200)/2,(GetSystemMetrics_(#SM_CYSCREEN)-277)/2, 400, 360, #PB_Window_SystemMenu|#PB_Window_SizeGadget, "High Resolution Timer by Danilo")


StartTimer(0, 1000, @mytimer1())
StartTimer(1,  200, @mytimer2())
StartTimer(2, 2000, @mytimer3())
StartTimer(3,  600, @mytimer4())


  Repeat
         Select WaitWindowEvent()
              ; IF LeftMouseButton pressed...
              Case #WM_LBUTTONDOWN
                   EndTimer(1): EndTimer(2): EndTimer(3)
              ; pressed CloseButton or ALT+F4 ??
              Case #PB_EventCloseWindow
                   End
         EndSelect
  ForEver
;--------------------
;--------------------

Code: Select all

;--------------------
;--------------------
Global myText$
Global hWnd.l
Global TextLength.l
#ScrollSpeed_in_Milliseconds = 70


myText$ = "     This is a little Scroller-Test with the Timer by Danilo     "
TextLength = Len(myText$)


Procedure Scroller()
;Shared Scroller_a
Shared Scroller_Position
Shared Scroller_Direction

If Scroller_Position > 1


Procedure Timer()
Shared y, size, flag, color
  y+#ScreenHeight/200 : If y > #ScreenHeight : y=0 : EndIf
  color = (size<<3)-1
  If size < 32 And flag = 0
    size+1
  Else
    flag = 1 : size-1 : If size = 0 : flag = 0 : EndIf
  EndIf
EndProcedure


;DirectX init
If InitSprite() = 0 Or InitKeyboard() = 0
   MessageRequester("ERROR","Can't initialize DirectX 7 or later", 0):End
EndIf


If OpenScreen(#ScreenWidth,#ScreenHeight,#ScreenBits,"Timer Test") = 0
   MessageRequester("ERROR","Can´t open DirectX screen",0):End
EndIf


; Start the Timer-Procedure
StartTimer(0,15,@Timer())


  ; Wait for Escape-Key
  Repeat
     ExamineKeyboard()
     FlipBuffers()
     If IsScreenActive()
        ClearScreen(0,0,0)
        StartDrawing(ScreenOutput())
           FrontColor(color,color,0)
           Box(x-size/2,y,size,size) 
        StopDrawing()
     Else
        Delay(200)
     EndIf
  Until KeyboardPushed(#PB_Key_Escape)


; End Program
EndTimer(0)
Delay(20)
End
;--------------------
;--------------------

Code: Select all

StartTimer( 1, 1000, @mytest() )  ; start a timer with speed 1000ms
StartTimer( 1,  500, @mytest() )  ; now the same timer (virtual) with more speed
StartTimer( 1,  500, @cool()   )  ; still 500ms, but another timer-procedure