Keithley 2002

Example Programs
G-15
Program (scan2001.bas)
FOR x = 1 TO 5
T1 = TIMER
CALL send(16, ":rout:clos (@5)", gpib.status%) ' Close channel 5
CALL transmit("UNL UNT LISTEN 16 GET", gpib.status%)
' Trigger a measurement
CALL send(16, "fetch?", gpib.status%) ' Fetch reading
CALL enter(k2002data$, gpib.len%, 16, gpib.status%)
PRINT "DCV="; k2002data$ ' Display reading
T2 = TIMER
T3 = T2 - T1
PRINT "It took "; T3; " seconds"
CALL send(16, ":rout:clos (@10)", gpib.status%)
' Close channel 10
CALL transmit("UNL UNT LISTEN 16 GET", gpib.status%)
' Trigger a measurement
CALL send(16, "fetch?", gpib.status%) ' Fetch reading
CALL enter(k2002data$, gpib.len%, 16, gpib.status%)
PRINT "DCV="; k2002data$= ' Display reading
T2 = TIMER
T3 = T2 - T1
PRINT "It took "; T3; " seconds" ' Display time it took to take
' reading
NEXT x
END