PPTEA - SENSORE DI FUMO- pagina 1 Mobile

Buona sera a tutti, oggi pomeriggio mi sono cimentato a implementare il sensore di fumo con il PPTEA.

Gironzolando su internet ho trovato il sensore di Gas & Fumo ed esattamente il modello è il "MQ-2", questo link è possibile visualizzare il datasheet del sensore.

Per il momento mi sono limitato soltanto a scrivere il codice in EABASIC e fare alcuni test in casa, molto, molto, mooooltoo rudimentali, utilizzando il gas di un accendino per visualizzare le particelle rilasciate nell'aria......

Di seguito riporto il codice in EABASIC

CODICE

10 PRAGMA EXTERNAL_EEPROM
30 ' SENSORE TEMPERATURA GAS E FUMO, CON PPTEA VER. 2.16V
50 SETIO=&H100BF
75 PWMIO2=&H8000

130 '------------------------------------------PRESENTAZIONE PPTEA------------------------------------
150 LCDCLEAR
170 LCDPOS=1
190 LCDWRITE=" PPTEA V.2.16V"
210 LCDPOS=65
230 LCDWRITE=" TEMP-GAS-SMOKE "
250 WAITS 2
270 LCDCLEAR
290 '-----------------------------------------FINE PRESENTAZIONE PROGRAMMA ---------------------------

310 GIORNO=LEFT(DATE,8)
330 FDATE=1

350 ORARIOL=LEFT(DATE,2)
370 USCITAUSB=""

390 ' AGGIORNAMENTO OROLOGIO
391 'LCDCLEAR
410 IF ORARIOL>=18 OR ORARIOL<07 THEN 1450 ELSE 1530
430 LCDPOS=1
450 LCDWRITE=GIORNO
460 LCDPOS=65
470 LCDWRITE=ORARIO

480 '----------------------------------------- LETTURA DATI ---------------------------------
482 GOSUB :TORNATEMPERATURA
484 GOSUB :TORNAFUMO

490 GOTO 410

999 ' ----------------------------------INIZIO FUNZIONI VARIE - ----------------------

1000 :TORNATEMPERATURA
1005 LCDPOS=10
1010 TEMP=CADS1*5.0/10.23
1015 LCDWRITE=LEFT(TEMP,4) & " "&CHR(223)&"C"
1030 RETURN

1100 :TORNAFUMO
1105 LCDPOS=74
1110 PPM=(CADS2*5.0*100)/10.23 '------ PPM = Particella per Milione -------
1120 LCDWRITE = "S:" & LEFT(PPM,4)
1130 RETURN

1450 :LEDON
1470 OUTBIT(6)=0
1490 ORARIO=DATE
1510 GOTO 430

1530 :LEDOFF
1550 OUTBIT(6)=1
1570 ORARIO=DATE
1590 GOTO 430