FSR - QBasic Seite 33

AG Informatik

Um zwei Punkte im Achsenkreuz durch eine Linie zu verbinden werden die Koordinaten des Anfangs- und des Endpunktes benötigt.

Das Programm 'Achsenkreuz' wird um eine weiter Subroutine erweitert. Entferne dazu zunächst sämtliche Plot-Befehle am Ende des Hauptprogramms. Füge dann die Zeile
Connect -2,-3,3,1,15
an das Hauptprogramm an. Die ersten beiden Zahlenangaben sind die Koordinaten des Anfangspunktes, dann folgen die zwei Zahlenangaben für den Endpunkt. Die letzte Zahlenangabe gibt die zu verwendende Farbe an.

Bewege die Schreibmarke unter einen Buchstaben des Wortes Draw und erzeuge mit Bearbeiten - Neue Sub einen Rahmen für die neue Subroutine. Der Bildschirm hat daraufhin zunächst folgendes Aussehen:
```
       SUB Connect

       END SUB
```
Ergänze dann dieses Unterprogramm wie folgt:
```
       SUB Connect (x1,y1,x2,y2,f)
         LINE (320+x1*40,232-y1*48)-(320+x2*40,232-y2*48),f
       END SUB
```
Alle bisher erzeugten Unterprogramme funktionieren nur einwandfrei, wenn die verwendeten Koordinaten im Bereich -5x5 und -4y4 liegen. Werden andere Koordinaten verwendet, so wird 'außerhalb' des Bildschirms gezeichnet.
Überprüfe folgende Zeichenoperationen:
```
       Plot -8,2,3
       Plot 2,-16,3
       Connect -8,2,-6,4,3
       Connect -8,2,6,4,3
       Connect -3,-2,4,8,3
```
Fehlerhafte Eingaben des Benutzers können in den Unterprogrammen abgefangen werden. Füge dazu in den Subroutinen vor den PSET- bzw. LINE-Befehlen die folgenden Zeilen ein:
```
       Plot:   IF ABS(x)>5 THEN BEEP : EXIT SUB
               IF ABS(y)>4 THEN BEEP : EXIT SUB
       Lines:  IF ABS(x1)>5 OR ABS(x2)>5 THEN BEEP : EXIT SUB
               IF ABS(y1)>4 OR ABS(y2)>4 THEN BEEP : EXIT SUB
```
Starte dann das Hauptprogramm mit den fehlerhaften Programmzeilen erneut und beobachte die Bildschirmausgabe. Ein akustisches Signal weist auf falsche Koordinaten hin.