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

[mostafaserial]

سلام
من 4 تا از این ماژول srf02 دارم با سریال فقط تونستم یه دونه رو راه بندازم برای 4 تا باید چیکار کنم؟ سریال بهتره یا i2c?

[t3r!p3000]

مهندس با دستور OPEN می تونی تا دلت بخواد پروت سریال اضافه کنی !!!

I2C بهتره ولی سریال راحت تره و دنگ فنگش کمتر !!!

[mostafaserial]

یه نمونه سورس ندارین
اینو برای 4 تا تغییر بدیتن لطفا
Cls
Do

Printbin 0
Waitms 50
Printbin 84


A = Waitkey()
B = Waitkey()



C = A * 256
C = C + B




Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "'End If

Loop

End

[ilgar]

برای هر کدوم از سنسورها هم یه کد بدین خوب یادم نیست از 0 تا 7 یا 15 یا ... قبول میکرد تا بطور مستقل بتونید با هر کدوم از سنسورها تبادل داده بکنید

[mostafaserial]

سلام
ممنون
میدونم، منظورم اینه من هر جهار تا ماژول رو به ورودی rx,tx یه میکرو میخوام وصل کنم
حالا باید چیکار کنم لطفا کمک کنین خیلی لازم دارم

[ilgar]

از یه گیت OR چهار ورودی استفاده کنید.
البته تو این حالت منطق سریال رو باید اینورت کنید.

[mostafaserial]

حالا اگه بخوام با i2c بنویسم برای 4 تا باید چیکار کنم؟

[t3r!p3000]

دو پایه txd و rxd میکرو نقش دریافت و ارسال داده را در حالت پیشفرض برعهده دارند ، با دستور زیر شما میتوانید این دو پایه را به پایه های دلخواه تغییر دهیدی یا اضافه کنید

کد php:

Open "comx.y:$baud,8,n,1" For Output/input As #q 


comx.y : نام پورت و پایه ای است که باید به عنوان txd یا rxd جدید عمل کند.

:$baud نرخ داده عبوری از پایه را نشان میدهد ، این مقدار باید با نرخ انتقال دیتا ی اصلی برابر باشد.

Output/input : پایه میتواند وردی داده( rxd) یا خروجی داده( txd ) باشد.

Q : شماره کانال را مشخص میکند.
مانند:

کد php:

Open "comd.1:19200,8,n,1" For Output As #1
Open "comd.0:19200,8,n,1" For Input As #2 


در مورد بالا portd.1 به عنوان txd و portd.0 به عنوان rxd در نظر گرفته شده است ، همچنین نرخ انتقال داده برابر با 19200 است.

[mostafaserial]

یعنی من میتونم چند تا ورودی خروجی سریال داشته باشم

[t3r!p3000]

آره !

تا دلت بخواد !

تو هلپ بسکام سرچ کن و مثالهاشو ببین !

[amolrobotic]

سلام
میتونی این دستوراتوOpen "comd.1:19200,8,n,1" For Output As #1
Open "comd.0:19200,8,n,1" For Input As #2
بااین دستورات زیر

Do

Printbin 0
Waitms 50
Printbin 84


A = Waitkey()
B = Waitkey()



C = A * 256
C = C + B




Locate 1 , 1 : Lcd "Range1=" : Lcd C : Lcd "Cm "'End If

Loop

End

با هم برای 4 تا ماژول سر هم کنی؟ من قاطی کردم