Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Wie bekomm ich die Tastaturverzögerung weg?
| Uploader: |  Schbezzy |
| Datum/Zeit: | 01.05.2008 10:53:00 |
DIM x AS INTEGER = 35
'Dimensionieren der Variable x als "40" Ganzzahl
DIM y AS INTEGER = 10
'Dimensionieren der Variable y als "12" Ganzzahl
DIM AS STRING z
'Dimensionieren der Variable z als Zeichenkette
LOCATE y,x: PRINT CHR(207)
'Posssitioniere Fadenkreuz an y=10 / x=35
DO
'Öffne Schleife
LOCATE 1,1: PRINT "Koordinaten: X=";x;"/ Y=";y;
'Projeziere an Position 1,1 "Koordinaten: X=... / Y=...
z = INPUT(1)
SELECT CASE z
CASE CHR(100)
CLS
x=x+1
LOCATE y,x: PRINT CHR(207)
sleep 1
CASE CHR(97)
CLS
x=x-1
LOCATE y,X: PRINT CHR(207)
sleep 1
CASE CHR(119)
CLS
y=y-1
LOCATE y,x: PRINT CHR(207)
sleep 1
CASE CHR(115)
CLS
y=y+1
LOCATE y,x: PRINT CHR(207)
sleep 1
CASE CHR(113)
CLS
EXIT DO
END SELECT
IF x<6 THEN x = 6
CLS
LOCATE y,x: PRINT CHR(207)
IF x>70 THEN x = 70
CLS
LOCATE y,x: PRINT CHR(207)
IF y<6 THEN y = 6
CLS
LOCATE y,x: PRINT CHR(207)
IF y>20 THEN y = 20
CLS
LOCATE y,x: PRINT CHR(207)
LOOP