Inhaltsverzeichnis
Werbung
Speicherkarte - Grafikdatei speichern, QBasic-Programmbeispiel
'*** MEMIMAGE.BAS ***
'*** Speichert Grafikbild auf Speicherkarte ***
'Folgendes Programm führt einen Download eines Grafikbildes in den
'internen Apollospeicher durch. Danach wird das Bild auf der im
'PCMCIA-Slot befindlichen optionalen Speicherkarte, abgelegt.
ESC$ = CHR$(27)
DOT$ = CHR$(46)
CLS
CLOSE
OPEN "COM2:19200,N,8,1,bin" FOR RANDOM AS #1 'COM2 mit 19200 Baud,
CLOSE #2
PRINT #1, "d PCX;FLAMME"
OPEN "FLAMME.PCX" FOR BINARY AS #2 'Öffne Datei FLAMME.PCX zum
PRINT #1, ESC$; DOT$;
WHILE NOT EOF(2)
A$ = INPUT$(1, #2)
IF A$ = ESC$ THEN PRINT #1, ESC$; 'Falls ESC entdeckt,
PRINT #1, A$;
WEND
PRINT #1, ESC$; DOT$
PRINT #1, "M s IMG;FLAMME" 'Speichere Download-Grafikbild
CLOSE
END
cab Produkttechnik GmbH
Speicherkarte - Grafikdatei speichern, QBasic Programmbeispiel
'Definiert ESC, ASCII-Zeichen 27
'
als Stringvariable.
'Definiert Punkt, ASCII-Zeichen 46
'
als Stringvariable.
'Lösche Bildschirm.
'Schließe alle geöffneten Dateien.
'
No Parity, 8 Datenbit, 1 Stop-Bit
'
öffnen. Volle 8-Bit-Übertragung mit
'
Binär-Flag (bin). Kommunikation 'As
'
Random' um DOS-Buffer in beide
'
Richtungen zuzulassen.
'Schließe Kanal 2
'Download-Initialisierung für internen
'
Apollo-Speicher mit PCX-Grafikbild:
'
FLAMME
'
Einlesen als File #2. Benutzung von
'
BINARY hält DOS und BASIC vom
'
Übertragungsende ab, falls die
'
Datei ein CTRL-Z beinhaltet.
'ESC Punkt, kennzeichnet den Start der
'
Download-Information.
'Während noch Daten eingelesen werden
'
in A$ ablegen.
'
Zeichen verdoppeln.
'Übertrage Inhalt von A$ zum Drucker.
'Stopp wenn wenn Dateiende.
'ESC Punkt kennzeichnet Ende der
'
Download-Information.
'
als FLAMME auf der Speicherkarte.
163
Werbung
Inhaltsverzeichnis
