Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
Fadenkreuz in der Konsole bewegen
| Uploader: |  Sebastian |
| Datum/Zeit: | 01.05.2008 13:21:11 |
'Geänderte Fassung von
'http://www.freebasic-portal.de/index.php?s=fbporticula&mode=show&id=571
' - getestet mit FreeBASIC 0.18.5
DIM AS INTEGER xAlt, yAlt, x=35, y=10, z
DIM AS STRING Eingabe
LOCATE y,x: PRINT CHR(207)
'Positioniere Fadenkreuz an y=10 / x=35
yAlt = y
xAlt = x
LOCATE 1,1: PRINT "Koordinaten: X=";x;"/ Y=";y
DO
DO
Eingabe = INKEY
If Eingabe <> "" Then
z = ASC(Eingabe)
Exit Do
Else
SLEEP 1
End if
LOOP
SELECT CASE z
CASE 100
IF x<70 Then x+=1
CASE 97
IF x>6 Then x-=1
CASE 119
If y>6 Then y-=1
CASE 115
If y<20 Then y+=1
CASE 113
END
END SELECT
LOCATE yAlt,xAlt: PRINT " "
LOCATE y,x: PRINT CHR(207)
LOCATE 1,1: PRINT "Koordinaten: X=";x;"/ Y=";y
yAlt = y
xAlt = x
LOOP
END