Seite 1 von 2
Zeit und Datum
Verfasst: 27.06.2005 17:07
von R4z0r1989
kann mir jemand helfen denn es funktioniert nicht richtig.
Code: Alles auswählen
If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0))
Frame3DGadget(3,33,23,60,50,"Zeit")
Frame3DGadget(4,133,23,73,50,"Datum")
Repeat
; Datum
b$=FormatDate("%dd-%mm-%yyyy", Date())
TextGadget(1, 140, 45,150,20,b$)
; Zeit
a$=FormatDate("%hh:%ii:%ss", Date())
TextGadget(2, 40, 45,50,20,a$)
Delay(1000)
Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
Verfasst: 27.06.2005 17:09
von Deeem2031
Vielleicht solltest du die TextGadgets nicht immer wieder neu erstellen sondern den Text mit SetGadgetText ändern.
Verfasst: 27.06.2005 17:26
von R4z0r1989
wie kappier ich nicht
Verfasst: 27.06.2005 17:30
von Batze
Code: Alles auswählen
If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0))
Frame3DGadget(3,33,23,60,50,"Zeit")
Frame3DGadget(4,133,23,73,50,"Datum")
TextGadget(1, 140, 45,150,20,"")
TextGadget(2, 40, 45,50,20,"")
Repeat
; Datum
b$=FormatDate("%dd-%mm-%yyyy", Date())
; Zeit
a$=FormatDate("%hh:%ii:%ss", Date())
setGadgetText(1,a$)
setGadgetText(2,b$)
Delay(1000)
Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
gehört in Anfänger
Verfasst: 27.06.2005 17:35
von R4z0r1989
Das problem sind ja die frames3dgadget die kommen immer später aös sie sollen
Trotzdem Danke Deeem2031
Verfasst: 27.06.2005 18:05
von Kiffi
> Das problem sind ja die frames3dgadget die kommen
> immer später aös sie sollen
Code: Alles auswählen
[...]
Frame3DGadget(3,33,23,60,50,"Zeit")
Frame3DGadget(4,133,23,73,50,"Datum")
While WindowEvent() : Wend
[...]
P.S.: In Zukunft bitte genau erklären, was nicht funktioniert, denn damit:
> kann mir jemand helfen denn es funktioniert nicht richtig.
kann niemand was anfangen.
Verfasst: 27.06.2005 18:12
von bobobo
Code: Alles auswählen
Enumeration
#Win
#F3D1
#F3D2
#Tg1
#Tg2
EndEnumeration
Procedure update()
Repeat
b$=FormatDate("%dd-%mm-%yyyy", Date())
SetGadgetText(#Tg2,b$)
; Zeit
a$=FormatDate("%hh:%ii:%ss", Date())
SetGadgetText(#Tg1,a$)
Delay(1000)
ForEver
EndProcedure
If OpenWindow(#Win,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0))
CreateGadgetList(WindowID(#win))
TextGadget(#Tg1, 40, 45,50,20,"zeit")
TextGadget(#Tg2, 140, 45,60,20,"datum")
Frame3DGadget(#F3D1,33,23,60,50,"Zeit")
Frame3DGadget(#F3D2,133,23,70,50,"Datum")
EndIf
While WindowEvent():Wend
CreateThread(@update(),0)
Repeat
; Datum
Until WaitWindowEvent()=#PB_Event_CloseWindow
Verfasst: 27.06.2005 18:16
von R4z0r1989
Jetz hab ich noch ein problem
ich kann nicht richtig schliesen
Code: Alles auswählen
If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0))
Frame3DGadget(3,33,23,60,50,"Zeit")
Frame3DGadget(4,133,23,73,50,"Datum")
Repeat
; Datum
b$=FormatDate("%dd-%mm-%yyyy", Date())
TextGadget(1, 140, 45,150,20,b$)
TextGadget(2, 40, 45,50,20,"")
While WindowEvent() : Wend
; Zeit
a$=FormatDate("%hh:%ii:%ss", Date())
SetGadgetText(2,a$)
Delay(500)
Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
Verfasst: 27.06.2005 18:19
von R4z0r1989
Problem gelöst
aber kann man das nicht irgend wie machen dass es immer im Vordergrund bleibt.
Verfasst: 27.06.2005 18:20
von 125
Code: Alles auswählen
If OpenWindow(0,0,0,250,105,#PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget,"Zeit und Datum") And CreateGadgetList(WindowID(0))
Frame3DGadget(3,33,23,60,50,"Zeit")
Frame3DGadget(4,133,23,73,50,"Datum")
Repeat
; Datum
b$=FormatDate("%dd-%mm-%yyyy", Date())
TextGadget(1, 140, 45,150,20,b$)
TextGadget(2, 40, 45,50,20,"")
; Zeit
a$=FormatDate("%hh:%ii:%ss", Date())
SetGadgetText(2,a$)
Delay(50)
Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
