FSR - QBasic Seite 32

AG Informatik

Um das Setzen von Punkten im Programm 'Achsenkreuz' zu vereinfachen, kann man eine entsprechende Subroutine schreiben.

Entferne im Programm 'Achsenkreuz' zunächst alle selbst angefügten Zeilen und ergänze dann das Programm um die ZeilePlot 1,-3,farbe.
Bewege die Schreibmarke unter einen Buchstaben des Wortes Plot und erzeuge mit Bearbeiten - Neue Sub einen Rahmen für die neue Subroutine. Der Bildschirm hat daraufhin zunächst folgendes Aussehen:
SUB Plot
END SUB
Ergänze dann dieses Unterprogramm wie folgt:
```
       SUB Plot (x,y,f)
         PSET (320+x*40,232-y*48),f
       END SUB
```
Diesem Unterprogramm wird beim Aufruf eine x- und eine y-Koordinate sowie eine Farbe übergeben. Der PSET-Befehl berechnet dann für das durch das Hauptprogramm gezeichnete Achsenkreuz die Pixelkoordinaten und zeichnet den gewünschten Punkt in der entsprechenden Farbe.
Zeichne mit Hilfe des Unterprogrammes Plot die Punkte P(4/3), Q(-2/-1), R(3/-1) und S(-4/2). Verwende dazu verschiedene Farben (von Farb-Nummer 1 bis 15). Füge dazu die vier entsprechenden neuen Zeilen an das Hauptprogramm an.
Die gezeichneten Punkte auf dem Bildschirm sind sehr klein. Um die Punkte etwas besser erkennen zu können, kann man statt eines Punktes vier Punkte zeichnen.
Wechsle mit Ansicht - Subs zum Unterprogramm Plot und ergänze das Unterprogramm wie folgt:
```
       SUB Plot (x,y,f)
         PSET (320+x*40,232-y*48),f
         PSET (321+x*40,232-y*48),f
         PSET (320+x*40,233-y*48),f
         PSET (321+x*40,233-y*48),f
       END SUB
```
Wechsle zurück zum Modul des Hauptprogrammes und starte das Programm. Beobachte die veränderte Bildschirmausgabe.