Hola, ante todo decir que soy db25, he tenido que registrarme de nuevo pues no se porque pero no me deja entrar... supongo que sera por la mudanza del foro, bueno pues tras esta aclaracion (no os creais que me copio su nombre xD) sigamos con lo que realmente importa.
el programa supuestamente tiene que hacer lo siguiente:
si se aplica masa a porta0 se enciende un led en el portb0
eso en tres puertas, eso funciona bien, cuando en porta4 se pulsa una vez se enciende el portb7, si se pulsa otra se mantiene el 7 y se añade el 6, si se pulsa otra se mantiene el 7, 6 y se añade el 5. si se pulsa porta3 sucede lo contrario.
lo que me pasa es que si pulso 4 veces se encenderia el1º el 2º y el 3º led y la cuarta pulsacion no hace nada (logico solo son tres) pero si quiero apagar el 3º led tengo que dar 2 pulsaciones, es como si guardara las pulsaciones en memoria. Si alguien me puede hechar una mano se lo agradeceria.
o si se puede hacer que a la 4ª pulsacion empiece desde el principio?? (me quito un pulsacor y como si fuese algun bucle)
espero que me entendais, este es el programa:
TRISA.0=0
Cont var byte
inicio:
;programa para controlar la seleccion de bobinas que se activaran
;al realizarel disparo
if PORTa.4=0 then ;seleccion de potencia
cont=cont+1
pause 200
if cont = 1 then
high portb.7 ;potencia baja
cont=1
endif
if cont = 2 then
high portb.6 ;potencia media
cont=2
endif
if cont = 3 then
high portb.5 ;potencia alta
cont=3
endif
endif
if porta.3=0 then
cont=cont-1
pause 200
if cont = 1 then
low portb.6 ;potencia media
cont=1
endif
if cont = 2 then
low portb.5 ;potencia baja
cont=2
endif
if cont = 3 then
low portb.7 ;desconectado
cont=3
endif
endif
-----------------------------------------------------
;programa para controlar el disparo de los SCR
if PORTA.0 = 0 then ;fotodetector bobina 1
high PORTB.0 ;
else
low PORTB.0 ;
endif
if PORTA.1 = 0 then ;fotodetector bobina 2
high PORTB.1 ;
else
low PORTB.1 ;
endif
if PORTA.2 = 0 then ;fotodetector bobina 3
high PORTB.2 ;
else
low PORTB.2 ;
endif
----------------------------------------------------
goto inicio
Gracias de antemano, un saludo Jose Ramon