ماژول اولتراسونیک SRF02

[reza555]

عزیز جان شما تو همون جا یه نگاه به منحنی داده شده بنداز
میبینی که خطی نیست و غیر خطیه
و نور محیط (لامب رشته ای یا مهتابی یا خوریشد یا هر چیز دیگه) خیلی توی این منحنی تاثیر داره و دقت رو کم میکنه و تلرانس خطا رو افزایش میده

[alime]

استادان محترم من یه ماژول srf02 گرفتم و خیلی هم باورتون نمیشه شب و روز دنبال طریقه راه اندازی این ماژول بودم فایل آموزشی ارایه شده در سایت رو هم جندین بار مطالعه کردم و با انواع ورژن bascom تست  کردم اما راه نیفتاد
اصلا وقتی پایه gnd ماژول رو به منفی منبع تغذیه وصل میکنم هیچ اطلاعاتی از ماژول رو lcd یا میکرو نمی آد ولی وقتی فقط پایه mode رو وصل میکنم چندین با که برق 5volt رو قطع و وصل میکنم اطلاعاتی رو صفحه lcd می آد که اگثرا فاصله رو به اشتباه ارسال کرده و عددهای مختلفی رو میبینم

کدی که تو basecom نوشتم دقیقا چیزی هست که در مقاله ارایه شده بود

کد:

$regfile = "m32def.dat"
$crystal = 12000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portc.4 , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = _
Portc.7 , E = Portc.2 , Rs = Portc.0
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Enable Interrupts
Cursor Off
Cls
Do
Printbin 0
Waitms 50
Printbin 84
A = Waitkey()
B = Waitkey()
C = A * 256
C = C + B
Locate 1 , 1 : Lcd "R=" : Lcd C : Lcd "Cm "
Loop
End

ممنون میشم کمک کنید

[behroz2010]

سلام و با تشکر از همه دوستان
من تازه وارد انجمن شدم
دارم برا بار اول دارم از التراسونیک sfr02استفاده میکنم در کدویژن
اینم برنامه

m=0x00;
n=0x51;
putchar(m);
delay_ms(20);
putchar(n);
delay_ms(70);
n=0x5E;
putchar(n);
a=getchar();
b=getchar();
c=(a*256)+b;

[align=right]
کار نمیکنه
led ماژول وقتی vcc وصل میشه و rx tx قطع است روشن خاموش میشه ولی وقتی اونا وصلا اصلا روشن نمیشه
در ضمن وقتی vcc قطعه و بقیه سیم ها وصل به تعداد بار فرستادنم led چشمک میزنه یعنی اگر برنامه بالا رو دوبار راه بندازم دو سری چشمک زن دارم

سلام منم همچین مشکلی دارم وقتی سنسور وصل میکنم هیچی نشون نمیده
وقتی برش میدارم چرت و پرت نشون میده

کد:

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

$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = _
  Portb.4 , E = Portb.0 , Rs = Portb.5
Config Lcd = 16 * 2
Dim A As Byte
Dim B As Byte
Dim C As Word
Dim Cc As Single
Enable Interrupts

Cls
Cursor Off

Do

Printbin 0
Waitms 5
Printbin 84

A = Waitkey()
B = Waitkey()

C = A * 256
C = C + B

Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "


Loop

End

[omid_phoenix]

سلام
ماژول شما هم srf02؟
فرکانس و روی 8مگ داخلی بذارید
Enable Interrupts واسه چیه؟
اضافیه اون و برش دارید

[omid_phoenix]

شبیه ساز یا نقشه شماتیک هم پیوست کنید

[behroz2010]

سلام
ماژول شما هم srf02؟
فرکانس و روی 8مگ داخلی بذارید
Enable Interrupts واسه چیه؟
اضافیه اون و برش دارید

سلام
بله
برای وقفه سراسری

[behroz2010]

برش داشتم اما جواب ندادش
وقتی سنسور برمیدارم برا خودش عدد نشون میده
وقتی سنسور میذارم هیچی نشون نمیده انگار مدار هنگ میکنه و قفل میشه
ledسنسور کار میکنه وقتی مدار روشن میکنم