Technical data

948 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
35 Sample Programs
", " + _
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
VisaComError:
MsgBox "VISA COM Error:" + vbCrLf + Err.Description
End
End Sub
Private Sub DoCommand(command As String)
On Error GoTo VisaComError
myScope.WriteString command
CheckInstrumentErrors
Exit Sub
VisaComError:
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ","+_
Err.Description, vbExclamation, "VISA COM Error"
End
End Sub
Private Sub DoCommandIEEEBlock(command As String, data As Variant)
On Error GoTo VisaComError
Dim strErrors As String
myScope.WriteIEEEBlock command, data
CheckInstrumentErrors
Exit Sub
VisaComError:
MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _
Err.Source + ","+_
Err.Description, vbExclamation, "VISA COM Error"
End
End Sub
Private Function DoQueryString(query As String) As String
On Error GoTo VisaComError