Toller einstieg

mfg
Was mir auffällt, Dein Code mit der Debugausgabe. Ich habe das "EXTRA"rosenhart hat geschrieben:Hallo,
mir ist gerade aufgefallen das der Fehler mit der Konsole nicht auftritt.
OpenConsole()
Repeat
PrintN(FormatDate("%hh:%ii:%ss",date()))
Delay(5)
Until Inkey()<>""
aber sonst schon:
Repeat
Debug FormatDate("%hh:%ii:%ss",date())
Delay(5)
ForEver
bei frisst er ca. jede Sekunde 4 kb.
an Date() liegts nicht - da kann man jede x-beliebige Variable nehmen.
@kiffi:
habe in einer Desktop-Uhrenanwendung den Standardsyntax
FormatDate("%hh:%ii:%ss",date()) benutzt.
Wenn bei Pelagio auch auftritt ists vielleicht Hardware abhängig .(?)
mfg
Code: Alles auswählen
Procedure Timer()
SetGadgetText(0,FormatDate("%hh:%ii:%ss", Date()))
EndProcedure
If OpenWindow(0,200,100,40,50,"timer",#PB_Window_Invisible|#PB_Window_SystemMenu|#PB_Window_MinimizeGadget) And CreateGadgetList(WindowID(0))
TextGadget(0,40,20,45,20,"")
RunProgram("taskmgr.exe")
SetWindowState(0,#PB_Window_Minimize)
ResizeWindow(0,200,100,40,50)
SetWindowState(0,#PB_Window_Normal)
SetTimer_(WindowID(0), 0, 200, @Timer())
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
KillTimer_(WindowID(0), 0)
Ne, ich kann bloß das WindowEvent() mit Delay() nicht mehr sehenbobobo hat geschrieben:@ts-soft Geil .. ein Contest ?