Do it yourself !
1 CB280 Start Kit
1 DS1620 (available at mouser.com or digikey.com too)
available at cubloc.com
Estimated Time to Assemble: 1 minutes
Estimated Time to Program: zero (source code provided)
Okay, it seems like the only class I really enjoyed in college was the embedded computer class. All the other circuit classes and computer language classes bore the hell out of me because they was no actual product.
With embedded computers, you actually physically get to see stuff and that's what I liked about it.
Well I started w/ the Motorola MC68 series microcontrollers and it took me almost a week to make a digital thermometer. I had to make everything from scratch. It was still interesting because I made something physical and it worked!
Anyways, now I am glad I can do the same thing except it only takes me 1 minute!
Not because I got smarter but mostly because I've done this thousand times now, but I think anyone should be able to accomplish this in 1 minute if you follow these directions. :)
Just follow the above picture exactly in less than 1 minute and you have the following source code to download and make this thing work!
Taking it Further...
Okay, now you have a 1 minute guide to making a digital thermometer. Go to your college professor and show him how you can make one in 1 minute... maybe he will give you some extra credit...
If you are having any trouble with above app, please e-mail firstname.lastname@example.org
If you have any cool apps you'd like to share or want some kind of DIY, please e-mail to email@example.com
We do accept free samples for DIYs, please email firstname.lastname@example.org :)
' DS1620 Temperature Sensor App v.0.0.1
' v0.0.1 - Displays upto 2 decimals
' by using DS1620's precise mode
' Set Pin numbers!
' Set DQ,CLK,RST pins
'Connect P24 to RST of DS1620
'Connect P25 to CLK of DS1620
'Connect P26 to DQ of DS1620
#define RST 24
#define CLK 25
#define DQ 26
Set Ladder Off
Dim ReturnedTemp As Single, TempF As Single, TempC As Single 'Floating Point variables for storing temperature
Dim COUNT_REMAIN As Single, COUNT_PER_C As Single 'Floating Point variables for calculations
Dim tmp As Single 'Temporary variable for Floating Point
Dim TempString As String *6
Dim TempFString As String * 6
Dim TempCString As String * 6
Set Display 2,0,0,128
Print "Zedomax Digital"
Print "Fahrenheit: "
Print "Celcius: "
'On timer(5) Gosub MAINPROCESS 'Timer Interrupt every 500msec!
'Send Initialization to DS1620
Out RST, 1
Out RST, 0
'Start DS1620 Temperature Conversion!
Out RST, 1
Out RST, 0
'------Precision Formula (According to DS1620 Data Sheet)
If tmp>0 Then
'Change from Celcius to Fahrenheit!
'Convert floating point value to string and set the number of decimals
'Output to LCD!
' Locate 0,2
' Print TempString, " Deg C (w/o precision)", Cr
'Print to debug screen!
'Debug "Current Temperature in is ", Cr,TempFString, " Deg F ", Cr
'Debug TempCString, " Deg C", Cr
'Debug TempString, " Deg C (without precision)", Cr