'ALARMA REMOTA
'bigtecnicos_iti@hotmail.com
'***************************************
'/Directivas
$regfile = "m88pdef.dat" ' atmega a usar
$crystal = 8000000 'velcidad del cristal interno
'/ConfiguracionesConfig Portc = Output 'se configura el pueto c como salida
/Config Portd.0 = Input ' se configura el pin 2 como entrada
''/Sobrenombres ' se le proporciona un nombre distintivo al interructor
Interruptor Alias Pind.0
''/Declaracion de Variables
'/Inicializaciones
'/Programa Principal
Inicio:
Debounce Pind.0 , 0 , Alarma ' si el pin 2 de entrada hay un 0 sero pasar ala etiqueta alrama
Goto Inicio End
Alarma: 'etiqueta alarma
Portc = &B00000001 'encender o apagar las siguientes salidas salidas
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 1000
Portc = &B00000010
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000010
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000010
Waitms 1000
Portc = &B00000001
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 1000
Portc = &B00000010
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000010
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000010
Waitms 1000
Portc = &B00000001
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 100
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 1000
Portc = &B00000000
Waitms 100
Portc = &B00000001
Waitms 2000
Portc = &B00000100
Waitms 1000
Portc = &B00001000
Waitms 2000
Portc = &B00000100
Waitms 1000
Portc = &B00000000
Waitms 1000
Goto Inicio
No hay comentarios:
Publicar un comentario