Picotest M3500A User Manual page 182

Exit Sub
End If
Rem send command -- Set kM3500 to 1 amp ac range
stat = viWrite(sesn, "CONF:VOLT:AC 1,0.001", 20, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System
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
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- kM3500 will accept 5 triggers
stat = viWrite(sesn, "SAMP:COUN 5", 11, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System
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
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
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
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
multimeter device test"
stat = viClose(fList)
Exit Sub
End If
command error.",
command error.",
command error.",
command error.",
command error.",
command error.",
command error.",
182 182
182 182
vbExclamation,
vbExclamation,
vbExclamation,
vbExclamation,
vbExclamation,
vbExclamation,
vbExclamation,
"M3500
"M3500
"M3500
"M3500
"M3500
"M3500
"M3500