Do-Loop ciklus. Hogyan?

[arong]

Sziasztok!

Az a problémám, hogy másodpercenként kellene adatot (aktuális időt) írni textboxba.
Ha Do-loop vagy while-wend ciklust használom nem tudom belőle kiléptetni a programot. Trapclose nem működik.
A wait függvény meg addig vár amíg nem történik valami. Nincs olyan ami úgy működik mint a bascomban?

Ezt a kódot kellene ismételni úgy, hogy közben működjenek gombok.

Kód: Egész kijelölése

[InitColors]
ForegroundColor$ = "Black"
BackgroundColor$ = "Buttonface"
TexteditorColor$ = "White"
TextboxColor$ = "White"
ComboboxColor$ = "White"
ListboxColor$ = "White"

[WindowSetup]
NOMAINWIN
WindowWidth = 735 : WindowHeight = 480
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup]

groupbox  #main.GroupBox19, "Idő:", 320, 80, 80, 50

textbox  #main.TextBox19, 330, 100, 60, 21

Open "Akkumeres" for Window as #main
#main "font MS Sans Serif 8"
#main "trapclose [quit]"

[loop]

print #main.TextBox19, time$()

wait

[quit]

close #main : END

[Robert]

Hülye tipp:
http://www.libertybasicuniversity.com/l ... ctions.htm

A time függvénnyel nézed:

Kód: Egész kijelölése

starttime= Time("s");
do
endtime = time("s") - starttime 
loop until endtime = 1
'na most leptem 1 sec-t

Kb. kód. talán ötletnek nem rossz....

[arong]

Meglett időközben a megoldás.

főprogramrész végére:
timer 1000, [loop]

Timer függvény meghívása után 1000 msec-cel a [loop] cimkéhez ugrik. Várakozás ideje alatt működnek a gombok, stb.

Kód: Egész kijelölése

[InitColors]
ForegroundColor$ = "Black"
BackgroundColor$ = "Buttonface"
TexteditorColor$ = "White"
TextboxColor$ = "White"
ComboboxColor$ = "White"
ListboxColor$ = "White"

[WindowSetup]
NOMAINWIN
WindowWidth = 735 : WindowHeight = 480
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

[ControlSetup]

groupbox  #main.GroupBox19, "Idő:", 320, 80, 80, 50

button #main.Button1, "OK",[Button1.click], UL, 260, 80, 40, 50

textbox  #main.TextBox19, 330, 100, 60, 21

Open "Akkumeres" for Window as #main
#main "font MS Sans Serif 8"
#main "trapclose [quit]"

[loop]

print #main.TextBox19, time$()

timer 1000, [loop]

wait

[quit]

close #main : END

[Button1.click]

'nop

wait

[careerorbits]

hi

Nice post. Keep continue.