this is part of a pretty large program.
the code for the alias'
SCLK var PortC.0
ColPump var PortC.1
RadPump var PortC.2
RadFlowInput var PortC.4
ColFlowInput var PortC.5
SerRecieve var PortC.6
SerTransmit var PortC.7
this is the code to read pulse width:
gosub checksw
if colflocal > 0 then 'if have a calibration number, read the collector sensor
pulsin colflowinput,0,colflo
colfloacc = colfloacc + colflo
endif
gosub checksw
if radflocal > 0 then 'if have a calibration number, read the radiant heat sensor
pulsin radflowinput,0,radflo
radfloacc = radfloacc + radflo
endif
gosub checksw
i am averageing over 10 scans then writing the colflowacc and radfloacc to an lcd
don't stay up too late.
RD
Bookmarks