Se sei già registrato           oppure    

Orario: 01/05/2024 11:04:02  

 

Energia Alternativa ed Energia Fai Da Te > PPTEA

VISUALIZZA L'ALBUM

Pagine: (3)   [1]   2   3    (Ultimo Msg)


PPTEA - SENSORE DI TEMPERATURA SU LCD, Sensore di temperatura Stand Alone
FinePagina

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 6/12/2011,16:09

Dopo aver implementato nel PPTEA il display la prima applicazione era d'obbligo il sensore di temperatura in grado di fungere da solo. L'out del sensore lm35 viene collegato al pin 2 (ERRATA CORRIGE- GRAZIE PINO) del pic (bit 0 del PPTEA) con una resistenza di pulldown di 40 k, il display deve essere collegato come da schema presente nella documentazione ed è cosa fatta. Il programma non visualizza la temperatura istantanea ma fa la media degli ultimi 20 valori memorizzati utilizzando il vettore MEM. Il display parte con la scritta "SENSORE TEMPERATURA" e dopo un attesa di un secondo visualizza nella prima riga "VIVA IL PPTEA" e nella seconda riga la temperatura che si aggiorna. faccine/smile.gif



Questo è il codice:

CODICE
10 DIM MEM(20) as WORD
12 GOSUB 300 ' SALTO ALLA PRESENTAZIONE

15 VAL=CADS1
16 'USBOUT=VAL &"*"
20 TE
MP=VAL*5.0/1023
21 TEMP*=100
22 'USBOUT="I="&TEMP & "/"

23 IND=(INDICE mod 20) +1
24 MEM(IND)=TEMP *10
25 INDICE++
26 GOSUB 100 'FACCIO LA MEDIA
27 'h++
28 STRTEMP=left(T&"",4)
30 'USBOUT="T="&STRTEMP & chr(223)&"C"
33 LCDPOS=&H26
34 LCDWRITE=STRTEMP
35 WAITS 1
40 goto 15


100 '----CALCOLA LA MEDIA DEGLI ULTIMI VALORI
110 G=0
120 T=0.0
125 G++
130 T+=MEM(G)
150 if G<20 then 250
200 T/=G
220 T/=10
240 return
250 if G<INDICE then 125 else 200

300 '----PRESENTAZIONE
305 LCDCLEAR
310 LCDPOS=&H11
315 LCDWRITE="SENSORE"
317 LCDPOS=&H23
318 LCDWRITE="TEMPERATURA"
320 WAITS 1
325 LCDCLEAR
330 LCDPOS=&H11
350 LCDWRITE="-VIVA IL PPTEA-"
360 LCDPOS=&H21
365 LCDWRITE=&qu
ot;TEMP:XX.X"&chr(223)&"C"
366 WAITMS 250
367 SETIO=&H7F
370 RETURN



Foto faccine/smile.gif!

ForumEA/us/img823/324/ppteadisplaytemperatura.jpg



Ovviamente il display funge anche senza PC...come è ovvio che sia!
Bolle








Modificato da NonSoloBolleDiAcqua - 6/12/2011, 21:58


---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

PinoTux

Avatar
GigaWatt


Gruppo:AMMINISTRATORE
Messaggi:3509

Stato:



Inviato il: 6/12/2011,20:39

faccine/clap.gif faccine/clap.gif
Accipicchia, e chi riesce più a starti dietro, sei un vulcano!

Edit:
Nello schema del display il bit 0 corrisponde al pin 2.... il pin 1 (MCLR/ecc.) è collegato al +5V... faccine/rolleyes.gif



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"
http://iv3gfn.altervista.org/
http://pptea.altervista.org/

 

PinoTux

Avatar
GigaWatt


Gruppo:AMMINISTRATORE
Messaggi:3509

Stato:



Inviato il: 6/12/2011,21:46

Ho provato a compilare e mi da questo errore:

Fase 1: Save temp_lcd.pea
Fase 1: Saved!
Fase 2: Load Program in Memory temp_lcd.pea
Fase 2: Loaded!
Fase 3: Check Line Number temp_lcd.pea
Fase 3: Checked Line Number!
Fase 4: Check Progressive Number temp_lcd.pea
Fase 4: Checked Progressive Number!
Fase 5: Check Progressive Sintax temp_lcd.pea
ERROR:NO END OF LINE!---->(15)28 STRTEMP=left(T&"",4)


se commento la riga 28 va tutto ok.

questo lavorando senza nulla attaccato...




---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"
http://iv3gfn.altervista.org/
http://pptea.altervista.org/

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 6/12/2011,21:56

Perdonami...sto lavorando con una versione superiore....perdonami!!!
Ho inserito dei nuovi comandi proprio per il display ma le sosprese devono ancora arrivare ....hehehe...mettetevi il casco...tra qualche giorno si decolla!!
Scrivi la linea :
28 STRTEMP=T &""

Ora non posso provarla...domani la provo con la 2.0!
Questo è il video:


Ciao faccine/smile.gif
Bolle




Modificato da NonSoloBolleDiAcqua - 6/12/2011, 22:17


---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

PinoTux

Avatar
GigaWatt


Gruppo:AMMINISTRATORE
Messaggi:3509

Stato:



Inviato il: 6/12/2011,23:23

Grazie!
Tutto OK!



---------------
"Fatti non foste a viver come bruti, ma per seguir virtute e canoscenza"
http://iv3gfn.altervista.org/
http://pptea.altervista.org/

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 7/12/2011,00:10

Grazie a te faccine/clap.gif



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

titone78

Avatar
MegaWatt


Gruppo:Utente
Messaggi:502

Stato:



Inviato il: 9/1/2012,21:40

ciao bolle,anche qua ho una rischiesta da farti,dovrei fare come ti avevo gia accennato un termometro per la stufa che mi rilevi la temperatura in 10 punti,che mi dialoghi con il pc e che abbia la possibilita di creare un grafico e salvarlo,sul pc mi piacerebbe vedere 10 temperature separate,invece sul monitor poterle cambiare con i tasti.
sul manuale o letto che i cads sono impostabili fino a 5,come faccio ad implementarli fino a 10 almeno?
con che cosa hai creato quel programmino con cui si vede la temperatura su il pc?si potrebbe fare in modo che vedo 10 valori?
ciao e grazie

 

titone78

Avatar
MegaWatt


Gruppo:Utente
Messaggi:502

Stato:



Inviato il: 14/1/2012,00:14

ciao bolle sto provando a creare il codice per il termometro che mi servirebbe,per ora ho collegato 5 lm35 la eeprom e il display hitachi a 2 righe,questo e il codice che ho scritto:

10 cads=5
20 lcdclear
25 lcdpos=&h11
30 lcdwrite="Wood Gas 1"
35 lcdpos=&h21
40 lcdwrite="5 Temperature"
45 waits 5
50 lcdclear
55 lcdpos=&h11
60 lcdwrite="Entrata Stufa"
65 lcdpos=&h21
70 lcdWrite="Temp="
74 a=cads1
75 temp1=a*5.0/1023
80 temp1*=100
85 strtemp1=left(temp1&"",4)
90 lcdpos=&h26
95 lcdwrite=strtemp1
100 waits 5
105 lcdclear
110 lcdpos=&h11
115 lcdwrite="Uscita Stufa"
120 lcdpos=&h21
125 lcdwrite="Temp="
130 b=cads2
135 temp2=b*5.0/1023
140 temp2*=100
145 strtemp2=left(temp2&"",4)
150 lcdpos=&h26
155 lcdwrite=strtemp2
160 waits 5
165 lcdclear
170 lcdpos=&h11
175 lcdwrite="Uscita Fancoil"
180 lcdpos=&h21
185 lcdwrite="Temp="
190 c=cads3
195 temp3=c*5.0/1023
200 temp3*=100
205 strtemp3=left(temp3&"",4)
210 lcdpos=&h26
215 lcdwrite=strtemp3
220 waits 5
225 lcdclear
230 lcdpos=&h11
235 lcdwrite="Accumulo Base"
240 lcdpos=&h21
245 lcdwrite="Temp="
250 d=cads4
255 temp4=d*5.0/1023
260 temp4*=100
265 strtemp4=left(temp4&"",4)
270 lcdpos=&h26
275 lcdwrite=strtemp4
280 waits 5
295 lcdclear
300 lcdpos=&h11
305 lcdwrite="Accumulo Alto"
310 lcdpos=&h21
315 lcdwrite="Temp="
320 e=cads5
325 temp5=e*5.0/1023
330 temp5*=100
335 strtemp5=left(temp5&"",4)
340 lcdpos=&h26
345 lcdwrite=strtemp5
350 waits 5
355 goto 50

so gia che magari ho scritto un codice troppo lungo e che magari lo si poteva accorciare,ma per ora di piu non sono riuscito a farlo,tieni presente che e il mio primo codice in pptea,comunque il funzionamento e semplice,ogni 5 secondi mi da il valore di un determinato sensore che io ho battezzato,le prossime cose che implementero,sono l'uscita usb e l'orologio ds1307
pero ho bisogno di un aiuto,io ho bisogno di leggere la temperatura da 10 sensori,come faccio ad aumentare i cads da 5 a 10 o piu?
grazie dell'aiuto ciao

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 14/1/2012,00:19

Bravissimo...purtroppo il PPTEA ha 5 ingressi analogici ...potenzialmente ne ha 10...ma dovrei cambiare firmware e compilatore.
Si potrebbero collegare due PPTEA in cascata...oppure una soluzione di connettere diversi sensori ad un solo pin mediante un contatto comandabile dal PPTE...ma fammi capire cosa stai facendo...cerca di far comprendere il tuo progetto...vedrai che una soluzione la troviamo.
Ciao
Bolle



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

titone78

Avatar
MegaWatt


Gruppo:Utente
Messaggi:502

Stato:



Inviato il: 14/1/2012,00:40

ciao bolle grazie della risposta,come sempre sto lavorando per sperimentare la mia stufa ed altro,in poche parole ho bisogno di ricevere la temperatura da almeno 10 11 sensori,per ora mi accontento di vedere le varie temperature,una alla volta su il display,poi vorrei implementarlo grazie alla presa usb ad un pc dove poter registrare tutte le informazioni,per ora mi fermo alle temperature,poi devo poter vedere pressioni ed in base a i dati che ricevero regolare ventole caricamento coclea e candeletta,e una cosa difficiele connettere 2 o piu pic in serie?ci sono modifiche firmware?e poi come funziona il caricamento del software?devo caricarlo su ogni pic,o basta caricarlo su uno?
grazie della disponibilita.
p.s. dato che tu sei l'esperto,ho sbagliato molte cose nel codice?si poteva fare con meno comandi?

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 14/1/2012,00:41

Perchè non le metti tutte contemporaneamente le temperature?
Ti modifico io il codice?



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

titone78

Avatar
MegaWatt


Gruppo:Utente
Messaggi:502

Stato:



Inviato il: 14/1/2012,00:44

cioe,che su il display vedo tutte le temperature assieme?

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 14/1/2012,00:47

CITAZIONE (titone78 @ 14/1/2012, 00:40)
..ho sbagliato molte cose nel codice?

[/QUOTE]
Perfetto...
CITAZIONE (titone78 @ 14/1/2012, 00:40)
si poteva fare con meno comandi?

Non è importante...l'importante è farlo entrare nella memoria che hai a disposizione..occupi il 22%...ne hai di spazio libero!

CITAZIONE (titone78 @ 14/1/2012, 00:44)
cioe,che su il display vedo tutte le temperature assieme?

Esattamente.
Hai un 2x16 o un 4x16? faccine/smile.gif



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 

titone78

Avatar
MegaWatt


Gruppo:Utente
Messaggi:502

Stato:



Inviato il: 14/1/2012,00:48

si con la eprom lo spazio e veramente tantissimo
comunque il risultato ottenuto e grazie alla tua guida ed ai tuoi tantissimi esempi.

 

NonSoloBolleDiAcqua

Avatar
PetaWatt


Gruppo:AMMINISTRATORE
Messaggi:13786

Stato:



Inviato il: 14/1/2012,00:50

Carino il programma...lo sto vedendo girare ora....hehhehe!



---------------
Chi sa raccontare bene le bugie ha la verità in pugno (by PinoTux).
Un risultato se non è ripetibile non esiste (by qqcreafis).

 
 InizioPagina
 

Pagine: (3)   [1]   2   3    (Ultimo Msg)

Versione Mobile!

Home page       TOP100-SOLAR      Home page forum