' }.
' }. |
' | ^
' /\ / \
' \\\\\\ / \ / .[ \
' (-O-O-) / - \ / .; \
' \(-)/ / \ /=----- "\
"*---------00o0--W----0o00-------* / ] \ ^ | / \ |
'@ project name:PUMP OUTPUT @ / . |__ \ / \ | | | |
'@ programed by : HATEM RAYA @ / __ ' \ / \ _| | | |_
'@ DATE : 200-5-5 @ /J^..| | 4_|_||\ |= | <<==-=-=-=-===>>
'@ COUNTRY LEBANON @ / . [ ,. \ |[ ]| \___ ___ _/ help??
'@ PHONE : 03884745 @ /::::::::::::::::: \_;__|__ | | p
'@ EMAIL: HATEMRAYA@HOTMAIL.COM @ ({{{{{{{{{{ }}}}}}}}})=-=-=-> | # [] | /|\
'@ VOLTS = 5 DC @ | ] ^ [ | .|/ | | /\
'@ @ | / \ l | | |[*] | |
'@ @ | ' / \ _ | ; | | ; |
'@ @ | , / \ _ |. | | __ |
'@ @ | __ / \ _| []| | - |
'@ @ | ;( ) | | | |- |
'@ @ |00000|~~~~~~~|00000| - | | _ |
'@ @ | -- | | | |---|;\ | __ |
'@ @ | | {|} |. | -__ \ | ' |
'@ @ | . | | |. | _-_ -- -\ | __ |
'@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@---|_____|___|___|_____|____--- ___/ .... \____
------------------------------------------------------------------------------
'i used this circuit to moniter the kilograms per minet out put of a chemical pump
' and report the out put to lcd note you cane use scot edwards lcd 50$ by using
'the proper serout comands
'the senser element to this project is proximity senser when IT sense a notch on the
' pump axel ThE output = 0, AND IF THIER IS A METEL THE OUT PUT = 1
'FOR MORE ACURET READING I INSTOLD A GEAR WITH 20 TEETH AT THE MOTOR VENTILATION AXEL
'YOU MUST USE AN 10K RESITOR AT THE STAMP INPUT BECOUSE THE PROXIMTY SENSER OUTPUT
'VOLTS= 24V
'THE STAMP AND THE PROXIMTY MUST USE THE SAME POWER SORCE
'NOT IF YOU WANT TO MONITER FASTER SPEED YOU NEED HOLL EFECT SWITCH FRAM DIGIKEY
DIRS=48
POLYOL_1 VAR WORD
POLYOL_2 VAR WORD
POLYOL_3 VAR WORD
A CON 0 'peter anderson serial lcd 9.99 $
B CON 396+$4000
C CON 10
DO CON $FE
CL CON $01
L1 CON $80
L2 CON $80 + $40
CHECK:
HIGH 5 : LOW 6 'just to show the hart beating of the prosesor
PAUSE 100
LOW 5 :HIGH 6
PAUSE 100
POLYOL: COUNT 1,1000,POLYOL_1
POLYOL_2 = POLYOL_1 * 10 ' prosesing the counting into kilograms
POLYOL_3 = POLYOL_1 * 126
serout a,b,c,[DO,CL]
SEROUT A,B,c,[DO,L1, DEC POLYOL_2," MOTO,RPM "] 'raw counting
SEROUT A,B,C,[DO,L2, DEC POLYOL_3," POLYOL.K"] ' polyol in kilo minet
GOTO CHECK
'STAMP PIN1 _________/\/\/\____ ___________________ PROXIMTY SENSER . MOTER AXEKL
' 10 K < |_________|
' >
' 10K <
' >
' -------
' -----
' --- GROUND
'
'
'FOR NO FLOTING POINT HASELS YOU CANE USE ANATHIER APROTCH FOR DISIDING THE OUT PUT
'LET US SAY THE PUMP OUT PUT IS 65.9 KILO A MINET YOU USE
' COUNT 1,659,POLYOL_1