Zedomax DIY 109 - Build a digital thermometer in one minute! Zedomax اليدويه 109 -- بناء رقمي في دقيقة واحدة!
[DIY 109] [اليدويه 109]
Do it yourself ! تفعل ذلك بنفسك!
Build a digital thermometer in 1 minute! بناء رقمي في 1 دقيقة!
Here’sa video of building a digital Thermometer in 1 min: فيما يلى شريط فيديو رقمي بناء في 1 دقيقة :
Here’sa video of Zedomax digital Thermometer in Action: فيما يلى شريط فيديو رقمي zedomax في العمل :
Parts List: قائمة اجزاء :
1 CB280 Start Kit 1 cb280 بدء مجموعة
1 CLCD420B 1 clcd420b
1 DS1620 (available at mouser.com or digikey.com too) 1 ds1620 (يمكن الاطلاع عليه في mouser.com او digikey.com جدا)
available at cubloc.com متاحة في cubloc.com
Estimated Time to Assemble: 1 minutes الوقت المقدر لتجميع : 1 دقيقة
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. بالاضافة الى انني بدأت ث / موتورولا mc68 سلسلة microcontrollers واتخذت لي تقريبا اسبوع لتقديم رقمي. 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! على أي حال ، ويسرني الآن يمكنني ان افعل الشيء نفسه الا انه يأخذ لي سوى 1 دقيقة!
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. لا لأنني حصلت على اكثر ذكاء ولكن في الغالب لأنني كنت فعلت ذلك ألف مرة الآن ، ولكني اعتقد ان اي شخص ينبغي أن يكون قادرا على انجاز ذلك في 1 دقيقة اذا كنت تتبع هذه الاتجاهات. 
Connections وصلات
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! اتبع الصورة اعلاه تماما في أقل من 1 دقيقة ويكون لديك ما يلي شفره المصدر لتنزيل وجعل هذا العمل شيء!
Taking it Further… استمرارا له…
Okay, now you have a 1 minute guide to making a digital thermometer. حسنا ، الآن لديك 1 دقيقة الى تقديم دليل رقمي. Go to your college professor and show him how you can make one in 1 minute… maybe he will give you some extra credit… أذهب إلى حسابك في الكليه استاذ وتبين له كيف يمكنك ان تجعل في 1 دقيقة واحدة… لربما سوف اعطيكم بعض المعلومات الاءتمانيه…
If you are having any trouble with above app, please e-mail اذا كنت لديهم مشكلة مع تشغيل التطبيق اعلاه ، يرجى ارسال بريد الكتروني max@zedomax.com
If you have any cool apps you’d like to share or want some kind of DIY, please e-mail to اذا كان لديك اي تطبيقات كوول اردت ان حصة تريد او انها نوع من انواع اعمال اليدويه ، يرجى ارسال بريد الكتروني الى max@zedomax.com
We do accept free samples for DIYs, please email اننا نقبل عينات مجانيه لdiys ، الرجاء ارسال بريد الكتروني max@zedomax.com
Program Source… برنامج المصدر…
‘ DS1620 Temperature Sensor App v.0.0.1
‘ v0.0.1 - Displays upto 2 decimals
‘ by using DS1620’s precise mode
Const Device=cb280
‘ 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
‘Erase screen
Cls
Delay 100
Csroff
Locate 2,0
Print “Zedomax Digital”
Locate 5,1
Print “Thermometer”
Locate 0,2
Print “Fahrenheit: “
Locate 0,3
Print “Celcius: “
DS1620Init
‘On timer(5) Gosub MAINPROCESS ‘Timer Interrupt every 500msec!
Do
DS1620
Loop
‘MAINPROCESS:
‘Return
End
Sub DS1620Init()
Output RST
Output CLK
Output DQ
‘Send Initialization to DS1620
Out RST, 1
Shiftout CLK,DQ,0,0×0C,8
Shiftout CLK,DQ,0,0×02,8
Out RST, 0
‘Start DS1620 Temperature Conversion!
Out RST, 1
Shiftout CLK,DQ,0,0xEE,8
Out RST, 0
End Sub
Sub DS1620()
‘——Read Temp——————————
Out RST,1
Shiftout CLK,DQ,0,0xAA,8
ReturnedTemp=Shiftin(CLK,DQ,0,9)
ReturnedTemp=ReturnedTemp/2
Out RST,0
Out RST,1
Shiftout CLK,DQ,0,0xA0,8
COUNT_REMAIN=Shiftin(CLK,DQ,0,9)
Out RST,0
Out RST,1
Shiftout CLK,DQ,0,0xA9,8
COUNT_PER_C=Shiftin(CLK,DQ,0,9)
Out RST,0
‘——Precision Formula (According to DS1620 Data Sheet)
tmp=(COUNT_PER_C-COUNT_REMAIN)
tmp=tmp/COUNT_PER_C
If tmp>0 Then
TempC=ReturnedTemp-0.25
TempC=TempC+tmp
Else
TempC=ReturnedTemp
End If
‘Change from Celcius to Fahrenheit!
TempF=TempC*1.8
TempF=TempF+32
‘Convert floating point value to string and set the number of decimals
TempString=Float ReturnedTemp
TempFString=Float TempF
TempCString=Float TempC
TempString=Left(TempString,4)
TempFString=Left(TempFString,5)
TempCString=Left(TempCString,5)
‘Output to LCD!
Locate 12,2
Print TempFString
Locate 12,3
Print TempCString
‘ 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
End Sub
(No Ratings Yet) (لا يوجد تقييم) 
Loading ... تحميل... RSS feed آر إس إس | Trackback URI Trackback أوري
[...] Full story via Link [...] (...)القصة الكاملة عن طريق وصلة [...]
I’m making a Digital Thermometer with a DS1620 and a 8051. انا اجراء رقمي مع ds1620 و8051. Do you need a lookup table for that? هل تحتاج الى بحث لهذا الجدول؟ Could you tell me where i can find the code? هل يمكن ان تقولوا لي اين يمكنني العثور على الشفره؟ Thanks in advance.. ويعود الفضل في ذلك مسبقا..
Hi there, you don’t need any tables for the DS1620, you just need to talk to it مرحبا هناك ، فإنك لا تحتاج اي جداول زمنيه لds1620 ، انت فقط بحاجة الى التحدث اليها
using the SPI protocol. SPI باستخدام البروتوكول. If you have any Basic programming experience, you can refer to the above Program Source, which you probably easily convert to 8051’s C language. اذا كان لديك اي خبرة البرمجه الاساسية ، يمكنك أن أشير الى ما ورد اعلاه برنامج المصدر ، الذي ربما كنت بسهولة للتحويل الى 8051 لغة س.
Hello Max, good job! مرحبا ماكس ، عمل جيد! I got a question how you convert the voltage into fahrenheit and celcius. حصلت على سؤال كيف تحويل الجهد الى فهرنهايت وcelcius. thanks شكرا
can you maill me one please هل يمكن لي ان واحدة من فضلك maill