Thanks team
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
