Rohde & Schwarz ESPI3 Handbuch Seite 873

Komplexere Programmbeispiele
SelectDevice:
'---- Auswahl von Ausgabegerät, Druckersprache und Ausgabeschnittstelle ----
CALL IBWRT(receiver %,"SYST:COMM:PRIN:SEL "+ Devices(6))'Auswahl Drucker #6
7 CALL IBWRT(receiver %,"HCOP:DEST 'SYST:COMM:PRIN'") 'Konfiguration:
'"Ausdruck auf
'Druckerschnittstelle"
CALL IBWRT(receiver %,"HCOP:DEV:LANG GDI")
'----- Auswahl Ausrichtung (Portrait/Landscape) und Farbe/SW ---------------
CALL IBWRT(receiver %,"HCOP:PAGE:ORI PORTrait")
CALL IBWRT(receiver %,"HCOP:DEV:COL OFF")
'----- Konfiguration und Start des Ausdrucks -------------------------------
CALL IBWRT (receiver %,"HCOP:ITEM:ALL")
'CALL IBWRT (receiver %,"HCOP:ITEM:WIND1:TRACE:STAT ON")
'CALL IBWRT (receiver %,"HCOP:ITEM:WIND2:TRACE:STAT ON")
CALL IBWRT (receiver %,"*CLS")
CALL IBWRT (receiver %,"HCOP:IMMediate;*OPC") 'Ausdruck starten
CALL WaitSRQ(boardID%,result%)
IF (result% = 1) THEN CALL Srq
'---- Ausdruck im WMF-Format (BMP-Format) in Datei -------------------------
CALL IBWRT(receiver %,"HCOP:DEST 'MMEM'")
CALL IBWRT(receiver %,"HCOP:DEV:LANG WMF")
'CALL IBWRT(receiver %,"HCOP:DEV:LANG BMP")
CALL IBWRT(receiver %,"MMEM:NAME 'D:\USER\DATA\PRINT1.WMF'")
'Dateinamen
CALL IBWRT (receiver %,"*CLS")
CALL IBWRT (receiver %,"HCO"P:IMMediate;*OPC") 'Ausdruck starten
CALL WaitSRQ(boardID%,result%)
IF (result% = 1) THEN CALL Srq
END SUB
REM ************************************************************************
1164.6459.11
'Drucker benötigen
'Druckersprache 'GDI'
'Ausrichtung Portrait
'Schwarzweiß-Ausdruck
'gesamter Bildschirminhalt
Screen
'Statusverwaltung rücksetzen
'Warten auf Service Request
'Wenn SRQ erkannt =>
'Unterprogramm zur Auswertung
'Konfiguration:
'"Ausdruck in Datei"
'Dateiformat WMF
'Dateiformat BMP
'Statusverwaltung rücksetzen
'Warten auf Service Request
'Wenn SRQ erkannt =>
'Unterprogramm zur Auswertung
7.48
R&S ESPI
'alternativ: nur
'Messkurven in
'A/B
'festlegen
D-2