Inhaltsverzeichnis
Werbung
Programmierung der Fernsteuerung – erste Schritte
Markerpositionierung und Auslesen
REM –––––––– Example of marker function –––––––––––––––––––––––––––––––––––
PUBLIC SUB ReadMarker()
Dim retCount as Long
CALL InstrWrite(analyzer, "CALC:MARKER ON;MARKER:MAX")
MKmark$ = SPACE$(30)
CALL InstrWrite(analyzer, "CALC:MARK:X?;Y?")
CALL InstrRead(analyzer, MKmark$, 30, retCount)
REM ––––––––– Displaying values in the Immediate window –––––––––––––––––––
Debug.Print "Marker frequency/level "; MKmark$,
END SUB
REM ************************************************************************
Befehlssynchronisation
Die im folgenden Beispiel realisierten Möglichkeiten zur Synchronisation sind im
Bedienhandbuch, Kapitel 4 „Fernsteuerung – erste Schritte", Abschnitt „Befehlsreihenfolge
und Befehlssynchronisation" beschrieben.
REM ––––––––– Commands for command synchronization ––––––––––––––––––––––––
PUBLIC SUB SweepSync()
Dim retCount as Long
Dim SRQWaitTimeout As Long
Dim eventType As Long
Dim eventVi As Long
REM The command INITiate[:IMMediate] starts a single sweep if the
REM command INIT:CONT OFF has already been sent. The next command
REM must not be carried out until a full sweep has been completed.
CALL InstrWrite(analyzer, "INIT:CONT OFF")
REM ––––––––– First method: Using *WAI ––––––––––––––––––––––––––––––––––––
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *WAI")
REM ––––––––– Second method: Using *OPC? ––––––––––––––––––––––––––––––––––
OpcOk$ = SPACE$(2)
CALL InstrWrite(analyzer, "ABOR;INIT:IMM; *OPC?")
REM ––––––––– In this case, the controller can use other instruments ––––––
CALL InstrRead(analyzer, OpcOk$, 2, retCount)
REM ––––––––– Third method: Using *OPC ––––––––––––––––––––––––––––––––––––
REM In order for the Service Request function to be used with a GPIB
REM driver from National Instruments, the setting "Disable
REM Auto Serial Poll" must be set to "yes" with IBCONF!
CALL InstrWrite(analyzer, "*SRE 32")
CALL InstrWrite(analyzer, "*ESE 1")
1300.2519.61
'Activate marker 1 and search for peak
'Provide text variable (30 characters)
'Query frequency and level
'Read value
'Provide space for *OPC? response
'Wait for "1" from *OPC?
'Enable Service Request for ESR
'Set event enable bit for operation
'complete bit
6.8
R&S FSL
D-3
Werbung
Inhaltsverzeichnis
