Etape 11 : Autre écran code
Programme de la puce avec ce code.
init : pause 1000 ' attendez écran initialiser les données n’est pas perdues
serout 1,N2400,("External:")
serout 1,N2400,(254,192,"Temperature")
readtemp 1, b1
B6 = b1 ' régler la température minimale comme courant donc il ne s’affiche pas 0
setInt 00000100, % 00000100 ' interruption la valeur entrée commune de broche (entrée 2)
Goto Celcius
Interrompre :
serout 1, N2400, (254 128, "Max. Temp: ")
serout 1, N2400, (254 192, "Temp min.:")
serout 1, N2400, (254 140, #b5,"C") ' afficher la température maximale (variable b5) puis "C"
serout 1, N2400, (254 204, #b6,"C") ' afficher la température minimale (variable b6) puis "C"
attendre 5 ' attendre 5 secondes pour que le temps de lire
serout 1, N2400, (254 128, « externe: ")
Pause 10
serout 1, N2400, (254 192, "Température") ' passer d’écran montrant max et min température
setInt 00000100, % 00000100 ' Réinitialiser interruption parce qu’elle est annulée lorsqu’il est déclenché
retour "retour à où il a été interrompu
Celsius :
readtemp 1, b1
serout 1, N2400, (254 140, #b1,"C")
serout 1,N2400,(254,140)
Si b1 > b5 puis gosub GT ' tester si la nouvelle température maximale
Si b1 < b6 puis gosub LT
Goto Celcius
GT :
B5 = b1 ' régler la nouvelle température max
retour
LT :
B6 = b1 ' régler la nouvelle température min
retour
Cliquez sur Exécuter et programmer la puce. N’oubliez pas de mettre en marche à la puce tout en programmation.
Si rien ne montre puis ajustez le contraste à l’arrière des membres du pilote. C’est un petit potentiomètre