اطلاعیه

Collapse
No announcement yet.

فرسنده و گیرنده HMبا بسکام

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

    #31
    پاسخ : فرسنده و گیرنده HMبا بسکام

    در هر کجا از برنامه ابهامی هست اون قسمت رو قرار بدین تا توضیح بدم.
    چرا ناراحتی پاتریک!
    + امروز ی بچه دیدم سرچهارراه گل میفروخت
    - از دیدنش ناراحت شدی؟
    + نه
    پس چی ناراحتت کرده
    + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
    ------------------------------------------------------------------------------------------------------
    تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
    ------------------------------------------------------------------------------------------------------
    محصولات

    دیدگاه


      #32
      پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

      نوشته اصلی توسط سوران آراسته
      در هر کجا از برنامه ابهامی هست اون قسمت رو قرار بدین تا توضیح بدم.
      در فرستنده
      A = Str(ad)
      در گیرنده
      Ad = Val(a)

      دیدگاه


        #33
        پاسخ : فرسنده و گیرنده HMبا بسکام

        خب در فرستنده این دستور تبدیل عدد به رشته و در گیرنده برعکس این قضیه اس.
        همین
        چرا ناراحتی پاتریک!
        + امروز ی بچه دیدم سرچهارراه گل میفروخت
        - از دیدنش ناراحت شدی؟
        + نه
        پس چی ناراحتت کرده
        + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
        ------------------------------------------------------------------------------------------------------
        تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
        ------------------------------------------------------------------------------------------------------
        محصولات

        دیدگاه


          #34
          پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

          نوشته اصلی توسط سوران آراسته
          خب در فرستنده این دستور تبدیل عدد به رشته و در گیرنده برعکس این قضیه اس.
          همین
          سلام
          چرا تبدیل به رشته میکنید؟
          میخواهم زمانی کلید فشار داده میشود یه رله فعال کنم رها شد قطع شود و هیچ دو کلیدی با هم کار نکند

          دیدگاه


            #35
            پاسخ : فرسنده و گیرنده HMبا بسکام

            نوشته اصلی توسط kendab
            سلام
            چرا تبدیل به رشته میکنید؟
            میخواهم زمانی کلید فشار داده میشود یه رله فعال کنم رها شد قطع شود و هیچ دو کلیدی با هم کار نکند
            اگه منظورتون اینکه یه همچین مثالی می خواین چشم سعی می کنم تا شب یه همچین برنامه ای رو براتون اماده کنم.
            چرا ناراحتی پاتریک!
            + امروز ی بچه دیدم سرچهارراه گل میفروخت
            - از دیدنش ناراحت شدی؟
            + نه
            پس چی ناراحتت کرده
            + اینکه دیدن اینجور بچه ها انقدر واسم عادی شده که دیگه ناراحتم نمیکنه
            ------------------------------------------------------------------------------------------------------
            تاحالا فکر کردی بیسواد کیه؟- بی سواد یعنی کسی که نمیتونه ذهنیاتش رو عملی کنه!
            ------------------------------------------------------------------------------------------------------
            محصولات

            دیدگاه


              #36
              پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

              نوشته اصلی توسط سوران آراسته
              اگه منظورتون اینکه یه همچین مثالی می خواین چشم سعی می کنم تا شب یه همچین برنامه ای رو براتون اماده کنم.
              ممنون
              معذرت میخاهم اینجوری گفتم
              من یه برنامه اول تایپک گذاشتم یکی گفت ایراد داره
              برا این اینجا هدفمم را گفتم
              شرمنده

              دیدگاه


                #37
                پاسخ : فرسنده و گیرنده HMبا بسکام

                آقا منم همینجور برنامه ای رو دارم برای یه سخت افزار مینویسم اگه تا شب صب کنی برنامه و شماتیکو همه رو میزارم اینجا
                مدار فرستنده:

                مدار گیرنده:

                دیدگاه


                  #38
                  پاسخ : فرسنده و گیرنده HMبا بسکام

                  سلاااااام خیلی بیکار بودم به سرعت برق باد درستش کردم oo: oo: :applause:
                  لینک دانلود

                  http://uploadboy.com/loocx97o9igo.html

                  فقط حواست باشه طول آنتن هم یه سیم به طول 20cm باشه که به دور یه لوله خودکار پیچیده بشه (برگرفته از خود آنتن hmtr(:applause:

                  دیدگاه


                    #39
                    پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

                    نوشته اصلی توسط reza javahery
                    سلاااااام خیلی بیکار بودم به سرعت برق باد درستش کردم oo: oo: :applause:
                    لینک دانلود

                    http://uploadboy.com/loocx97o9igo.html

                    فقط حواست باشه طول آنتن همیه سیم به طول 20cm باشه که به دور یه لوله خودکار پیچیده بشه (برگرفته از خود آنتن hmtr(:applause:
                    سلام
                    ممنون
                    شرکمده کلی سوال دارم
                    امکان دارد برنامه را توضیح بدهید؟
                    چرا به ماژول 3.3 ولت دادید؟
                    در فرستنده پایه 14 و15 را چکار کرده اید؟
                    در گرنده پایه 27 چکار کرده اید؟
                    اون قطعه به پایه 28 چیه؟
                    چرا از کریستال خارجی استفاده نکرده ای؟

                    دیدگاه


                      #40
                      پاسخ : فرسنده و گیرنده HMبا بسکام

                      شرکمده کلی سوال دارم
                      خواهس میکنم وظیفس
                      امکان دارد برنامه را توضیح بدهید؟
                      خوب برنامه رو خط به خط توضیح میدم و اینجا میزارم
                      چرا به ماژول 3.3 ولت دادید؟
                      چون هر بار 5 ولت دادم سوخت :cry:
                      در فرستنده پایه 14 و15 را چکار کرده اید؟
                      به یه ال ای دی دو رنگ دادم وقتی چیزی ارسال نشه سبزه وقتی قرمزه یعنی یه چیزی داره ارسال میشه
                      در گرنده پایه 27 چکار کرده اید؟
                      اون قطعه به پایه 28 چیه؟
                      اونا برای اندازه گیری ولتاژ ورودیه که اگه از حدی کمتر شد بوق بزنه که استفاده نکردم
                      در ضمن مدار مقداری اشتباه داره که همراه توضیحات درستشو میزارم
                      چرا از کریستال خارجی استفاده نکرده ای؟
                      مگه لازمه oo: oo: الان که مثل ماه داره کار میکنه
                      الان برنامه رو توضیح میدم

                      دیدگاه


                        #41
                        پاسخ : فرسنده و گیرنده HMبا بسکام

                        خوب اینم توضیح فرستنده:
                        کد:
                        $regfile = "m8def.dat"
                        $crystal = 1000000
                        $baud = 9600
                        Config Portd = Input
                        Led_s Alias Portb.0
                        Led_k Alias Portb.1
                        Config Portb.0 = Output
                        Config Portb.1 = Output
                        Dim Send_data As Byte
                        Dim A As Byte
                        Led_k = 1
                        Led_s = 1
                        Waitms 200
                        Led_k = 0
                        Led_s = 0
                        Waitms 200
                        Main:
                        این قسمت مربوط به پیکر بندی پایه ها و تعریف متغییرها هست و قسمت آخر یه چشمک توسط دو led برای اطمینان از فعال بودن مدار
                        کد:
                        '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
                        main:
                        Send_data.0 = Pind.2
                        Send_data.1 = Pind.0
                        Send_data.2 = Pind.4
                        Send_data.3 = Pind.3
                        Send_data.4 = Pind.6
                        Send_data.5 = Pind.5
                        '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
                        این قسمت هم برای برابر قرار دادن بیت های بسته ارسالی با بیت های کلیدهای متصل شده به پورت d هست
                        کد:
                        Send_data.6 = 1
                        Send_data.7 = 1
                        If Send_data <> 255 Then
                        Led_k = 1
                        Led_s = 0
                        Else
                        Led_k = 0
                        Led_s = 1
                        End If
                        این قسمت هم مربوط به همون قضیه دو پایه 14 و 15 هست که پرسیدید
                        به این صورت هست که در صورتی که اگر یسته 8 بیتی ما نا برابر 255 بود led سبز خاموش و ال ای دی قرمز روشن میشود و در غیر این صورت led سبز روشن میشود یعنی هیچ کلیدی نخورده و ال ای دی سبز روشن میشه (کلید ها پول پ شده)
                        کد:
                        Printbin Send_data
                        Waitms 110
                        jmp Main
                        End
                        این قسمت هم اطلاعات به صورت بیت بیت از طریق پورت سریال ارصال میشود این دستور به این خاطر استفاده شده است که در گیرنه میخواهیم اطلاعات رو در وقفه udr بریزیم (udr در گیرنده توضیح داده میشود)
                        و در آخر یه تاخیر و یه باز گشت یا همون jmp که کار برگشت به اول برنامه رو انجام میده
                        این از فرستنده آیا مشکل دارید اگه ندارید بریم سر گیرنده؟
                        مدار فرستنده:


                        دیدگاه


                          #42
                          پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

                          نوشته اصلی توسط reza javahery
                          خوب اینم توضیح فرستنده:
                          کد:
                          $regfile = "m8def.dat"
                          $crystal = 1000000
                          $baud = 9600
                          Config Portd = Input
                          Led_s Alias Portb.0
                          Led_k Alias Portb.1
                          Config Portb.0 = Output
                          Config Portb.1 = Output
                          Dim Send_data As Byte
                          Dim A As Byte
                          Led_k = 1
                          Led_s = 1
                          Waitms 200
                          Led_k = 0
                          Led_s = 0
                          Waitms 200
                          Main:
                          این قسمت مربوط به پیکر بندی پایه ها و تعریف متغییرها هست و قسمت آخر یه چشمک توسط دو led برای اطمینان از فعال بودن مدار
                          کد:
                          '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
                          main:
                          Send_data.0 = Pind.2
                          Send_data.1 = Pind.0
                          Send_data.2 = Pind.4
                          Send_data.3 = Pind.3
                          Send_data.4 = Pind.6
                          Send_data.5 = Pind.5
                          '"""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
                          این قسمت هم برای برابر قرار دادن بیت های بسته ارسالی با بیت های کلیدهای متصل شده به پورت d هست
                          کد:
                          Send_data.6 = 1
                          Send_data.7 = 1
                          If Send_data <> 255 Then
                          Led_k = 1
                          Led_s = 0
                          Else
                          Led_k = 0
                          Led_s = 1
                          End If
                          این قسمت هم مربوط به همون قضیه دو پایه 14 و 15 هست که پرسیدید
                          به این صورت هست که در صورتی که اگر یسته 8 بیتی ما نا برابر 255 بود led سبز خاموش و ال ای دی قرمز روشن میشود و در غیر این صورت led سبز روشن میشود یعنی هیچ کلیدی نخورده و ال ای دی سبز روشن میشه (کلید ها پول پ شده)
                          کد:
                          Printbin Send_data
                          Waitms 110
                          jmp Main
                          End
                          این قسمت هم اطلاعات به صورت بیت بیت از طریق پورت سریال ارصال میشود این دستور به این خاطر استفاده شده است که در گیرنه میخواهیم اطلاعات رو در وقفه udr بریزیم (udr در گیرنده توضیح داده میشود)
                          و در آخر یه تاخیر و یه باز گشت یا همون jmp که کار برگشت به اول برنامه رو انجام میده
                          این از فرستنده آیا مشکل دارید اگه ندارید بریم سر گیرنده؟
                          مدار فرستنده:
                          سلام
                          ممنون
                          نمیدونم چرا printbin مینویسم خطا میدهد
                          دیگه سوالی نیست
                          شرمنده کردید

                          دیدگاه


                            #43
                            پاسخ : فرسنده و گیرنده HMبا بسکام

                            برنامه که نوشتی رو بده ببینم چیکار کردی

                            دیدگاه


                              #44
                              پاسخ : پاسخ : فرسنده و گیرنده HMبا بسکام

                              نوشته اصلی توسط reza javahery
                              برنامه که نوشتی رو بده ببینم چیکار کردی
                              ممنون
                              من هنوز نتونستم با printbin کار کنم
                              این برنامه هست
                              $regfile = "m8def.dat"
                              $crystal = 1000000
                              $baud = 9600
                              Config Portd = Input
                              Led_k Alias Portb.0
                              Led_s Alias Portb.1
                              Config Portb.0 = Output
                              Config Portb.1 = Output
                              Dim Send_data As Byte
                              Dim A As Byte
                              Led_k = 1
                              Led_s = 1
                              Waitms 200
                              Led_k = 0
                              Led_s = 0
                              Waitms 200
                              Main:


                              Send_data.0 = Pind.2 'pind.6
                              Send_data.1 = Pind.0 'Pind.5
                              Send_data.2 = Pind.4 'Pind.4
                              Send_data.3 = Pind.3 'Pind.3
                              Send_data.4 = Pind.6 'Pind.2
                              Send_data.5 = Pind.5 'Pind.0

                              Send_data.6 = 1
                              Send_data.7 = 1
                              If Send_data <> 255 Then
                              Led_k = 1
                              Led_s = 0
                              Else
                              Led_k = 0
                              Led_s = 1
                              End If
                              Printbin Snd_data
                              Waitms 100
                              Waitms 10
                              jmp Main
                              End

                              دیدگاه


                                #45
                                پاسخ : فرسنده و گیرنده HMبا بسکام

                                غلط املایی داری نگاه کن شما گفتی
                                کد:
                                Printbin Snd_data
                                من گفتم
                                کد:
                                Printbin Send_data
                                :icon_razz:

                                دیدگاه

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