Agilent Technologies Infiniium 90000 Q-Series, Руководство программиста

Страница: 1028 / 1186

1028 Agilent Infiniium 90000 Series Oscilloscopes Programmer's Reference
38
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:" + 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: " + CStr(Err.Number) + ", " + _
Err. ", " + _
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: " + CStr(Err.Number) + ", " + _
Err. ", " + _
Err.Description, vbExclamation, "VISA COM Error"
End
End Sub
Private Function DoQueryString(query As String) As String
On Error GoTo VisaComError