درخواست مدار دماسنج

[sinastar]

fبا سلام

دوستان عزیز من میخواستم دوستان برنامه نویس و مهندیسین الکترونیک گرامی یک مدار دما سنج به من بدن تا بسازم

ولی با دوتا شرط :
1- برای نمایش از 3 عدد سون سگمنت استفاده بشه
2- نمایش دما 3 رقمی باشه

دوستان گرامی توجه کنن که من خودمم مدارش رو دارم و بستم ولی تنها مشکلش این هست که دو رقمی هست و رقم اعشار رو نشون نمیده !
مثلا دما رو میخوام 27.6 نشون بده
اگر دوستان راهنمایی کنن ترجیحا با مگا8 باشه نقشش

با تشــــکر از دوستان

[sharin]

سلام.

مهندس اون تيكه ي برنامه ات رو كه 2 رقم مي گيرهه بذار تا كمكت كنيم 3 رقميش كني ...
و گرنه فكر نكنم كسي چيزي بذاره ...

اگر عدد 27.6 هست ، ضرب در 10 اش كن ، مي شه 276
حالا هر بلايي مي خواي سرش بيار ...
سادست ...

موفق باشي.
يا علي.

[sinastar]

خیلی ممنون عزیز
اتفاقا میخواستم همین کارو بکنم ولی گفتم کسی حوصلش نمیشه کمکم کنه
الان میرم پیداش کنم بذارم

---

با سلام دوباره
خوب دوست عزیز کدش رو براتون آوردم فقط اولش توضیح بدم که:
الان رقم اول این دماسنج همیشه صفر هست و 26 درجه رو مثلا 026 نشوم میده ، منم میخوام اون صفر حذف بشه و بجاش یک رقم اعشار بیاد یعنی مثلا 27.5 بشه

اینم برنامش هست(فقط اولش بگم که خواهش می کنم زیاد اصطلاحات علمی به کار نبرید چون من خیلی ضعیفم و نمی فهمم و لطفا خودتون محل مورد نظر رو اصلاح کنید دیگه :) )

با تــــــــشکر

$regfile = "m8def.dat"
$crystal = 8000000
Config Adc = Single , Prescaler = Auto
Config Portd = Output
Config Portb.0 = Output : Config Portb.1 = Output
Config Portb.2 = Output : Config Portb.3 = Output


: Dim Temp As Word , A As Single , B As Word , C As Word , D As Word , E As Word
: Dim F As Word , G As Byte , H As Byte , I As Byte , L As Byte , M As Byte
Stop Adc : Start Adc
Do
Temp = Getadc(0)
A = Temp / 204
B = A * 1000
C = B / 1000
D = C * 1000
E = B - D
F = E / 100
G = F * 100
H = E - G
I = H / 10
L = I * 10
M = H - L

Portd = Lookup(c , Ebi)
Portb.0 = 0 : Portb.1 = 1 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.0 = 1



Portd = Lookup(f , Ebi)
Portb.0 = 1 : Portb.1 = 0 : Portb.2 = 1 : Portb.3 = 1
Waitms 10
Portb.1 = 1
Portd = Lookup(i , Ebie)
Portb.2 = 0
Waitms 10
Portb.2 = 1
Portd = Lookup(m , Ebi)
Portb.3 = 0
Waitms 10
Portb.3 = 1

Loop
Ebi:
Data 63 , 6 , 91 , 79 , 102 , 109 , 125 , 7 , 127 , 111
Ebie:
Data 191 , 134 , 219 , 207 , 230 , 237 , 253 , 135 , 255 , 239

[sharin]

سلام.

الان رقم اول این دماسنج همیشه صفر هست و 26 درجه رو مثلا 026 نشوم میده ، منم میخوام اون صفر حذف بشه و بجاش یک رقم اعشار بیاد یعنی مثلا 27.5 بشه

مشخصه كه بخاطر اون ضريب ها هست . از هر كدوم از ضريب ها يه 0 كم كني ، احتمالش هست درست بشه ...

اینم برنامش هست(فقط اولش بگم که خواهش می کنم زیاد اصطلاحات علمی به کار نبرید چون من خیلی ضعیفم و نمی فهمم و لطفا خودتون محل مورد نظر رو اصلاح کنید دیگه :) )

اينكه برنامه رو براتون اصلاح كنم كه نمي شه ...!!
اينجا فقط مي تونيم راهنمايي كنيم ، حل مشكل با خودتونه ...
اول و آخر ، كسي كه برنامه رو اصلاح مي كنه خود شما هستيد ، نه كس ديگه اي ...

حالا اين چه نوع سنسور دمايي هست ؟
اون 1 و 0 كردن pin ها به چه دليل هست ؟
7segment ها مالتي پلكس شدهه اند،‌درسته ؟
از look up براي نمايش 7seg ها استفادهه شده ، چرا 2 تا ليبل دارهه ؟؟

اينجا كه ضرب و تقسيم كردهه رو مي توني به يه سبك ديگه هم بنويسي ...
عدد دما رو در يه متغيير string مي توني ذخيرهه كني و بعد رقم به رقم بشكونيش و هر كدوم رو جدا به 7seg ها بفرستي ...

موفق باشي.
يا علي.

[sinastar]

سنسور دما LM35 هست
برنامش رو هم کلا کاربر EBKA برام نوشته بود
مدارش خیلی ساده هست، یه مگا8 با یک سنسور lm35 و سون سگمنت3تایی
والسلام

[apcog]

تا فردا ببینم چی میشه... اگه وقت کردم برات درستش میکنم.
در ضمن،من همیشه توی مالتی پلکس کردن به مشکل بر میخورم! همیشه همه ی سون سگمنت ها خاموش اند و گه گاهی پرک میزنن!

[sinastar]

یا الله

[sinastar]

پس فردا هم شد !

[apcog]

ببخشید وقت نکردم!
الان روی ویندوزم هیچی ندارم!
اگه وقت کنم حتما میزارم.

[sinastar]

ما منتظریم
غمی نیست ، چون میگذرد غمی نیست
یک روز هم روش
کاش بیشتر از این نگذره
هـــــــــی روزگار
یاد روزهای جنگ افتادم که حاجی داشت با مینا ور میرفت ، بچه ها شب با رویا میخوابیدن ، صبح با سپیده از خواب بیدار میشدن ، من داشتم سیما رو لخت می کردم
چه روزهایی بود ،هی روزگار !! 22 بهمن هم مبارک !

ببخشید وقت نکردم!
الان روی ویندوزم هیچی ندارم!
اگه وقت کنم حتما میزارم.

ای بابا تو عمرمون یه خواهشی کردیم ها !! بابا ما اینجا باید دست به دست هم بدیم و بریم جلو تا دانشمندانی مثل علی رشیدی بدیم بیرون
دست ، دست رو میشوره و برمیگرده صورت رو میشوره ! حالا نمیدونم این ضرب المثل چه ربطی داشت به موضوع ولی خواهش می کنم یکم زودتر دیگه ! باید حتماٌ التماس کنیم تا راضی بشبد ؟

[EBKA]

سلام..
دوسته من شما حداکثر درجه چنده؟؟ یعنی اگه شد 100 درجه اونوقت چی؟؟؟
بهتره 4 تا سگمنت بزاری...
اینطور خوبه؟؟؟ با 4 تا سگمنت؟؟