'Example program to demonstrate changing function and range,
'taking readings on various functions
'For QuickBASIC 4.5 and CEC PC488 interface card
'Edit the following line to where the QuickBASIC
'libraries are on your computer
'$INCLUDE: 'c:\qb45\ieeeqb.bi'
'Initialize the CEC interface as address 21
CALL initialize(21, 0)
'Reset the SENSe1 subsystem settings, along with the trigger
'model, each READ? will cause one trigger
CALL SEND(16, "*rst", status%)
'Set range for each function to measure
CALL SEND(16, "volt:dc:rang .1", status%)
CALL SEND(16, "volt:ac:rang 20", status%)
CALL SEND(16, "res:rang 10e3", status%)
'Switch to DC volts and take reading
CALL SEND(16, "func 'volt:dc';:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
'Switch to AC volts and take reading
CALL SEND(16, "func 'volt:ac';:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
'Switch to 2-wire ohms and take reading
CALL SEND(16, "func 'res';:read?", status%)
reading$ = SPACE$(80)
CALL ENTER(reading$, length%, 16, status%)
PRINT reading$
IEEE-488 Bus Operation
3-19
Содержание 2002
Страница 1: ...Model 2002Multimeter Getting Started Manual A G R E A T E R M E A S U R E O F C O N F I D E N C E...
Страница 8: ...1 FrontPanel Operation...
Страница 25: ...1 18 Front Panel Operation...
Страница 26: ...2 Measurement Options...
Страница 55: ...3 IEEE 488Bus Operation...
Страница 84: ...4 Specsand Accessories...