221
Chapter 4 Application Programs
Program Listings
4
4
With mfIo
' Clear and reset instrument
.WriteString "*CLS"
.WriteString "*RST"
Sleep 1000
'Send commands to set the desired configuration
.WriteString "SOURCE1:FUNCTION SIN"
.WriteString "SOURCE1:FREQUENCY 1000"
.WriteString "SOURCE1:VOLT:UNIT VPP"
.WriteString "SOURCE1:VOLT 2"
.WriteString "SOURCE1:VOLT:OFFSET 0"
.WriteString "OUTPUT1:LOAD 50"
'Enable output.
.WriteString "OUTPUT1 ON"
Sleep 1000
End With
Text2.Text = "Sine Wave output set on Channel1"
Exit Sub
MyError:
Text2 = Err.Description
Resume Next
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub
End Sub