گیرنده کنترل سونی

[sobhan68]

با سلام
دوستان من یه یستم سونی lbt 725 دارم و براش یه ماژول آماده که هم بلوتوث داره و همusb گرفتم نصب کردم

این ماژولا کلید های روش با منفی کار میکنه یعنی کلیدای mode و next و......
حالا درخواستم اینه
چجوری میتونم با میکرو و چشمی پارس کد های ریموت خوده سیستم رو بخونم و برای 5 تا از کلید های ریموت 5 تا خروجی از میکرو بگیرم و خروجی هارو با ترانزیستور منفی کنم بدم به ماژول

مدل ریموت هم RM-S33

ممنون

[sobhan68]

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

اساتید محترم لطفا کمک کنید

با تشکر

[MM320]

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

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

کد RC5 :

کد منچستر

[sobhan68]

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

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

کد RC5 :

کد منچستر

با سلام
ممنون از پاسخگویی شما

من با استفاده از این برنامه >>>>
تونستم کد های ریموت کنترل خودم رو بخونم البته این برنامه برای کنترل های تلوزیون هستش و برای کنترل من کد هارو ناشناس میزنه ولی چند تا کلید رو شناخت ولی در کل کدهارو میده
مثلا کد دکمه پاور 21 و کد دکمه فانکشن 104 و پلی 50 پاز 57 و....

http://www.picpars.com/134/-%D8%A2%D8%B4%DA%A9%D8%A7%D8%B1-%DA%A9%D8%B1%D8%AF%D9%86-%DA%A9%D9%86%D8%AA%D8%B1%D9%84-%D8%AA%D9%84%D9%88%DB%8C%D8%B2%DB%8C%D9%88%D9%86-%D8%B3%D9%88%D9%86%DB%8C-%D8%AA%D9%88%D8%B3%D8%B7-%D9%85%DB%8C%DA%A9%D8%B1%D9%88-%DA%A9%D9%86%D8%AA%D8%B1%D9%84%D8%B1-AVR

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

[sobhan68]

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

با سلامم

دوستان از اونجایی که من برنامه نویسیم یکم ضعیفه اومدم این برنامه رو کپی کردم و یه سری تغییرات توش دادم
الان میکرو ریکوت منو میخونه فقط 2 تا مشکل دارم:
1. مقدار code خروجی با زدن دکمه ریموت تغییر نمیکنه
2. هر دو پورت خروجی باهم فعال میشن

اساتید لطفا کممممک کنین

$regfile = "m16def.dat"
$crystal = 8000000
$lib "mcsbyte.lbx"

Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cursor Off

Config Pind.0 = Output
Config Pind.1 = Output
Config Pinb.0 = Input
Ir_reciv Alias Pinb.0

Config Timer1 = Timer , Prescale = 1
Start Timer1
Enable Interrupts
Enable Timer1
'-------------------------------------------------------------------------------

Dim A As Byte , B As Byte

Dim Address As Byte , Commands As Byte
Dim Wide As Word , Wide2 As Word
Dim J As Single , J2 As Single
Dim K As String * 10 , K2 As String * 10
Dim Bit_input(12) As Word
Dim _bit(12) As Byte
Dim True As Bit


Locate 1 , 6
Lcd "Hello"
Wait 1
Locate 2 , 1
Lcd "Waiting for RC5"
Locate 3 , 1
Lcd "Press Any Key"


Do
True = 0
Gosub Recive_test_kontrol_sony

If True = 1 Then
Gosub Decode_data
End If
Loop

Recive_test_kontrol_sony:
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Wide = Timer1

J = Wide * 0.125
J = J / 1000
K = Fusing(j , "#.#")

If K > "2.4" And K < "2.8" Then True = 1
Return
'-------------------------------------------------------------------------------
Decode_data:
For A = 1 To 12
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Bit_input(a) = Timer1
Next

For B = 1 To 12
J2 = Bit_input(b) * 0.125
J2 = J2 / 1000
K2 = Fusing(j2 , "#.#")


If K2 > "0.8" And K2 < "1.5" Then
_bit(b) = 1
Else
_bit(b) = 0
End If

Next
If _bit(1) = 1 Then Commands = 21
Pind.0 = 1
Waitms 200
Pind.0 = 0
If _bit(2) = 1 Then Commands = 104
Pind.1 = 1
Waitms 200
Pind.1 = 0
Cls
Locate 2 , 2
Lcd "Address = " ; Address
Locate 4 , 1
Lcd "Code is = " ; Commands ; " "
waitms 1
Return
End

دلیل: ادغام دو پست برای جلوگیری از اسپم

این هم دو تا عکس از مدارر







منظورم از code مقداره توی عکس دوم هستش
که توی برنامه 104 رو تعرف کردم
( این کد هارو از سایت بالا که picpars بود گرفتم.مثلا کد 21 برای power و کد 104 برای function هستش)

با سپاس

[sobhan68]

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

با سلامم

دوستان از اونجایی که من برنامه نویسیم یکم ضعیفه اومدم این برنامه رو کپی کردم و یه سری تغییرات توش دادم
الان میکرو ریکوت منو میخونه فقط 2 تا مشکل دارم:
1. مقدار code خروجی با زدن دکمه ریموت تغییر نمیکنه
2. هر دو پورت خروجی باهم فعال میشن

اساتید لطفا کممممک کنین

$regfile = "m16def.dat"
$crystal = 8000000
$lib "mcsbyte.lbx"

Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cursor Off

Config Pind.0 = Output
Config Pind.1 = Output
Config Pinb.0 = Input
Ir_reciv Alias Pinb.0

Config Timer1 = Timer , Prescale = 1
Start Timer1
Enable Interrupts
Enable Timer1
'-------------------------------------------------------------------------------

Dim A As Byte , B As Byte

Dim Address As Byte , Commands As Byte
Dim Wide As Word , Wide2 As Word
Dim J As Single , J2 As Single
Dim K As String * 10 , K2 As String * 10
Dim Bit_input(12) As Word
Dim _bit(12) As Byte
Dim True As Bit


Locate 1 , 6
Lcd "Hello"
Wait 1
Locate 2 , 1
Lcd "Waiting for RC5"
Locate 3 , 1
Lcd "Press Any Key"


Do
True = 0
Gosub Recive_test_kontrol_sony

If True = 1 Then
Gosub Decode_data
End If
Loop

Recive_test_kontrol_sony:
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Wide = Timer1

J = Wide * 0.125
J = J / 1000
K = Fusing(j , "#.#")

If K > "2.4" And K < "2.8" Then True = 1
Return
'-------------------------------------------------------------------------------
Decode_data:
For A = 1 To 12
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Bit_input(a) = Timer1
Next

For B = 1 To 12
J2 = Bit_input(b) * 0.125
J2 = J2 / 1000
K2 = Fusing(j2 , "#.#")


If K2 > "0.8" And K2 < "1.5" Then
_bit(b) = 1
Else
_bit(b) = 0
End If

Next
If _bit(1) = 1 Then Commands = 21
Pind.0 = 1
Waitms 200
Pind.0 = 0
If _bit(2) = 1 Then Commands = 104
Pind.1 = 1
Waitms 200
Pind.1 = 0
Cls
Locate 2 , 2
Lcd "Address = " ; Address
Locate 4 , 1
Lcd "Code is = " ; Commands ; " "
waitms 1
Return
End

دلیل: ادغام دو پست برای جلوگیری از اسپم

این هم دو تا عکس از مدارر







منظورم از code مقداره توی عکس دوم هستش
که توی برنامه 104 رو تعرف کردم
( این کد هارو از سایت بالا که picpars بود گرفتم.مثلا کد 21 برای power و کد 104 برای function هستش)

با سپاس

سروران گرامی لطفا کمک کنیدددد

please HELPPPPPPPPPPPPPPPPPPPP

[sobhan68]

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

آقا ترو خدا یکی بیاد یه کمک به من بده

[MM320]

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

سلام دوست غزیز:
یادم می یاد برای اولین می خواستم با میکر کد کنترل تلویزیون بخونم و همین مشکل داشتم که با خرید یه لاجیک آنالیز تنونستم بفهمم شکل کد موجم چیه تا بتونم مشکلم حل کنم
پس اولین پیشنهاد من اینکه یه لاجیک آنالایزر تهیه کنی چون کدهای هر کنترل با هم فرق می کنه. دوم اینکه ، اکه کد کنترل دریافت می کنی هر دقیقه عوض میشه اگه با فرض اینکه برنامه شما درست باشه گیرنده چشم (پارس) یه فیلتر داره RC که بایداون بزاری تا کد های کنترل درست دریافت کنی( به دیتاشت چشم گیرنده مراجعه کنن)

[sobhan68]

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

سلام دوست غزیز:
یادم می یاد برای اولین می خواستم با میکر کد کنترل تلویزیون بخونم و همین مشکل داشتم که با خرید یه لاجیک آنالیز تنونستم بفهمم شکل کد موجم چیه تا بتونم مشکلم حل کنم
پس اولین پیشنهاد من اینکه یه لاجیک آنالایزر تهیه کنی چون کدهای هر کنترل با هم فرق می کنه. دوم اینکه ، اکه کد کنترل دریافت می کنی هر دقیقه عوض میشه اگه با فرض اینکه برنامه شما درست باشه گیرنده چشم (پارس) یه فیلتر داره RC که بایداون بزاری تا کد های کنترل درست دریافت کنی( به دیتاشت چشم گیرنده مراجعه کنن)

سلام ممنون از شما

دوست عزیز منظور شما اینه دگ فیلتر RC چشمی پارس دگ؟ درسته؟



اینو گزاشتم براش

مشکل من اینه الان هر دکمه ایی رو فشار میدم دو تا خروجی میکرو همزمان فعال میشه
کد دریافتی از ریموت توسط چشمی و میکرو مشکلی نداره
برنامه اینه:

$regfile = "m16def.dat"
$crystal = 8000000


Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cursor Off


Config Pind.0 = Output
Config Pind.1 = Output

A1 Alias Portd.0
A2 Alias Portd.1



Config Pinb.0 = Input
Ir_reciv Alias Pinb.0

Config Timer1 = Timer , Prescale = 1
Start Timer1

Enable Interrupts
Enable Timer1
'-------------------------------------------------------------------------------

Dim A As Byte , B As Byte

Dim Address As Byte , Commands As Byte
Dim Wide As Word , Wide2 As Word
Dim J As Single , J2 As Single
Dim K As String * 10 , K2 As String * 10
Dim Bit_input(12) As Word
Dim _bit(12) As Byte
Dim True As Bit
Dim Text As String * 10

Locate 1 , 6
Lcd "Hello"
Wait 1




Do
True = 0
Gosub Recive_test_kontrol_sony

If True = 1 Then

Gosub Decode_data


End If
Loop

Recive_test_kontrol_sony:
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Wide = Timer1

J = Wide * 0.125
J = J / 1000
K = Fusing(j , "#.#")

If K > "2.4" And K < "2.8" Then True = 1
Return
'-------------------------------------------------------------------------------
Decode_data:
For A = 1 To 12
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Bit_input(a) = Timer1
Next

For B = 1 To 12
J2 = Bit_input(b) * 0.125
J2 = J2 / 1000
K2 = Fusing(j2 , "#.#")


If K2 > "0.8" And K2 < "1.5" Then
_bit(b) = 1
Else
_bit(b) = 0
End If
Next





If _bit(1) = 1 Then Commands = 21

A1 = 1
Waitms 200
A1 = 0

If _bit(3) = 1 Then Commands = 18

A2 = 1
Waitms 200
A2 = 0




'---------------------------------------------------------
Locate 3 , 1
Lcd "Code is = " ; Commands ; " "
Waitms 5

Return
'-------------------------------------
End

من میخام مثلا طبق برنامه برای کد 21 که کد دکمه پاور هستش فقط خروجی A1 یا همون Portd.0 فعال شه و برای کد 18 که -VOL هستش فقط A2 یا همون Portd.1 فعال شه

ولی الان هر دکمه ایی رو از ریموت میزنم هر دو خروجی همزمان فعال میشه

[MM320]

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

سلام ممنون از شما

دوست عزیز منظور شما اینه دگ فیلتر RC چشمی پارس دگ؟ درسته؟



اینو گزاشتم براش

مشکل من اینه الان هر دکمه ایی رو فشار میدم دو تا خروجی میکرو همزمان فعال میشه
کد دریافتی از ریموت توسط چشمی و میکرو مشکلی نداره
برنامه اینه:

$regfile = "m16def.dat"
$crystal = 8000000


Config Lcd = 20 * 4
Config Lcdpin = Pin , Rs = Pina.2 , E = Pina.3 , Db4 = Pina.4 , Db5 = Pina.5 , Db6 = Pina.6 , Db7 = Pina.7
Cursor Off


Config Pind.0 = Output
Config Pind.1 = Output

A1 Alias Portd.0
A2 Alias Portd.1



Config Pinb.0 = Input
Ir_reciv Alias Pinb.0

Config Timer1 = Timer , Prescale = 1
Start Timer1

Enable Interrupts
Enable Timer1
'-------------------------------------------------------------------------------

Dim A As Byte , B As Byte

Dim Address As Byte , Commands As Byte
Dim Wide As Word , Wide2 As Word
Dim J As Single , J2 As Single
Dim K As String * 10 , K2 As String * 10
Dim Bit_input(12) As Word
Dim _bit(12) As Byte
Dim True As Bit
Dim Text As String * 10

Locate 1 , 6
Lcd "Hello"
Wait 1




Do
True = 0
Gosub Recive_test_kontrol_sony

If True = 1 Then

Gosub Decode_data


End If
Loop

Recive_test_kontrol_sony:
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Wide = Timer1

J = Wide * 0.125
J = J / 1000
K = Fusing(j , "#.#")

If K > "2.4" And K < "2.8" Then True = 1
Return
'-------------------------------------------------------------------------------
Decode_data:
For A = 1 To 12
Bitwait Ir_reciv , Reset
Timer1 = 0
Bitwait Ir_reciv , Set
Bit_input(a) = Timer1
Next

For B = 1 To 12
J2 = Bit_input(b) * 0.125
J2 = J2 / 1000
K2 = Fusing(j2 , "#.#")


If K2 > "0.8" And K2 < "1.5" Then
_bit(b) = 1
Else
_bit(b) = 0
End If
Next





If _bit(1) = 1 Then Commands = 21

A1 = 1
Waitms 200
A1 = 0

If _bit(3) = 1 Then Commands = 18

A2 = 1
Waitms 200
A2 = 0




'---------------------------------------------------------
Locate 3 , 1
Lcd "Code is = " ; Commands ; " "
Waitms 5

Return
'-------------------------------------
End

من میخام مثلا طبق برنامه برای کد 21 که کد دکمه پاور هستش فقط خروجی A1 یا همون Portd.0 فعال شه و برای کد 18 که -VOL هستش فقط A2 یا همون Portd.1 فعال شه

ولی الان هر دکمه ایی رو از ریموت میزنم هر دو خروجی همزمان فعال میشه

دوست غزیز
برنامه تون دیدم .شما چرا داخل زیر برنامه Decode_data امدید از دستور تاخیر استفاده کردید!!!!!!!!!!!! چون میکرو کنتر مرتبا باید دیتاهای گیرنده IR چک کنه و تاخیری کهما گذاشتید باعث میشه میکرو نتونه روی اولین بیت دریافتی بررسی به خاطر همین اعدد که می گیرد هی عوض میشه و مقدار درستی به شما نمی ده .دوم.برنامه اصلی(برنامه توسط یزد کیت نوشته شده) چرا این رو حذف کردید؟

If _bit(1) = 1 Then Commands = 1

If _bit(2) = 1 Then Commands = Commands + 2

If _bit(3) = 1 Then Commands = Commands + 4

If _bit(4) = 1 Then Commands = Commands + 8

If _bit(5) = 1 Then Commands = Commands + 16

If _bit(6) = 1 Then Commands = Commands + 32

If _bit(7) = 1 Then Commands = Commands + 64

این خط از برنامه مقادیر دیتا که درآرایه _BIT() به کد یک بایتی (COMMAND)می کنه شما آمدید گفتید اگه بیت متغییر BIT(1) مساوی یک شد بیا بگو COMMED=21 !!!!!!!!!نمیدونم منظورمه می فهمید در واقع راحت بگم بااین کار هر کدام از کلید های کنترل شما می تونه این بیت یک کنه.

چرا از کتابخانه آماده RC5 بسکام استفاده نم کنی؟

[LEFT]$regfile = "attiny26.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db7 = Porta.0 , Db6 = Porta.1_

  , Db5 = Porta.2 , Db4 = Porta.3 , E = Porta.4 , Rs = Porta.5

Config Lcd = 16 * 2

Dim Line1 As String * 1

Dim Line2 As String * 1

Config Rc5 = Pinb.6

Cursor Off

Cls

Lcd Spc(1)

Lcd "Wait for input"

Wait 1

Cls

Do

Getrc5(line1 , Line2)

Lcd Line1

Locate 2 , 1

Lcd Line2

Loop

End     'end program



[/LEFT]

[B][B][/B][/B]

[sobhan68]

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

دوست غزیز
برنامه تون دیدم .شما چرا داخل زیر برنامه Decode_data امدید از دستور تاخیر استفاده کردید!!!!!!!!!!!! چون میکرو کنتر مرتبا باید دیتاهای گیرنده IR چک کنه و تاخیری کهما گذاشتید باعث میشه میکرو نتونه روی اولین بیت دریافتی بررسی به خاطر همین اعدد که می گیرد هی عوض میشه و مقدار درستی به شما نمی ده .دوم.برنامه اصلی(برنامه توسط یزد کیت نوشته شده) چرا این رو حذف کردید؟

If _bit(1) = 1 Then Commands = 1

If _bit(2) = 1 Then Commands = Commands + 2

If _bit(3) = 1 Then Commands = Commands + 4

If _bit(4) = 1 Then Commands = Commands + 8

If _bit(5) = 1 Then Commands = Commands + 16

If _bit(6) = 1 Then Commands = Commands + 32

If _bit(7) = 1 Then Commands = Commands + 64

این خط از برنامه مقادیر دیتا که درآرایه _BIT() به کد یک بایتی (COMMAND)می کنه شما آمدید گفتید اگه بیت متغییر BIT(1) مساوی یک شد بیا بگو COMMED=21 !!!!!!!!!نمیدونم منظورمه می فهمید در واقع راحت بگم بااین کار هر کدام از کلید های کنترل شما می تونه این بیت یک کنه.

چرا از کتابخانه آماده RC5 بسکام استفاده نم کنی؟

[LEFT]$regfile = "attiny26.dat"

$crystal = 8000000

Config Lcdpin = Pin , Db7 = Porta.0 , Db6 = Porta.1_

  , Db5 = Porta.2 , Db4 = Porta.3 , E = Porta.4 , Rs = Porta.5

Config Lcd = 16 * 2

Dim Line1 As String * 1

Dim Line2 As String * 1

Config Rc5 = Pinb.6

Cursor Off

Cls

Lcd Spc(1)

Lcd "Wait for input"

Wait 1

Cls

Do

Getrc5(line1 , Line2)

Lcd Line1

Locate 2 , 1

Lcd Line2

Loop

End     'end program



[/LEFT]

[B][B][/B][/B]

ممنونم دوست عزیزم

برنامه اصلی مال یزد کیت هستش بله
منم بالاتر اشاره کردم و اصل برنامه رو از سایت picpars دانلود کردم
در رابطه با برنامه گیرنده دیتاهای IR که تاخیر داره خوده نویسنده اصلی برنامه استفاده کرده منم فقط کپی کردم اونو

طبق گفته شما اومدم برنامه مقادیر دیتا که درآرایه _BIT() به کد یک بایتی (COMMAND)می کنه رو اضافه کردم و در نهایت شگفتی جواب رو گرفتم

بابت راهنماییتون متشکرم

در رابطه با کتابخانه آماده RC5 بسکام هم اونو نوشتم ولی اصلا کد کنترل سونی رو نشناخت
سامسونگ و ال جی رو شناخت ولی سونی رو نه

با اضافه کردن اون بخشی که شما گفتی دستوراتو درست اجرا میکنه

ممنون از شما