Programming Guide

Digital Oscilloscopes Series
163
' the identification query that was sent. We will use the viRead
' function to acquire the data.
' After the data has been read the response is displayed.
status = viRead(instrsesn, buffer, MAX_CNT, retCount)
If (status < VI_SUCCESS) Then
Debug.Print "Error reading a response from the device.", i +
1
Else
Debug.Print i + 1, retCount, buffer
End If
status = viClose(instrsesn)
NextFind:
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
3.2、TCP/IP access code:
Write a function TCP_IP_Test.