hacer funcionar 5 salidas comandadas por 5 pulsadores con una condicion

[janiro74]

llevo un buen rato con el programa y no doy pie con bola con el tema de las variables pero mi fallo ahora creo ke son las matematicas , no soy capaz de orientar un par de ecuaciones para encender solo dos leds a la vez.
creo que necesito un poco de norte!!!!!

[Strepto]

Leyendo un poco el asuntillo este que teneis por aqui, creo que lo que tendriais que hacer seria implementar un contador que te cuente los botones que tienes pulsados antes de volver a entrar al while y la condicion tendria que ser que sea o <=2 como teniais antes y mientras eso se cumpla que no vuelve a entrar al while por lo que no actua sobre el portb y conseguimos que este preguntando constantemente hasta que soltemos un pulsador y pueda vuolver entrar al while.

Esto se me ha ocurrido asi a botepronto, no se si dara resultado o no, mañana hare alguna prueba a ver que tal que hoy ya es un poco tarde.

Un saludo!

[janiro74]

muchas gracias a todos por el interes y por supuesto la ayuda ya ke me estais dando ideas y opciones . en estos dia he aprendido vastante con vuestras orientaciones .
por ahora no se nada de contadores aunke supongo ke os referis a un bucle for  next . he intentado alfo como esto :


x=0
for x=0 to 4
en donde x lauso en:
while true
if porta.x = 1 then portb.0 = 1 else portb.0=0

:
:
:
end wile
 
pero no he tenido resultados.
Espero pronto resolver el programa con vuestra ayuda
Muchos saludos a todos desde Motril (granada)
y os dejo ke descanseis por hoy y gracias otra vez a todos

[Fer_TACA]

Buenas tardes Janiro:

te adjunto un nuevo codigo que estado soñando ésta noche
Parece que funciona t se aproxima muy mucho a lo que necesitas, pero tiene un pelin de inconveniente y es que:
Despues de detectar 3 pulsadores accionados se regresan a 2 hay un pequeo impulso de encendido de un de ellos, pero espero qye ya seas capaz de solventarlo.
El programa no está realizado de la manera mas ortodoxo pero lo he realizado para que entiendas las secuencias.
¡¡ ya se que para los puristas se puede reducir el numero de lineas!!

Código: [Seleccionar]

Define CLOCK_FREQUENCY = 4  'Frecuencia del reloj en Mhz
Define SIMULATION_WAITMS_VALUE = 1  'Ignora los valores de Waitms
Dim estado As Byte
Dim estado_ra0 As Byte
Dim estado_ra1 As Byte
Dim estado_ra2 As Byte
Dim estado_ra3 As Byte
Dim estado_ra4 As Byte

TRISA = %11111111
TRISB = %00000000
main:
'Define SIMULATION_WAITMS_VALUE = 1  'Ignora los valores de Waitms

'WaitMs 40
PORTB = 0
estado = 0
estado_ra0 = 0
estado_ra1 = 0
estado_ra2 = 0
estado_ra3 = 0
estado_ra4 = 0

inicio:
p_0: If estado_ra0 = 0 Then
If PORTA.0 = 1 Then
estado = estado + 1
estado_ra0 = 1
If estado >= 3 Then Goto p_1 Else PORTB.0 = 1
Else
PORTB.0 = 0
Endif
Else
If estado_ra0 = 1 Then
If PORTA.0 = 1 Then
If estado >= 3 Then Goto p_1 Else PORTB.0 = 1
Else
estado_ra0 = 0
estado = estado - 1
Endif
Endif
Endif

p_1: If estado_ra1 = 0 Then
If PORTA.1 = 1 Then
estado = estado + 1
estado_ra1 = 1
If estado >= 3 Then Goto p_2 Else PORTB.1 = 1
Else
PORTB.1 = 0
Endif
Else
If estado_ra1 = 1 Then
If PORTA.1 = 1 Then
If estado >= 3 Then Goto p_2 Else PORTB.1 = 1
Else
estado_ra1 = 0
estado = estado - 1
Endif
Endif
Endif

p_2: If estado_ra2 = 0 Then
If PORTA.2 = 1 Then
estado = estado + 1
estado_ra2 = 1
If estado >= 3 Then Goto p_3 Else PORTB.2 = 1
Else
PORTB.2 = 0
Endif
Else
If estado_ra2 = 1 Then
If PORTA.2 = 1 Then
If estado >= 3 Then Goto p_3 Else PORTB.2 = 1
Else
estado_ra2 = 0
estado = estado - 1
Endif
Endif
Endif

p_3: If estado_ra3 = 0 Then
If PORTA.3 = 1 Then
estado = estado + 1
estado_ra3 = 1
If estado >= 3 Then Goto p_4 Else PORTB.3 = 1
Else
PORTB.3 = 0
Endif
Else
If estado_ra3 = 1 Then
If PORTA.3 = 1 Then
If estado >= 3 Then Goto p_4 Else PORTB.3 = 1
Else
estado_ra3 = 0
estado = estado - 1
Endif
Endif
Endif

p_4: If estado_ra4 = 0 Then
If PORTA.4 = 1 Then
estado = estado + 1
estado_ra4 = 1
If estado >= 3 Then Goto p_0 Else PORTB.4 = 1
Else
PORTB.4 = 0
Endif
Else
If estado_ra4 = 1 Then
If PORTA.4 = 1 Then
If estado >= 3 Then Goto p_0 Else PORTB.4 = 1
Else
estado_ra4 = 0
estado = estado - 1
Endif
Endif
Endif

Goto inicio
End                                           

Fermin

[Strepto]

Bueno, deciros que despues de comerme un rato la cabeza lo he conseguido:

Código: [Seleccionar]

    device 16f84
    Dim cont As Byte
    Dim estado_ra0 As porta.0
    Dim estado_ra1 As porta.1
    Dim estado_ra2 As porta.2
    Dim estado_ra3 As porta.3
    Dim estado_ra4 As porta.4
    TRISA = %11111111
    TRISB = %00000000
    porta = 0
    portb = 0
    estado_ra0 = 0
    estado_ra1 = 0
    estado_ra2 = 0
    estado_ra3 = 0
    estado_ra4 = 0
   
Repite:
    call miracont
    if cont >= 3 then goto repite
    delayms 10
    if porta.0 = 1 then
        portb.0 = 1
    else
        portb.0 = 0
    endif
   
Sigue1:
    call miracont
    if cont >= 3 then goto sigue1
    delayms 10
    if porta.1 = 1 then
        portb.1 = 1
    else
        portb.1 = 0
    endif
   
Sigue2:
    call miracont
    if cont >= 3 then goto sigue2
    delayms 10
    if porta.2 = 1 then
        portb.2 = 1
    else
        portb.2 = 0
    endif
   
Sigue3:
    call miracont
    if cont >= 3 then goto sigue3
    delayms 10
    if porta.3 = 1 then
        portb.3 = 1
    else
        portb.3 = 0
    endif
   
Sigue4:
    call miracont
    if cont >= 3 then goto sigue4
    delayms 10
    if porta.4 = 1 then
        portb.4 = 1
    else
        portb.4 = 0
    endif
   
    goto repite   
             
Miracont:   
    if porta.0 = 1 then estado_ra0 = 1 : else estado_ra0 = 0
    delayus 50
    if porta.1 = 1 then estado_ra1 = 1 : else estado_ra1 = 0
    delayus 50
    if porta.2 = 1 then estado_ra2 = 1 : else estado_ra2 = 0
    delayus 50
    if porta.3 = 1 then estado_ra3 = 1 : else estado_ra3 = 0
    delayus 50
    if porta.4 = 1 then estado_ra4 = 1 : else estado_ra4 = 0
    delayus 50
    cont = (estado_ra0 + estado_ra1  + estado_ra2 + estado_ra3 + estado_ra4)
    delayms 10
    return
   
    end

Deciros que supongo que todo ese programa se podra acortar con un for y que disfruteis de la simulacion.

Un saludo!

[janiro74]

hola a todos acabo de probar los dos codigos y me alegra decir ke son casi casi perfectos os lo habeis currao. esto no lo habria sacado yo en la vida .
!!!!! y deciamos ke era sencillo !!! yo lo veo conplejo todo teneis un coco ke lo flipo . yo todavia no estoy ni en parbulitos. pero en dos dias me habeis enseñado un monton como a por ejemplo del codigo de fer lo he simulado y sacado el hex paragrabarlo en mi pic (para mi ha sido un gran abance)
y con el codigo hex del archivo  rar de strepto ke lo he grabado directamente en el pic . DEcios tambien ke tiene algunos pequeños fallos (aunke importantes a la hora de colocar el circuito de control del sitema de enrgia solar ke iria colocado) hahora tengo ke estudiar con mucho detenimiento los paso ke habeis seguirlos y aprender de estos para empezar a hcerlo en el circuito real ke es para 8 entradas y 8 salidas con el 16f887 .los fallos ke tengo ke corregir son del tipo cuando estan todos pulsados ke se enciende aveces tres o alguno ke no se le ha ordenado o ke lo sueltas y sighe encendido.
Para todo esto supongo ke habra ke establecer algunas prioridades.

pero ante todo mil gracias por toda buestra ayuda y espero pronto poder  ayudar yo tambien a otros ke como yo empiezan en este mundillo

[dogflu66]

Este otro parece que sí que hace exactamente lo  que quieres.
Si es así, pues solo queda intentar simplificarlo, pasarlo a funciones y comentarlo.

Código: Visual Basic

1. 'Program ecli
2. 'Pic16F84
3. 'Basic del PSI
4. Define SIMULATION_WAITMS_VALUE = 1
5. Dim contador As Byte
6. Dim flag As Byte
7. contador = 0
8. flag = 0
9. TRISA = %11111
10. TRISB = %00000000
11. PORTB = %00000000
12. main:
13.         If PORTA.0 = 1 And flag = 0 Then
14.                 PORTB.0 = 1
15.         Else
16.                 If PORTA.0 = 0 Then
17.                         PORTB.0 = 0
18.                         WaitMs 100
19.                 Endif
20.         Endif
21.         Gosub ctrol_nbit
22.  
23.         If PORTA.1 = 1 And flag = 0 Then
24.                 PORTB.1 = 1
25.         Else
26.                 If PORTA.1 = 0 Then
27.                         PORTB.1 = 0
28.                         WaitMs 100
29.                 Endif
30.         Endif
31.         Gosub ctrol_nbit
32.  
33.         If PORTA.2 = 1 And flag = 0 Then
34.                 PORTB.2 = 1
35.         Else
36.                 If PORTA.2 = 0 Then
37.                         PORTB.2 = 0
38.                         WaitMs 100
39.                 Endif
40.         Endif
41.         Gosub ctrol_nbit
42.  
43.         If PORTA.3 = 1 And flag = 0 Then
44.                 PORTB.3 = 1
45.         Else
46.                 If PORTA.3 = 0 Then
47.                         PORTB.3 = 0
48.                         WaitMs 100
49.                 Endif
50.         Endif
51.         Gosub ctrol_nbit
52.  
53.         If PORTA.4 = 1 And flag = 0 Then
54.                 PORTB.4 = 1
55.         Else
56.                 If PORTA.4 = 0 Then
57.                         PORTB.4 = 0
58.                         WaitMs 100
59.                 Endif
60.         Endif
61.         Gosub ctrol_nbit
62. Goto main
63. End                                              
64. ctrol_nbit:
65.         contador = 0
66.         flag = 0
67.         If PORTA.0 = 1 Then contador = contador + 1
68.         If PORTA.1 = 1 Then contador = contador + 1
69.         If PORTA.2 = 1 Then contador = contador + 1
70.         If PORTA.3 = 1 Then contador = contador + 1
71.         If PORTA.4 = 1 Then contador = contador + 1
72.         If contador > 2 Then flag = 1
73. Return

[MiCrOtRoNiC]

eh notado que cuando se inserta los codigo con "GeSHi (vb):" para hacer copy paste...
ah alguien no le ah pasado??? copio directo al compilador basic y queda todo desordenado con # en cada linea y en .txt tampoco....

saludos

[janiro74]

acavo de prebar el hex de dogflu66 en mi placa (la easypic6) y tiene basicamente los mismos osea supongamos ke le doy en este orden pulsador 1, 2 ,3 ,4 ,5 pues se enciende en portb el led 1, 2, y lla no mas pero si suelto el 1  y 2  el 3, 4 ,5 siguen apagados hasta ke no libero un pulsador y entonces se enciende de golpe los dos restantes ya ke el programa se keda con tres peticiones pero no tiene ninguna prioridad para para cual de ellos dejar encendida o apagada. esto se podria solucionar con la situacion real ke seria una sonda con por ejemplo el ds1820 o lm35 y le dariamos paso al deposiro conectado a porta mas frio

[janiro74]

copia el texto en el word de ofice 2003 elke yo tengo!!! selecionas todo y en la barra de herramientas en estilo y formato lo despliegas y eliges normal y ya está ordenado para ke de ahí lo copies i peges donde kieras
mira ver si te funciona
saludos

[dogflu66]

acavo de prebar el hex de dogflu66 en mi placa (la easypic6) y tiene basicamente los mismos osea supongamos ke le doy en este orden pulsador 1, 2 ,3 ,4 ,5 pues se enciende en portb el led 1, 2, y lla no mas pero si suelto el 1  y 2  el 3, 4 ,5 siguen apagados hasta ke no libero un pulsador y entonces se enciende de golpe los dos restantes ya ke el programa se keda con tres peticiones pero no tiene ninguna prioridad para para cual de ellos dejar encendida o apagada. esto se podria solucionar con la situacion real ke seria una sonda con por ejemplo el ds1820 o lm35 y le dariamos paso al deposiro conectado a porta mas frio

Por desgracia aquí hay que especificarlo todo. Posiblemente lo más fácil seria que sigan los últimos estados hasta que solo queden 2 teclas pulsadas de nuevo y, solo entonces se actualice el sistema.

PD. De todas formas cuando se conoce exactamente las entradas y salidas (por su puesto la naturaleza de las mismas), más su relación entre ellas y, si le sumamos lo que se pretende hacer o controlar, como es natural, de forma cociente o posiblemente inconsciente la estructura del programa varia radicalmente.

[dogflu66]

Aqui lo dejo, no hay variacion del estado anterior al actual, hasta no quedar de nuevo 2 o menos teclas pulsadas.

Código: vb.net

1. 'Program ecli
2. 'Pic16F84
3. 'Basic del PSI
4. Define SIMULATION_WAITMS_VALUE = 1
5. Dim contador As Byte
6. Dim flag As Byte
7. contador = 0
8. flag = 0
9. TRISA = %11111
10. TRISB = %00000000
11. PORTB = %00000000
12. main:
13.         If PORTA.0 = 1 And flag = 0 Then
14.                 PORTB.0 = 1
15.         Else
16.                 If PORTA.0 = 0 And flag = 0 Then
17.                         PORTB.0 = 0
18.                         WaitMs 100
19.                 Endif
20.         Endif
21.         Gosub ctrol_nbit
22.  
23.         If PORTA.1 = 1 And flag = 0 Then
24.                 PORTB.1 = 1
25.         Else
26.                 If PORTA.1 = 0 And flag = 0 Then
27.                         PORTB.1 = 0
28.                         WaitMs 100
29.                 Endif
30.         Endif
31.         Gosub ctrol_nbit
32.  
33.         If PORTA.2 = 1 And flag = 0 Then
34.                 PORTB.2 = 1
35.         Else
36.                 If PORTA.2 = 0 And flag = 0 Then
37.                         PORTB.2 = 0
38.                         WaitMs 100
39.                 Endif
40.         Endif
41.         Gosub ctrol_nbit
42.  
43.         If PORTA.3 = 1 And flag = 0 Then
44.                 PORTB.3 = 1
45.         Else
46.                 If PORTA.3 = 0 And flag = 0 Then
47.                         PORTB.3 = 0
48.                         WaitMs 100
49.                 Endif
50.         Endif
51.         Gosub ctrol_nbit
52.  
53.         If PORTA.4 = 1 And flag = 0 Then
54.                 PORTB.4 = 1
55.         Else
56.                 If PORTA.4 = 0 And flag = 0 Then
57.                         PORTB.4 = 0
58.                         WaitMs 100
59.                 Endif
60.         Endif
61.         Gosub ctrol_nbit
62. Goto main
63. End                                              
64. ctrol_nbit:
65.         contador = 0
66.         flag = 0
67.         If PORTA.0 = 1 Then contador = contador + 1
68.         If PORTA.1 = 1 Then contador = contador + 1
69.         If PORTA.2 = 1 Then contador = contador + 1
70.         If PORTA.3 = 1 Then contador = contador + 1
71.         If PORTA.4 = 1 Then contador = contador + 1
72.         If contador > 2 Then flag = 1
73. Return

[Strepto]

Por desgracia aquí hay que especificarlo todo. Posiblemente lo más fácil seria que sigan los últimos estados hasta que solo queden 2 teclas pulsadas de nuevo y, solo entonces se actualice el sistema.

Esque segun la esplicacion del programa, pulsamos 2, se encienden, pulsamos los otros 3 y despues soltamos los 3 anteriores, por lo que todavia es superior a 2 pulsados, por lo que es imposible (a mi parecer) actuar sobre el resto hasta que solo queden 2 como bien has dicho tu, y creo que eso es lo que hemos echo los tres 

Por cierto, siguiendo tu idea, en vez de quedarme continuamente preguntando en la misma posicion he echo que vayan preguntando en el siguiente hasta que solo haya 2 pulsados y dependiendo la combinacion de pulsadores, el tiempo de respuesta ha mejorado.

Código: [Seleccionar]

    device 16f84
    Dim cont As Byte
    Dim estado_ra0 As porta.0
    Dim estado_ra1 As porta.1
    Dim estado_ra2 As porta.2
    Dim estado_ra3 As porta.3
    Dim estado_ra4 As porta.4
    TRISA = %11111111
    TRISB = %00000000
    porta = 0
    portb = 0
    estado_ra0 = 0
    estado_ra1 = 0
    estado_ra2 = 0
    estado_ra3 = 0
    estado_ra4 = 0
   
Repite:
    call miracont
    if cont >= 3 then goto sigue1
    delayms 10
    if porta.0 = 1 then
        portb.0 = 1
    else
        portb.0 = 0
    endif
   
Sigue1:
    call miracont
    if cont >= 3 then goto sigue2
    delayms 10
    if porta.1 = 1 then
        portb.1 = 1
    else
        portb.1 = 0
    endif
   
Sigue2:
    call miracont
    if cont >= 3 then goto sigue3
    delayms 10
    if porta.2 = 1 then
        portb.2 = 1
    else
        portb.2 = 0
    endif
   
Sigue3:
    call miracont
    if cont >= 3 then goto sigue4
    delayms 10
    if porta.3 = 1 then
        portb.3 = 1
    else
        portb.3 = 0
    endif
   
Sigue4:
    call miracont
    if cont >= 3 then goto repite
    delayms 10
    if porta.4 = 1 then
        portb.4 = 1
    else
        portb.4 = 0
    endif
   
    goto repite   
             
Miracont:   
    if porta.0 = 1 then estado_ra0 = 1 : else estado_ra0 = 0
    delayus 50
    if porta.1 = 1 then estado_ra1 = 1 : else estado_ra1 = 0
    delayus 50
    if porta.2 = 1 then estado_ra2 = 1 : else estado_ra2 = 0
    delayus 50
    if porta.3 = 1 then estado_ra3 = 1 : else estado_ra3 = 0
    delayus 50
    if porta.4 = 1 then estado_ra4 = 1 : else estado_ra4 = 0
    delayus 50
    cont = (estado_ra0 + estado_ra1  + estado_ra2 + estado_ra3 + estado_ra4)
    delayms 10
    return
   
    end

Un saludo!

[dogflu66]

Si, es que en mi primer programa cuando había más de dos teclas pulsadas no se encendía ningún otro led, pero si se apagaba el de la tecla que se dejara de pulsar siempre y cuando estuviera previamente encendido. Me explico: Si pulso 4 teclas y las mantengo pulsadas tendré dos led encendidos correspondientes estos a las dos teclas que se pulsaron en primer lugar, si dejo de pulsa una tecla seguiré teniendo tres teclas pulsadas, pero si esta tecla ultima que deje de pulsar, de inicio provoco un encendido de led, este led se apagaría incluso manteniendo tres teclas pulsadas, con lo que el resultado seria de quedar un led encendido. Esto quiere decir que se mantendría el refresco de los led al soltar teclas pero no al pulsarlas. ¡Uf!, que parrafada me salió.

[janiro74]

bueno pues el problema este me parece ke se resiste a la perfeccion ya ke todos los intentos de registrar todas las situaciones de los pulsadores siempre hay algo ke se escapa por ejemplo entiendo ke cuando estan los 5 pulsadores activados con dos led encendidos cuando dejamos de pulsar 2, ke no se encienda otro de los libre ya ke no hay ningun criterio ke gestione eso pero lo ke no entiendo es por ke no se apaga el led ke se le ha desactivado su pulsador  !!sele olvida acaso al programa de revisar eso?