Chief Delphi

Chief Delphi (http://www.chiefdelphi.com/forums/index.php)
-   Technical Discussion (http://www.chiefdelphi.com/forums/forumdisplay.php?f=22)
-   -   Working Pump Code (http://www.chiefdelphi.com/forums/showthread.php?t=2255)

Dan 550 02-02-2002 09:47

Working Pump Code
 
I need a working pump code, fast. Can anyone post a real working copy? Thanks in advance.

-Dan

jnossen 02-02-2002 11:30

'Place this in the main loop
gosub Comp_Switch:


'Place this below the main loop
Comp_Switch:

if rc_sw2 = 0 then low_pres: 'Compressor switch
comp_on = 0 'counter variable
relay1_fwd=1
relay1_rev=0
return



low_pres:
if(comp_on = comp_off) then compress_off: 'comp_off is set
'to 120. try other
'values to see which you like.
'Still not sure whcih value we'll use
relay1_fwd=1
relay1_rev=0
comp_on = comp_on + 1
return

compress_off: 'Deactivate Compressor
relay1_fwd=0
relay1_rev=0
return


Hope it helps. This assumes that you are going into digital inputs 2 and 6.


All times are GMT -5. The time now is 09:30.

Powered by vBulletin® Version 3.6.4
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Copyright © Chief Delphi