E5071C
1358
Using SRQs to detect the end of measurement (object name:
frmSrqMeas)
10| Private Sub cmdExit_Click()
20|
30| Unload Me
40|
50| End Sub
60|
70| Private Sub cmdMeas_Click()
80|
90| Dim Cond As Boolean
100|
110| frmSrqMeas.Hide
120|
130| SCPI.DISPlay.Split = "d123_456_789"
140| SCPI.TRIGger.SEQuence.Source = "bus"
150|
160| SCPI.INITiate(1).CONTinuous = optOn1.Value
170| SCPI.INITiate(2).CONTinuous = optOn2.Value
180| SCPI.INITiate(3).CONTinuous = optOn3.Value
190| SCPI.INITiate(4).CONTinuous = optOn4.Value
200| SCPI.INITiate(5).CONTinuous = optOn5.Value
210| SCPI.INITiate(6).CONTinuous = optOn6.Value
220| SCPI.INITiate(7).CONTinuous = optOn7.Value
230| SCPI.INITiate(8).CONTinuous = optOn8.Value
240| SCPI.INITiate(9).CONTinuous = optOn9.Value
250|
260| SCPI.STATus.OPERation.PTRansition = 0
270| SCPI.STATus.OPERation.NTRansition = 16
280| SCPI.STATus.OPERation.ENABle = 16
290| SCPI.IEEE4882.SRE = 128
300| SCPI.IEEE4882.CLS
310| SCPI.IEEE4882.TRG
320| WaitOnSRQ Cond, 100000
330| If Cond = True Then
340| MsgBox "Measurement Completion"