rele alternador de bomba 4 sensores 4 motores

[firepic]

Si tienes razón, faltó el pulsador de programa... el más importante   
Las R de 100ohms son una protección a las entradas del pic, pero creo que más bien es sobreprotección   
No son indispensables...
Ok en lo que tenga tiempo reviso el código... nos leemos! 

[16f]

ACTUALIZACION DEL PROGRAMA   esta funcionando pero los motores quedan en estado de intermitencia

 

Código: [Seleccionar]

DEVICE 16F628A
  XTAL 20
  TRISB = 0
  TRISA = 255
 
  CMCON = 7
  CONT VAR BYTE
  conta var BYTE
 
    SYMBOL led1 = PORTB.0    'M1
    SYMBOL led2 = PORTB.1    'M2
    SYMBOL led3 = PORTB.2    'M3
    SYMBOL led4 = PORTB.3    'M4
    SYMBOL led5 = PORTB.4    ' pendiente
    SYMBOL led6 = PORTB.5    ' PRO3
    SYMBOL led7 = PORTB.6    ' PRO2
    SYMBOL led8 = PORTB.7    ' PRO1
   
  SYMBOL sw1 = PORTA.0        'sen1
  SYMBOL sw2 = PORTA.1         'sen2
  SYMBOL sw3 = PORTA.2          'sen3
  SYMBOL sw4 = PORTA.3           'sen4
  SYMBOL sw5 = PORTA.6            'test
  SYMBOL SW6 = PORTA.7             'programa
  CONT = 0
  CONTA = 0
 
  PORTB = 0
  DELAYMS 20
  ''''''''''''''''''''''''''''''''''''''''''logica de activacion  = 1
 ''''''''''''''''''''''''''''''''''''''''''TESTEO DE BOMBA
   ini:
   
   IF PORTA.6 =1 THEN
    DELAYMS 500
    cont = cont + 1
    GOTO TES
    ENDIF
    GOTO pro
   
 pro:  IF PORTA.7 = 1 THEN
    DELAYMS 500
    conta =  conta + 1
     ENDIF
     GOTO PRU
TES:   
  IF CONT = 0 THEN ini
  IF CONT = 1 THEN M1
  IF CONT = 2 THEN M2
  IF CONT = 3 THEN M3
  IF CONT = 4 THEN M4
  IF CONT = 5 THEN M8
  GOTO ini
 '''''''''''''''''''''''''''''''''''''''''SELECCION PROGRAMA PRO1, PRO2 O PRO3   
PRU:
  IF CONTA = 0 THEN ini
  IF CONTA = 1 THEN pro1
  IF CONTA = 2 THEN PRO2
  IF CONTA = 3 THEN PRO3
  IF CONTA = 4 THEN M8
   
  GOTO ini
 
'''''''''''''''''''''''''''''''''''''''''''PRO1   M1 Y M2
pro1:     
          PORTB.7=1
          DELAYMS 200
          IF sw1=1 THEN
          DELAYMS 100
          WHILE sw1=1
      HIGH led1
          WEND
          ELSE
          GOTO ini
          ENDIF
      LOW led1
evalua: IF sw1=1 THEN
          DELAYMS 100
          WHILE sw1=1
     HIGH led2
          WEND
          ELSE
          GOTO evalua
          ENDIF
     LOW led2
     GOTO ini

 
''''''''''''''''''''''''''''''''''''''''''''PRO2  M1 M2 Y M3    8 COMBINACIONES
 
  PRO2:
   PORTB.7= 0
  PORTB.6= 1
  DELAYMS 500
 
  IF sw1 = 0 AND sw2 = 0 AND sw4 = 0 THEN ini
  IF sw1 = 1 AND sw2 = 0 AND sw4 = 0 THEN M1
  IF sw1 = 0 AND sw2 = 1 AND sw4 = 0 THEN M2
  IF sw1 = 0 AND sw2 = 0 AND sw4 = 1 THEN M4
  IF sw1 = 1 AND sw2 = 1 AND sw4 = 0 THEN M1M2
  IF sw1 = 0 AND sw2 = 1 AND sw4 = 1 THEN M2M4
  IF sw1 = 1 AND sw2 = 0 AND sw4 = 1 THEN M1M4
  IF sw1 = 1 AND sw2 = 1 AND sw4 = 1 THEN MX
  GOTO ini
'''''''''''''''''''''''''''''''''''''''''' PRO3  M1 M2 M3 Y M4   16 COMBINACIONES
  PRO3:
  PORTB.6= 0
  PORTB.5=1
  DELAYMS 500
  IF sw1 = 0 AND sw2 = 0 AND sw3 = 0 AND sw4 = 0 THEN ini
  IF sw1 = 1 AND sw2 = 0 AND sw3 = 0 AND sw4 = 0 THEN M1
  IF sw1 = 0 AND sw2 = 1 AND sw3 = 0 AND sw4 = 0 THEN M2
  IF sw1 = 0 AND sw2 = 0 AND sw3 = 1 AND sw4 = 0 THEN M3
  IF sw1 = 0 AND sw2 = 0 AND sw3 = 0 AND sw4 = 1 THEN M4
  IF sw1 = 0 AND sw2 = 0 AND sw3 = 1 AND sw4 = 1 THEN M3M4
  IF sw1 = 1 AND sw2 = 1 AND sw3 = 0 AND sw4 = 0 THEN M1M2
  IF sw1 = 1 AND sw2 = 0 AND sw3 = 1 AND sw4 = 0 THEN M1M3
  IF sw1 = 1 AND sw2 = 0 AND sw3 = 0 AND sw4 = 1 THEN M1M4
  IF sw1 = 0 AND sw2 = 1 AND sw3 = 1 AND sw4 = 0 THEN M2M3
  IF sw1 = 0 AND sw2 = 1 AND sw3 = 0 AND sw4 = 1 THEN M2M4
  IF sw1 = 1 AND sw2 = 1 AND sw3 = 0 AND sw4 = 1 THEN M1M2M4
  IF sw1 = 1 AND sw2 = 1 AND sw3 = 1 AND sw4 = 0 THEN M1M2M3
  IF sw1 = 1 AND sw2 = 0 AND sw3 = 1 AND sw4 = 1 THEN M1M3M4
  IF sw1 = 0 AND sw2 = 1 AND sw3 = 1 AND sw4 = 1 THEN M2M3M4
  IF sw1 = 1 AND sw2 = 1 AND sw3 = 1 AND sw4 = 1 THEN MX
   GOTO ini
''''''''''''''''''''''''''''''CONTADOR EN 0 '''''''''' 
 M8:
  DELAYMS 200
  CONTA = 0
  CONT  = 0
  GOTO ini
 
 
     
'''''''''''''''''''''''''''''ACTIVACION DE  MOTORES DE M1 A M4 Y COMBINACIONES
 
  M1:
  DELAYMS 200
  PORTB.0 = 1
  DELAYMS 1000
  GOTO ini
 
   M2:
  DELAYMS 200
  PORTB.1 = 1
  DELAYMS 1000
  GOTO ini
 
   M3:
 DELAYMS  200
 PORTB.2 = 1
 DELAYMS 1000
  GOTO ini
 
   M4:
  CONT = 0
  DELAYMS  200
  PORTB.3 = 1
  DELAYMS 1000
  GOTO ini
'''''''''''''''''''''''''''''''''''''''''combinaciones 
  M1M4:
  PORTB.0 =1
  DELAYMS 700
  PORTB.3 = 1
  DELAYMS 700
  GOTO ini
 
  M1M2:
  PORTB.0=1
  DELAYMS 700
  PORTB.1=1
  DELAYMS 700
  GOTO ini
 
  M1M3:
  PORTB.0=1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  GOTO ini
 
  M2M4:
  PORTB.1=1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini
 
  M2M3:
  PORTB.1=1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  GOTO ini
 
  M3M4:
  PORTB.2=1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini
 
  M1M2M3:
  PORTB.0=1
  DELAYMS 700
  PORTB.1= 1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  GOTO ini
 
  M1M3M4:
  PORTB.0=1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini
 
  M1M2M4:
  PORTB.0=1
  DELAYMS 700
  PORTB.1= 1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini
 
  M2M3M4:
  PORTB.1=1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini
 
   MX:
  PORTB.0=1
  DELAYMS 700
  PORTB.1= 1
  DELAYMS 700
  PORTB.2= 1
  DELAYMS 700
  PORTB.3= 1
  DELAYMS 700
  GOTO ini

[firepic]

Saludos! 
Hoy estuve ocupado haciendo diligencias viejo, no pude ponerme con tu código...   
Pero cuando veo las exigencias de tu programa me acuerdo de las razones por las cuales migré a C 
Es mucho más fácil hacer ese tipo de cosas. 
Pero aún así no es imposible hacerlo con Basic.
Mañana en lo que pueda le doy...
Ok nos leemos! 

[16f]

no hay problem amigo , pero de apoco esta saliendo. ya me salio la secuencia del pro2  luego publico

utilice la secuencia  del primer programa para cada sensor , lo malo es que tiene que terminar la secuencia , para que pueda tomar otro sensor.

[firepic]

Saludos 16f! Estuve trabajando en tu código pero está difícil la cosa   
Ya tengo tiempo trabajando con C y he perdido un poco la experiencia con basic... me he acostumbrado ya a las ventajas del C...
Ojalá los expertos y moderadores de este subforo de basic puedan darte una mejor ayuda...
Por lo menos te ayude con la primera parte, algo es algo... 
Si tengo chance trataré de hacer algo pero no te garantizo nada... no es fácil hacer lo que tú quieres sin usar interrupciones... 
Ok te deseo éxito, nos leemos! 

[16f]

hola amigo, gracias por el apoyo ,  yo tambien he intentado dar vida pero no pasa.

en todo caso no me molesta si sale algo en codigo C.

hice otro hilo para gestionar  motores atravez de un rtc ,  alomejor eso es viable.

gracias amigo por dedicar de tu tiempo.......

[firepic]

Ok en C me animo más... 
En lo que tenga un tiempito me pongo con eso...
Nos leemos!