Agilent Technologies E1300B Dokumentacja Pobierz pdf (Strona 36)

Program Example

The following program example sends a SCPI command and returns the data into a string variable.

Sub Main ()

Dim Addr As Integer

Dim Cmd As String

Dim RdMsg As String * 256

Dim Length As Integer

Dim Act ual As Long

’ SCPI command

Cmd = “SYSTem:ERRor?” + Chr$(10)

’ Open communication path using GPIB address

Addr = iopen("hpib7,9,0")

’ Send SCPI command

Call iwrite(Addr, ByVal Cmd, Len(Cmd), 1, Actual)

’ Set space f or returned dat a

Length = 256

’ Get readings

Call iread(Addr, ByVal RdMsg, Length, 0, Actual)

’ Show readings

MsgBox RdMsg, 0

’ Close communication with instrument

Call iclose(Addr)

’ Clean up sicl (for Windows only)

Call siclcleanup

End

End Sub

2-4 Sending SCPI Commands

1 2 ... 31 32 33 34 35 36 37 38 39 40 41 ... 77 78

Komentarze do niniejszej Instrukcji

Brak uwag