REM REM Program Name 2000SCAN.BAS REM Description REM This program controls the Model 2000 with the Model 2000 SCAN card. REM It is a scan of ten channels at a rate of one channel per second. REM Equipment REM 1. Model 2000 DMM REM 2. Model 2000 SCAN card REM 3. Microsoft QuickBasic 4.5 REM 4. 80486-66MHz computer REM 5. KPC-488.2AT GPIB interface ' $INCLUDE: 'C:\CEC\IEEEQB.BI' 'Include library CALL initialize(21, 0) 'System controller CLS 'Clear screen CALL send(16, "*RST", gpib.status%) 'Clear Model 2000 CALL send(16, ":INIT:CONT OFF;:ABORT", gpib.status%) 'Init off CALL send(16, ":TRIG:COUN 10", gpib.status%) 'Trigger count = 10 CALL send(16, ":TRIG:SOUR TIM", gpib.status%) 'Trig source timer CALL send(16, ":TRIG:TIM 1", gpib.status%) 'One second CALL send(16, ":SAMP:COUN 1", gpib.status%) 'Sample count = 1 CALL send(16, ":SENS:FUNC 'VOLT:DC'", gpib.status%) 'Set to DCV CALL send(16, ":ROUT:SCAN (@1:10)", gpib.status%) 'Scan 10 channels CALL send(16, ":ROUT:SCAN:LSEL INT", gpib.status%) 'Internal scan CALL send(16, ":INIT", gpib.status%) 'Start scan END