Rohde & Schwarz FSL6 Kompakthandbuch Seite 142

R&S FSL
REM ***********************************************************************
Public Sub HCopy()
Dim retCount as Long
Dim SRQWaitTimeout As Long
Dim eventType As Long
Dim eventVi As Long
Dim statusSRQ As Long
DIM Devices(100) as string
FOR i = 0 TO 49
buffer for printer name
NEXT i
'––––––––– Default setting of the R&S FSL –––––––––––––––––––––––––––––––
CALL SetupStatusReg
CALL InstrWrite(analyzer,"*RST")
CALL InstrWrite(analyzer,"INIT:CONT OFF")
CALL InstrWrite(analyzer,"SYST:DISP:UPD ON")
'––––––––– Measurement settings ––––––––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer,"FREQ:CENT 100MHz;SPAN 10MHz")
CALL InstrWrite(analyzer,"DISP:TRAC:Y:RLEV –10dBm")
CALL InstrWrite(analyzer,"INIT;*WAI") 'Perform measurement
'––––––––– Querying the available output devices –––––––––––––––––––––––––
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:FIRSt?")
CALL InstrRead(analyzer,Devices$(0), 50, retCount)
Debug.Print "Printer 0: "+Devices$(0)
For i = 1 to 99
InstrWrite(analyzer,"SYST:COMM:PRIN:ENUM:NEXT?")
SelectDevice
Devices$(i)
NEXT i
SelectDevice:
'–––– Selection of output device, printer language and output interface ––––
CALL InstrWrite(analyzer,"SYST:COMM:PRIN:SEL "+ Devices(6))
CALL InstrWrite(analyzer,"HCOP:DEST 'SYST:COMM:PRIN'")
CALL InstrWrite(analyzer,"HCOP:DEV:LANG GDI")
'––––– Selection of orientation (portrait/landscape) and colour/BW –––––––––
CALL InstrWrite(analyzer,"HCOP:PAGE:ORI PORT")
1300.2519.61
Komplexere Programmbeispiele
'Create buffer for printer name
Devices$(i) = Space$(50)
'Configure status register
'Reset instrument
'Single sweep mode
'Screen display on
'Frequency setting
'Reference level
'Read out and display first output device
CALL
'Read out next printer name
CALL InstrRead(analyzer,Devices$(i)
IF Left$(Devices$(i),2) = "''" THEN GOTO
'Stop at end of list
Debug.Print "Printer"+Str$(i)+": "
'Display printer name
'Printer selection #6
'Configuration: "Printout to
'printer interface"
'Printers require printer language 'GDI'
'Portrait orientation
6.21
'Preallocate
D-3