Dim dfltRM As ViSession
Dim sesn As ViSession
Dim fList As ViFindList
Dim desc As String * VI_FIND_BUFLEN
Dim nList As Long
Dim ret As Long
Dim readin As String * 128
Dim i As Integer ' Array index
stat = viOpenDefaultRM(dfltRM)
If (stat < VI_SUCCESS) Then
'Rem Error initializing VISA ... exiting
MsgBox "USBTMC resource not found.", vbExclamation, "M3500
multimeter device test"
Exit Sub
End If
Rem Find all M3500 USBTMC instruments in the system
stat = viFindRsrc(dfltRM, "USB[0-9]*::0x05E6::0xM3500::?*INSTR",
fList, nList, desc)
If (stat < VI_SUCCESS) Then
'Rem Error finding resources ... exiting
MsgBox "M3500 device not found.", vbExclamation, "M3500
multimeter device test"
viClose (dfltRM)
Exit Sub
End If
Rem Open a session to each and determine if it matches
stat = viOpen(dfltRM, desc, VI_NULL, VI_NULL, sesn)
If (stat < VI_SUCCESS) Then
MsgBox "Open device failed.", vbExclamation, "M3500 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
190
Содержание ATM3500A
Страница 1: ...ATTEN EU ATM3500A 6 5 Digit Digital Multimeter...
Страница 2: ...User s Manual ATM3500A DMM User s Manual 2 Printed date 11 2011 Version 1 05...
Страница 50: ...Figure 3 18 50 5...
Страница 120: ...668 Manual Calibration Version Error 669 Self Test Version Error 670 Command Version Error 120...