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

[Mohammad6490]

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

سلام
بهترین کار اینه که قبل از پرگرام کردن،برنامه رو با پروتئوس چک کنید،به جای سنسور هم از یه پتانسیومتر استفاده کنید

[mahmood karimi]

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

ببخشید دوست عزیز اگه دیر جواب دادم
آقا من فایل های این برنامه را با مخلفاتش را پلود کردم شاید به درد کسی دیگه هم بخوره.
و اما اینکه جواب میده یا نه. 99.99% جواب می ده تو پروتئوس که جواب داده ولی عملی نبستم. شما ببند جوابش را بزار تا بقیه هم استفاده کنند.
http://www.4shared.com/dir/1869909/d27c9a5b/termoostat.html

راستی همین جا وظیفه خودم می دونم از دوست خوبم استاد shockley هم تشکر کنم.

[meisam.mobini]

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

سلام

آقا شرمنده میشه یه کمکی دیگه بهم کنید ...
من می خوام این دما سنج رو تو پروتئوس ببندم
اما من اسم قطعات تخصصی رو تو پروتئوس بلد نیستم میشه اسم قطعات رو برام لیست کنید البته به زبون انگلیسی ...
ممنون میشم اگه این بارم کمکم کنید !!! :sad:

[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
Config Lcdpin = Pin , Db4 = Portd.3 , Db5 = Portd.2 , Db6 = Portd.1 , Db7 = Portd.0 , E = Portd.6 , Rs = Portd.7

************Config Portc = Output

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

Cls
Cursor Off
Locate 3 , 1
Lcd "0"
Locate 3 , 5
Lcd "10"
Locate 3 , 10
Lcd "20"
Locate 3 , 15
Lcd "30"
Locate 3 , 19
Lcd Chr(223) ; "C"

************Locate 1 , 12
************Lcd "meisam..."

Do
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 Volt > 20 Then
************Portc.4 = 1
************Locate 4 , 7
************Lcd "Warning"
************End If
************If Volt < 20 Then
************Portc.4 = 0
************Locate 4 , 7
************ Lcd " "
************End If

Locate 2 , 1
For I = 1 To Cols
Select Case I
Case 1 : Lcd Chr(3)
Case 5 : Lcd Chr(4)
Case 10 : Lcd Chr(4)
Case 15 : Lcd Chr(4)
Case 20 : Lcd Chr(4)
Case Else : Lcd Chr(0)
End Select
Next I

Cols_d = Cols Mod 2
If Cols_d > 0 Then
Lcd Chr(5)
Cols = Cols + 2
Else
Cols = Cols + 1
End If

For I = Cols To 20
Select Case I
Case 1 : Lcd Chr(2)
Case 5 : Lcd Chr(1)
Case 10 : Lcd Chr(1)
Case 15 : Lcd Chr(1)
Case 20 : Lcd Chr(1)
Case Else : Lcd Chr(32)
End Select
Next I

Waitms 1000
Loop
End

[meisam.mobini]

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

سلام


میشه یه نگاه به برنامه بالا بندازین !!!!

اونجایی که ستاره داره خودم اضافه کردم ، اما نمیدونم درسته یا نه ؟؟؟ :sad:

می خوام برم بدم میکرو برام پروگرم کنن ، اگه می تونید کمکم کنید ببینید این برنامه درست یا نه؟ :smile:

[Mohammad6490]

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

سلام دوست عزیز
من مدارو تو پروتئوس برات بستم خودت برنامتو تست کن
http://www.4shared.com/file/10266186/5acbcc96/meisam-mo.html

[meisam.mobini]

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

سلام

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

بازم بابت کمک هاتون خیلی ممنونم :smile:

[Mohammad6490]

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

سلام
روی پتانسیومتر دوتا علامت هست،وقتی شبیه سازی رو اجرا کردی ،در حین کار میتونی با اون کلیدها مقدار مقاومت پتانسومتر رو عوض کنی که در نتیجه ولتاژ ADC تغییر می کنه

[mahmood karimi]

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

سلام دوست عزیز
من مدارو تو پروتئوس برات بستم خودت برنامتو تست کن
http://www.4shared.com/file/10266186/5acbcc96/meisam-mo.html

آقا محمد سلام
از اینکه من را از شرمندگی آقا میثم در آوردی ممنون آخه من پروتئوسم خرابه. (مثبت) :arrow:

[tomcat2]

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

با سلام
اساتید محترم لطفا به من کمک کنید تا این برنامه دمای زیرصفر(منفی) را هم نشان دهد.