فاصله یاب التراسونیک

[ALIJAVEDI]

با سلام به دوستان
برنامه زیر برای فاصله یاب التراسونیک با ماژول هست
اون چند تا خطی که با مثبت علامت زدم برای چیه ؟؟
ایا این برنامه عملی میشه ؟؟

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

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Pinb.0 , Db5 = Pinb.1 , Db6 = Pinb.2 , Db7 = Pinb.3 , Rs = Pinb.4 , E = Pinb.5
Cursor Off
Cls

Config Portd.7 = Output 'tarife paye haye eco va trig
Config Pind.6 = Input
Dim A As Word
Dim B As Single
Dim F As String * 10 'tarife moteghayer
Dim E As Byte
Dim C As Byte
C = 0
Cls
Locate 1 , 1
Lcd " "
Waitms 500

Do
Toggle Portb.0 +++
Toggle Portb.1 +++

Pulseout Portd , 7 , C 'ersale pulse
Pulsein A , Pind , 6 , 1 'daryafte pulse
B = A * 0.1735 +++
F = Fusing(b , "&.&&&quot +++

Cls
Home
Lcd "distance:" ; F ; "cm"
Locate 2 , 1
Lcd " "
Waitms 300

Loop
End

[shahpoori]

پاسخ : فاصله یاب التراسونیک

درود
اون دوتا پورت b.0,b.1 احتمالا دوتا led بش وصله که چشمک بزنه
B = A * 0.1735 واسه کالیبره کردنه که فاصله را درست نشون بده
F = Fusing(b , "&.&&&quot اگه درست یادم باشه واسه گرد کردن یا ارقام اعشار بدست اومده باشه

[ALIJAVEDI]

پاسخ : فاصله یاب التراسونیک

درود
اون دوتا پورت b.0,b.1 احتمالا دوتا led بش وصله که چشمک بزنه
B = A * 0.1735 واسه کالیبره کردنه که فاصله را درست نشون بده
F = Fusing(b , "&.&&&quot اگه درست یادم باشه واسه گرد کردن یا ارقام اعشار بدست اومده باشه

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

[jumper]

پاسخ : فاصله یاب التراسونیک

سلام
فکرکنم عملی باشه
مدارش زیاد سخت نیست ببند تست ککن کاری نداره که

[ALIJAVEDI]

پاسخ : فاصله یاب التراسونیک

اره باید مدار رو ببندم
یک سوال دیگه :
با ارسال این دستور چه فرکانسی ارسال میشه به ماژول ؟ ----> Pulseout Portd , 7 , C
این همون فرکانس 40khz هست ؟

[jumper]

پاسخ : فاصله یاب التراسونیک

Pulseout PORTX , Y , Period
با این دستور میتوان یک پالس بر روی پورت PORTX و پایه Y دلخواه با زمان تناوب Period دلخواه بر حسب میکرو ثانیه ایجاد کرد
که اینجا پریود شما متغیر c هست