PureBoard

Verfasst: **17.04.2007 20:57**

also ich hab erst vor ganz kurzen mit programieren überhaupt angefangen , da ich gelesen hab das purebasic ziemlich einfach sein soll hab ich es mal versucht. und hier ist nun mein erstes kleines und sinnloses programm. hab aber noch eine frage: wie kann ich die uhrzeit aktualisieren lassen?

Programmcode:

Code: Alles auswählen

InitSprite()
InitKeyboard()
LoadFont (0, "ComicSansMs", 10)

Global KastenX.w
Global Probe.w

Zeit.s = FormatDate("%hh:%ii:%ss", Date())

KastenX=10
Probe=1


OpenScreen(320,240,16,"test")

Repeat
ClearScreen(RGB(255,0,0))
StartDrawing(ScreenOutput())
FrontColor(RGB(255,255,255))

Box(KastenX,10,30,30)
DrawingMode(1) 
DrawingFont(FontID(0))
DrawText(1,100,"KastenX: " + Str(KastenX))
DrawText(150,100,"Probe: " + Str(Probe))
DrawText(1,150,"Zeit1: " + Zeit)




StopDrawing()
FlipBuffers()
ExamineKeyboard()

If Zeit1 <> Zeit2
EndIf

If Probe = 1
KastenX + 1
EndIf

If KastenX = 310 -30
Probe = 2
EndIf

If Probe = 2
KastenX - 1
EndIf

If KastenX = 10
Probe = 1
EndIf


Until KeyboardPushed(1)

edit: hab gesehen das es ja auch"

Code: Alles auswählen

" gibt

Verfasst: **17.04.2007 21:00**

nur kurz überflogen:
Du solltest in der Schleife auch

Code: Alles auswählen

Zeit.s = FormatDate("%hh:%ii:%ss", Date())

machen, um die Variable Zeit zu aktualisieren.

Verfasst: **17.04.2007 21:01**

Es wäre vielleicht sinvoll die Zeit kontinuierlich zu ermitteln anstatt nur einmal. Also pack

Code: Alles auswählen

Zeit.s = FormatDate("%hh:%ii:%ss", Date())

in die Hauptschleife.

PS: Bitte Code- und nicht Zitat Tags benutzen.

Verfasst: **17.04.2007 21:02**

lol du hast recht!
man bin ich dämlich hätt ich mir auch selbs denken können!
danke auf jeden fall!

PureBoard

totaler noob - Uhrzeit

totaler noob - Uhrzeit