03 Eingabe und Zeichen

Einstieg in das Thema

Worum geht es?

Das Zeichenketten (also Strings) anders behandelt werden als Zahlen, weißt du schon. Das ist auch bei Basic so. Auch sollst du eine Bewegung über den Bildschirm programmieren und dich so dem nähern, was man mit maximaler Übertreibung als Spiel bezeichnen kann.

Was ist das Ziel?

Du kannst am Ende eine Figur über den Bildschirm steuern und weißt, wie man mit Zeichenketten umgeht.

Das Wort LANGSAM wird eine neue Bedeutung bekommen.

Erarbeitung

Theorie

Aufgaben zur Erarbeitung

Gib folgendes Programmstück ein

        10 CLS
        20 LET X = 10
        30 LET Y = 10
        40 LET A = 0
        50 WHILE A = 0
        60 CURSOR X,Y
        70 PRINT " "
        80 LET T$ = INKEY$
        90 IF T$="X" THEN LET A=1
        100 IF T$="W" THEN LET Y=Y-1
        110 CURSOR X, Y
        120 PRINT "#"
        130 WEND

Aufgabe 1

Was passiert in Zeile 10?

Aufgabe 2

In welcher Zeile wird eine Taste abgefragt?

Aufgabe 3

Was passiert, wenn man die Taste W drückt?

Aufgabe 4

Welchen Sinn hat Zeile 70?

Aufgabe 5

Erweitere das Programm so, dass mit WASD Bewegungen in alle vier Richtungen möglich sind.

Hinweis: Zeilen zwischen anderen Zeilen einfügen macht man über die Nummer. So liegt Zeile 12 zwischen den Zeilen 10 und 15. Was ist aber, wenn kein Platz mehr ist? Rufe RENUMBER auf. Alle Zahlen bekommen eine neue Nummer, der Abstand ist 10.

Vermutlich flackert sein Bild etwas. Füge zwischen

PRINT "#"

und

WEND

folgende Zeilen (mit passender Zeilennummer) ein:

        FOR M = 0 TO 20
        LET N=8
        NEXT

ein.

Aufgabe 6

Welchen Sinn machen diese Zeilen?

Aufgabe 7

Warum macht man so etwas heute (auf Multitasking-Maschinen) nicht mehr?

Vertiefung

Mit dieser Steuerung kann man über den Rand hinaus. Dann folgt oft ein Absturz. Bitte erweitere das Programm so, dass man den Rand nicht übertreten kann. Dazu reicht eine Prüfung vor dem Zeichnen.

Wie sieht diese Prüfung aus? Gib Code an oder beschreibe mit Worten. Die Zeichenpositionen gehen von 0 bis 31 für X und von 0 bis 23 für Y.

Vergiss das Abspeichern vor den RUN nicht!

Und noch mehr

Ein Tastendruck schaltet um zwischen Zeichnen und Löschen. Welche Taste das ist, kannst du selbst festlegen. Tipp: Das Löschen des Zeichens in Zeile 80 könnte man deaktivieren.

Eine andere Taste löscht den Bildschirm und setzt die Figur wieder in die Mitte.

Und noch ein Extra

Man kann auch auf eine Steuerung mit den Cursortasten umschalten. Diese haben kein vergleichbares Zeichen, aber einen ASCII-Wert. Diesen wiederum kann man sich geben lassen, muss aber prüfen, ob etwas eingegeben wurde, die Länge der Zeichenkette also größer 0 ist.

Das folgende Programm zeigt die Funktionsweise:

ASCII-Wert anzeigen lassen

Umwandlung:

IF LEN(T$)>0 THEN LET K= ASC(T$) ELSE LET K=0

Abfrage bei der Bewegung:

IF K=08 THEN ...

Die Richtungstasten haben die Codes 8,9,10 und 11, X hat den Code 88.

Zusammenfassung

Was muss man wissen/können?

Du musst wissen

wie Zeichenkettenvariablen angelegt werden und erkennbar sind,
welche Zurodungen erlaubt sind,
wie Texte geschrieben werden,
was eine Cursorposition auf einem System ohne Mauszeiger ist und
was eine Warteschleife ist.

Du kannst

den Bildschirm löschen,
mit Zeichenketten arbeiten und
bist sicherer mit Schleifen und Verzweigungen.

Wie geht es weiter?

Grafik macht immer Spaß und damit geht es weiter.