ریموت کنترلر همه کاره

[اشکان غفارزاده]

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

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

اون چیزی که شما میخوان توی انجمن "ایران ویج" لقمه آمادش هست
اینم لینکش
http://www.iranled.com/forum/thread-18151.html

نگین جواب نمیده که من روی بیشتر تلویزیون ها امتحان کردم

[fghfgh]

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

دوستان راهنمایی کنین. کسی میتونه این کد ها رو با اسکوپ اندازه بگیره؟
هر کی اسکوپ داره کد های Rc5 رو عکسشو بندازه واسه ما هم بفرسته
شاید با اونا یه فرجی بشه :nice: :nice:

[Aristar]

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

دوستان راهنمایی کنین. کسی میتونه این کد ها رو با اسکوپ اندازه بگیره؟
هر کی اسکوپ داره کد های Rc5 رو عکسشو بندازه واسه ما هم بفرسته
شاید با اونا یه فرجی بشه :nice: :nice:

این برنامه ای که دوستمون گذاشتن خب همون چیزیه که میخواین دیگه!لزومی نیست دیگه طول پالس رو بدونین. در ضمن برای این موارد از اسیلوسکوپ استفاده نمیشه کرد (مگر اینکه دیجیتالی حافظه دار باشه) برای اینکارا از لاجیک آنالیزر باید استفاده کنین که خیلی خوب و راحت نشون میدن

[fghfgh]

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

همین کد ها رو میگین؟

'******************************************** ***********************************
'*-------------------------remote IR code Mirror-------------------------------*
'*---------------------------www.iranled.com-----------------------------------*
'*----------------Designer: Morteza Aghazamani(Pardazesh-Gar)------------------*
'*----------------------------Version: 1.00------------------------------------*
'*-----------------------------1386/11/14--------------------------------------*
'******************************************** ***********************************
Const Fine = 0.000100 /((1 / 10000000) * 8 )
Const Delay_t = 0.010 /((1 / 10000000) * 8 )
Const None = 0
Const Record = 1
Const Play = 2
Const Ont = &B01101001
Const Offt = &B01001001


Config Portc = Input
Portc = 255
Config Portb.3 = Output
Portb.3 = 0
Config Portb.0 = Output
Config Portd.2 = Input
Portd = 255


Dim I As Word
Dim W(450) As Word
Dim Now As Byte
Dim N As Byte
Dim Puls As Bit
I = 0

Config Timer2 = Pwm , Pwm = On , Prescale = 1 , Compare Pwm = Clear Up , Clear Timer = 1
Tccr2 = Offt
Compare2 = 127

Config Timer1 = Timer , Prescale = 8
On Timer1 Timer1_int
Config Int0 = Change
On Int0 Int0_int
Disable Int0
Disable Timer1
Gifr.6 = 1
Tifr.2 = 1
Enable Interrupts
Stop Timer1
Timer1 = 0
Puls = 0
Now = None




Do
If Now = Record Then
If Timer1 > Delay_t Then

If N > 1 Then
Stop Timer1
W(i) = 1
N = N - 1
Timer1 = 0
I = I + 1
Goto Next_n
End If
Disable Interrupts
Disable Timer1
Disable Int0
Stop Timer1
W(i) = 1
Timer1 = 0
Waitms 10
Gifr.6 = 1
Tifr.2 = 1
Enable Interrupts
Now = None
Next_n:
End If
Elseif Now = None Then
If Pinc.5 = 0 Then
N = 2
Now = Record
I = 1
Stop Timer1
Disable Timer1
Timer1 = 0
Gifr.6 = 1
Enable Int0
Elseif Pinc.4 = 0 Then
N = 2
Now = Play
I = 2
Timer1 = W(i)
Tifr.2 = 1
Enable Timer1
Puls = 1
Tccr2 = Ont
Start Timer1
End If
End If
Loop




Timer1_int:
Toggle Puls
I = I + 1
Timer1 = W(i)
If Puls = 1 Then
Tccr2 = Ont
Timer1 = Timer1 + Fine
Else
Tccr2 = Offt
Timer1 = Timer1 - Fine
End If
If W(i) = 1 Then
If N > 1 Then
Stop Timer1
Puls = 0
Tccr2 = Offt
Waitms 15
N = N - 1
I = I + 2
Timer1 = W(i)
Puls = 1
Tccr2 = Ont
Start Timer1
Goto Next_n2
End If
Disable Timer1
Disable Int0
Stop Timer1
Puls = 0
Tccr2 = Offt
Timer1 = 0
Waitms 15
Gifr.6 = 1
Tifr.2 = 1
Enable Interrupts
Now = None
Next_n2:
End If
Return




Int0_int:
W(i) = 65535 - Timer1
Timer1 = 4
Start Timer1
I = I + 1
Return





End

من که چیزی از اینا سر در نیاوردم
لطفا اگه میشه توضیح بدین نا این پروژه رو کامل کنیم
بعدش هم انشاالله وقف عام! :biggrin: