
136
stat = viWrite(sesn, "*RST", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*RST)", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear DL-2060 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "DL-2060 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, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Set kDL-2060 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, "DL-2060 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, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- kDL-2060 will accept 5 triggers
stat = viWrite(sesn, "SAMP:COUN 5", 11, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Trigger source is IMMediate
stat = viWrite(sesn, "TRIG:SOUR IMM", 13, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Select dBm function
stat = viWrite(sesn, "CALC:FUNC DBM", 13, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Enable math
stat = viWrite(sesn, "CALC:STAT ON", 12, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "DL-2060 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Take readings
stat = viWrite(sesn, "READ?" & vbLf, 6, ret)
Содержание DL-2060
Страница 1: ...B71 0110 41 INSTRUCTION MANUAL 6 1 2 DIGITAL MULTIMETER DL 2060 DL 2060G DL 2060VG DL 2060R DL 2060VR...
Страница 37: ...31 Figure 3 17 1 2 3 5 5 4...
Страница 135: ...129 C Tree Diagram Please refer to G Notice of Scanner Card if your firmware version is 1 05 or upward...
Страница 136: ...130...
Страница 137: ...131...
Страница 138: ...132 D DL 2060 s Dimension...
Страница 152: ...7F Towa Fudosan Shin Yokohama Bild 2 18 13 Shin Yokohama Kohoku ku Yokohama Kanagawa 222 0033 Japan http www texio co jp...