Paso 8: Programación.
Escribí mi código en Bascom.
$regfile = "attiny45.dat" Config Portb.0 = salida Dim W como entero Configuración Adc = simple, Prescaler = Auto Int0 botón ' Reedswitch PORTB.1 = 0 Hacer Botón:
$crystal = 8000000
Config Portb.1 = salida
Config Portb.3 = entrada
Config Portb.4 = entrada
Iniciar Adc
Habilitar la Int0
Habilitar interrupciones
PORTB.0 = 0
W = Getadc(2) ' establece los leds
Si W > 400 entonces
PORTB.0 = 0
Otra cosa
PORTB.0 = 1
End If
Lazo
PORTB.1 = 1 ' unidades de la bobina
Waitms 125
PORTB.1 = 0
Waitms 125
Volver
Final