Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Scaricare il pdf (Pagina 877)

100

101

Programming Examples 37

Agilent InfiniiVision 3000 X-Series Oscilloscopes Programmer's Guide 877

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

myScope.WriteString query

DoQueryString = myScope.ReadString

CheckInstrumentErrors

Exit Function

VisaComError:

MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _

Err.Source + ","+_

Err.Description, vbExclamation, "VISA COM Error"

End

End Function

Private Function DoQueryNumber(query As String) As Variant

On Error GoTo VisaComError

myScope.WriteString query

DoQueryNumber = myScope.ReadNumber

CheckInstrumentErrors

Exit Function

VisaComError:

MsgBox "VISA COM Error: " + vbCrLf + CStr(Err.Number) + ", " + _

Err.Source + ","+_

Err.Description, vbExclamation, "VISA COM Error"

End

End Function

Private Function DoQueryNumbers(query As String) As Variant()

On Error GoTo VisaComError

Dim strErrors As String

1 2 ... 872 873 874 875 876 877 878 879 880 881 882 ... 969 970

Commenti su questo manuale

Nessun commento

Agilent Technologies InfiniiVision 3000 DSO-X 3054A Manuale di Servizio Pagina 877

Commenti su questo manuale

Prodotti e manuali riguardandi Misurazione, test & controllo Agilent Technologies InfiniiVision 3000 DSO-X 3054A