Hola, estoy comenzando con los pic, y voy practicando diferentes cositas para ir aprandiendo.
En este caso estoy queriendo hacer que una tecla tengo dos funciones, explico:
1ra: cuando se presiona y se suelta en un toque, en este caso enciende y apaga el led en el port a.0.
2da: cuando se presiona por varios segundos y luego se suelta, encende y apaga un led port a.1.
Este es el programa que realice:
' 2 funciones mismo pulsador PIC16F877
define osc 4
led1 var porta.0
led2 var porta.1
pulsador var portb.0
cont var byte
cont2 var byte
tiempo var byte
trisb.0=1
trisa.0=0
trisa.1=0
led1=0
led2=0
cont=0
cont2=0
inicio:
pause 40
tiempo=0
IF pulsador=0 then
while pulsador=0
wend
endif
if pulsador =1 then
while pulsador=1
tiempo=tiempo+1
wend
endif
if tiempo > 60 then goto segfun
cont=cont+1
if cont > 1 then cont=0
'endif
select case cont
case 0
low led1
case 1
high led1
end select
goto inicio
segfun:
cont2=cont2+1
if cont2 >1 then cont2=0
select case cont2
case 0
low led2
tiempo=0
case 1
high led2
tiempo=0
end select
goto inicio
end
Tal cual esta aca funciona perfecta la funcion 1ra, pero nunca pasa a la segunda y no entiendo porque ???
Si alguien quiere y puede tirarme alguna idea
De todas formas sigo probando algunas otras alternativas
Saludos.
