Zeit und Datum

[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

Edit by Kiffi: Code-Tags gesetzt
Edit2 by Kiffi: In das Anfänger-Forum verschoben. Danke an Deeem2031 für den Hinweis!

[Deeem2031]

Vielleicht solltest du die TextGadgets nicht immer wieder neu erstellen sondern den Text mit SetGadgetText ändern.

[R4z0r1989]

wie kappier ich nicht

[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 

@Mods: gehört in Anfänger

[R4z0r1989]

Das problem sind ja die frames3dgadget die kommen immer später aös sie sollen

Trotzdem Danke Deeem2031

[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.

[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

[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 

[R4z0r1989]

Problem gelöst

aber kann man das nicht irgend wie machen dass es immer im Vordergrund bleibt.

[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