Do-Loop ciklus. Hogyan?

A Liberty Basic - ami a Bascomhoz hasonló nyelvezettel bír - csak PC grafikus felületéhez...
Válasz küldése
Avatar
arong
Újonc
Újonc
Hozzászólások: 12
Csatlakozott: 2009. szeptember 4. péntek, 6:00

Do-Loop ciklus. Hogyan?

Hozzászólás Szerző: 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


Avatar
Robert
Elektronbűvölő
Hozzászólások: 10191
Csatlakozott: 2005. december 9. péntek, 7:00

Re: Do-Loop ciklus. Hogyan?

Hozzászólás Szerző: 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....
Avatar
arong
Újonc
Újonc
Hozzászólások: 12
Csatlakozott: 2009. szeptember 4. péntek, 6:00

Re: Do-Loop ciklus. Hogyan?

Hozzászólás Szerző: 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
Újonc
Újonc
Hozzászólások: 1
Csatlakozott: 2015. február 18. szerda, 9:37

Re: Do-Loop ciklus. Hogyan?

Hozzászólás Szerző: careerorbits »

hi

Nice post. Keep continue.
www.CareerOrbits.com
Válasz küldése