Programmieren - alles kontrollieren 4.939 Themen, 20.672 Beiträge

good old QBASIC

Steffen6 / 4 Antworten / Flachansicht Nickles

hallo,

ich hab ein problem mit QuickBasic. ich habe eine reihe von befehlen in einem packet. dieses packet soll der rechner mehrmals gleichzeitig abarbeiten. welchen befehl muß ich verwenden?

vielen dank im vorraus
mfg
steffen

bei Antwort benachrichtigen
Steffen6 Nachtrag zu: „good old QBASIC“
Optionen

ok. also, hier mein quelltext:

screen 7
RANDOMIZE TIMER
spalte% = INT(RND * 40)
zeichen% = INT(RND * 93) + 33
zeit2% = INT(RND * 2)
zeile% = 1
zeit% = 1
SLEEP zeit2%
LOCATE zeile%, spalte%
COLOR 10
PRINT CHR$(zeichen%)
SLEEP zeit%
COLOR 2
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
COLOR 10
zeile% = zeile% + 1
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
schleife% = 0
1 IF schleife% = 21 THEN
SLEEP zeit%
COLOR 2
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
COLOR 8
zeile% = zeile% - 1
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
SLEEP zeit%
COLOR 8
zeile% = zeile% + 1
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
COLOR 0
GOTO 2
END IF
schleife% = schleife% + 1
SLEEP zeit%
COLOR 2
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
COLOR 8
zeile% = zeile% - 1
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
COLOR 10
zeile% = zeile% + 2
LOCATE zeile%, spalte%
PRINT CHR$(zeichen%)
GOTO 1
2 END

und diese befehle sollen gestartet werden und wärend sie laufen soll der dieses paket wieder gestertet werden, so das es 2x läuft. falls dich ineressiert, was es bwirkt, es soll so ne art matrix sein, wo die buchstaben herunterfallen. die vorab version findest du unter www.SteffenPhilippi.de.vu unter download.

mfg
steffen

bei Antwort benachrichtigen