238
Chapter 4 Application Programs
Program Listings
4
.WriteString "SOURCE1:BURST:NCYCLES INF"
.WriteString "SOURCE1:BURST:MODE TRIG"
.WriteString "SOURCE1:BURST:STATE ON"
' turn off continuous INIT as we are just using one trigger to start the
burst
.WriteString "INITiate1:CONTinuous OFF"
' arm instrument 2 with INIT so it waits for EXT trigger to start burst
.WriteString "INITiate1"
End With
With mfIo1
'Enable channel 1 output on instrument 1
.WriteString "OUTPUT1 ON"
End With
With mfIo2
'Enable channel 1 output on instrument 2
.WriteString "OUTPUT1 ON"
End With
Sleep 2000
With mfIo1
'Start burst on channel 1 with BUS trigger
.WriteString "*TRG"
End With
On Error GoTo MyError
mfIo1.IO.Close
mfIo2.IO.Close
Text3.Text = "Output set on both instruments"
Exit Sub
MyError:
Text3 = Err.Description
Resume Next
End Sub
Private Sub Form_Load()
Text3.Text = ""
End Sub