![Picotest M3510A Скачать руководство пользователя страница 146](http://html1.mh-extra.com/html/picotest/m3510a/m3510a_user-manual_1555486146.webp)
146
146
146
146
MsgBox "System command error. (*RST)", vbExclamation, "M3510
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear M3510 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "M3510
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send measure command -- Set to 0.1 volt dc range
stat = viWrite(sesn, "meas:volt:DC? 0.1,0.01", 22, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (meas:volt:dc? ...)", vbExclamation,
"M3510 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem fetch the measure data
stat = viRead(sesn, readin, 64, ret)
If (stat < VI_SUCCESS) Then
MsgBox "Read in data error.", vbExclamation, "M3510 multimeter device
test"
stat = viClose(fList)
Exit Sub
End If
Debug.Print "Rdg = "; readin
Rem set to local mode
stat = viWrite(sesn, "system:local", 12, ret)
If (stat < VI_SUCCESS) Then