Agilent Technologies 2000 X-Series Manual de Serviço descarregar pdf (Página 807)

100

101

Programming Examples 38

Agilent InfiniiVision 2000 X-Series Oscilloscopes Programmer's Guide 807

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

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

1 2 ... 802 803 804 805 806 807 808 809 810 811 812 ... 929 930

Comentários a estes Manuais

Sem comentários

Agilent Technologies 2000 X-Series Manual de Serviço Página 807

Comentários a estes Manuais

Manuais e produtos relacionados com Multímetros Agilent Technologies 2000 X-Series