کمک مدار کتاب مهندس حیدری(فاصله سنج

[pahpad.elect]

سلام دوستان.من مدار فاصله سنج کتاب مهندس عبدالرحمن حیدری رو بستم.اما اعدادی که نشون میده هی متغیره.کسی هس کمک کنه یا مدار دیگه ای که خودش بسته باشه و جواب گرفته باشه رو پیشنهاد بده؟

[pahpad.elect]

اینم مدارشه


اینم برنامش

$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

[skiboys]

سلام
من این مدار را نبستم ولی در چنین مدارهایی شما باید طبقه به طبقه سخت افزارتان را تست کنید و ببینید جواب مورد نظر را می دهد یا نه و بعد به طبقه بعدی بروید و با کارکرد هر طبقه نیز آشنا باشید
این که یک مداری که از قبل آماده شده را بگیرید و ببندید و انتظار داشته باشید سریع به جواب مورد نظر خود برسید راهی است اشتباه
برای برنامه نویسی هم اون Config Pind.6 = Output را ببر خط سوم بهتره
Goto Down را هم پاک کن همون کارهای که توی زیر روالش می شه را توی همون IF بنویس
موفق باشید

[pahpad.elect]

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

[skiboys]

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

خب من چنین موقع های می رفتم دانشگاه اگه دانشجو هستی ببر دانشگاه با اسکوپ اونجا تست کن یا از دوستان بگیر
راستی این تاخیر راا چطور حساب کردی ؟
Waitus 100