Zedomax DIY 109 - Bauen Sie ein digitales Thermometer in einer Minute!
[DIY 109]
Do it yourself!
Bauen Sie ein digitales Thermometer in 1 Minute!
Hier ist ein Video des Aufbaus eines digitalen Thermometer in 1 min:
[gv data = "DvoJc1_BEro"] [/ gv]
Hier ist ein Video von Zedomax digitalen Thermometer in Aktion:
[gv data = "RIPO3UCH3Y4"] [/ gv]
Parts List:
1 CB280-Start-Kit
1 CLCD420B
1 DS1620 (abrufbar unter mouser.com oder digikey.com zu)
abrufbar unter cubloc.com
Geschätzte Zeit zu montieren: 1 Minute
Estimated Time to Program: Null (Source Code)
Okay, so scheint es, wie die einzige Klasse I really enjoyed in der Schule war der Embedded-Computer-Klasse. Alle anderen Stromkreis Klassen und Computer Sprachunterricht trug die Hölle von mir, weil sie keine tatsächlichen Produkt.
Mit Embedded Computer Sie wirklich physisch erhalten manches zu sehen und das ist, was ich über sie so mochte.
Nun, ich begann w / Motorola MC68 Mikrocontroller der Serie und es hat mich fast eine Woche um das digitale Thermometer zu machen. Ich musste alles neu machen. Es war noch interessant, weil ich etwas Körperliches gemacht und es funktionierte!
Egal, jetzt bin ich froh kann ich das gleiche tun, außer es nur mir dauert nur 1 Minute!
Nicht, weil ich klüger, sondern vor allem, weil ich das jetzt tausend Mal gemacht, aber ich denke, jeder sollte in der Lage, dies in 1 Minute zu erreichen, wenn Sie diese Anweisungen zu folgen. 
Verbindungen
Folgen Sie einfach dem obigen Bild genau in weniger als 1 Minute und Sie haben die folgenden Quelltext zum Download und machen das Ding arbeiten!
Einen Schritt weiter ...
Okay, jetzt haben Sie ein 1-Minuten-Anleitung zur Erstellung einer digitalen Thermometer. Gehen Sie zu Ihrem College-Professor und ihm zeigen, wie Sie ein in 1 Minute zu machen ... vielleicht hat er Ihnen einige zusätzliche Gutschrift ...
Wenn Sie irgendwelche Probleme mit den oben genannten app zu finden, schreiben E-Mail max@zedomax.com
Wenn Sie irgendwelche coole Anwendungen Sie gerne mit anderen teilen oder irgendeine Art von DIY möchten, senden Sie eine E-Mail an max@zedomax.com
Wir haben kostenlose Muster für Baumärkte, bitte E-Mail-max@zedomax.com akzeptieren
Programm-Source ...
'DS1620 Temperatursensor App v.0.0.1
"V0.0.1 - Zeigt bis zu 2 Dezimalstellen
"Mit genauen DS1620-Modus
Const Device = cb280
'Set Pin-Nummern!
'Set DQ, CLK, RST-Pins
'Connect P24 RST der DS1620
'Connect P25 auf CLK der DS1620
'Connect P26 auf der DS1620 DQ
# define RST 24
# define CLK 25
# define DQ 26
Set Off Ladder
Dim ReturnedTemp As Single, TempF As Single, tempc Als Floating Point Single 'Variablen für die Speicherung von Temperatur
Dim COUNT_REMAIN As Single, COUNT_PER_C Als Floating Point Single 'Variablen für die Berechnung
Dim tmp Temporäre Als Single 'Variable für Floating Point
Dim tempString As String * 6
Dim TempFString As String * 6
Dim TempCString As String * 6
Set Display 2,0,0,128
"Erase Bildschirm
Cls
Delay 100
Csroff
Suchen 2,0
Print "Zedomax Digital"
Suchen 5,1
Print "Thermometer"
Suchen 0,2
Print "Fahrenheit:"
Suchen 0,3
Print "Celsius:"
DS1620Init
'On-Timer (5) Gosub MAINPROCESS' Timer-Interrupt alle 500msec!
Tun
DS1620
Loop
"MAINPROCESS:
'Return
Ende
Sub DS1620Init ()
Ausgang RST
Ausgang CLK
Ausgang DQ
"Senden an Initialisierung DS1620
RST-Out, 1
SHIFTOUT CLK, DQ, 0,0 × 0C, 8
SHIFTOUT CLK, DQ, 0,0 × 02,8
Out RST, 0
'Start DS1620 Temperature Conversion!
RST-Out, 1
SHIFTOUT CLK, DQ, 0,0 xEE, 8
Out RST, 0
End Sub
Sub DS1620 ()
"- Lesen Temp ----------
RST-Out, 1
SHIFTOUT CLK, DQ, 0,0 XAA, 8
ReturnedTemp = Shiftin (CLK, DQ, 0,9)
ReturnedTemp = ReturnedTemp / 2
Out RST, 0
RST-Out, 1
SHIFTOUT CLK, DQ, 0,0 xA0, 8
COUNT_REMAIN = Shiftin (CLK, DQ, 0,9)
Out RST, 0
RST-Out, 1
SHIFTOUT CLK, DQ, 0,0 xA9, 8
COUNT_PER_C = Shiftin (CLK, DQ, 0,9)
Out RST, 0
"- Präzisions-Formel (nach DS1620 Datenblatt)
tmp = (COUNT_PER_C-COUNT_REMAIN)
tmp = tmp / COUNT_PER_C
Wenn tmp> 0 Then
Tempc = ReturnedTemp-0.25
Tempc = tempc + tmp
Sonst
Tempc = ReturnedTemp
End If
"Ändern von Celsius in Fahrenheit!
TempF tempc * 1,8 =
TempF = TempF 32
'Convert floating point Wert in einen String und die Anzahl der Dezimalstellen
TempString = Float ReturnedTemp
TempFString = Float TempF
TempCString = Float tempc
TempString = Left (tempString, 4)
TempFString = Left (TempFString, 5)
TempCString = Left (TempCString, 5)
'Ausgabe auf LCD!
Suchen 12,2
Drucken TempFString
Suchen 12,3
Drucken TempCString
"Locate 0,2
'Print tempString, "Grad C (w / o Genauigkeit)", Cr
"Print to debug Bildschirm!
"Debug" Aktuelle Temperatur in ist ", Cr, TempFString" Deg F ", Cr
'Debug TempCString, "Grad C", Cr
'Debug tempString, "Grad C (ohne Präzision)", Cr
End Sub
