Rem send reset command '*RST' -- reset M3500
stat = viWrite(sesn, "*RST", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*RST)", vbExclamation, "M3500
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear M3500 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "M3500
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- 50 ohm reference resistance
stat = viWrite(sesn, "CALC:DBM:REF 50", 15, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3500
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Set kM3500 to 1 amp ac range
stat = viWrite(sesn, "CONF:VOLT:AC 1,0.001", 20, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3500
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Select 200 Hz (fast) ac filter
stat = viWrite(sesn, "DET:BAND 200", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3500
191
Содержание 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...