SSG5000A Programming Guide 119
resultTxt.Text = "Error reading a response from the device." +
CStr
(i + 1)
Else
resultTxt.Text = "Read from device: " +
CStr
(i + 1) + " " + Buffer
End
If
status = viClose(instrsesn)
Next
i
' Now we will close the session to the instrument using
' viClose. This operation frees all system resources.
status = viClose(defaultRM)
Usbtmc_test = 0
End Function
(2) TCP/IP
access code.
Write a function TCP_IP_Test:
Private Function TCP_IP_Test(ByVal ip As String) As Long
Dim
outputBuffer
As
String
* VI_FIND_BUFLEN
Dim
defaultRM
As
Long
Dim
instrsesn
As
Long
Dim
status
As
Long
Dim
count
As
Long
' First we will need to open the default resource manager.
status = viOpenDefaultRM(defaultRM)
If
(status < VI_SUCCESS)
Then
resultTxt.Text = "Could not open a session to the VISA Resource Manager!"
TCP_IP_Test = status
Содержание SSG5080A Series
Страница 1: ...SSG5080A Series Signal Generator Programming Guide PG0805A E01A ...
Страница 2: ......
Страница 124: ...122 SSG5000A Programming Guide ...
Страница 136: ......