Agilent Technologies E5071C Manual page 988

'
' Turn on or off continuous initiation mode for each channel
' depending on the value of ContMode(*).
For i = 1 To 9
Call viVPrintf(vi, ":INIT" & CStr(i) & ":CONT " & ContMode(i) & vbLf, 0)
Next i
' Set the trigger source to Bus Trigger.
Call viVPrintf(vi, ":TRIG:SOUR BUS" & vbLf, 0)
'
' Trigger the instrument to start a sweep cycle.
Call viVPrintf(vi, ":TRIG:SING" & vbLf, 0)
'
' Execute the *OPC? command and wait until the command
' returns 1 (i.e., the measurement cycle is completed).
Call viVPrintf(vi, "*OPC?" & vbLf, 0)
Call viVScanf(vi, "%t", Result)
'
' Display a measurement completion message.
Stat = MsgBox("Measurement complete", vbOKOnly)
Call viClose(vi)
Call viClose(defrm)
End Sub
Sample Program in HT Basic (trg_sing.htb)
10 DIM Cont_mode$(1:9)[9],Buff$[9]
20 INTEGER I
30 !
40 ASSIGN @Agte507x TO 717
50 !
60 Cont_mode$(1)="ON"
70 Cont_mode$(2)="ON"
80 Cont_mode$(3)="OFF"
90 Cont_mode$(4)="OFF"
100 Cont_mode$(5)="OFF"
110 Cont_mode$(6)="OFF"
120 Cont_mode$(7)="OFF"
130 Cont_mode$(8)="OFF"
140 Cont_mode$(9)="OFF"
Programming
1215