اطلاعیه

Collapse
No announcement yet.

فرستنده و گیرنده مادون قرمز

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    فرستنده و گیرنده مادون قرمز

    سلام
    من تازه واردم لطفا کمکم کنید
    من می خوام این مدار فرستنده و گیرنده مادون قرمز را درست کنم ولی این قطعه sfh5110 تو بازار هر چی گشتم پیدا نکردم !
    به جای اون از چی می تونم استفاده کنم ؟
    این مدار کار میکنه یا نه؟
    کد:
    http://www.persianupload.com/4973724

    #2
    پاسخ : فرستنده و گیرنده مادون قرمز

    سلام
    ورودتون رو تبریک میگم
    میشه بگین دقیقا برای چه کاری میخواید که بشه بهتر کمک کرد؟
    فکر میکنم تاپیک رو تو قسمت مدارات آنالوگ میزدید بهتر بود

    دیدگاه


      #3
      پاسخ : فرستنده و گیرنده مادون قرمز

      با سلام
      فایلتون رو دانلود کردم یه pdf خالی بود ! اگه میشه یه چکی بکنید
      فرکانس کریرتون چی ؟
      اگر 38کیلو هرتز هست فکر میکنم بتونید از tsop1238 استفاده کنید

      دیدگاه


        #4
        پاسخ : فرستنده و گیرنده مادون قرمز

        فایل شامل دو تا عکس هست!
        نمیدونم فرکانس چقدر است؟
        چه جوری باید حساب کرد؟
        سد مادون قرمز

        دیدگاه


          #5
          پاسخ : فرستنده و گیرنده مادون قرمز

          آقا من بازم یه فایل PDF به اسم madar میبینم
          اگه میشه عکس هارو با WINRAR فشرده کنسد و بعد در سایت زیر پلود کنید و اینکه پسوند عکستون چیه؟
          http://s2.picofile.com/

          در مورد فرکانس کریر ، خوب باید به فرستنده نگاه کنید ببینید مثلا اگر کریستال داره چند هرتزه اگر نداره شاید بشه با فرکانس متر فهمید نمیدونم !

          سد مادن قرمز ؟

          دیدگاه


            #6
            پاسخ : فرستنده و گیرنده مادون قرمز

            کد:
            http://s2.picofile.com/file/7134892040/madar.rar.html
            کد:
            http://s2.picofile.com/file/7134894301/IMAG0004.jpg

            دیدگاه


              #7
              پاسخ : فرستنده و گیرنده مادون قرمز

              آقا این عکسی که شما گزاشتید فقط مدار گیرنده هست ، فرستنده اش رو نزاشتید !

              چرا با پرتکول rc5 و میکرو کار نمیکنید ، این جوری فقط یک کنترل تلوزیون شهاب میخوایید و یک میکرو و یک tsop1238 و یک مقاومت 10 کیلو و یک مقاومت 100 اهمی و یک خازن 4.7 میکرو فارادی برد اشم واقعا عالیه !

              دیدگاه


                #8
                پاسخ : فرستنده و گیرنده مادون قرمز

                میشه یکم بیشتر توضیح بدی و نقشه مداری را که میگی برام بزاری و منظورت از کنترل شهاب چیه ؟! فقط با این کار میکنه یا با بقیه کنترل ها میشه؟؟؟؟ :nice: :nerd: :smile:

                دیدگاه


                  #9
                  پاسخ : فرستنده و گیرنده مادون قرمز

                  خوب تا اونجا که من دنبال این قضیه رفتم و فهمیدم ریموت کنترل تلوزیون ها هر کدوم از یک پرتوکل خاص استفاده می کنند که خوب یکی از معروف ترین این پرتوکل ها rc5 هست و ریموت کنترل تلوزیون شهاب هم از همین پرتوکل استفاده میکنه در مورد کنترل تلوزیون های دیگه اطلاعی ندارم، که حالا برای این rc5 به زبان های مختلف توابع نوشته شده و خیلی راحت میشه با استفاده از این توابع و یک عدد tsop1238 که فقط وظیفه دمودوله کردن سیگنال خروجی ریموت رو داره میتونید یک مدار کنترل از راه دور که به نظرم بردش واقعا عالیه البته توجه دارید دیگه داریم با مادون قرمز کار میکنیم پس مانعی نباید در مسیر وجود داشته باشه !
                  من یک مثال با بسکام دارم اگه با بسکام کار میکنید بگید تا براتون بزارم اگر هم اطلاعات بیشتر خواستید برید به help بسکام و بنویسد rc5 همه چی رو از نرم افزار تا سخت افزار کامل توضیح داده!

                  دیدگاه


                    #10
                    پاسخ : فرستنده و گیرنده مادون قرمز

                    اگر میتونی برام بزار طرح مدار با کدهاش!!
                    دست شما درد نکنه :wow: :applause: :nice:

                    دیدگاه


                      #11
                      پاسخ : فرستنده و گیرنده مادون قرمز

                      این برنامه :

                      کد:
                      $regfile = "M8def.dat"
                      $crystal = 8000000
                      $lib "mcsbyte.lbx"
                      '-----------------------------------------------------------------------------------------
                      Dim I As Bit
                      Dim A As Byte
                      '-----------------------------------------------------------------------------------------
                      Config Portd = Output
                      '\\\\\\\\\\\\\\\\\\\\\\\\\\
                      Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
                      Config Lcd = 16 * 2
                      '\\\\\\\\\\\\\\\\\\\\\\\\\\
                      Config Rc5 = Pinb.1
                      '-----------------------------------------------------------------------------------------
                      Portd = 0
                      I = 0
                      '-----------------------------------------------------------------------------------------
                      Enable Interrupts
                      '-----------------------------------------------------------------------------------------
                      Dim Address As Byte , Command As Byte
                      '-----------------------------------------------------------------------------------------
                      Cls
                      Display Off
                      '-----------------------------------------------------------------------------------------
                      Do
                      Getrc5(address , Command)
                      
                       If Address = 0 Then
                      
                      Command = Command And &B01111111
                      '-----------------------------------------------------------------------------------------
                      If Command = 12 Then
                      Toggle I
                      End If
                      '-----------------------------------------------------------------------------------------
                      If Command = 12 And I = 1then
                      Display On
                      Cls
                      Waitms 300
                      Lcd "  welcome"
                      Locate 2 , 1
                      Lcd " Multi Control "
                      Waitms 3000
                      Locate 2 , 1
                      Lcd "    by    "
                      Waitms 900
                      Locate 2 , 1
                      Lcd " hojat rahimi "
                      Waitms 3000
                      End If
                      '-----------------------------------------------------------------------------------------
                      If Command = 12 And I = 0 Then
                      Cls
                      Home U
                      Lcd "  good bye"
                      Waitms 1000
                      Display Off
                      End If
                      Cls
                      Home U
                      Lcd " your key is :" ; Command
                      End If
                      '-----------------------------------------------------------------------------------------
                      If I = 1 Then
                      Select Case Command
                      Case 1 : Portd = &B00000001
                      Case 2 : Portd = &B00000010
                      Case 3 : Portd = &B00000100
                      Case 4 : Portd = &B00001000
                      Case 5 : Portd = &B00010000
                      '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                      Case 16 :
                      If A < 31 Then
                      A = 2 * A
                      Incr A
                      Portd = A
                      End If
                      '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                      Case 17:
                      If A > 0 Then
                      Decr A
                      A = A / 2
                      Portd = A
                      End If
                      '\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
                      End Select
                      End If
                      '-----------------------------------------------------------------------------------------
                      If I = 0 Then
                      Portd = 0
                      End If
                      '-----------------------------------------------------------------------------------------
                      Loop
                      '-----------------------------------------------------------------------------------------
                      End                             'end program


                      سخت افزارش هم یک مگا 8 هست ، یک lcd و مدار دمودولاتورش هم همون چیزی که توی دیتا شیت tsop 1238 هست استفاده کردم و خروجی اونرو به پایه pb1 متصل کردم

                      دیدگاه

                      لطفا صبر کنید...
                      X