PureBasic Forums - English

Code: Select all

Procedure TimeCB(parameter)
  LoadFont(0,"Tahoma",10)
  t = ElapsedMilliseconds()
  Color = RGBA(Random($FF,$80),Random($FF,$80),Random($FF,$80),255)
Repeat
    cir=sec*6
  StartVectorDrawing(CanvasVectorOutput(0))
    ;If sec = 0
     AddPathCircle(50, 50, 23,0,360)
     VectorSourceColor($FFBDF2FE)
     StrokePath(46)
    ;EndIf
     AddPathBox(24, 42, 52,14)
     VectorSourceColor($FF29D5FC)
     StrokePath(14)
     VectorFont(FontID(0), 24)           
     VectorSourceColor($FFFF0000)
     MovePathCursor(20,35,#PB_Path_Default)
     DrawVectorText(RSet(Str(min),2,"0"))
     MovePathCursor(54,35,#PB_Path_Default)
     DrawVectorText(RSet(Str(sec),2,"0"))
     AddPathCircle(50, 50, 40,cir,cir+2)
     VectorSourceColor(Color)
     StrokePath(40)       
  StopVectorDrawing()
  sec = (ElapsedMilliseconds()-t)*60/1000
  If sec > 60
     Color = RGBA(Random($FF,$80),Random($FF,$80),Random($FF,$80),255)
     t = ElapsedMilliseconds()
     sec = 0
     min + 1
  ElseIf min = 60
     sec = 0
  EndIf
Until min > 60
EndProcedure
   
If OpenWindow(0, 0, 0, 300, 250, "One Min Timer", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  SetWindowColor(0,$FFFFFF)
  CanvasGadget(0, 100, 75, 100, 100)
  thread = CreateThread(@TimeCB(),10)
Repeat
  Select WaitWindowEvent()
     Case #PB_Event_CloseWindow
        If IsThread(thread)
           KillThread(thread)
        EndIf
        Quit = 1
  EndSelect
Until Quit = 1
EndIf