PureBasic Forums - English

Code: Select all

ct=Date()
Debug ct
Debug FormatDate("%dd/%mm/%yyyy - %hh:%ii:%ss",ct)

Code: Select all

CreateImage(0, 300, 200)
StartDrawing(ImageOutput(0))
DrawingMode(#PB_2DDrawing_Outlined)
Circle(115, 45, 30 ,$FF0000)
FillArea( 115, 45, $FF0000, $18E4E7)
Circle(230-15, 200-40, 30, $FF0000)
FillArea( 230-15, 200-40, $FF0000, $191CEb)
StopDrawing()

If OpenWindow(0, 0, 0, 300, 200, "Time to go", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  ImageGadget(2, 0, 0, 300, 200, ImageID(0))
  CompilerIf #PB_Compiler_OS = #PB_OS_Windows
    DisableGadget(2,1)
  CompilerEndIf
  ProgressBarGadget(0, 20, 10, 36, 180, 0, 100,#PB_ProgressBar_Vertical|#PB_ProgressBar_Smooth)
  AddWindowTimer(0, 123, 1000)
  LoadFont(0, "", 14)
  SetGadgetFont(#PB_Default, FontID(0))
  TextGadget(1,75,85, 210,30, "Time to go", #PB_Text_Center)
  SetGadgetColor(1, #PB_Gadget_FrontColor, $18E4E7)
  SetGadgetColor(1, #PB_Gadget_BackColor, $85297A)
  
  Repeat
    Event = WaitWindowEvent()
    
    If Event = #PB_Event_Timer And EventTimer() = 123
      now =  Date()
      soon =  Date(2011, 01, 01, 00, 00, 01)
      today = Date(2010, 12, 31, 00, 00, 01)
      diff = soon - now
      leftover= today + diff
      If now >= soon
        SetGadgetText(1, FormatDate("%yyyy ~ happy new year",now))
        SetGadgetState(0, 100)
      Else
        SetGadgetText(1, FormatDate("%dd.%mm.%yyyy ~ %hh:%ii:%ss",leftover))
        Value.f = (diff/86400) * 100
        SetGadgetState(0, Value)
        GadgetToolTip(0, Str(GetGadgetState(0)) + " %")   
      EndIf
    EndIf    
    
  Until Event = #PB_Event_CloseWindow
EndIf