Étape 8: Programmation il.
J’ai écrit mon code Bascom.
$regfile = « attiny45.dat » Config Portb.0 = sortie Dim O As Integer Adc config = Single, Prédiviseur = Auto Sur le bouton Int0 ' Reedswitch PORTB.1 = 0 Faire Bouton :
$crystal = 8000000
Config Portb.1 = sortie
Config Portb.3 = entrée
Config Portb.4 = entrée
Démarrez le connecteur Active Directory
Activez Int0
Activer les interruptions
PORTB.0 = 0
W = Getadc(2) ' définit les leds
Si W > 400 puis
PORTB.0 = 0
D’autre
PORTB.0 = 1
End If
Boucle
PORTB.1 = 1 ' pousse la bobine
Waitms 125
PORTB.1 = 0
Waitms 125
Retour
Fin