AddDate, dachte ich, wäre gut.
Nur in meinem Program soll er sich die Zeit aus einem Spingadget holen, und das klappt nicht.
Der addiert immer noch einmal, nur nicht mit dem Inhalt des Spingadget.....
Was mache ich falsch?
Hier der Code:
Code: Alles auswählen
;- Global Variables and Constants
Global BubbleTipStyle.l:BubbleTipStyle=0
;- Window Constants
Enumeration 1
#Window_Workform1
EndEnumeration
#WindowIndex=#PB_Compiler_EnumerationValue
;- Gadget Constants
Enumeration 1
;Window_Workform1
#Gadget_Workform1_Ausschaltzeit
#Gadget_Workform1_Einschaltzeit
#Gadget_Workform1_Text1
#Gadget_Workform1_Text2
#Gadget_Workform1_Text3
#Gadget_Workform1_Text4
#Gadget_Workform1_Einschaltzeit_Stunde
#Gadget_Workform1_Einschaltzeit_Minute
#Gadget_Workform1_Einschaltzeit_Sekunde
#Gadget_Workform1_Ausschaltzeit_Stunde
#Gadget_Workform1_Ausschaltzeit_Minute
#Gadget_Workform1_Ausschaltzeit_Sekunde
#Gadget_Workform1_Text5
#Gadget_Workform1_Text6
EndEnumeration
#GadgetIndex=#PB_Compiler_EnumerationValue
Procedure.l Window_Workform1()
If OpenWindow(#Window_Workform1,80,80,808,762," Helmut's Schaltuhr",#PB_Window_SystemMenu|#PB_Window_ScreenCentered|#PB_Window_Invisible)
CalendarGadget(#Gadget_Workform1_Ausschaltzeit,210,35,200,170,Date())
CalendarGadget(#Gadget_Workform1_Einschaltzeit,5,35,200,170,Date())
TextGadget(#Gadget_Workform1_Text1,5,20,200,15,"Einschaltdatum",#PB_Text_Center)
SetGadgetColor(#Gadget_Workform1_Text1,#PB_Gadget_FrontColor,8421376)
SetGadgetFont(#Gadget_Workform1_Text1,LoadFont(#Gadget_Workform1_Text1,"",10,0))
TextGadget(#Gadget_Workform1_Text2,210,20,200,15,"Ausschaltdatum",#PB_Text_Center)
SetGadgetColor(#Gadget_Workform1_Text2,#PB_Gadget_FrontColor,16711680)
SetGadgetFont(#Gadget_Workform1_Text2,LoadFont(#Gadget_Workform1_Text2,"",10,0))
TextGadget(#Gadget_Workform1_Text3,5,220,200,15,"Einschaltzeit",#PB_Text_Center)
SetGadgetColor(#Gadget_Workform1_Text3,#PB_Gadget_FrontColor,8421376)
TextGadget(#Gadget_Workform1_Text4,210,220,200,15,"Ausschaltzeit",#PB_Text_Center)
SetGadgetColor(#Gadget_Workform1_Text4,#PB_Gadget_FrontColor,16711680)
SpinGadget(#Gadget_Workform1_Einschaltzeit_Stunde,5,235,60,20,0,23,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Einschaltzeit_Stunde, "0")
SpinGadget(#Gadget_Workform1_Einschaltzeit_Minute,75,235,60,20,0,59,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Einschaltzeit_Minute, "0")
SpinGadget(#Gadget_Workform1_Einschaltzeit_Sekunde,145,235,60,20,0,59,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Einschaltzeit_Sekunde, "0")
SpinGadget(#Gadget_Workform1_Ausschaltzeit_Stunde,210,235,60,20,0,23,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Ausschaltzeit_Stunde, "0")
SpinGadget(#Gadget_Workform1_Ausschaltzeit_Minute,280,235,60,20,0,59,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Ausschaltzeit_Minute, "0")
SpinGadget(#Gadget_Workform1_Ausschaltzeit_Sekunde,350,235,60,20,0,59,#PB_Spin_Numeric)
SetGadgetText(#Gadget_Workform1_Ausschaltzeit_Sekunde, "0")
TextGadget(#Gadget_Workform1_Text5,145,5,60,15,"Zustand",#PB_Text_Center)
TextGadget(#Gadget_Workform1_Text6,210,5,60,15,"Unbekannt",#PB_Text_Center)
HideWindow(#Window_Workform1,0)
ProcedureReturn WindowID(#Window_Workform1)
EndIf
EndProcedure
Procedure WindowCallback(WindowID,Message,wParam,lParam)
ReturnValue=#PB_ProcessPureBasicEvents
If Message=#WM_CTLCOLORSTATIC Or Message=#WM_CTLCOLOREDIT Or Message=#WM_CTLCOLORLISTBOX
EndIf
ProcedureReturn ReturnValue
EndProcedure
;- Main Loop
If Window_Workform1()
SetWindowCallback(@WindowCallback())
quitWorkform1=0
Repeat
EventID =WaitWindowEvent()
MenuID =EventMenu()
GadgetID =EventGadget()
WindowID =EventWindow()
Select EventID
Case #PB_Event_CloseWindow
If WindowID=#Window_Workform1
quitWorkform1=1
EndIf
Case #PB_Event_Gadget
Select GadgetID
Case #Gadget_Workform1_Ausschaltzeit
Ausschaltdatum = GetGadgetState(#Gadget_Workform1_Ausschaltzeit)
Case #Gadget_Workform1_Einschaltzeit
Einschaltdatum = GetGadgetState(#Gadget_Workform1_Einschaltzeit)
Case #Gadget_Workform1_Einschaltzeit_Stunde
Einschaltzeit_Stunde = GetGadgetState(#Gadget_Workform1_Einschaltzeit_Stunde)
Einschaltdatum= AddDate(Einschaltdatum, #PB_Date_Hour, Einschaltzeit_Stunde) ;
Case #Gadget_Workform1_Einschaltzeit_Minute
Einschaltzeit_Minute = GetGadgetState(#Gadget_Workform1_Einschaltzeit_Minute)
Einschaltdatum= AddDate(Einschaltdatum, #PB_Date_Minute, Einschaltzeit_Minute) ;
Case #Gadget_Workform1_Einschaltzeit_Sekunde
Einschaltzeit_Sekunde = GetGadgetState(#Gadget_Workform1_Einschaltzeit_Sekunde)
Einschaltdatum= AddDate(Einschaltdatum, #PB_Date_Second, Einschaltzeit_Sekunde) ;
Case #Gadget_Workform1_Ausschaltzeit_Stunde
Ausschaltzeit_Stunde = GetGadgetState(#Gadget_Workform1_Ausschaltzeit_Stunde)
Case #Gadget_Workform1_Ausschaltzeit_Minute
Ausschaltzeit_Minute = GetGadgetState(#Gadget_Workform1_Ausschaltzeit_Minute)
Case #Gadget_Workform1_Ausschaltzeit_Sekunde
Ausschaltzeit_Sekunde = GetGadgetState(#Gadget_Workform1_Ausschaltzeit_Sekunde)
EndSelect
EndSelect
Debug FormatDate("T=%dd,M= %mm,J=%yyyy,Stunde= %hh:Minute= %ii:Sekunde= %ss", Einschaltdatum)
FormatDate("T=%dd,M= %mm,J=%yyyy,Stunde= %hh:Minute= %ii:Sekunde= %ss", Date())
Aday=Day(Ausschaltdatum)
AMonth=Month(Ausschaltdatum)
AYear=Year(Ausschaltdatum)
EDay=Day(Einschaltdatum)
EMonth=Month(Einschaltdatum)
EYear=Year(Einschaltdatum)
Aktuel_Day=Day(Date())
Aktuel_Month=Month(Date())
Aktuel_Year=Year(Date())
Aktuel_Stunde=Hour(Date())
Aktuel_Minute=Minute(Date())
Aktuel_Sekunde=Second(Date())
;+++++++++++++++++++++++++ Zeiten dazu addieren ++++++++++++++++++++++++++++++++++++++++++
;+++++++++++++++++++++++++++++++++++++++++++++++ Vergleich ++++++++++++++++++++++++++++++++++
SetGadgetText(#Gadget_Workform1_Text6,Str(Schaltvergleich))
Until quitWorkform1
CloseWindow(#Window_Workform1)
EndIf
End
