Agilent Technologies Infiniium 90000 Series Programmer's Manual page 1028

38
Sample Programs
VisaComError:
End Sub
Private Sub DoCommand(command As String)
VisaComError:
End Sub
Private Sub DoCommandIEEEBlock(command As String, data As Variant)
VisaComError:
End Sub
Private Function DoQueryString(query As String) As String
1028
", " + _
FormatNumber((lngDataValue * sngYIncrement) + sngYOrigin)
Next lngI
' Close output file.
Close hFile ' Close file.
MsgBox "Waveform format WORD data written to " + _
"c:\scope\data\waveform_data.csv."
Exit Sub
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
On Error GoTo VisaComError
myScope.WriteString command
CheckInstrumentErrors
Exit Sub
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
On Error GoTo VisaComError
Dim strErrors As String
myScope.WriteIEEEBlock command, data
CheckInstrumentErrors
Exit Sub
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
On Error GoTo VisaComError
Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference