کنترل مادون قرمز با PT2262

[رسول]

رسول جان این فرستنده گیرنده رو اگه ساختی بگو بردش چقدره

حالت بدون میکرو که مدارشو بالا گذاشتم امتحان نکردم چونکه قطعه زیاد داره ویکم جاگیره!
من با مادون قرمز ومیکرو یک کانالشو ساختم که با کنترلهای معمولی تا10متر جواب داد شایدم بیشتر باشه ...
اما من در مورد برنامه میکرو چند کاناله(بیشتر از یک کاناله) مشکل دارم...

اگه دوستان در این زمینه کار کردن لطفا برنامشو برای ما هم بزارن تا ماهم فیض ببریم

[رسول]

آقا کسی در این زمینه کار نکرده؟؟؟؟؟؟؟؟؟
کنترل مادون قرمز چند کاناله با میکرو واسه من حیاتیه هاااااااااااااااااااااا

[t3r!p3000]

مهندس رسول جان تو هلپ بسکام یه RC5 سرچ کنی دستوراتش رو میفهی!

خیلی آسونه و راحت هم می تونی جواب بگیری !

[t3r!p3000]

از کتاب سعید یه نفر :

RC5:

امروزه گيرنده و فرستنده هاي مادون قرمز که آنها را با نام تجاري گيرنده و فرستنده هاي rc5 ميشناسند رواج فوق العاده اي پيدا کرده اند ، از آنها در کنترل از راه دور ، سنسور هاي شمارنده ، ربات ها و .... استفاده فرواني مي شود.در زير شکل گيرنده ( يا فتوترانزيستور ) آن را ميبينيد:

فرستنده ( يا ir-led ) دقيقا مانند يک led ميباشد که رنگ آن سفيد است ، اتصال گيرنده به ميکرو مطابق شکل زير است: (نوع 2 پايه اين سنسور نيز موجود ميباشد که به نام گيرنده مادون قرمز معروف است ، اتصال نوع دو پايه بدون vcc صورت ميگيرد ، نوع دوپايه باعث ايجاد خطاي غير قابل چشم پوشي مي شود ، به طوري که از آن فقط در موارد تشخيص مانع استفاده ميگردد)

اتصال فرستنده به ميکرو مانند شکل زير است :

ترانزيستور نقش تقويت پالسها و ديگر قطعات وظيفه حذف نويز را به عهده دارند .در زير ابتدا به پيکر بندي فرستنده ميپردازيم:

فرستنده مادون قرمز با دستور زير راه اندازي مي شود:

کد php:

RC5SEND togglebit, address, command 


Togglebit : به جاي اين واژه شما بايد 0 يا 32 قرار دهيد ، اين اعداد نشان دهنده سطح شروع ارسال پالس ميباشند.

Address : نشان دهنده آدرس دستور است که ميتواند به فرم باينري هگز يا دسيمال باشد .(در گيرنده و فرستنده بايد آدرس دستور فرستاده شده و دستور گرفته شده يکي باشد ، تا دستور اجرا شود)

Command : نشان دهنده فرمان است که ميتواند به فرم باينري ، هگز يا دسيمال باشد. (مثلا شما در گيرنده دستور زير را ارسال مي کنيد .

کد php:

Rc5send 0 , 20 , 12 


در گيرنده با دستوراتي که بعدا گفته مي شود ، اين کد را دريافت ميکنيد ، سپس با يک دستور if ميتوانيد هر کاري که خواستيد انجام دهيد ، اگر دستور 12 و آدرس 20 بود پين b.0 را يک کن )وقتي rc 5 پيکر بندي مي شود ، پايه OC1(A) به عنوان خروجي داده قرار ميگيرد و فرستنده بايد به اين پايه متصل شود ، در اين حالت ديگر نميتوان از وقفه هاي تايمر 1 استفاده کرد.

در مثال زير با نحوه کار اين فرستنده بيشتر آشنا ميشويد:

کد php:

$regfile = "2313def.dat"
$crystal = 4000000
Config Portd = Input
Do
Debounce Pind.0 , 0 , Q
Debounce Pind.1 , 0 , W
Loop
Q:
Rc5send 32 , 0 , 12
Wait 1
Return
W:
Rc5send 32 , 0 , 13
Wait 1
Return
End 


در حالت قبل کد ها نوشته شده بدون هيچ تغييري به خروجي ارسال ميشد ، حالتي وجود دارد که شما ميتوانيد کد ارسالي را با يک کد باينري ترکيب کنيد ( کد را به صورت رمز در اوريد) براي اين کار از دستور زير استفاده مي شود:

کد php:

RC5SENDEXT togglebit, address, command 


همه چيز مانند حالت قبل است فقط به جاي togglebit ميتوانيد هر عددي که دلتان ميخواهد قرار دهيد تا با دستور ترکيب شده و ارسال شود (در گيرنده بايد عدد گذاشته شده را برداريد که در ادامه توضيح داده مي شود).
مانند:

کد php:

$regfile = "2313def.dat"
$crystal = 4000000
Config Portd = Input
Do
Debounce Pind.0 , 0 , Q
Debounce Pind.1 , 0 , W
Loop
Q:
Rc5sendext &B11000000 , 0 , 26
Wait 1
Return
W:
Rc5sendext 9 , 0 , 30
Wait 1
Return
End 


[t3r!p3000]

راه اندازي گيرنده rc5 :

گيرنده rc5 که شکل وطريقه اتصال آن به ميکرو را در بالا مشاهده کرديد با دستور زير راه اندازي مي شود:

کد php:

CONFIG RC5 = pin 


که pin نام پايه دلخواه ميکرو ميباشد که پايه خروجي گيرنده سه پايه rc5 به آن متصل مي شود.با دستور زير ميتوان اطلاعات دريافتي توسط گيرنده rc5 را اشکار کرد:

کد php:

GETRC5( address, command ) 


Address و command اطلاعات مربوط به دستور وآدرسي مي باشند که توسط فرستنده ارسال شده و توسط گيرند دريافت مي شود ، اين اطلاعات بايد در متغيير هاي مناسب ريخته شوند و مورد استفاده قرار گيرند ، متغيير ميتواند از جنس bayt يا word باشد .

مانند(اين برنامه براي گيرنده مثال مي باشد)

کد php:

$regfile = "2313def.dat"
$crystal = 4000000
Config Portd = Output
Config Rc5 = Pind.7
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Command = 12 Then
Set Portd.0
Reset Portd.1
End If
If Command = 13 Then
Set Portd.1
Reset Portd.0
End If
Loop
End 


[t3r!p3000]

ساخت کنترل تلويزيون و سي دي sony:

توسط دستور زير ميتوان دستورات مخصوص کنترل تلوزيون و cd سوني را به اين دستگاه ارسال کرد.

کد php:

SONYSEND address 


address : آدرس نام دستور است که با ارسال آن به تلوزيون کار مخصوص آن انجام مي شود ، در زیر جدول کدهاي مخصوص تلوزيون هاي sony امده است:

مثال

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Config Kbd = Portd
Dim A As Byte
Dim B As Byte
Q:
A = Getkbd()
If A > 15 Then
Goto Q
End If
B = Lookup(a , Dat)
Sonysend B
Goto Q
End
Dat:
Data &H090 , &H890 , &H490 , &HC90 , &HA90 , &H290 , &H010 , &H810 , &H410 , &HC10 , &H210 , &HA10 , &H610 , &HE10 , &H110 , &H910
'program +,program -,volume +,volume -,power,sound on/off,1,2,3,4,5,6,7,8,9,0 


در برنامه بالا با استفاده از ميکرو مگا 8 و فرستنده rc5 يک کنترل مخصوص تلوزيون سوني ساخته شده است ، فرستنده rc5 مطابق مداري که در بالا معرفي شد به پايه oc1a ميکرو (پايه 15 ) متصل مي شود شما ميتوانيد از ميکرو مگاهشت L استفاده کنيد و اين مدار را با 3 ولت راه اندازي کنيد ، کد مربوط به ديگر دستگاهاي شرکت SONY را ميتوانيد از آدرس زير بدست اوريد:
http://www.fet.uni-hannover.de/purnhage/

نام کليد کد هگز کد باينري
program + &H090 0000 1001 0000
program - &H890 1000 1001 0000
volume + &H490 0100 1001 0000
volume - &HC90 1100 1001 0000
Power &HA90 1010 1001 0000
sound on/off &H290 0010 1001 0000
1 &H010 0000 0001 0000
2 &H810 1000 0001 0000
3 &H410 0100 0001 0000
4 &HC10 1100 0001 0000
5 &H210 0010 0001 0000
6 &HA10 1010 0001 0000
7 &H610 0110 0001 0000
8 &HE10 1110 0001 0000
9 &H110 0001 0001 0000
0 &H910 1001 0001 0000
-/-- &HB90 1011 1001 0000

[t3r!p3000]

فرستندهاي RC6 :

اين پروتکل ، برخلاف RC5 در اکثر دستگاهاي صوتي تصويري جديد ( تمامي دستگاهاي CD چيني را پشتيباني ميکند) استفاده مي شود ،تمامي جزييات مانند RC5 است ،فقط نحوه ارسال فرق دارد ، با دستور زير ميتوان ديتا را توسط اين رابط به گيرنده ارسال کرد:

کد php:

RC6SEND togglebit, address, command 


Togglebit : نشان دهنده وضعيت پايه بعد از ارسال دستور است که ميتواند صفر يا يک باشد .

Address : اين مورد ميتواند يکي از موارد جدول زير باشد:

Command : اين گزينه مشخص کننده دستور ارسالي است (دستور مورد نظر به جاي اين کلمه نوشته مي شود) دستورات مخصوص هر کنترل را ميتوانيد از سايت سازنده درياف کنيد در زير کد هاي مخصوص نوعي VCR (ويدو سيدي راديو دار) که در HELP بسکام موجود بود را مشاهده مي فرماييد :

مثال

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Config Kbd = Portd
Dim A As Byte
Dim B As Byte
Q:
A = Getkbd()
If A > 15 Then
Goto Q
End If
B = Lookup(a , Dat)
Rc6send 0 ,5 , B
Goto Q
End
Dat:
Data 30 , 31 , 16 , 17 , 61 , 12 , 1 , 2 , 3 , 4 , 5 , 6 , 7 , 8 , 9 , 0
'program +,program -,volume +,volume -,power,sound on/off,1,2,3,4,5,6,7,8,9,0 


[رسول]

من برنامه های زیر را با مگا 8 نوشتم اما نتونستم اجراش کنم:
برای فرستنده:

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Config Portd = Input
Do
Debounce Pind.0 , 0 , Q
Debounce Pind.1 , 0 , W
Loop
Q:
Rc5send 32 , 0 , 12
Wait 1
Return
W:
Rc5send 32 , 0 , 13
Wait 1
Return
End 


همچنین مدار زیر را با مادون قرمز فرستنده معمولی بستم وقسمت IN موجود در مدار را به OC1A که در مگا8 پایه 15 میشود وصل کردم آیا درسته؟؟؟؟؟؟؟



اما کدام پایه های میکرو در فرستنده بعنوان شستی هستش؟؟؟؟(D.0 و D1 ؟؟؟؟؟؟؟؟) اگه اینا هستند اونارو به کجاوصل کنم منفی یا مثبت واینکه آیا به مقاومت پول آپ هم نیازی داره یانه؟؟؟؟؟؟؟؟

برنامه گیرنده:

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Config Portd = Output
Config Rc5 = Pind.7
Enable Interrupts
Dim Address As Byte , Command As Byte
Do
Getrc5(address , Command)
If Command = 12 Then
Set Portd.0
Reset Portd.1
End If
If Command = 13 Then
Set Portd.1
Reset Portd.0
End If
Loop
End 


مدار گیرنده:




مدارگیرنده راهم بستم وپایه خروجی مادون قرمز را به D.7 مگا8 دادم آیا درسته؟؟؟؟؟؟
خروجیهایی که از میکرو میگیریم کدوم پایه ها هستن؟؟؟؟(D.0 و D1 )؟؟؟؟؟؟؟؟؟
کلا میخواهم بدانم این برنامه واسه کنترل مناسبه یانه؟
واینکه آیا این برنامه دوکاناله هستش یا .... ؟؟؟؟؟؟؟

[t3r!p3000]

مهندس واسه فرستنده اینو تست کن :

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
ddrd = &b11111100 : portd = 3

Do
    Debounce Pind.0 , 0 , Q , gosub
    Debounce Pind.1 , 0 , W , gosub
Loop

Q:
    Rc5send 7 , 0 , 12
    Waitms 100
Return

W:
    Rc5send 7 , 0 , 13
    Waitms 100
Return 


و واسه گیرنده اینو تست کن :

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
ddrd = &b01111111
Config Rc5 = Pind.7

Enable Interrupts
Dim Address As Byte , Command As Byte

Do
    Getrc5 (address , Command)
    If Command = 12 Then
        Set Portd.0
        Reset Portd.1
    End If
    If Command = 13 Then
        Set Portd.1
        Reset Portd.0
    End If
Loop
End 


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


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

و توجه داشته باش کد آدرس ارسالی بین 0 تا 31 هستش و 32 نیستش !
تو فرستنده آخه 32 گذاشته بودی !!

فرستنده رو می تونی با یه دوربین دیجیتال ( مثل موبایل ) تست کنی !!

[رسول]

خیلی ممنون جواب داد
حالا من می خوام اونو 10 کانالش کنم
برنامه هاشو بصورت زیر نوشتم ببین درستن یا نه (فکرنکنم درست باشه):

فرستنده:

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Ddrd = &B11111100 : Portd = 3

Do
    Debounce Pind.0 , 0 , Q , Gosub
    Debounce Pind.1 , 0 , W , Gosub
    Debounce Pind.1 , 0 , A , Gosub
    Debounce Pind.1 , 0 , B , Gosub
    Debounce Pind.1 , 0 , C , Gosub
    Debounce Pind.1 , 0 , D , Gosub
    Debounce Pind.1 , 0 , E , Gosub
    Debounce Pind.1 , 0 , F , Gosub
    Debounce Pind.1 , 0 , G , Gosub
    Debounce Pind.1 , 0 , H , Gosub
Loop

Q:
    Rc5send 7 , 0 , 12
    Waitms 100
Return

W:
    Rc5send 7 , 0 , 13
    Waitms 100
Return

A:
    Rc5send 7 , 0 , 14
    Waitms 100
Return

B:
    Rc5send 7 , 0 , 15
    Waitms 100
Return

C:
    Rc5send 7 , 0 , 16
    Waitms 100
Return

D:
    Rc5send 7 , 0 , 17
    Waitms 100
Return

E:
    Rc5send 7 , 0 , 18
    Waitms 100
Return

F:
    Rc5send 7 , 0 , 19
    Waitms 100
Return

G:
    Rc5send 7 , 0 , 20
    Waitms 100
Return

H:
    Rc5send 7 , 0 , 21
    Waitms 100
Return 


گیرنده:

کد php:

$regfile = "m8def.dat"
$crystal = 4000000
Ddrd = &B01111111
Config Rc5 = Pind.7

Enable Interrupts
Dim Address As Byte , Command As Byte

Do
    Getrc5(address , Command)
    If Command = 12 Then
        Set Portd.0
        Reset Portd.1
    End If
    If Command = 13 Then
        Set Portd.1
        Reset Portd.0
    End If
    If Command = 14 Then
        Set Portd.2
        Reset Portd.3
    End If
    If Command = 15 Then
        Set Portd.3
        Reset Portd.2
    End If
    If Command = 16 Then
        Set Portd.4
        Reset Portd.5
    End If
    If Command = 17 Then
        Set Portd.5
        Reset Portd.4
    End If
    If Command = 18 Then
        Set Portd.6
        Reset Portd.7
    End If
    If Command = 19 Then
        Set Portd.7
        Reset Portd.6
    End If
    If Command = 20 Then
        Set Portc.0
        Reset Portc.1
    End If
    If Command = 21 Then
        Set Portc.1
        Reset Portc.0
    End If
Loop
End 


اما نمیدونم Set/Reset را میشه اینطوری نوشت یانه!!!!!!!!

[t3r!p3000]

دقت کنی ایراد فرستنده و گیرنده رو پیدا می کنی ؟؟؟