كدهاي ريموت كنترل سيستمهاي صوتي و تصويري براي AVR

[Pardazesh-Gar]

من با نسخه 1.11.8.3 این برنامه را نوشتم.
بیشتر توضیح دهید.
pin b.0 , b.2 , b.3 این خطا ها برای چه بود و چگونه حل شد؟

[ghafari]

سلام.خوبین؟
به جای دستور pin از دستور port استفاده کردم و حل شد.
یه error مونده...تو پست قبلی کاملا گفتم ..دستور compare2=127 رو error میگیره.و تو توضیحات error مینویسه assignment error error 46
ممنون و بای

[Pardazesh-Gar]

سلام. ممنون.
نگفتیی نسخه Bascom شما چیست؟ من دقیق همان برنامه را قرار دادم. و هیچ خطایی نداشت.
میشه compare2=127 را ASM نوشت تا مشکل حل شود. برای امروز زمان نمانده. تا فردا قرار می دهم.

[etrmodern]

با سلام خدمت همه دوستان ،

من طبق قولی که به آقای غفاری دادم ، برنامه کنترل لوازم برقی رو با ریموت کنترل سونی درست کردم اما یه ایده ای هم به آن افزودم که هر کسی نتونه با این ریموت دستگاهی رو روشن و خاموش کنه پس در واقع آنرا رمزی کردم به این صورت که کاربر برای خود رمز دلخواه رو به برنامه میده و بعد از پروگرام کردن آن روی آی سی میتونه با دادن کد به گیرنده از طریق صفحه کلید ریموت دستگاه رو روشن کنه مثلاً برای باز کردن درب های برقی کاربرد دارد .
من در این مدار از lcd و آی سی مگا8 استفاده کردم پس همزمان کد های دریافتی هم روی lcd نمایش داده می شود . من در این برنامه برای کنترل دستگاهی از یک پالس لحظه ای استفاده کردم که میشه یک خط بنامه هم حذف کرد تا اینکه پالس دائم در خروجی داشته باشیم .
با اضافه کردن دو سه خط برنامه به آن می توان تغییر رمز را خیل ساده با ریموت کنترل هم انجام داد (بدون پروگرام کردن).

اینم برنامه اصلی و 100 درصد عملی :

کد:

'*********************************************
'* This Program Writing By : Behnam Razmi    *
'* Read Sony code of IR Remote Controls      *
'* For to get more details visit :           *
'*         WWW.ETRmodern.blogfa.com          *
'* Contact to me by : etrmodern@yahoo.com    *
'*********************************************

$regfile = "M8def.dat"
$crystal = 4000000

Config Lcdpin = Pin , Db4 = Pinc.0 , Db5 = Pinc.1 , Db6 = Pinc.2 , _
Db7 = Pinc.3 , Rs = Pinc.4 , E = Pinc.5
Config Lcd = 16 * 2
Cursor Off
Cls
Lcd "SECRET DOOR OPEN"
Waitms 500

Config Timer2 = Timer , Prescale = 64
Stop Timer2

Config Pinb.0 = Output
Rel Alias Portb.0

Config Pind.3 = Input
Set Portd.3
Pin_ir Alias Pind.3

Config Int1 = Falling
On Int1 Isr_int1

Dim Flag_ir_start As Bit
Dim Flag_ir_ok As Bit
Dim Fpk As Bit
Dim Cnt_ir As Byte
Dim Data_ir As Word
Dim Hex_data_ir As String * 10
Dim Code As Byte

Enable Interrupts
Enable Int1

'*******************************************************************************
Do
  If Flag_ir_ok = 1 Then
    Disable Int1

    Select Case Data_ir
      Case 128 : Incr Code
      Case 129 :
        If Code = 1 Then
          Incr Code
        Else
          Code = 0
        End If
      Case 130 :
        If Code = 2 Then
          Incr Code
        Else
          Code = 0
        End If
      Case 131 :
        If Code = 3 Then
          Incr Code
        Else
          Code = 0
        End If
      Case Else:
        Code = 0
    End Select

    If Code = 4 Then
      Set Rel
      Code = 0
      Home : Lcd "Door is Open >>>"
      Waitms 500
      Reset Rel
    End If

    Hex_data_ir = Hex(data_ir)
    Home
    Lcd "Plz Inter Code :"
    Locate 2 , 1
    Lcd "DATA:" ; Data_ir ; " = " ; Hex_data_ir ; "H"

    Reset Flag_ir_ok
    Enable Int1
  End If
  Waitms 700
Loop

End                                                         'end program
'*******************************************************************************

'isr for infrared sensor
Isr_int1:
Timer2 = 0
Start Timer2
Bitwait Pin_ir , Set
Stop Timer2

If Cnt_ir = 0 Then
   If Timer2 > 160 And Timer2 < 170 Then
     Set Flag_ir_start
     Incr Cnt_ir
   End If
End If

If Flag_ir_start = 1 And Cnt_ir > 0 Then
   Decr Cnt_ir

   If Timer2 < 70 Then
     Data_ir.cnt_ir = 0
   Else
     Data_ir.cnt_ir = 1
   End If

   Cnt_ir = Cnt_ir + 2

   If Cnt_ir > 11 Then
     Shift Data_ir , Right , 1
     Reset Flag_ir_start
     Set Flag_ir_ok
     Cnt_ir = 0
   End If
End If

Return

[Pardazesh-Gar]

:idea:
کد زیر را به جای compare2=127 قرار دهید.

کد:

$Asm
ldi r16,127
Out $23 , R16
$end Asm

[ghafari]

سلام دوستان
ممنون از لطف هردوتون...من اگه به روش های دیگری هم رسیدم میذارم همینجا
کارتون بی نقص بود
موفق باشید

[alimogmov]

درود

نقشه ها را اگر کسی داره با کدهاش بگذاره . خیر ببینید.

.

[safeland]

سلام نقشه این مدار را کسی داره؟

[alimogmov]

.

درود و سلام

گشتم تو وب ..... تا اینکه پیدا کردم

این ها را ببینید:
http://etrmodern.blogfa.com/cat-2.aspx

http://etrmodern.persiangig.com/document...nload?5d96

منبع :
ETRmodern.blogfa.com


.

[safeland]

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