Inhaltsverzeichnis
Werbung
Anhang B - Programmierbeispiele
Speicherkarte - Etikett speichern, Datenbankdatei, QBasic-Programm-
beispiel
'*** MEMDBF.BAS ***
'*** Speichert Datenbank auf Speicherkarte ***
'Folgendes Programm führt einen Download einer dBase-Datenbank in
'den internen Apollospeicher durch. Danach wird die Datenbank auf
'der im PCMCIA-Slot befindlichen optionalen Speicherkarte, abge
'legt.
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 DBF;UPC[SAVE]" 'Download-Initialisierung für internen
OPEN "UPC.DBF" FOR BINARY AS #2 'Öffne Datei UPC.DBF 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$
CLOSE
END
164
'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
'
Apollo-Speicher mit DBF-Datenbank:
'
UPC. Die [SAVE]-Option speichert
'
Datenbank auf Speicherkarte.
'
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.
cab Produkttechnik GmbH
Werbung
Inhaltsverzeichnis
