235
Chapter 4 Application Programs
Program Listings
4
4
.WriteString "SOURCE2:FUNCTION SQU"
.WriteString "SOURCE2:FREQUENCY 20E3"
.WriteString "SOURCE2:VOLT:UNIT VRMS"
.WriteString "SOURCE2:VOLT 1"
.WriteString "SOURCE2:VOLT:OFFSET 1"
.WriteString "OUTPUT2:LOAD MAX" 'Maximum load impedance corresponds to
10 KOhm
' Enable channel 1 output
.WriteString "OUTPUT1 ON"
' Enable channel 2 output
.WriteString "OUTPUT2 ON"
Sleep 1000
End With
Text2.Text = "Output set on both channels"
Exit Sub
MyError:
Text2 = Err.Description
Resume Next
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub