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
Summary of Contents for 2002
Page 123: ...Front Panel Operation 2 106...
Page 145: ...IEEE 488 Reference 3 22...
Page 167: ...IEEE 488 Reference 3 44...
Page 284: ...A Specifications A 1...
Page 362: ......
Page 364: ...This page left blank intentionally...
Page 365: ......