HP 8153A - Page 193

Example 3
10
Example 3
For this program to work, you need a sensor module in channel A.
Function
This program reads in values from the HP 8163A, and counts the number that
are read twice in succession. The difference between this and the program
given in example 2, is that this program uses a command that needs a separate
triggering command.
Listing
10 INTEGER Dcount, Vcount
20 REAL Valuel,Value2
30 Dco\mt=0
40 Vcount=0
50 Valuel=-1000
60 Pmin=722
70 CLEAR SCREEN
75 !
80 OirrPUT Pmm;"*sre 0;*ese 0"
90 OUTPUT Pinm;"*cls"
100 OUTPUT Pm!n;"sensl:pow:unit H;rang:auto on"
110 OUTPUT Pniin;"initl:cont on"
115 !
120 LOOP
130 OUTPUT Pmm;"fetchl;pow?"
140 ENTER Pmin;Value2
150 IF Value2=Valuel THEN Dcount=Dcount+l
160 Valuel=Value2
170 ' Vcount=Vcount+l
180 PRINT TABXYCIO,10) ^'Measurement Value : ";Value2
190 PRINT TABXYCIO,11);"Number Of Values : ";Vcount
200 PRINT TABXYCIO,ll);"Double Read Values : "jDcount
210 END LOOP
215 !
220 END
Remote Operation - Programming Examples 10-5