Zedomax DIY 109 - Vytvoření digitální teploměr za jednu minutu!
[DIY 109]
Udělej to sám!
Vybudovat digitální teploměr do 1 minuty!
Zde je video z budování digitální teploměr v 1 min:
[gv data = "DvoJc1_BEro"] [/ gv]
Zde je video z Zedomax digitální teploměr v akci:
[gv data = "RIPO3UCH3Y4"] [/ gv]
Seznam náhradních dílů:
1 CB280 Start Kit
1 CLCD420B
1 DS1620 (k dispozici na mouser.com nebo digikey.com příliš)
k dispozici na adrese cubloc.com
Předpokládaná doba k Sestavte: 1 minuta
Předpokládaná doba ke Program: nula (zdroj předpokladu kód)
Dobře, zdá se, jako jediný třídy jsem si opravdu užila na vysoké škole byl vestavěné počítačové třídy. Všechny ostatní obvodu třídy a třídy počítačový jazyk vrtání vypadnout ze mě, protože nebyl žádný skutečný produkt.
S vloženými počítačů, je skutečně fyzicky dostat vidět věci, a to je to, co se mi líbilo o tom.
Dobře jsem začal w / mikroprocesory Motorola MC68 série a trvalo mi skoro týden, aby se digitální teploměr. Musela jsem dělat všechno od začátku. To bylo ještě zajímavější, protože jsem dělal něco fyzického a vyšlo to!
Mimochodem, teď jsem rád, že mohu dělat to samé až na to, až se mi 1 minutu!
Ne proto, že jsem chytřejší, ale hlavně proto, že jsem udělal tisíckrát teď, ale myslím, že kdokoli by měly být schopny dosáhnout v této 1 minuty, pokud budete postupovat podle těchto pokynů. 
Propojení
Právě toto je obraz přesně v době kratší než 1 minuta a máte následující zdrojový kód ke stažení a tuto věc práci!
Vezmeme to další ...
Dobře, teď máte 1 minuta průvodce k tomu, že digitální teploměr. Jdi do svého vysokoškolský profesor a ukázat mu, jak si můžete udělat jednu za 1 minutu ... možná se vám nějaký dodatečný úvěr ...
Pokud máte nějaké potíže s výše app, prosím, e-mail max@zedomax.com
Máte-li jakékoli chladné aplikace, které chcete sdílet, nebo chcete nějaké hobby, prosím, e-mail na max@zedomax.com
Děláme přijímat vzorky zdarma pro DIYs, prosím, e-mail max@zedomax.com
Program Zdroj ...
'DS1620 Temperature Sensor Spr v.0.0.1
'V0.0.1 - zobrazí až pro 2 desetinná místa
'Pomocí DS1620 je přesný způsob
Const Device = cb280
'Pin Set čísla!
'Set DQ, CLK, RST kolíky
'P24 Připojení k RST pro DS1620
'P25 Připojení k CLK z DS1620
'P26 Připojení k DQ o DS1620
# define RST 24
# define CLK 25
# define DQ 26
Set Off Ladder
Dim ReturnedTemp jako jednotného, TempF jako jednotného, TempC jako plovoucí proměnné Jednotný 'místo pro ukládání teploty
Dim COUNT_REMAIN jako jednotného, COUNT_PER_C jako plovoucí proměnné Jednotný 'bod pro výpočty
Dim tmp Jako variabilní Jednotný 'Dočasné pro Floating Point
Dim tempString As String * 6
Dim TempFString As String * 6
Dim TempCString As String * 6
Nastavit zobrazení 2,0,0,128
'Smazat obrazovku
Cls
Zpoždění 100
Csroff
Vyhledejte 2,0
Print "Zedomax Digitální"
Vyhledejte 5,1
Print "Teploměr"
Vyhledejte 0,2
Print "Fahrenheit:"
Vyhledejte 0,3
Print "Celsius:"
DS1620Init
'On časovač (5) Gosub MAINPROCESS' časovače přerušení každý 500msec!
Dělat
DS1620
Loop
'MAINPROCESS:
'Return
Konec
Sub DS1620Init ()
Výstup RST
Výstup CLK
Výstup DQ
'Odeslat Inicializace pro DS1620
Out RST, 1
Shiftout CLK, DQ, 0,0 × 0C, 8
Shiftout CLK, DQ, 0,0 × 02,8
Out RST, 0
'Start DS1620 Teplota konverze!
Out RST, 1
Shiftout CLK, DQ, 0,0 xEE, 8
Out RST, 0
End Sub
Sub DS1620 ()
'- Read Temp ----------
Out RST, 1
Shiftout CLK, DQ, 0,0 xAA, 8
ReturnedTemp = Shiftin (CLK, DQ, 0,9)
ReturnedTemp = ReturnedTemp / 2
Out RST, 0
Out RST, 1
Shiftout CLK, DQ, 0,0 xA0, 8
COUNT_REMAIN = Shiftin (CLK, DQ, 0,9)
Out RST, 0
Out RST, 1
Shiftout CLK, DQ, 0,0 xA9, 8
COUNT_PER_C = Shiftin (CLK, DQ, 0,9)
Out RST, 0
'- Precision Formula (Podle DS1620 Data Sheet)
tmp = (COUNT_PER_C-COUNT_REMAIN)
tmp = tmp / COUNT_PER_C
Pokud se tmp> 0 Then
TempC = ReturnedTemp-0.25
TempC = TempC + tmp
Jiné
TempC = ReturnedTemp
Je-li konec
'Změna od Celsia Fahrenheit!
TempF = TempC * 1,8
TempF = TempF +32
'Převede floating point hodnotu string a nastavit počet desetinných míst
TempString = Float ReturnedTemp
TempFString = Float TempF
TempCString = Float TempC
TempString = Left (tempString, 4)
TempFString = Left (TempFString, 5)
TempCString = Left (TempCString, 5)
'Výstup na LCD!
Vyhledejte 12,2
Tisk TempFString
Vyhledejte 12,3
Tisk TempCString
'Najděte 0,2
'Tisk tempString, "Deg C (w / o přesnost)", Cr
'Tisk ladit obrazovky!
'Debug "Aktuální teplota je", Cr, TempFString, "Deg F", Cr
'Debug TempCString, "Deg C", Cr
'Debug tempString, "Deg C (bez přesných)", Cr
End Sub
