Timer Retardado Multiuso

[digito]

... hola para quièn necesita un Timer Retardado, les envio el codigo en Mikrobasic:

** Para no utilizar los capacitores y los cuarzos, se podia haber utilizado
el Pic 16F628A que tiene en su interno el oscilador correspondiente, en la fase de
configuraciòn y programaciòn del mismo especificar "INTosc, WDT_off, PWT_on**


P.s. Es un deber participar activamente a este Foro, muchas gracias.



program timer3

dim cn as byte
cn=0

main: 'inicio del programa

trisa.0=1
porta.0=0
trisb.0=0
portb.0=0

ciclo: ' inicio del ciclo


if button(porta,0,10,1)then
delay_ms(3000) 'Tiempo de retardo en ingreso
if button(porta,0,10,1) then
portb.0=1
cn=1
end if
end if


if button(porta,0,0,0) then
if cn=1 then
delay_ms(1000) 'Tiempo de retardo en Salida
cn=0
portb.0=0
end if
end if

goto ciclo 'Se repite el ciclo

end. ' Fin del programa

Les adjunto una imagen del Projecto simulado: