۲۴-بهمن-۱۳۸۶, ۰۰:۲۴:۴۹
۲۴-بهمن-۱۳۸۶, ۱۱:۴۰:۱۸
سلام.خوبین؟
به جای دستور pin از دستور port استفاده کردم و حل شد.
یه error مونده...تو پست قبلی کاملا گفتم ..دستور compare2=127 رو error میگیره.و تو توضیحات error مینویسه assignment error error 46
ممنون و بای
به جای دستور pin از دستور port استفاده کردم و حل شد.
یه error مونده...تو پست قبلی کاملا گفتم ..دستور compare2=127 رو error میگیره.و تو توضیحات error مینویسه assignment error error 46
ممنون و بای
۲۵-بهمن-۱۳۸۶, ۰۲:۰۱:۵۱
سلام. ممنون.
نگفتیی نسخه Bascom شما چیست؟ من دقیق همان برنامه را قرار دادم. و هیچ خطایی نداشت.
میشه compare2=127 را ASM نوشت تا مشکل حل شود. برای امروز زمان نمانده. تا فردا قرار می دهم.
نگفتیی نسخه Bascom شما چیست؟ من دقیق همان برنامه را قرار دادم. و هیچ خطایی نداشت.
میشه compare2=127 را ASM نوشت تا مشکل حل شود. برای امروز زمان نمانده. تا فردا قرار می دهم.
۲۵-بهمن-۱۳۸۶, ۱۶:۲۷:۵۵
با سلام خدمت همه دوستان ،
من طبق قولی که به آقای غفاری دادم ، برنامه کنترل لوازم برقی رو با ریموت کنترل سونی درست کردم اما یه ایده ای هم به آن افزودم که هر کسی نتونه با این ریموت دستگاهی رو روشن و خاموش کنه پس در واقع آنرا رمزی کردم به این صورت که کاربر برای خود رمز دلخواه رو به برنامه میده و بعد از پروگرام کردن آن روی آی سی میتونه با دادن کد به گیرنده از طریق صفحه کلید ریموت دستگاه رو روشن کنه مثلاً برای باز کردن درب های برقی کاربرد دارد .
من در این مدار از lcd و آی سی مگا8 استفاده کردم پس همزمان کد های دریافتی هم روی lcd نمایش داده می شود . من در این برنامه برای کنترل دستگاهی از یک پالس لحظه ای استفاده کردم که میشه یک خط بنامه هم حذف کرد تا اینکه پالس دائم در خروجی داشته باشیم .
با اضافه کردن دو سه خط برنامه به آن می توان تغییر رمز را خیل ساده با ریموت کنترل هم انجام داد (بدون پروگرام کردن).
اینم برنامه اصلی و 100 درصد عملی :
من طبق قولی که به آقای غفاری دادم ، برنامه کنترل لوازم برقی رو با ریموت کنترل سونی درست کردم اما یه ایده ای هم به آن افزودم که هر کسی نتونه با این ریموت دستگاهی رو روشن و خاموش کنه پس در واقع آنرا رمزی کردم به این صورت که کاربر برای خود رمز دلخواه رو به برنامه میده و بعد از پروگرام کردن آن روی آی سی میتونه با دادن کد به گیرنده از طریق صفحه کلید ریموت دستگاه رو روشن کنه مثلاً برای باز کردن درب های برقی کاربرد دارد .
من در این مدار از 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۲۶-بهمن-۱۳۸۶, ۰۱:۲۹:۰۴
:idea:
کد زیر را به جای compare2=127 قرار دهید.
کد زیر را به جای compare2=127 قرار دهید.
کد:
$Asm
ldi r16,127
Out $23 , R16
$end Asm۲۹-بهمن-۱۳۸۶, ۰۸:۴۳:۲۲
سلام دوستان
ممنون از لطف هردوتون...من اگه به روش های دیگری هم رسیدم میذارم همینجا
کارتون بی نقص بود
موفق باشید
ممنون از لطف هردوتون...من اگه به روش های دیگری هم رسیدم میذارم همینجا
کارتون بی نقص بود
موفق باشید
۱۷-مرداد-۱۳۹۵, ۰۹:۰۵:۰۵
درود
نقشه ها را اگر کسی داره با کدهاش بگذاره . خیر ببینید.
.
نقشه ها را اگر کسی داره با کدهاش بگذاره . خیر ببینید.
.
۱۲-شهریور-۱۳۹۵, ۱۴:۲۹:۰۳
سلام نقشه این مدار را کسی داره؟
۱۳-شهریور-۱۳۹۵, ۲۱:۵۵:۲۱
.
درود و سلام
گشتم تو وب ..... تا اینکه پیدا کردم
این ها را ببینید:
http://etrmodern.blogfa.com/cat-2.aspx
http://etrmodern.persiangig.com/document...nload?5d96
منبع :
ETRmodern.blogfa.com
.
درود و سلام
گشتم تو وب ..... تا اینکه پیدا کردم
این ها را ببینید:
http://etrmodern.blogfa.com/cat-2.aspx
http://etrmodern.persiangig.com/document...nload?5d96
منبع :
ETRmodern.blogfa.com
.
۲۷-آذر-۱۳۹۵, ۱۴:۱۴:۳۳
ممنون از شما
من نتونستم درست کنم
خیلی فور نیاز دارم
کسی می تونه کمکم کنه
من دستگاهی می خوام درست کنم که هر ریموتی بهش بدم بتونم سیو کنم و با دکمه هایی که روش تعبیه شده همون کارها رو بکنه
کسی می تونه کمکم کنه
ممنون
من نتونستم درست کنم
خیلی فور نیاز دارم
کسی می تونه کمکم کنه
من دستگاهی می خوام درست کنم که هر ریموتی بهش بدم بتونم سیو کنم و با دکمه هایی که روش تعبیه شده همون کارها رو بکنه
کسی می تونه کمکم کنه
ممنون