Section 5 GPIB
5-38
2) Program example using Visual Basic
Sub SAMP3 ()
ADRS%=8
Cls
Call SendIFC(0) : Interface clear
If ibsta% And EERR Then
Call ERRMSG(ADRS%, "Error: IFC")
End If
Call DevClear(0, ADRS%) : Device clear
If ibsta% And EERR Then
Call ERRMSG(ADRS%, "Error: DCL")
End If
Call Send(0, ADRS%, "*RST;*CLS;TRM 1", NLend): Specifies presets, status clear,
If ibsta% And EERR Then : and terminator
Call ERRMSG(ADRS%, "Error: SENDING COMMAND")
End If
Call Send(0, ADRS%, "ESE2 1;*SRE 4", NLend) : Permits measurement END service request
: and END service request
Call Send(0, ADRS%, "ACF 1;AF 1GHZ", NLend) : Sets manual measurement and
:1 GHz manual frequency value
Call Send(0, ADRS%, "BST 1;BSTMD 1", NLend) : Sets burst measurement and width measurement
Call Send(0, ADRS%, "SMP 6;RES 8;SH 1", NLend) : Specifies 100 ms sample rate, 100 kHz resolution, and hold
For I%=1 To 10
FREQ$=Space$(20)
WDT$=Space$(20)
Call Send(0, ADRS%, "*CLS;*TRG", NLend) : Status clear and trigger command
Call Waisrq(ADRS%) : See 2) under number (2).
Call Send(0, ADRS%, "MBCF?", NLend) : Reads burst carrier frequency
Call Receive(0, ADR%, FREQ$, STOPend)
Call Send(0, ADRS%, "MBWDT?", NLend) : Reads burst width measurement
Call Receive(0, ADRS%, WDT$, STOPend)
Print FREQ$; WDT$ : Displays measurement result
Next I%
Call ibonl(ADRS%, 0)
End Sub
(4) The following is a sample program that sets Input2, 1 MΩ impedance, ATT On, 10 ms sample rate, 1 Hz resolution,
and arithmetic mean for statistics processing, and then reads and outputs the measurement value using the output
mode 0 numeric format.
To Next Page
Loading...