سلام دوستان.من مدار فاصله سنج کتاب مهندس عبدالرحمن حیدری رو بستم.اما اعدادی که نشون میده هی متغیره.کسی هس کمک کنه یا مدار دیگه ای که خودش بسته باشه و جواب گرفته باشه رو پیشنهاد بده؟
سلام دوستان.من مدار فاصله سنج کتاب مهندس عبدالرحمن حیدری رو بستم.اما اعدادی که نشون میده هی متغیره.کسی هس کمک کنه یا مدار دیگه ای که خودش بسته باشه و جواب گرفته باشه رو پیشنهاد بده؟
اینم مدارشه
اینم برنامش
$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portb.0 , Db5 = Portb.1 , Db6 = Portb.2 , Db7 = Portb.3 , E = Portb.5 , Rs = Portb.4
Config Timer1 = Timer , Prescale = 8
Config Int1 = Rising
Enable Interrupts
Enable Int1
On Int1 Receive
Dim A As Single , B As Single , C As Byte
C = 0
A = 0
B = 0
Config Pind.6 = Output
Cls
Cursor Off
Do
Start Timer1
Set Portd.6
Waitus 100
Reset Portd.6
Loop
End
Receive:
Stop Timer1
Reset Portd.6
C = 0
A = 0
B = 0
A = Timer1
B = A
If A > 8000 Then
Cls
Locate 1 , 1
Lcd "OUT OF RANGE"
Goto Down
End If
A = A / 100
Cls
Home
Lcd A
Locate 2 , 1
Lcd B
Down:
Timer1 = 0
A = 0
B = 0
Return
ویرایش توسط pahpad.elect : 12-09-2013 در ساعت 12:25
سلام
من این مدار را نبستم ولی در چنین مدارهایی شما باید طبقه به طبقه سخت افزارتان را تست کنید و ببینید جواب مورد نظر را می دهد یا نه و بعد به طبقه بعدی بروید و با کارکرد هر طبقه نیز آشنا باشید
این که یک مداری که از قبل آماده شده را بگیرید و ببندید و انتظار داشته باشید سریع به جواب مورد نظر خود برسید راهی است اشتباه
برای برنامه نویسی هم اون Config Pind.6 = Output را ببر خط سوم بهتره
Goto Down را هم پاک کن همون کارهای که توی زیر روالش می شه را توی همون IF بنویس
موفق باشید
ویرایش توسط skiboys : 12-09-2013 در ساعت 14:00
خیر مهندس.چون مدار نوسان ساز داره و دارای فرکانس رزونانسه.اگه اسکوپ داشتم تاحالا هزار بار راش انداخته بودم.سنسور روی فرکانس رزونانسش حساسه