اگه ممکنه کمکم کنید (دماسنج)

[meisam.mobini]

سلام
من یه پروژه دماسنج دیجیتال با bascom avr دارم .

می خوام دماسنجم از یه دمایی بالاتر یه led یا fan رو به کار بندازه .

کد نویسی زیر رو دارم ولی نمی دوونم که چیکار کنم که از یه دمایی به بالاتر fan یا led رو به کار بندازه

کسی هست بتونه کمکم کنه

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

$regfile = "M8def.dat"

$crystal = 10000000

Deflcdchar 0 , 32 , 32 , 31 , 31 , 31 , 31 , 32 , 32
Deflcdchar 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1 , 1
Deflcdchar 2 , 16 , 16 , 16 , 16 , 16 , 16 , 16 , 16
Deflcdchar 3 , 16 , 16 , 31 , 31 , 31 , 31 , 16 , 16
Deflcdchar 4 , 1 , 1 , 31 , 31 , 31 , 31 , 1 , 1
Deflcdchar 5 , 32 , 32 , 28 , 28 , 28 , 28 , 32 , 32

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7

Config Lcd = 20 * 4

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Start Adc

Dim W As Word , Perc As Word , Volt As Word , Volt_d As Byte , Channel As Byte , I As Byte , Cols As Byte , Cols_d As Byte

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

آدرس کد نویسی کامل :

http://www.avrprojects.net/projects/LCD%20Thermometer%20LM35.bas
http://www.avrprojects.net/projects/LCD%20Thermometer%20LM35.bas

[Mohammad6490]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
خب به نظر کار زیاد سختی نمیرسه،شما باید یه جمله شرطی(if) روی متغییر دما تون بذارید که مثلا از یه حدی بالا رفت یه پین رو یک کنه

[امیرعلی بلورچیان]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

البته اینطور که دیدم شما کد برنامه رو از یکجا دیگه ورداشتین پس اگه می خواین که به خود برنامه دست نزنین می تونین از 1 پ امپ به عنوان مقایسه کننده استفاده کنید که اگه ولتاژ خروجی سنسئر از یک حدی بلاتر بره یک LED روشن شه.

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام .
ممنون از این که جواب منو میدین .
آقا مشکل این جاست که من رشتم نرم افزار هستش و متوجه نمی شم شما چی میگین . :cry:

و تو دانشگاهم بجز برنامه نویسی اونم به زبون Pascal , delphi , c چیزی دیگه یاد ندادن .

اگه ممکنه بیشتر کمک کنید.

[Mohammad6490]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
شما میتونی با یه جمله شرطی روی متغییر wآ این کار رو انجام بدی
W = Getadc(0)
چون w با دما تغییر میکنه
اگر wآاز یه مقداری بیشتر بشه یه پایه رو یک کن،help بسکام رو بیبن

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
من روی متغییر Cols شرط گزاشتم به صورت زیر که توی دمار مشخصی پایه ای را یک کنه که یه LED روشن بشه
میشه بگین درسته یا نه؟؟؟؟؟؟؟

W = Getadc(0)
Volt = W * 5
Volt_d = Volt Mod 10
Volt = Volt / 10
Locate 1 , 1
Lcd Volt ; "," ; Volt_d
Cols = Volt / 2

If Cols > 20 Then
Portb.5 = 1
End If

[Mohammad6490]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
فکر نمی کنم مشکلی داشته باشه،فقط باید اول برنامه اون پایه رو به عنوان خروجی تعریف کنی

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
چی جوری باید اون پایه رو به عنوان خروجی تعریف کنم . و کجای برنامه باید این کارو بکونم ؟

[Mohammad6490]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
همون اول برنامه که بقیه چزها مثل lcd رو پیکربندی کرده،اینو بنویس:
Config Portb = Output
البته دوست عزیز میتونی از help بسکام هم کمک بگیری

[mahmood karimi]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
من یه پروژه دماسنج دیجیتال با bascom avr دارم .

می خوام دماسنجم از یه دمایی بالاتر یه led یا fan رو به کار بندازه .

کد نویسی زیر رو دارم ولی نمی دوونم که چیکار کنم که از یه دمایی به بالاتر fan یا led رو به کار بندازه

کسی هست بتونه کمکم کنه

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

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام

آقا دستت درد نکنه از همتون ممنونم که کمکم کردین
ایشالا بتونم جبران کنم

[meisam.mobini]

پاسخ : اگه ممکنه کمکم کنید (دماسنج)

سلام
آقا این برنامه رو شما مطمئن هستین که درست هستش؟
چون من می خوام بدم بیرون میکرو ، پروگرم کنن؟