Programming Guide

Digital Oscilloscopes Series
160
Dim numlnstrs As Long
Dim findList As Long
Dim retCount As Long
Dim writeCount As Long
Dim status As Long
Dim instrResourceString As String * VI_FIND_BUFLEN
Dim buffer As String * MAX_CNT
Dim i As Integer
' First we must call viOpenDefaultRM to get the manager
' handle. We will store this handle in defaultRM.
status = viOpenDefaultRM(defaultRM)
If (status < VI_SUCCESS) Then
Debug.Print "Could not open a session to the VISA Resource
Manager!"
Usbtmc_test = status
ExitFunction
End If
' Find all the USB TMC VISA resources in our system and store
the
' number of resources in the system in numInstrs.