User`s manual

Cnt = 1
While Len(Cmd(Cnt))
’ Send SCPI command
Call iwrite(Addr, ByVal Cmd(Cnt) + Chr$(10), Len(Cmd(Cnt)) + 1, 1, Actual)
Cnt = Cnt + 1
Wend
End Sub
Sub ExitProg_Click ()
’ End program
End
End Sub
Sub Form_Load ()
’ Disable showing exit program button and lists
ExitProg.Visible = False
ShowQuery.Visible = False
’ Show Action
Action.Enabled = False
Action.Visible = True
’ Enable form
Arbwave.Visible = True
’ Call program to execute instrument
Call Main
’ Enable showing exit program button and make it the focus
ExitProg.Visible = True
ExitProg.SetFocus
End Sub
Sub GenSeg ()
’ Setup AFG to generate an arbitrary waveform
Static SetCommands(1 To 10) As String
Static OutCommands(1 To 10) As String
Dim SegCommand As String
Continued on Next Page
Chapter 1 Getting Started 35