Instructions

Strona 167 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
Rem send reset command '*RST' -- reset 2100
stat = viWrite(sesn, "*RST", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*RST)", vbExclamation, "2100 multimeter device
test"
stat = viClose(fList)
Exit Sub
End If
Rem send Clear command '*CLS'-- Clear 2100 status register
stat = viWrite(sesn, "*CLS", 4, ret)
If (stat < VI_SUCCESS) Then
MsgBox "System command error. (*CLS)", vbExclamation, "2100 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, "2100 multimeter device test"
stat = viClose(fList)
Exit Sub
End If
Rem send command -- Set k2100 to 1 amp ac range
stat = viWrite(sesn, "CONF:VOLT:AC 1,0.001", 20, ret)