Inhaltsverzeichnis
Werbung
Anhang B - Programmierbeispiele
QBasic-Programmbeispiel
Das folgende QBasic-Beispiel zeigt den Download von Grafiken mit dem d-Kommando.
Mit dem I-Kommando wird danach das Etikett erzeugt.
'*** BEISPB2.BAS ***
ESC$ = CHR$(27)
DOT$ = CHR$(46)
CLS
CLOSE
OPEN "COM2:19200,N,8,1,bin" FOR RANDOM AS #1 'Öffne COM2 mit 19200
PRINT #1, "d BMP;FISCH" 'Plaziere Image-Header im Druckerspeicher
CLOSE #2
OPEN "FISCH.BMP" FOR BINARY AS #2
PRINT #1, ESC$; DOT$;
'*** While-Schleife filtert die Eingabe, ändert ESC in ESCESC ***
'***
wie es Apollo für Graphik-Download benötigt.
WHILE NOT EOF(2)
A$ = INPUT$(1, #2)
IF A$ = ESC$ THEN PRINT #1, ESC$;
PRINT #1, A$;
152
'Definiere ESC, ASCII-Zeichen 27 als
'
Stringvariable.
'Definiere Punkt, ASCII-Zeichen 46 als
' Stringvariable.
'Bildschirm löschen.
'Alle geöffneten Dateien schließen.
'
Baud, No Parity, 8 Datenbit, 1 Stop-
'
Bit, Volle 8-Bit Datenübertragung mit
'
der Benutzung des Binär-Flags (bin).
'
Kommunikation 'As Random' geöffnet um
'
den DOS-Buffer in beide Richtungen
'
zuzulassen.
'
mit dem Namen FISCH.
'Schließe Kanal 2
'Öffne Datei "FISCH.BMP" zum Einlesen als
'
File #2. Benutzung von BINARY hält DOS
'
bzw. BASIC vom Übertragungsabruch ab,
'
falls die Imagegrafik ein Ctrl-Z be-
'
inhaltet.
'ESC Punkt, kennzeichnet den Beginn der
'
Graphikinformation.
'Während noch Daten eingelesen werden
'
in A$ ablegen
'
Zeichen verdoppeln.
'Übertrage Daten in A$ zum Drucker.
'Falls ESC entdeckt
cab Produkttechnik GmbH
***
Werbung
Inhaltsverzeichnis
