Control de una Cisterna para llenado de un tanque

[navaismo]

Hola amigos resulta que ya me fastidie de ir a prender el switch de la bomba que sube agua a mi tinaco y la verdad se me hacen muy caros los sistemas que venden por aqui asi que pense, ¿porque no hacer uno yo? Y pues me puse un ratito a hacerlo. Al principio lo intente con el select case pero la verdad me hice bolas yo mismo, asi que opte por IF's y la cosa quedo asi. Haber si a alguien le sirve dejo el codigo fuente y el esquematico de proteus claro.

El sch de verdad variara segun la bomba de cada quien la potencia y lo que les guste usar.

Código: DOS

1. '****************************************************************
2. '*  Name    : cisterna.pbp                                      *
3. '*  Author  : Max E. Reyes Vera Juarez                          *
4. '*  Notice  : Copyright (c) 2005 Todos los Derechos Reservados  *
5. '*          : licencia GPL                                      *
6. '*  Date    : 27/09/2006                                        *
7. '*  Version : BETA 0.1                                          *
8. '*  Notes   :                                                   *
9. '*          :                                                   *
10. '****************************************************************
11. TRISA=31
12. TRISB=1
13.  
14. TALTO   VAR PORTA.0        'ENTRADAS DE NIVELES DE AGUA
15. TMEDIO  VAR PORTA.1            'TINACO Y CISTERNA
16. TBAJO   VAR PORTA.2
17. CALTO   VAR PORTA.3
18. CMEDIO  VAR PORTA.4
19. CBAJO   VAR PORTB.0
20.  
21. TLEDA   VAR PORTB.1        'SALIDAS INDICADORAS DE NIVEL DE AGUA
22. TLEDM   VAR PORTB.2                'TINACO Y CISATERNA
23. TLEDB   VAR PORTB.3
24. CLEDA   VAR PORTB.4
25. CLEDM   VAR PORTB.5
26. CLEDB   VAR PORTB.6
27. BOMBA   VAR PORTB.7         ' SALIDA ENCENDIDO DE LA BOMBA
28.  
29. MAIN:
30.    
31. IF TALTO=0 THEN
32.  LOW  BOMBA
33.  HIGH TLEDA
34.  HIGH TLEDM
35.  HIGH TLEDB
36. ENDIF
37.  
38. IF TALTO=1 AND TMEDIO=0 THEN
39.  LOW  TLEDA
40.  HIGH TLEDM
41.  HIGH TLEDB
42. ENDIF
43.  
44. IF TMEDIO=1 AND TBAJO=0 THEN
45.  LOW  TLEDA
46.  LOW  TLEDM
47.  HIGH TLEDB
48. ENDIF
49.  
50. IF TBAJO=1 AND CALTO=0 THEN
51.  HIGH BOMBA
52.  LOW  TLEDA
53.  LOW  TLEDM
54.  LOW  TLEDB
55. ENDIF
56.  
57. IF CALTO=0 THEN
58.  HIGH CLEDA
59.  HIGH CLEDM
60.  HIGH CLEDB
61. ENDIF
62.  
63. IF CALTO=1 AND CMEDIO=0 THEN
64.  LOW  CLEDA
65.  HIGH CLEDM
66.  HIGH CLEDB
67. ENDIF
68.  
69. IF CMEDIO=1 AND CBAJO=0 THEN
70.  LOW  CLEDA
71.  LOW  CLEDM
72.  HIGH CLEDB
73. ENDIF
74.  
75. IF CBAJO=1 THEN
76.  LOW  CLEDB
77.  LOW  BOMBA
78. ENDIF
79.  
80. IF CBAJO=1 AND TBAJO=0 THEN
81.  LOW  CLEDA
82.  LOW  CLEDM
83.  LOW  CLEDB
84.  LOW  BOMBA
85.  HIGH TLEDB
86.  LOW  TLEDM
87.  LOW  TLEDA
88. ENDIF
89.  
90. IF CBAJO=1 AND TMEDIO=0 THEN
91.  LOW  CLEDA
92.  LOW  CLEDM
93.  LOW  CLEDB
94.  LOW  BOMBA
95.  HIGH TLEDB
96.  HIGH TLEDM
97.  LOW  TLEDA
98. ENDIF
99.  
100. IF CBAJO=1 AND TALTO=0 THEN
101.  LOW  CLEDA
102.  LOW  CLEDM
103.  LOW  CLEDB
104.  LOW  BOMBA
105.  HIGH TLEDB
106.  HIGH TLEDM
107.  HIGH TLEDA
108. ENDIF
109.  
110. GOTO MAIN

Los switches que son los que van dentro del tinaco y la cisterna yo los hice usando reedswitch y pedacitos de un iman que pertenecio a un horno de microondas. pegue el pedacito de iman a una base de unicel para que flotara y el reed switch lo meti en un salero de plastico, el reed switch lo forre de termofit y al salero le hice hoyos para que el iman flote dentro del salero y asi active o desactive el swtich. y como mando 15 volts pues bajamos a 5 para que el pic no se dañe.

Se que el codigo no esta muy optimizado pero me sirve, solo la monto y veo que tal jala todo.

Saludos

[coronado88]

hola muy buena idea una pregunta los comando están hecho en lenguaje CCS C o en mikrobac espero saber es que soy algono novato y estoy aprendiendo   

[Micom]

La idea de los sensores con red swichs y los saleros me gusto osea que cada sensor es independiente y solo se activan cuando se llenan de agua cada uno. Saludos