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.
'****************************************************************
'* Name : cisterna.pbp *
'* Author : Max E. Reyes Vera Juarez *
'* Notice : Copyright (c) 2005 Todos los Derechos Reservados *
'* : licencia GPL *
'* Date : 27/09/2006 *
'* Version : BETA 0.1 *
'* Notes : *
'* : *
'****************************************************************
TRISA=31
TRISB=1
TALTO VAR PORTA.0 'ENTRADAS DE NIVELES DE AGUA
TMEDIO VAR PORTA.1 'TINACO Y CISTERNA
TBAJO VAR PORTA.2
CALTO VAR PORTA.3
CMEDIO VAR PORTA.4
CBAJO VAR PORTB.0
TLEDA VAR PORTB.1 'SALIDAS INDICADORAS DE NIVEL DE AGUA
TLEDM VAR PORTB.2 'TINACO Y CISATERNA
TLEDB VAR PORTB.3
CLEDA VAR PORTB.4
CLEDM VAR PORTB.5
CLEDB VAR PORTB.6
BOMBA VAR PORTB.7 ' SALIDA ENCENDIDO DE LA BOMBA
MAIN:
LOW BOMBA
HIGH TLEDA
HIGH TLEDM
HIGH TLEDB
ENDIF
IF TALTO=1 AND TMEDIO=0 THEN
LOW TLEDA
HIGH TLEDM
HIGH TLEDB
ENDIF
IF TMEDIO=1 AND TBAJO=0 THEN
LOW TLEDA
LOW TLEDM
HIGH TLEDB
ENDIF
IF TBAJO=1 AND CALTO=0 THEN
HIGH BOMBA
LOW TLEDA
LOW TLEDM
LOW TLEDB
ENDIF
HIGH CLEDA
HIGH CLEDM
HIGH CLEDB
ENDIF
IF CALTO=1 AND CMEDIO=0 THEN
LOW CLEDA
HIGH CLEDM
HIGH CLEDB
ENDIF
IF CMEDIO=1 AND CBAJO=0 THEN
LOW CLEDA
LOW CLEDM
HIGH CLEDB
ENDIF
LOW CLEDB
LOW BOMBA
ENDIF
IF CBAJO=1 AND TBAJO=0 THEN
LOW CLEDA
LOW CLEDM
LOW CLEDB
LOW BOMBA
HIGH TLEDB
LOW TLEDM
LOW TLEDA
ENDIF
IF CBAJO=1 AND TMEDIO=0 THEN
LOW CLEDA
LOW CLEDM
LOW CLEDB
LOW BOMBA
HIGH TLEDB
HIGH TLEDM
LOW TLEDA
ENDIF
IF CBAJO=1 AND TALTO=0 THEN
LOW CLEDA
LOW CLEDM
LOW CLEDB
LOW BOMBA
HIGH TLEDB
HIGH TLEDM
HIGH TLEDA
ENDIF
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