Agilent Technologies 33500 Series - Page 228

227
Chapter 4 Application Programs
Program Listings
4
4
' Iterate over different pulse transition durations
For i = 1 To 10
.WriteString "SOURCE1:FUNCtion:PULSe:TRANsition " & (i * 10) & "E-9"
Sleep 100
Next i
End With
Text2.Text = "Pulse output with variable edge time set on Channel1"
Exit Sub
MyError:
Text2 = Err.Description
Resume Next
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub