149
149
149
149
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3510
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Set kM3510 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, "M3510
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, "M3510
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- kM3510 will accept 5 triggers
stat = viWrite(sesn, "SAMP:COUN 5", 11, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3510
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, "M3510
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, "M3510
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, "M3510
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Take readings
stat = viWrite(sesn, "READ?" & vbLf, 6, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "M3510
multimeter device test"
Содержание M3500
Страница 6: ......
Страница 10: ......
Страница 12: ...w a r ...
Страница 13: ......
Страница 14: ......
Страница 16: ......
Страница 29: ......
Страница 37: ......
Страница 41: ......
Страница 42: ...In Short Condition ...
Страница 43: ......
Страница 44: ......
Страница 109: ...104 104 104 104 651 Panel Program Checksum Error The checksum from the panel is incorrect ...
Страница 110: ...K U S A M ME C O ...
Страница 148: ...K U S A M M E C O K U S A M M E C O ...
Страница 155: ...K U S A M M E C O ...
Страница 163: ...158 158 158 158 m_nCount 0 m_defaultRM_usbtmc 0 FreeLibrary hUSBTMCLIB hUSBTMCLIB NULL return ...
Страница 164: ......