ارتباط میکرو با کنترل های مادون قرمز(تلویزیون و ...)

[mohpooria]

سلام به همه دوستان
من یک گیرنده ی مادون قرمز سه پایه به اسم چشمی پارس خریده ام و می خوهم از روی آن بخوانم
در bascom یک دستور rc5 دارد ولی روی این سنسور جواب نمیدهد
سنسور کار میکند چون اگر led به خروجی آنوصل کنی چشمک میزند
من خروجی سنسور را به کانتر دادم ولی همیشه اعدادی بین 50 تا60 میدهد پس سرعتش خیلی بالا است و در حد میلیون است که کانتر درست نمی خواند
سپاس گذارم اگر کسی با این سنسور کار کرده و جواب گرفته مرا راهنمایی کند
با تشکر پوریا








:neutral: :surprised: :sad: :sad: :biggrin: :smile:

[Iran-PC]

سلام.
این کد رو تست کن

$regfile = "m8def.dat"
$lib "mcsbyte.lbx"
$crystal = 8000000
Config Rc5 = Pind.2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portb.0 , Rs = Portb.1
Config Lcd = 16 * 2
Enable Interrupts
Dim Address As Byte , Command As Byte
Dim Contor As Byte
Cls
Contor = 0
Do
 Getrc5(address , Command)

   Command = Command And &B01111111
   If Address <> 255 Then
   Locate 1 , 1
   Lcd Address ; " " ; Command ; "   "
   Contor = Contor + 1
   Locate 2 , 1
   Lcd Contor ; "  "
   End If
Loop
End

این رو تست کن.(البته با ال سی دی).
احتمالا با این سنسور هم مشکلی نداره (کلا RC5 یک استاندارده که هم سنسور و هم دیکدر استاندارد عمل میکنند). مشکل از کنترل هاست چون همه از این استاندارد استفاده نمیکنند و برای خودشون یک پروتکل مجزا طراحی کرده اند. برای همین با دیکدر Rc5 کدهای نا مفهوم مشاهده میشده.
شما با چند نوع کنترل مختلف امتحان کنید و همچنین میتونید با دستور Rc5Send یک فرستنده rc5 هم بسازید و با اون تستش کنید.
به هر حال مشکل از کنترلهاست بیشتر.

[mohpooria]

Iran-PCعزیز
ممنون از جوابت
من با چند کنترل هم امتحان کرده بودم و همیشه دو عدد ثابت خروجی و روی lcd نشان میداد
نمی شه از ارتباط سریال استفاده کرد؟
اگر میتوانی درباره ی rc5 کمی توضیح بدی ممنون میشوم با تشکر پوریا

[shahriar]

دليل اين نامگذاري بخاطر اين هست كه اينها چشم تلويزيون هاي گرونديگ هستش كه در ايران كارخونه پارس اونا رو توليد ميكنه.
در كنترلش از يك ايسي با شماره MC44107 استفاده شده با ورودي ماتريسي. كنترلش هم 2000 تومن هست.
اگر ديتاشيتش رو نگاه بكني به احتمال زياد نحوه كد بندي فرستنده رو نوشته كه كارت رو راحت ميكنه.

فركانس كاري كنترل هاي تلويزيون معمولا 30 كيلو هرتز هست.
استفاده از اسيلوسكوپ هم در اينجور مواقع خيلي مشكل گشا هست.

HTH - Shahriar

[mohpooria]

ممنون
می خواستم ببینم تا حالا خودت این گرینده رو وصل کردی
اگر کردی من رو راهنمایی کن ممنون

[Iran-PC]

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

[mohpooria]

ما با 10 تا كنترل امتحان كرديم كار نكرد آيا راه ديگري نيست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :exclaim: :exclaim: :exclaim: :exclaim: :exclaim: :exclaim:

[Iran-PC]

شما یه فرستنده رو هم طبق مثال بسکام بساز.
با اون تست کن.
شاید یه جای کوچولو اشتباهی داشتی (شایدم بد شانسی).

[majid_teh2005]

ما با 10 تا كنترل امتحان كرديم كار نكرد آيا راه ديگري نيست؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟ :exclaim: :exclaim: :exclaim: :exclaim: :exclaim: :exclaim:

بله ... اينكه يازدهمي را امتحان كني :biggrin:

شوخي بود دوست عزيز ... به دل نگيري .

اينو ببين .
http://www.ustr.net/infrared/infrared1.shtml

[123456za]

سلام
دوست عزیز این مشکل شما رو چند وقت پیش منم داشتم ولی حل شد
دوست عزیز این برنامه ای که براتون گذاشتن درسته من برای کنترل مدیا پلیر استفاده کردم یعنی با کنترل تلویزیون مدیا پلیر کامپیوتر را کنترل می کردم.
کنترل lG من استفاده کردم و به خوبی جواب می داد شما سخت افزاریت رو کامل چک کن چون این چشم سریع می سوزه :mrgreen:
اگه جواب نگرفتی بگو تا باز کمک کنم(برنامه زیر برنامه منه که کد دریافتی از کنترل رو برای پورت lpt می فرسته توسط پورت c

$regfile = "m8def.dat"
$crystal = 8000000
$lib "mcsbyte.lbx"
Config Portc = Output
Config Rc5 = Pinb.0

Portc = &B111110
Enable Interrupts
'reserve space for variables
Dim Address As Byte , Command As Byte
Do
 Portc = &B111110
'now check if a key on the remote is pressed
'Note that at startup all pins are set for INPUT
'so we dont set the direction here
'If the pins is used for other input just unremark the next line
'Config Pind.2 = Input
Getrc5(address , Command)

'we check for the TV address and that is 0

If Address <> 255 Then

'clear the toggle bit
'the toggle bit toggles on each new received command
'toggle bit is bit 7. Extended RC5 bit is in bit 6

Command = Command And &B01111111
Portc = Command
Waitms 30
End If

Loop
End