صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11
عزیز جان شما تو همون جا یه نگاه به منحنی داده شده بنداز
میبینی که خطی نیست و غیر خطیه
و نور محیط (لامب رشته ای یا مهتابی یا خوریشد یا هر چیز دیگه) خیلی توی این منحنی تاثیر داره و دقت رو کم میکنه و تلرانس خطا رو افزایش میده
استادان محترم من یه ماژول 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
ممنون میشم کمک کنید
(۰۱-آبان-۱۳۸۸, ۲۳:۰۵:۵۷)king-jack نوشته است: [ -> ]سلام و با تشکر از همه دوستان
من تازه وارد انجمن شدم
دارم برا بار اول دارم از التراسونیک 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
سلام
ماژول شما هم srf02؟
فرکانس و روی 8مگ داخلی بذارید
Enable Interrupts واسه چیه؟
اضافیه اون و برش دارید
شبیه ساز یا نقشه شماتیک هم پیوست کنید
(۱۹-بهمن-۱۳۹۳, ۲۱:۴۲:۳۴)r0b0 نوشته است: [ -> ]سلام
ماژول شما هم srf02؟
فرکانس و روی 8مگ داخلی بذارید
Enable Interrupts واسه چیه؟
اضافیه اون و برش دارید
سلام
بله
برای وقفه سراسری
برش داشتم اما جواب ندادش
وقتی سنسور برمیدارم برا خودش عدد نشون میده
وقتی سنسور میذارم هیچی نشون نمیده انگار مدار هنگ میکنه و قفل میشه
ledسنسور کار میکنه وقتی مدار روشن میکنم
صفحه‌ها: 1 2 3 4 5 6 7 8 9 10 11