ریموت کنترل 8 کاناله

[Mehdi/Sh]

با سلام خدمت دوستان
کسی شماتیک و کد پروژه ریموت 8 کاناله داره ؟؟
از avr استفاده شده باشه ...


پیشاپیش ممنون

[sobhan537]

ریموت مادون قرمز یا رادیویی؟ اگر مادون قرمز میخواید، میتونید از پروتکل rc5 استفاده کنید. در اینصورت میتونید تعداد کانالهای خیلی بیشتری داشته باشید.

[infom]

اگر خواستی مجله شماره 8 نویز برایCodeVisionAVR C Compiler
یا فایل پیوست برای بسکام استفاده کن

[Mehdi/Sh]

از دوستان عزیز عذر میخوام که ذکر نکردم .
ریموت رادیویی منظورم بود .
من رشتم الکترونیک نیست و میخوام در کنترلر هواپیما استفاده کنم .
پروژه آماده زیر رو در Proteus شبیه سازی کردم اما فرستنده ارور میده :
http://jap.hu/electronic/codec.html

[sobhan537]

میتونید از ماژولهای رادیویی ask و آی سی های pt2262 و pt2272 استفاده کنید. تو اینترنت سرچ کنید، مدارشو پیدا میکنید.

[Mehdi/Sh]

بله مدارشو پیدا کردم اما میخوام avr باشه .

[Mehdi/Sh]

دوستان یعنی نوشتن برنامش انقدر سنگینه ؟
کسی نیست کمکم کنه ؟؟
4 کاناله هم با avr باشه خوبه

[Doloop]

سلام

دوستان یعنی نوشتن برنامش انقدر سنگینه ؟
کسی نیست کمکم کنه ؟؟
4 کاناله هم با avr باشه خوبه

چه کاریه وقتی با دو تا آیسی 300 تومنی مشکل حل میشه بیای از میکرو استفاده کنی ..!!!
شما مثل اینکه اجباری توی کارتون وجود داره که میگید حتما با AVR باشه
اگر ممکنه بیشتر توضیح بدید که آیا میخواهید توی فرستنده و گیرنده میکرو قرار بدید یا نه فقط توی گیرنده ...
به اینجا یه سر بزنید ...

[infom]

برای این کار از هر پورتکلی می شود استفاده کرد مثل rc5فقط بجای سنسورها مادون قرمز از ماژولهای فرستنده یا گیرنده rf استفاده باید شود

[infom]

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

[Mehdi/Sh]

دوستان موبایل response سریع نداره ...
میشه پروژه موجود در این pdfo به فایل hex تبدیل کنید .
که من مستقیم شبیه سازی کنم و بعد پروگرام کنم رو IC .
( پروژه فرستنده گیرنده 6 کاناله موجود در pdf )
ممنون از زحمات دوستان

[Mehdi/Sh]

چه انجمن فعالی

[Mehdi/Sh]

دوستان کسی میتونه اشکال این برنامه نویسی رو بگیره ؟؟
ممنون :
transmitter :
regfile = "m8def.dat"
$crystal = 4000000
$baud = 1200
Config Portc = Input
Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim C5 As String * 13
Dim C6 As String * 13
Dim A As Byte
C1 = "CANAL1"
C2 = "CANAL2"
C3 = "CANAL3"
C4 = "CANAL4"
C5 = "CANAL5"
C6 = "CANAL6"
Main:
Do
If Pinc.5 = 1 Then Goto B1
If Pinc.4 = 1 Then Goto B2
If Pinc.3 = 1 Then Goto B3
If Pinc.2 = 1 Then Goto B4
If Pinc.1 = 1 Then Goto B5
If Pinc.0 = 1 Then Goto B6
Loop
End
B1:
For A = 1 To 5
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main
B2:
For A = 1 To 5
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main
B3:
For A = 1 To 5
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main
B4:
For A = 1 To 5
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main
B5:
For A = 1 To 5
Print C5 ; Chr(13);
Waitms 20
Next A
Goto Main
B6:
For A = 1 To 5
Print C6 ; Chr(13);
Waitms 20
Next A
Goto Main




Receiver :
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 1200
Config Portc = Output
Dim A As Byte
Main:
Do
Input A
If A = "canal1" Then Goto B1
If A = "canal2" Then Goto B2
If A = "canal3" Then Goto B3
If A = "canal4" Then Goto B4
If A = "canal5" Then Goto B5
If A = "canal6" Then Goto B6
Loop
End
B1:
Set Portc.5
Waitms 50
Reset Portc.5
Goto Main
B2:
Set Portc.4
Waitms 50
Reset Portc.4
Goto Main
B3:
Set Portc.3
Waitms 50
Reset Portc.3
Goto Main
B4:
Set Portc.2
Waitms 50
Reset Portc.2
Goto Main
B5:
Set Portc.1
Waitms 50
Reset Portc.1
Goto Main
B6:
Set Portc.0
Waitms 50
Reset Portc.0
Goto Main

[Doloop]

سلام

مهندس عزیز الان بگم مشکلی نیست آخه مشکل شما حل نمیشه که...!!!

این طریقه سوال کردن شما اشتباه است که پروژه ای رو اینجا قرار دادید تا کس دیگه ای بیاد کل برنامه رو چک کنه که ببینه ایراد داره یا نه ؟!!!
بعدش هم که کسی نبود برنامه رو قرار دادید ...
واقعیتش اینه که کسی همچین وقتی نمیزاره مگر خیلی دیگه لطف کنه .... چون کاریست زمانبر و بنظر من اشتباه ...!!!
اگر شما واقعا قصد یادگیری داشته باشید باید خودتون خط به خط برنامه رو نگاه کنید هر جا رو متوجه نشدید بیاد سوال کنید که مثلا کار این چندتا خط برنامه دقیقا چیه !!! نه اینکه کل پروژه رو قرار بدید ...

الانم که میبینید اینجا سوت و کوره بخاطر اینه که فصل امتحاناته و مشغله کاربران زیاده .

شما لطفا پروژتون رو خوب توجیه بفرمائید ببینیم دقیقا دنبال چی هستید،مثلا این ریموت قراره برای چه کاری استفاده بشه ، کجا استفاده بشه (شرح شرایط محیطی) و...
در پست های قبل هم گفتید با AVR باشه بنده عرض کردم وقتی بدون AVR میشه چرا میکرو نیازه الان با دیدن این برنامه متوجه شدم شما AVR رو میخواستید که مثلا با زدن کلید کاری فراتر از قطع و وصل جریان انجام بشه
برنامه هم در ظاهر مشکلی نداره مگر اینکه منظور شما قسمت خاصی از برنامه باشه

قسمت فرستنده : اگر کلیدی فشرده بشه عبارتی پرینت میشه (از طریق پورت سریال ارسال میشه) که نشون میده کدوم کلید فشرده شده است ...

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

باز سوال خاصی بود در خدمتیم

موفق باشی ...

[Mehdi/Sh]

ممنون
مشکلم تو برنامه بالا حل شد .
فقط الان مشکلم اینه که دوتا دکمه همزمان نمیشه استفاده کرد .
چندتا راهنمایی میخوام :
1- اینکه میشه از پروتوکل rc5 روی rf استفاده کرد ؟ از دو یا چند دکمه همزمان پشتیبانی میکنه ؟
منظور لحظه ای هست . یعنی به محض عدم فشار دکمه پورت مورد نظر در گیرنده 0 بشه .
2- اینکه دستوری هست کد باینری گرفته شده از سریال رو آنالیز کنه ؟
مثلا در ازای هر رقم از عدد 011011 یه پورت 0 یا 1 بشه .

[sobhan537]

1- بله
2- یا خودتون باید تو برنامه آنالیزش کنید. یا یک پورت رو مساوی با اون عدد باینری قرار بدید.