Code: Select all
;MillisecondTime for windows os
date.SYSTEMTIME;GetLocalTime_(@date):GetSystemTime_(@date)
OpenWindow(0,0,0,400,150,"",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)
LoadFont(0,"System", 12, #PB_Font_Bold):SetGadgetFont(#PB_Default, FontID(0))
ButtonGadget(0, 0, 0,200, 20, "start")
ButtonGadget(2, 200, 0,200, 20, "stop")
TextGadget(1, 0, 30,200, 20, "")
TextGadget(3, 0, 50,200, 20, "start at:")
TextGadget(4, 0, 70,400, 20, "")
TextGadget(5, 0, 100,200, 20, "stop at:\/")
TextGadget(6, 0, 120,400, 20, "")
Repeat:ev=WaitWindowEvent():Select ev
Case #PB_Event_Gadget:eg=EventGadget()
Select eg
Case 0:DisableGadget(0,1)
n=0:m=0:GetLocalTime_(@date):Gosub settext
Repeat:m+1
GetLocalTime_(@date)
SetGadgetText(1,""+date\wMilliseconds)
ev=WindowEvent():If ev=#PB_Event_Gadget:eg=EventGadget()
If eg=2:n=1
Gosub settext
SetGadgetText(5,"stop at: \/ Repeat_m="+m)
m=0:DisableGadget(0,0)
EndIf:EndIf
Until n=1
Case 2:GetLocalTime_(@date):Gosub settext
SetGadgetText(5,"stop at: \/ Repeat_m="+m)
SetGadgetText(4,"")
EndSelect
Case #PB_Event_CloseWindow:Break
EndSelect:ForEver
End
settext:
SetGadgetText(eg+4,"WeekDay_"+Str(date\wDayOfWeek)+" > "+Str(date\wYear)+"."+Str(date\wMonth)+"."+Str(date\wDay)+" > "+Str(date\wHour)+
":"+Str(date\wMinute)+":"+Str(date\wSecond)+"."+Str(date\wMilliseconds))
Return