este es el programa que estoy haciendo, es un cronometro de 30min que me va a dar una alarma cada cierto tiempo, lo que quiero es hacer un boton de pausa, es decir, que cuando presione el pulsador haga una pausa y si lo vuelvo a presionar continue el conteo...
program Cronometro
dim seg, min as char[3]
dim a, b as byte
main:
TRISA.0 = 1
TRISA.1 = 0
TRISA.2 = 0
TRISA.3 = 0
TRISA.4 = 0
TRISB = %00000000
Lcd_config(portb,4,5,6,7,portb,0,1,2)
Lcd_cmd(Lcd_cursor_off)
Lcd_out(1,1,"Cronometro 30min")
uno:
PORTA.1 = 0
if PORTA.0 = 0 then
goto menu
else
goto uno
end if
menu:
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
lcd_out(1,1,"Time 0min seg")
b = 0
while b < 30
for a = 0 to 59
ByteToStr(a,seg)
Lcd_Out(1,13,seg)
Delay_ms(1000) '1000 msegundos
next a
if a = 59 then
b = b + 1
bytetostr(b,min)
Lcd_out(1,7,min)
if b = 1 then
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
end if
if b = 5 then
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
end if
if b = 10 then
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
end if
if b = 15 then
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
end if
if b = 25 then
PORTA.1 = 1
delay_ms(5)
PORTA.1 = 0
end if
if b = 30 then
lcd_cmd(lcd_clear)
lcd_out(1,1,"FIN!")
PORTA.1 = 1
delay_ms(20000)
PORTA.1 = 0
end if
end if
wend
end.
saludos espero me puedan ayudar!!!