PicAxe baserad digital termometer med Max och Min (10 / 13 steg)
Steg 10: Programmera Chip
Skriv in denna kod:
init: paus 500' vänta på skärmen för att initialisera så data är inte förlorat
serout 1, N2400, (1)'display sparat meddelande 1: "yttre:" på översta raden
Pausa 5' vänta för den till verk
serout 1, N2400, (2)'display sparat meddelande 2: "Temperatur" på undre raden
readtemp 1, b1 "läsa temperaturen från början att få läsa för lägsta temperatur
B6 = b1 "ställa in lägsta temperatur som nuvarande så det inte Visa 0
setint % 00000100, % 00000100' set avbrott till gemensam ingång pin (ingång 2)
Avbrott:
GOSUB Maxmin'go skärm som visar max och min temperatur
setint % 00000100, % 00000100' återställa avbrott eftersom det avbryts när det är utlöst
Maxmin:
serout 1, N2400, (3)'display sparat meddelande 3: "Max. Temp: "på översta raden
Pausa 5' vänta för den till verk
serout 1, N2400, (4)'display sparat meddelande 4: "Min. Temp:" på undre raden
Pausa 5' vänta för den till verk
serout 1, N2400, (254,140, #b5,"C") ' visar högsta temperatur (variabel b5) sedan "C"
Pausa 5' vänta för den till verk
serout 1, N2400, (254,204, #b6,"C")' visar lägsta temperatur (variabel b6) sedan "C"
vänta 10' vänta 10 sekunder att ge tid att läsa
serout 1, N2400, (1)'display sparat meddelande 1: "yttre:" på översta raden
Pausa 5' vänta för den till verk
serout 1, N2400, (2)'display sparat meddelande 2: "Temperatur" på undre raden
Celsius:
readtemp 1, b1
serout 1, N2400, (254,140, #b1,"C")
serout 1,N2400,(254,140)
om b1 > b5 sedan goto GT "testa om nya max temperatur
om b1 < b6 sedan goto LT "testa om nya min temperatur
gå till Celcius
GT:
B5 = b1 "Ange ny max temperatur
gå till Celcius
LT:
B6 = b1 "Ange ny min temperatur
gå till Celcius
Klicka på kör och programmera chip. Kom ihåg att slå på strömmen till chip medan programmering.
Om ingenting visar sedan justera kontrasten på baksidan av förare ombord. Det är en liten potentiometer.