Rem send command -- Take readings
stat = viWrite(sesn, "READ?" & vbLf, 6, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3500
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Sleep (3000) ' wait for math processing
Rem fetch the measure data
stat = viRead(sesn, readin, 128, ret)
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "M3500 multimeter
device test"
stat = viClose(fList)
Exit Sub
End If
Rem set to local mode
stat = viWrite(sesn, "system:local", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (system:local)", vbExclamation,
"M3500 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
stat = viClose(sesn)
stat = viClose(fList)
stat = viClose(dfltRM)
For i = 0 To (5 - 1) ' print out the 4 times samples reading
Debug.Print "Rdgs = "; Mid(readin, i * 16 + 1, 15)
Next
193
Содержание 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...