135
Rem send command -- Take readings
stat = viWrite(sesn, "READ?" & vbLf, 6, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DL-1060 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, "DL-1060 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, "DL-1060 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
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...