![background image](http://html1.mh-extra.com/html/keithley/2002/2002_user-manual_3972071332.webp)
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
Содержание 2002
Страница 123: ...Front Panel Operation 2 106...
Страница 145: ...IEEE 488 Reference 3 22...
Страница 167: ...IEEE 488 Reference 3 44...
Страница 284: ...A Specifications A 1...
Страница 362: ......
Страница 364: ...This page left blank intentionally...
Страница 365: ......