132
MsgBox "Open device failed.", vbExclamation, "DL-1060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send reset command '*RST' -- reset DL-1060
stat = viWrite(sesn, "*RST", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*RST)", vbExclamation, "DL-1060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear DL-1060 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "DL-1060 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, "DL-1060 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, "DL-1060 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
MsgBox "System command error. (system:local)", vbExclamation, "DL-1060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
stat = viClose(sesn)
stat = viClose(fList)
stat = viClose(dfltRM)
MsgBox "End of Job."
End Sub
Содержание DL-1060
Страница 1: ...INSTRUCTION MANUAL 6 1 2 DIGITAL MULTIMETER DL 1060 DL 1060G DL 1060VG DL 1060R DL 1060VR B71 0180 31...
Страница 91: ...85 3 4 10 Self test Notice Do not use SELF TEST since it is used only for an after sales service operation...
Страница 146: ...7F Towa Fudosan Shin Yokohama Bild 2 18 13 Shin Yokohama Kohoku ku Yokohama Kanagawa 222 0033 Japan http www texio co jp...