Mirley - Elektronika i Programowanie

Jak bardzo przesunie ci się napięcie to nie jest takie oczywiste, i tak będzie trzeba wykalibrować wszystko. Moga być zwykłe diody 1N4148

W najprostszym przypadku możesz podłączyć Vout + do mikrokontrolera ale prawdopodobnie wskazanie będzie tragicznie niedokładne bo nie dość że nie wiesz ile będzie spadku na diodach to jeszcze ten spadek zależy od temperatury. Rozwiązaniem lepszym jest włożenie wzmacniacza różnicowego między wyjścia + i -, zmieniający sie spadek napięcia zostanie odjęty, ale wykalibrować i tak trzeba będzie bo wzmocnienie wzmacniacza zależy od rezystorów, które nie są dokładne.

no właśnie, więc chyba dam sobie siana z takim pomiarem.

Zawsze można użyć 2 wejśc adc i odejmować programowo.

Mam zrobiony termometr na LM35 z ujemnymi temp. użyłem dwóch wejśc adc i wyszło to całkiem nieźle. Jak będe miał chwile to poszukam kodu do bascoma i tu wrzucę - kod jest dla dwóch LM35 jeden ma tylko dodatnie (jest w domu) a drugi także ujemne (na zewnątrz).

http://mirley.firlej.org/node/301

Tu już się pytałem o podobny problem. Jutro poszukam kodu.

$regfile = "m8def.DAT"
$crystal = 8000000
Config Lcdpin = Pin , Db4 = Portd.5 , Db5 = Portd.6 , Db6 = Portd.7 , Db7 =
Portd.4 , E = Portd.3 , Rs = Portd.2
Config Lcd = 16 * 2
Config Adc = Single , Prescaler = Auto , Reference = Internal
Dim Wart_ac1 As Word
Dim Wart_ac2 As Word
Dim Wart_ac3 As Word
Dim V1 As Single
Dim V2 As Single
Dim T1 As Single
Dim T2 As Single
Dim Tt As Single
Dim Temp1 As String * 6
Dim Temp2 As String * 6
 
Dim Nap As Single
 
Config Portb.0 = Output
Config Portc.3 = Output
 
     Deflcdchar Print , 2 , 4 , 14 , 17 , 17 , 17 , 14 , 32 ' replace ? with number (0-7)
     Deflcdchar 2 , 6 , 9 , 9 , 6 , 32 , 32 , 32 , 32       ' replace ? with number (0-7)
     Start Adc
 
Do
 
Portb.0 = 1
Portc.3 = 1
 
Wart_ac1 = Getadc(1)
 
V1 = Wart_ac1 * 0.0026
 
T1 = V1 * 100
 
 
Temp1 = Fusing(t1 , "#.#")
 
Wart_ac2 = Getadc(0)
Wart_ac3 = Getadc(2)
Tt = Wart_ac2 - Wart_ac3
 
V2 = Tt * 0.0026
 
T2 = V2 * 100
 
Temp2 = Fusing(t2 , "#.#")
 
Cls
Lcd "DOM:    " ; Temp1 ; " " ; Chr(2) ; "C"
Lowerline
Lcd "DW" ; Chr(0) ; "R:   " ; Temp2 ; " " ; Chr(2) ; "C"
 
Waitms 100
Loop
End

Kod u mnie działa poprawnie. Jako diody przy LM-ie użyłem jednej 1N4007, a opornik dałęm około 9k. W sumie wykorzystałem trzy wejścia ADC, jedno do termometru wewnątrz gdyż mierzy tylko dodatnie temp, a dwóch do pomiaru temp ujemnych. Pamiętam, że na jednym pinie wymusiłem stan wysoki i wykorzystałem go do zasilania LM-ów. A przed pętlą zdefinowałęm sobie znaczek stopnia i 'ó' aby napisac "DWÓR":-). Kod jest dośc prosty więc mam nadzieję, że się przyda.

Dzięki serdeczne za kod. W wolnej chwili dogłębnie go przeanalizuję, choć raczej nie ma co analizować bo jak sam napisałeś, kod jest prosty. W każdym razie na pewno się przyda.

Raz jeszcze dzięki. Wiesz co tylko bym zrobił? Wywalił

CLS

locate

Sprawdzaliście jak wygląda wskazanie w porównaniu z termometrem wzorcowym? albo chociaż co wskazuje w wodzie z lodem?

Sprawdzałem z termometrem samochodowym oryginalnie montowanym w Oplu Corsie i pomiar jest identyczny, zgadza się także ze zwykłą rteciówką zaokienną. A jak będę miał chwilę to sprawdze w wodzie z lodem:-).
Odnośnie "cls", kod był pisany dośc dawno i nie miałem zbytniej wprawy w pisaniu programów więc sobie radziłem jak mogłem:-).

Najważniejsze, że działa tak jak tego chciałem, nie ważne jaką drogą się do tego dochodzi - taką wyznaje zasadę:-).