Das deutsche QBasic- und FreeBASIC-Forum

[blabla]

Hi
wir haben in technik einen aufzug gebaut der eine kugel hochf
ährt und dann auswirft

naja egal ich habe mit schon einen automatischen ablauf gecodet aber ich möchte in meinem menu noch ein programmpunkt haben der den ablauf x-mal widerholt (für x soll eine zahl eingegeben werden z.B 5 und dann wird der ablauf 5-mal widerholt)


alsowie ich da hinkomm is klar aber wie ich so einen variablen loop mach weis ich net

könnt ihr mir helfen? wär fett

[Kai Bareis]

Es gibt mehrere Arten eine Programm schleife zumachen:
Beispiel1:

[blabla]

ja ok ich hoff ma das datt klappt - danke für deine hilfe

[blabla]

aber wie ich grad seh scheint das ja nur eine zeile zu sein ich will aber nen ganzen programmablauf (bzw bei mir ist es eine sub) xmal widerholen

[Michael Frey]

[blabla]

hmm versth ich das richtig das ich dann maximal 9 mal widerholen kann? - hmm das is schonmal gut aber net am besten - kann man keine eingabeaufforderung machen die man mit ENTER bestätigen kann?

[blabla]

aso noch was - wir benutzen in der schule QB.1.1 oder so also ich weis net wie sich da die sprache ändert

[Michael Frey]

[blabla]

hmm ich probiers eben aus - übrigens probieren
da merk ich grad das mein pc zu schnell is -

wir lassen zum verzögern den pc einfach ne runde rechnen

z.B

FOR T = 1 TO 100000 : NEXT T

allerdings stell ich grad fest das diee Pcs in unserer schule

]SOOOOOOOOOOOOOO[ lange braucht unr meiner nur ]i[

gibts da net die möglichkeit auf die pc interne uhr zuzugreifen oder etwas vergleichbares?

möglichst einfach wenns geht

[Michael Frey]

Ja, dafür gibt es Timer.
Ich such dir einen Code raus.

Edit:

[blabla]

ehrlich gesagt - ich bin schon die ganze zeit am probieren und krieg gar nix gerallt ich stell euch mal den abschnitt hier rein


SOO also das ist der dauer durchlauf

LINE3:
CLS
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT ""
PRINT "Zum Unterbrechen S gedrueckt halten"
DO
OUT 888, 16
COLOR 4: LOCATE 12, 35: PRINT "***HOCH*** "
IF INKEY$ = "S" OR INKEY$ = "s" THEN GOTO BEENDEN
DO
S2 = (INP(ba + 6)) AND 32
IF INKEY$ = "S" OR INKEY$ = "s" THEN GOTO BEENDEN
LOOP UNTIL S2 = 32
LOCATE 12, 35: PRINT "***AUSWURF*** "
IF INKEY$ = "S" OR INKEY$ = "s" THEN GOTO BEENDEN
OUT 888, 64
FOR T = 1 TO 25000: NEXT T
LOCATE 12, 35: PRINT "***RUNTER*** "
IF INKEY$ = "S" OR INKEY$ = "s" THEN GOTO BEENDEN
OUT 888, 32
DO
IF INKEY$ = "S" OR INKEY$ = "s" THEN GOTO BEENDEN
S1 = (INP(ba + 6)) AND 16
LOOP UNTIL S1 = 16
LOCATE 12, 35: PRINT "***STOP*** "
OUT 888, 0
FOR T = 1 TO 200000: NEXT T
LOOP

SO und den will ich Xmal widerholen lassen

Hier möchte ich eine zeitverzögerung in sekunden einbauen und en x mal loop (nenn ich jetz mal so)

könnt ihr mir dazu ein beispiel machen? ich versuchs dann zu coden


EDIT

aso ich stell grad fest das ich die subs raushab und jetzt GOTO benutze

[alfonsospringer]

[blabla]

jo schon so^^
hab 2,8 und nix geht so alles ultra fast^^

[pinkpanther]

Nur der Genauigkeit halber...

Kai Bareis schrieb:

[Michael Frey]

@blabla
Ich hab mir mal erlaubt, etwas damit rum zu Basteln

[blabla]

danke für eure hilfe - hatte es gestern auch schon in der schule irgendwann hinbekommen:

[blabla]

[blabla]

sooo mein programm is heute fertig geworden - ich stells euch mal halt rein
mein erstes basic programm - ich denke der thread is dann auch fertig zum closen

[Ecki]

[Mao]

@blabla:
Hey, du Betrüger!
Schreibst, dass ein Menü aufgebaut wird und dann wartet der Computer nur 'ne halbe Sekunde.

@Ecki:
Zum Beispiel?
_________________
Eine handvoll Glück reicht nie für zwei.
--