Agilent Technologies E1465A Automobile Parts User Manual


 
92 Register-Based Programming Appendix B
Example: Making
Measurements
(BASIC)
This BASIC programming example closes bit 1 on bank 0, waits for a
measurement to be made, and then opens the channel. You must insert
your own programming code for the measurement part of this program. For
example, if you are using the E1411B, see the E1326B/E1411B Multimeter
User's Manual for programming examples.
10 !***************************************************
20 !***** MAKEMEAS *****
30 !***************************************************
40 OPTION BASE 1
50 !
Set up arrays to store register names and addresses
60 DIM Reg_name$(1:1)[32], Reg_addr(1:1)
70 !
80 !
Read register names and address into the arrays
90 READ Reg_name$(*)
100 READ Reg_addr(*)
110 !
120 !
Set base address variable
130 Base_addr = DVAL("DE00",16)
140 !
150 !
Map the A16 address space in the controller
160 CONTROL 16,25;2
170 !
Call the subprogram Make_meas
180 Make_meas(Base_addr, Reg_addr(*))
190 !
200 DATA Bank0 channels register
210 DATA 06
220 END
.
.
.
280 !
This subprogram closes bit 1 of bank0 channels, waits for the
290 !
channel to be closed, makes a measurement, and then opens
300 !
the relay
.
310 SUB Make_meas(Base_addr, Reg_addr(*))
320 !
330 WRITEIO -16, Base_addr + Reg_addr(1); 1
340 REPEAT
350 UNTIL BIT(READIO(-16,Base_addr+4),7)
.
.!
Make Measurements
.
380 WRITEIO -16, Base_addr + Reg_addr(1);0
390 SUBEND