Agilent Technologies 33500 Series - Page 231

230
Chapter 4 Application Programs
Program Listings
4
Text2.Text = Text2.Text & "Arb Wave output set on Channel1" & vbCrLf
Exit Sub
MyError:
Text2 = Err.Description
Resume Next
End Sub
Private Sub Form_Load()
Text2.Text = ""
End Sub
Private Function WaitForOPC(mFio As VisaComLib.FormattedIO488)
Do
Dim strResult As String
With mFio
.WriteString "*OPC?"
strResult = .ReadString()
End With
If (InStr(strResult, "1") > 0) Then
Exit Do
End If
Loop
End Function