درخواست راهنمایی درباره دماسنج و رطوبت سنج

[fedagh]

سلام دوستان
من یه دماسنج با LM35 و رطوبت سنج با HS1101 رو می خوام درست کنم که حقیقتاً تا حالا با تایمر کانتر میکرو کار نکردم(بسکام AVR) از روی سایر برنامه ها و کتاب ها یه همچین برنامه ای رو نوشتم حالا اون دماسنج که راحته و جواب میده من توی اون رطوبت سنجه گیر کردم نمیدونم چه ایرادی داره که همه فرکانس های ورودی رو صفر نشون میده و اینم بگم که توی شبیه سازی فعلاً اومدم یه سیگنال مشخص پالس رو به T1 دادم تا بعداً عملی از سنسور و IC 7555 استفاده کنم. در حال حاضر به نظرم تا اینجای کار باید جواب بده و بعداً کلیدها و خروجی رو باید فعال کنم. دوستانی که میتونن لطفاً راهنمایی کنن فایل پروتیوس و عکسش و برنامه رو میزارم دوستان بی زحمت کمک کنید. پیشاپیش ممنون
لینک دانلود فایل: http://s8.picofile.com/file/82735317...meter.zip.html

[fedagh]

پاسخ : درخواست راهنمایی درباره دماسنج و رطوبت سنج

سلام. دوستان کسی نمیتونه راهنمایی کنه؟ خیلی خیلی لازمش دارم.

[Eng.Ramezani]

پاسخ : درخواست راهنمایی درباره دماسنج و رطوبت سنج

$regfile = "m8def.dat"
$crystal = 8000000






Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Pinc.5 , E = Pinc.4 , Db4 = Pinc.3 , Db5 = Pinc.2 , Db6 = Pinc.1 , Db7 = Pinc.0
Config Timer1 = Timer , Prescale = 1


Config Int0 = Rising
Enable Timer1
Enable Int0
Enable Interrupts


Timer1 = &H0000
Stop Timer1


On Timer1 _stop_time
On Int0 Count


Dim Ak As Word
Dim B As Byte : B = 0
Dim Ar As Integer , A As Byte , I As Byte , Temperatur As Integer
Dim Halb As Byte , Temp As Byte
Dim Ss As String * 6
Dim Mos As Word
Dim Aaa As Single


Cls
Cursor Off


Home


Do






Disable Interrupts












Mos = Ak - 1000
Mos = Mos / 4


Cls
Home
Lcd "MOS:" ; " " ; Mos ; "%"
Lowerline
Lcd " " ; Ak
Enable Interrupts


Waitms 500
Loop




End










Count:






Select Case B


Case 0:
B = 1
Tcnt1 = &H0000
Start Timer1


Case 1:
Stop Timer1
B = 0
Ak = Timer1


Tcnt1 = &H0000




End Select








Return




_stop_time:




Return