'************************************************************************* '** N7001CON.BAS ** '** ** '** Example program using the 7001 to switch a PC Board or wire ** '** harness to perform a continuity test. The 7001 will scan 16 ** '** channels across all possible 17 connections. The readings can ** '** be stored in any DMM with a data buffer. The readings can be ** '** returned to the host computer to check for a PASS/FAIL ** '** condition. The example uses the KPC-488.2AT GPIB card. ** '** ** '** Author: Jonathan L. Tucker ** '** Date: July 28, 1992 ** '** Copyright (c) Keithley Instruments, Inc. 1992 ** '************************************************************************* '$INCLUDE: 'ieeeqb.bi' CLS CALL initialize(21, 0) '*** Setup 7001 cmd$ = ":System:Preset" ' Perform System Reset CALL send(7, cmd$, status%) cmd$ = ":Configure:Slot1:Ctype C7056;Pole 1" ' Set for 7158, 1 pole CALL send(7, cmd$, status%) cmd$ = ":Configure:Slot2:Ctype C7056;Pole 1" ' Set for 7158, 1 pole CALL send(7, cmd$, status%) cmd$ = ":Open All" ' Open all relays CALL send(7, cmd$, status%) cmd$ = ":Arm:Source Immediate" ' Arm layer immediate trig. CALL send(7, cmd$, status%) cmd$ = ":Arm:Layer2:Source Immediate" ' Scan Layer Immediate trig. CALL send(7, cmd$, status%) cmd$ = ":Arm:Layer2:Count 1" ' Set for 1 scan CALL send(7, cmd$, status%) cmd$ = ":Trigger:Source Timer; Timer .75" ' Channel Layer Bus Trigger, ' set for timer of .75 seconds. CALL send(7, cmd$, status%) cmd$ = ":Trigger:Delay 0" ' 0 Millisecond delay CALL send(7, cmd$, status%) cmd$ = ":Clos (@1!1);:Mem:Sav M1;:Open All;" cmd$ = cmd$ + ":Clos (@1!2);:Mem:Sav M2;:Open All;" cmd$ = cmd$ + ":Clos (@1!3);:Mem:Sav M3;:Open All;" cmd$ = cmd$ + ":Clos (@1!4);:Mem:Sav M4;:Open All;" cmd$ = cmd$ + ":Clos (@1!5);:Mem:Sav M5;:Open All;" cmd$ = cmd$ + ":Clos (@1!6);:Mem:Sav M6;:Open All;" cmd$ = cmd$ + ":Clos (@1!7);:Mem:Sav M7;:Open All;:Mem:Sav M100" ' Set memory channels CALL send(7, cmd$, status%) cmd$ = ":Scan (@M1,2!2:2!7,M2,2!1,2!3:2!7,M3,2!1:2!2,2!4:2!7" cmd$ = cmd$ + ",M4,2!1:2!3,2!5:2!7,M5,2!1:2!4,2!6:2!7,M6,2!1:2!5" cmd$ = cmd$ + ",2!7,M100)" ' Set scan list CALL send(7, cmd$, status%) cmd$ = ":Initiate:Immediate" ' Take 7001 out of idle CALL send(7, cmd$, status%)