TTF-103 thermometer

Marvinn

Sziasztok!
próbanyákon összedugdostam egy atmega 8-at 2*16-os lcd-vel és encoderrel.

Működik, de most alap dolgot néznék, hőmérsékletet. Van egy ilyen hőmérőm.

Bascom alá hol találok demo progit ami kiköpi az lcd-re a hőmérsékletet?

Jelenlegi progi:

Kód: Egész kijelölése

$regfile = "m8def.dat"
$crystal = 8000000
$baud = 9600
$hwstack = 64
$swstack = 20
$framesize = 80

Config Portd.6 = Output
Led Alias Portd.6


Config Lcdpin = Pin , Db4 = Portc.2 , Db5 = Portb.7 , Db6 = Portc.4 , Db7 = Portc.5 , Rs = Portc.1 , E = Portc.0
Config Lcd = 16 * 2
Config Lcdmode = Port

Initlcd
Cls
Cursor Off Noblink

Portd.3 = 1
Portd.2 = 1

Config Int0 = Falling
Config Int1 = Falling

Dim Wtime As Byte
Dim Encounter As Integer

Const Debouncetime = 1

On Int0 Encodera
On Int1 Encoderb

Wtime = 100
Encounter = 0

Enable Interrupts
Enable Int0
Enable Int1

Do
  Set Led
  Waitms Wtime
  Upperline
  Lcd "Enkoder: " ; Encounter ; "        "
  Reset Led
  Waitms Wtime
Loop

Encodera:
  Waitms Debouncetime
  Incr Encounter
  Gifr = 64
Return

Encoderb:
  Waitms Debouncetime
  Decr Encounter
  Gifr = 128
Return
End

A hőmérő így van bekötve. De az ADC3 lábra nem az ADC0-ra.

winnerbt

Konkrétan melyik tipus?
(mááá mer 1-47k a 20 fokos ellenállása vagy melyik?)
Az NTC igencsak nemlineáris.
Én úgy csináltam, hogy táblából 5 fokonként csináltam diszkrét
feszértékeket és közte lineáris interpoláció volt, így 0.1 fokon belül maradt a pontosság. Természetesen nem árt a gyártási szórás illetve a kábelhosszok miatt egy offset beiktatása, de ez már csak halatortán.
Van rá szép egyenlet is, de szerintem a tábla elég.
Ja, nálam alul volt az NTC, de az mondjuk programozásilag nem gond megfordítani. (?)

Marvinn

Hát jó kérdés melyik típus.. semmi nincs ráírva csak a TTF-103.
számítógép hűtőventillátorához kaptam anno, sima 2 eres csatlakozóval lehet a ventilátor vezérlésére dugni..
rámérve 11.8k olyan 22 foknál (szobahőmérséklet)

winnerbt

Az 10k NTC lesz.
Többi ment...egy...
JAni

ntc.

keress 10k ntc adatlapot.
Hogy mered a ntc ellenallast?

getadc -> ebbol van feszerteked.
Az alsot ismered,a Vosszt es az ellenallasok kozosen levot is.
a feszultseg aranyos az ellenallassal. Igy a NTC ellenallasa aranyparral szamolhato.

Hofokot erdemesebb digitalis homerovel merni:
lm335
lm75
ds1820

Marvinn

Kód: Egész kijelölése

Config Adc = Single , Prescaler = Auto
Start Adc

Dim W As Word , Channel As Byte



Channel = 3

'now read A/D value from channel 0

Do

W = Getadc(channel)
Lowerline
Lcd "Ch " ; Channel ; " v " ; W

'Incr Channel

If Channel > 7 Then Channel = 0
Waitms 500
Loop

End

jó helyen járok?

Igen. Igy megkapod a 0...1023 ertekben a mert adatot.
DE: Reference= sort ne felejtsd ki a config mogul!

Marvinn

próbapanelen nincs rendesen bekötve.. mi lehet a Reference? valami chipen belüli stabil cucc?

Tessek elolvasni az AD konverziós fejezetet....

Mi az a referencia és hogyan használhatjuk?
http://avr.tavir.hu/modules.php?name=Co ... age&pid=29