شبیه ساز کنترل TV,Camera,mp3 Player و ... .

[ha_60]

ادامه متن را انتخاب کنید. خدا را شکر به نتیجه رسید.و سپاس فراوان از یاری همه ی دوستان عزیز.
این مدار امکان شبیه سازی سیگنال هایی که در اکثر کنترل ها زیرقرمز از آن استفاده می کنند را دارد. یعنی می تواند سیگنال Remote را حفظ و آن را تکرار کند.
روش استفاده:
کلید Record را انتخاب کنید و رها کنید. بعد کنترل را در مقابل سنسور آشکار ساز قرار داده و یک کلید را بفشارید. حالا با بستن کلید Play سیگنال ذخیره شده تکرار می شود. برای یافتن اطلاعات بیشتر فایل را دانلود کنید.
اگر دستگاهی با این مدار سازگاری ندارد در این صفحه اطلاع دهید.

تا درباره آن گفتگو کنیم و در مسیر رشد آن گام برداریم.

تقدیم به همه ی نیکان و نیک اندیشان ایران زمین.
فایلها :
Remote Mirror.zip 56.38KB

[mtronics]

آیا این برنامه ٰ کد دریافتی را برای همیشه ذخیره میکنه؟

[رسول]

سلام

من برنامه بیسیک رو که خواستم امتحان کنم Error داد .... پورت c هم ورودی تعریف شده و هم خروجی!!

حالا ممنون میشم اگه اشکالش برطرف بشه ...

-----------------------------------------
آسایش بخیل از همه کس کمتر است

[reza555]

سلام رسول جون
مشکل از برنامته فکر کنم
من کامپایل کردم مشکلی نداشت

  REMOTE.rar (اندازه: 1.28 KB / تعداد دفعات دریافت: 193)

[رسول]

سلام

واسه این قسمت ارور میگیره:

کد php:

Config Portc = Input
Portc = 255 


این یعنی پورت c هم ورودی تعریف شده و هم خروجی!!!

مگه برنامه ای که شما امتحانش کردین این نیست:

کد php:

'*******************************************************************************
'*-------------------------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 


------------------------------------------------------------------------------
آنکه شهرت دارد پیوسته به رنج است و مرد گمنام آسوده زندگی می کند

[reza555]

portc=255 همه پین ها پورت c رو یک میکنه
اون خروجی تعریف کردن چیز دیگست باید 255 رو بریزه توی DDRC
ایجا اومده پورت سی رو پول آپ کرده
باز هم چند بار کامپایل کردم مشکلی نداشت . بدون ارور

[رسول]

سلام

رضا جون توی برنامه میکرو رو تعریف نکرده بود و کریستال هم نذاشته بود!!

منم همینطوری کپیش می کردم که ارور میداد ...

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

کد php:

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


البته فکر می کنم کریستالش باید 10000000 باشه ...

---------------------------------------------------------------------------
خداوند بندگانی دارد که آنها را برای رفع حاجات مردم خلق کرده است

[1ok]

سلام
اگر برنامه چند تا حافظه براي ركورد در ايپرام داشته باشه و يك led (نور مرئي) هم موقع ركورد كردن روشن شه ، بهتر ميشه

[reza555]

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

[sarutobi]

سلام
لطفا میشه درباره این شماتیکی که توی پروژه هست توضیح بدین؟ از چه سنسوری استفاده شده؟ از چشمی پارس؟ اگه آره چرا پایه وسط به زمین وصل شده؟
کسی این مدارو بسته؟

[h0x00i]

خوب این یک سنسور IR سه پایست دوتا پایه برای تغذیه و یکی برای خروجی .اگه بیشتر توضیح می خوای باید شماره این سنسور داشته باشی تا از دیتا شیت اطلاعات کسب کنی