Inhaltsverzeichnis
Werbung
ESC-Sequenzendemonstration, QBasic-Programmbeispiel
'*** ESCDEMO.BAS***
'*** Demonstriert ESC-Sequenzen ***
'Programm demonstriert zwei ESC-Sequenzen, ESC? und ESCs.
'Einige ESC-Sequenzen können in einer Textdatei programmiert
'werden, wird jedoch eine Antwort zurückgegeben, kann diese nicht
'empfangen werden. Aus diesem Grunde ist es besser, die Sequenzen
'durch ein Programm zu steuern, das Rückantworten und Pausen ver-
'arbeiten kann.
DECLARE SUB LOOK ()
ESC$ = CHR$(27)
QST$ = CHR$(63)
LTRS$ = CHR$(115)
CLS : CLOSE
OPEN "COM2:19200,N,8,1" FOR RANDOM AS #1 'Öffne COM2 mit 19200
PRINT "*** Abfrage nach prozentual freiem Speicher ***"
PRINT #1, ESC$; QST$
CALL LOOK
PRINT : PRINT "*** Abfrage Druckerstatus ***"
PRINT #1, ESC$; LTRS$
CALL LOOK
END
SUB LOOK
PRINT "ANZEIGE RÜCKGABEWERT, TASTE ZUM FORTSETZEN"
DO
IF LOC(1) > 0 THEN
a$ = INPUT$(1, #1)
PRINT a$;
END IF
LOOP WHILE INKEY$ = ""
END SUB
cab Produkttechnik GmbH
ESC-Sequenzdemonstration, QBasic-Programmbeispiel
'Deklaration Subroutine
'Definiert ESC-, ASCII-Zeichen 27
'
als Stringvariable.
'Definiert Fragezeichen (?), ASCII-Zeichen
'
63 als Stringvariable.
'Definiert s, ASCII-Zeichen 115 als
'
Stringvariable.
'Lösche Bildschirm und schließe
'
alle geöffneten Dateien
'
Baud, No Parity, 8 Daten-Bit, 1 Stop-
'
Bit.
'ESC? Abfrage prozentual freier Speicher.
'Pause für Anzeige
'ESCs Abfrage Druckerstatus
'Pause für Anzeige
'Falls Programmzähler für
'
File #1 eine Nummer beinhaltet
'
nur ein Byte einlesen...
'
auf dem Bildschirm ausgeben.
'Sonst, Rücksprung bis Taste
'
gedrückt wird.
155
Werbung
Inhaltsverzeichnis
