5-41
5.6 Sample Programs
2) Program example using Visual Basic
Sub SAMP5 ()
ADRS%=8
Static FREQ#(100)
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 event status, and END
service request
Call Send(0, ADRS%, "ACF 1;AF1 GHZ;ACL 1;AD 3", NLend)
: Manual measurement, 1 GHz, and L3
Call Send(0, ADRS%, "TRG 1;TRGDLY 100US", NLend)
: External trigger and 100 µs trigger delay
:
100 high-speed samples and 100 µs high-speed sample period
Call Send(0, ADRS%, "TRSSMP 100;TRSRT 100US;TRS 1", NLend)
:High speed sample On
Call Send(0, ADRS%, "*CLS;*TRG", NLend) : Status clear and trigger command
Call Waisrq(ADRS%) : See 2) under (2)
OFS$=Space$(40)
Call Send(0, ADRS%, "TRSOFS?", NLend) : Reads offset value
Call Receive(0, ADRS%, OFS$, STOPend)
FOFS#=Val(OFS$)
Call Send(0, ADRS%, "MTRS? 100", NLend)
For I%=0 To 99
BUF$=Space$(40)
Call Receive(0, ADRS%, BUF$, STOPend)
SEP%=InStr(BUF$, ",")
CNT1#=Mid(BUF$, 1, SEP%–1)
CNT2#=Mid(BUF$, SEP%+1)
To Next Page
Loading...