Example: This example performs the
Resistance Test
10! RE-STORE "CONTACT_RES"
20ASSIGN @Switch TO 70915
30ASSIGN @Dmm TO 722
40!
50OUTPUT @Switch;"*RST" !Open all NO contacts
60OUTPUT @Dmm;"PRESET NORM;TRIG HOLD"
70OUTPUT @Dmm;"FUNC OHMF"
80!
90
100DISP "Connect DMM to NO and C lines of E1364A
110PAUSE
120DISP
130PRINT "Contact Resistance
140PRINT
150!
160FOR I=0 TO 15
170
180OUTPUT @Switch;"CLOS (@"&VAL$(100+I)&")"
190OUTPUT @Dmm;"TRIG SGL"
200ENTER @Dmm;Rdg
210PRINT "Channel "&VAL$(I)&" (closed): "&VAL$(Rdg)
220!
230
240OUTPUT @Switch;"OPEN (@"&VAL$(100+I)&")"
250OUTPUT @Dmm;"TRIG SGL"
260ENTER @Dmm;Rdg
270PRINT "Channel "&VAL$(I)&" (open): "&VAL$(Rdg)
280PRINT
290NEXT I
300!
310
320DISP "Connect DMM to NC and C lines of E1364A
330PAUSE
340DISP
350PRINT "Contact Resistance
360PRINT
370!
Continued on Next Page
Chapter 2 | Verification Tests 25 |