Teledyne T3DSO1000 Programming Manual page 210

' We will now use the viWrite function to send the device the string "*IDN?", '
asking for the device's identification.
status = viWrite(instrsesn, "*IDN?", 5, retCount)
If (status < VI_SUCCESS)
End If
' Now we will attempt to read back a response from the device to '
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)
Debug.Print "Error reading a response from the device.", i + 1
Else
Debug.Print i + 1, retCount, 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
b) TCP/IP:
Private Function
Debug.Print "Error writing to the device."
status = viClose(instrsesn)
GoTo NextFind
TCP_IP_Test(ip As String)
Digital Oscilloscope Series
Then
Then
As Long
210