Bascom arduino - sensore temperatura di recupero

[massibal]

Buonasera a tutti,
ho bisogno come sempre di uno spunto per applicazioni banali...
... ho recuperato un sensore di tempersatura da una radio sveglia etc etc...è a 2 fili ..per cui non ho data sheet ..
volevo utilizzarlo come esercizio per leggere la temp sul mio lcd 16x2... mi date due dritte su come scrivere il codice ...
soprattutto non riesco a capire il comando per acquisire l'input dal pin analogico.

grazie mille come sempre

massib

[deluca]

massibal,
se non conosci la sigla del sensore e quindi non sai come collegarlo ti consiglio di lasciar perdere.
Potrebbe essere qualsiasi cosa: un transistore, un diodo, una NTC .... e faremmo un lavoraccio per risalire al rapporto mV/°C

Al posto di questo enigmatico sensore procurati un banalissimo LM35 della National Semiconductors che ha un output analogico
e può misurare in un range tra -55ºC e +150ºC con una accuratezza di ±0.5ºC .

Se ti procuri il sensore ti possiamo aiutare a realizzare un termometro con LCD per gli scopi più svariati.... se vuoi anche usando il sistema di sviluppo Bascom-avr.
ciao

[massibal]

Buongiorno,
temevo ma prevedevo la tua risposta.

provvedo all'acquisto del sensore...

in ogni caso mi giri un link dove posso trovare qualche codice in merito ?
grazie mille come sempre
massib

[filosofo]

ciao massibal,
se vuoi imparare a scrivere anche semplici programmini ti consiglio di sforzarti almeno nello stendere un flow-chart e magari scrivere una bozza di sorgente.
il listato o un link non ti aiuterà ad imparare a programmare, se è quello che vuoi fare, non saprei. almeno questa è la mia visione.
quindi definisci quali potrebbero essere le istruzioni che ti serviranno per realizzare la funzione.
Io di solito cerco di seguire questa strada.

Tu lo fai per lavoro o per hobby?

[flz47655]

Giovanni in pratica ti ha già detto tutto: ha un output analogico quindi dovrai leggere con l'ADC il valore (e condizionare il segnale se necessario, cerca su google cosa vuole dire se non l'hai mai sentito) e convertirlo nella temperatura con una formula che troverai nel datasheet (o al limite un grafico se non è stato linearizzato)

Ciao

[filosofo]

flz come mai mi chiami Luca?

adesso ho capito, stavi parlando di deluca

[massibal]

buonasera filosofo e flz ,
vi ringrazio per il consiglio , ma con un lavoro (per fortuna!!) 2 figli ... mi resta difficile avere tempo a studiare ..anche se ai miei tempi durante gli anni dell'università mi dilettavo con il basic... ma aimè riprendere è difficilissimo...
però il mio problema è trovare una fonte da dove carpire tutte le info necessari per fare anche programmini semplici .. per esempio in questo caso a me serve sapere il comando o i comandi per leggere i valori di volt nell'ingresso analogico di arduino che arrivano dal sensore... poi le eq. delle rette , le interpolazioni le ricavo abbastanza facilmente .... se mi date una mano ,.... così evito di andare a dormire tardi la notte:)
grazie mille
massib

[flz47655]

flz come mai mi chiami Luca?

Inizio a dare i numeri, volevo dire Deluca

@massibal: Hai provato a scrivere "arduino lm35" su google?

[deluca]

massibal
stasera ti faccio andare a letto presto.... accetta il regalino....
ma devi promettere che inizierai a studiare in modo che un giorno potrai ricambiare gli aiuti ricevuti
il forum ha bisogno di nuovi sostenitori ... siamo in pochi ma le richieste di supporto aumentano giorno dopo giorno.

Code: Select all

' ***************************************************************************
' Termometro con sensore LM35
' Range temperatura del sensore: -55°C .. +150°C
' Range misura LCD: 0 .. 80°C
' Accuratezza: ±0.5°C
' MPU: Atmega328p
' By DLG
' ***************************************************************************
$regfile = "M328pdef.dat"                                   'puoi usare Mega328p o altro micro

$crystal = 16000000

Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32        'crea caratteri speciali
Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1
Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16
Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16
Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1
Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , _
                                         E = Portd.6 , Rs = Portd.7 , Wr = Portd.5
Config Lcd = 20 * 4                                         'LCD 20x4
Config Adc = Single , Prescaler = Auto , Reference = Avcc   'configura ADC
Start Adc                                                   'start ADC
'-------------------------------------------------------------------------------
Dim V As Word
Dim Perc As Word
Dim Volt As Word
Dim Volt_d As Byte
Dim Channel As Byte
Dim J As Byte
Dim Cols As Byte
Dim Cols_d As Byte
'-------------------------------------------------------------------------------
Cls : Cursor Off
Locate 3 , 1 : Lcd "0"                                      'mostra range misura
Locate 3 , 5 : Lcd "10"
Locate 3 , 10 : Lcd "20"
Locate 3 , 15 : Lcd "30"
Locate 3 , 19 : Lcd Chr(223) ; "C"
'-------------------------------[ Main ]---------------------------------------
Do
  V = Getadc(0)                                             'leggi dal canale (0)
  Volt = V * 5                                              'moltiplica x 5
  Volt_d = Volt Mod 10                                      'calcola il modulo
  Volt = Volt / 10
  Locate 1 , 1
  Lcd Volt ; "," ; Volt_d

  Cols = Volt / 2

  Locate 2 , 1
  For J = 1 To Cols
      Select Case J
         Case 1 : Lcd Chr(3)
         Case 5 : Lcd Chr(4)
         Case 10 : Lcd Chr(4)
         Case 15 : Lcd Chr(4)
         Case 20 : Lcd Chr(4)
         Case Else : Lcd Chr(0)
      End Select
  Next J

  Cols_d = Cols Mod 2
  If Cols_d > 0 Then
     Lcd Chr(5)
     Cols = Cols + 2
  Else
     Cols = Cols + 1
  End If

  For J = Cols To 20
      Select Case J
         Case 1 : Lcd Chr(2)
         Case 5 : Lcd Chr(1)
         Case 10 : Lcd Chr(1)
         Case 15 : Lcd Chr(1)
         Case 20 : Lcd Chr(1)
         Case Else : Lcd Chr(32)
      End Select
   Next J

   Waitms 500
Loop
'-------------------------------------------------------------------------------
End


l'uscita del sensore LM35 la devi collegare all'ingresso ADC0
in questo proegetto ho utilizzato un lcd 20x4 in modo da visualizzare una sorta di barra Vmeter per indicare anche graficamente il valore della temperatura.
volendo puoi modificare il codice e sostituire l'lcd 20x4 con un 16x2.

ciao e buona notte....

[massibal]

deluca ,grazie mille del regalino... mi sono già messo il pigiama:)

prometto che studierò un pochino !!! e che cerherò di fare domande solo quando l'insonnia mi avrà stremato !

buona notte
massib