Agilent Technologies 2000 X-Series Manual de servicio descargar pdf (Pagina 801)

100

101

Programming Examples 38

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

On Error GoTo VisaComError

' Create the VISA COM I/O resource.

Set myMgr = New VisaComLib.ResourceManager

Set myScope = New VisaComLib.FormattedIO488

Set myScope.IO = _

myMgr.Open("USB0::0x0957::0x17A6::US50210029::0::INSTR")

myScope.IO.Clear ' Clear the interface.

myScope.IO.Timeout = 10000 ' Set I/O communication timeout.

' Initialize - start from a known state.

Initialize

' Capture data.

Capture

' Analyze the captured waveform.

Analyze

Exit Sub

VisaComError:

MsgBox "VISA COM Error:" + vbCrLf + Err.Description

End

End Sub

' Initialize the oscilloscope to a known state.

' -------------------------------------------------------------------

Private Sub Initialize()

On Error GoTo VisaComError

' Get and display the device's *IDN? string.

strQueryResult = DoQueryString("*IDN?")

Debug.Print "Identification string:"+strQueryResult

' Clear status and load the default setup.

DoCommand "*CLS"

DoCommand "*RST"

Exit Sub

VisaComError:

MsgBox "VISA COM Error:" + vbCrLf + Err.Description

End

End Sub

' Capture the waveform.

' -------------------------------------------------------------------

Private Sub Capture()

1 2 ... 796 797 798 799 800 801 802 803 804 805 806 ... 929 930

Comentarios a estos manuales

Sin comentarios

Agilent Technologies 2000 X-Series Manual de servicio Pagina 801

Comentarios a estos manuales

Relacionado con productos y manuales para Multímetros Agilent Technologies 2000 X-Series