Instructions

Strona 168 z 185
Dystrybucja Conrad Electronic Sp. z o.o., ul. Kniaźnina 12, 31-637 Kraków, Polska
Copyright © Conrad Electronic 2012, Kopiowanie, rozpowszechnianie, zmiany bez zgody zabronione.
www.conrad.pl
www.conrad.pl
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "2100 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, "2100 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- k2100 will accept 5 triggers
stat = viWrite(sesn, "SAMP:COUN 5", 11, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error.", vbExclamation, "2100 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, "2100 multimeter device test"
stat = viClose(fList)
Exit Sub