Das deutsche QBasic- und FreeBASIC-Forum

[alfonsospringer]

Koenntet ihr mir villeicht sagen warum es bei diesem Programm einen Fehler
bei locate 1, variable gibt ?

CLS
text$ = "" ' Text
y% = 0 ' Position
DO
X$ = INKEY$
IF X$ <> CHR$(27) THEN 'wenn esc nicht gedrueckt wurde
y% = y% + 1 'neue position
text$ = text$ + X$ 'neuer text wird definiert
LOCATE 1, y% 'springt zu zeile 1, neue spalte y
PRINT X$ 'druckt dort das neue zeichen
END IF
LOOP WHILE X$ <> CHR$(27) 'wiederholung bis druck auf esc
PRINT text$ 'druckt gesamten text
END

[MisterD]

weil die zahl ganz schnell größer (=rechts außerhalb des bildschirms) ist als sie sein darf? du musst bei y%=80 die schleife abbrechen.
_________________
"It is practically impossible to teach good programming to students that have had a prior exposure to BASIC: as potential programmers they are mentally mutilated beyond hope of regeneration."
Edsger W. Dijkstra

[Michael Frey]

Oder einen Zeilenumbruch machen.
_________________
http://de.wikibooks.org/wiki/FreeBasic Jede Hilfe für dieses Buch ist Willkommen!
http://de.wikibooks.org/wiki/FreeBasic:_FAQ FAQ zu Freebasic (im Aufbau, hilfe Willkommen)
Neu mit Syntax Highlight

[alfonsospringer]

Hasst Recht
Funktionierende Version:

CLS
text$ = ""
q% = 1
y% = 0
DO
X$ = INKEY$

IF X$ <> CHR$(27) AND X$ <> "" THEN

IF y% = 79 THEN
q% = q% + 1
y% = 0
END IF

y% = y% + 1
text$ = text$ + X$
LOCATE q%, y%
PRINT X$
END IF

LOOP WHILE X$ <> CHR$(27)
PRINT text$
END





[/quote]