HP 8153A - Page 191

Example 2
10
Example 2
For this program to work, you need a sensor module in channel A.
Function
This program reads in values from the HP 8153A, and counts the number that
are read twice in succession.
Listing
10
20
30
40
50
60
65
70
80
90
95
100
110
120
130
140
150
160
170
175
180
INTEGER Dcoxmt
REAL Valuel,Value2
Dcount=0
Va;Luel=-1000
Pmra=722
CLEAR SCREEN
I
OUTPUT Pnim;"*sre 0:*ese 0"
OUTPUT Pmm:''*cls''
OUTPUT Pmm;"sensl:pow:unit w;rang:auto on"
!
LOOP
OUTPUT Pinra;"readl:pow?''
ENTER Pmm;Value2
IF Value2=Valuel THEN Dcount=Dcount+l
Valuel=Value2
PRINT TABXYCIO,10) ;"Measureraent Value : ";Value2
PRINT TABXYdO.ll) ;"Double Read Values : ";Dcount
END LOOP
I
END
Description
Line No.
10 to 60 Declarations and initializations.
70 Disable common status interrupts.
80 Clear the status
00 Set the sensor units to Watts and make sure that automatic
ranging is in operation. Note the use of the semicolon so that
we do not need to repeat the sensl :pow part of the command.
Remote Operation ■ Programming Examples 10-3