اطلاعیه

Collapse
No announcement yet.

کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

Collapse
X
Collapse
 
  • صفحه of 2
  • فیلتر
  • زمان
  • Show
Clear All
new posts
قبلی 1 2 template بعدی
    #16
    پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

    یعنی با فرمول جور در میادا ولی تو عمل جواب نمیده
    نمیدونم چرا :angry:
    یکی دو هفته ای میشه ذهنمو مشغول کرده
    telgram:09396888049

    دیدگاه

      #17
      پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

      نوشته اصلی توسط jumper
      من برنامتونو نوشتمو ران کردم ولی جواب نداد
      یعنی فقط صفر نشون میده
      جدی میگی :eek:
      آخه من اینو توی پروتوئوس جواب گرفتم بعدش گذاشتم ببین توی پروتوئو.وس جواب میده یا نه اینجا که جواب میده کو اینو هم ببین
      با پورت b
      $regfile = "m32def.dat"
      $crystal = 8000000
      Config Lcd = 16 * 2
      Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
      Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
      Dim I As Byte , Saneye As Byte
      Config Timer0 = Timer , Prescale = 256
      Enable Interrupts
      Enable Timer0
      On Timer0 L1
      Timer0 = 6
      Start Timer0
      Do
      Lcd Saneye
      Waitms 100
      Cls
      Loop
      End
      L1:
      Incr I
      If I = 125 Then
      Stop Timer0
      I = 0
      Incr Saneye
      Timer0 = 6
      Start Timer0
      End If
      Return

      اینو هم ببین توی این یکی یک مقدار دستورات جابه جا شده چشمک برطرف شده
      $regfile = "m32def.dat"
      $crystal = 8000000
      Config Lcd = 16 * 2
      Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
      Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
      Dim I As Byte , Saneye As Byte
      Config Timer0 = Timer , Prescale = 256
      Enable Interrupts
      Enable Timer0
      On Timer0 L1
      Timer0 = 6
      Start Timer0
      Lcd Saneye
      Do
      Loop
      End
      L1:
      Incr I
      If I = 125 Then
      Stop Timer0
      I = 0
      Incr Saneye
      Cls
      Lcd Saneye
      Timer0 = 6
      Start Timer0
      End If
      Return

      شاید اونجا که می ری توی پروتوئوس فایل و بیاری فرکانسش با فرکانس بسکامت یکی نباشه کو اونو ببین
      بعدش توی عمل هم باید فیوز بیتو تغییر بدی چون به صورت پیش فرض اگر تغییر ندی فرکانس در عمل یک مگا هستش که با فرکانس بسکامت نمیخوره



      مولا علی (ع) میفرمایند : آسوده باش , آستین هارا بالا بزن , بر خدا توکل کن , آنگاه خدا را خواهی دید که زودتر از تو دست به کار شده است .

      دیدگاه

        #18
        پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

        سلام
        این رو امتحان کن
        من که ازش جواب گرفتم
        $regfile = "m8def.dat"
        $crystal = 8000000
        Config Lcd = 16 * 2
        Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
        Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
        Dim I As Word , Saneye As Byte
        Config Timer0 = Timer , Prescale = 8
        Enable Interrupts
        Enable Timer0
        On Timer0 L1
        Stop Timer0
        Timer0 = 56
        Start Timer0
        Cls
        Do
        Locate 1 , 1
        Lcd Saneye
        Loop
        End
        L1:
        Timer0 = 56
        Incr I
        If I = 5000 Then
        I = 0
        Incr Saneye
        End If
        Return

        دیدگاه

          #19
          پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

          نوشته اصلی توسط mojtaba_led
          سلام
          این رو امتحان کن
          من که ازش جواب گرفتم
          $regfile = "m8def.dat"
          $crystal = 8000000
          Config Lcd = 16 * 2
          Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
          Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
          Dim I As Word , Saneye As Byte
          Config Timer0 = Timer , Prescale = 8
          Enable Interrupts
          Enable Timer0
          On Timer0 L1
          Stop Timer0
          Timer0 = 56
          Start Timer0
          Cls
          Do
          Locate 1 , 1
          Lcd Saneye
          Loop
          End
          L1:
          Timer0 = 56
          Incr I
          If I = 5000 Then
          I = 0
          Incr Saneye
          End If
          Return
          سلام آیا احتمال نداره با 5000 بار وقفه توی زمان ثانیه تاثیر منفی بزاره ؟
          مولا علی (ع) میفرمایند : آسوده باش , آستین هارا بالا بزن , بر خدا توکل کن , آنگاه خدا را خواهی دید که زودتر از تو دست به کار شده است .

          دیدگاه

            #20
            پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

            نوشته اصلی توسط iranesabz
            جدی میگی :eek:
            آخه من اینو توی پروتوئوس جواب گرفتم بعدش گذاشتم ببین توی پروتوئو.وس جواب میده یا نه اینجا که جواب میده کو اینو هم ببین
            با پورت b
            $regfile = "m32def.dat"
            $crystal = 8000000
            Config Lcd = 16 * 2
            Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
            Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
            Dim I As Byte , Saneye As Byte
            Config Timer0 = Timer , Prescale = 256
            Enable Interrupts
            Enable Timer0
            On Timer0 L1
            Timer0 = 6
            Start Timer0
            Do
            Lcd Saneye
            Waitms 100
            Cls
            Loop
            End
            L1:
            Incr I
            If I = 125 Then
            Stop Timer0
            I = 0
            Incr Saneye
            Timer0 = 6
            Start Timer0
            End If
            Return

            اینو هم ببین توی این یکی یک مقدار دستورات جابه جا شده چشمک برطرف شده
            $regfile = "m32def.dat"
            $crystal = 8000000
            Config Lcd = 16 * 2
            Config Lcdpin = Pin , Db4 = Portb.4 , Db5 = Portb.5 , Db6 = Portb.6 , _
            Db7 = Portb.7 , E = Portb.3 , Rs = Portb.2
            Dim I As Byte , Saneye As Byte
            Config Timer0 = Timer , Prescale = 256
            Enable Interrupts
            Enable Timer0
            On Timer0 L1
            Timer0 = 6
            Start Timer0
            Lcd Saneye
            Do
            Loop
            End
            L1:
            Incr I
            If I = 125 Then
            Stop Timer0
            I = 0
            Incr Saneye
            Cls
            Lcd Saneye
            Timer0 = 6
            Start Timer0
            End If
            Return

            شاید اونجا که می ری توی پروتوئوس فایل و بیاری فرکانسش با فرکانس بسکامت یکی نباشه کو اونو ببین
            بعدش توی عمل هم باید فیوز بیتو تغییر بدی چون به صورت پیش فرض اگر تغییر ندی فرکانس در عمل یک مگا هستش که با فرکانس بسکامت نمیخوره
            سلام
            ممنون دوستان از کمک هاتون
            گفتین در عمل باد فیوز بیتو تغییر بدم.میشه راهنمایی کنین
            آقا مجتبی برنامه تونو تو پروتئوس زدم جواب نگرفتم.نمیدونم چی شده آخه :angry:
            دیوونه شدم
            telgram:09396888049

            دیدگاه

              #21
              پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

              ممنون دوست عزیز ایران سبز
              نکته مهم همون فرکانس بسکام بود که من تغیر نمیدادم
              هم برنامه شما و هم آقا مجتبی هر دو تو بسکام جواب داد :job:
              فقط اگه راهنماییم کنین تو عمل چجوری و کدوم فیوز بیتارو تغییر بدم واقعا ممنونتون میشم
              با اشتیاق منتظرم
              telgram:09396888049

              دیدگاه

                #22
                پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                سلام
                با فیوز بیتهای cksel 0 تا cksel 3 مطابق اونچه که در دیتا شیت آی سی امده تنظیم کنید تا فرکانس مورد نظر انتخاب بشه
                برای اسیلاتور داخی به صورت زیر هستش

                دیدگاه

                  #23
                  پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                  ممنون آقا مجتبی
                  یعنی اگه من از کریستال خارجی هشت مگ استفاده کنم
                  cksel0=0
                  cksel1=0
                  cksel2=1
                  cksel3=1
                  اینطوری باید تغییر بدم؟
                  بیشتر راهنماییم کنین واقعا ممنون میشم
                  telgram:09396888049

                  دیدگاه

                    #24
                    پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                    نوشته اصلی توسط jumper
                    یعنی اگه من از کریستال خارجی هشت مگ استفاده کنم
                    cksel0=0
                    cksel1=0
                    cksel2=1
                    cksel3=1
                    اینطوری باید تغییر بدم؟
                    حالا چرا کریستال خارجی ، اگر قصد انتقال اطلاعات رو داشتید از کریستال خارجی استفاده کنید که البته همونطور که در دیتا شیت آی سی امده به یک مدار فیلتر هم نیاز داره
                    پس بریم سراغ اوسیلاتور داخلی :
                    1- فرکانس 1MHZ : CKSEL0 =1 ,CKSEL2 =0,CKSEL3 =0,CKSEL4 =0
                    2-فرکانس 2MHZ : CKSEL0 =0 ,CKSEL2 =1,CKSEL3 =0,CKSEL4 =0
                    3-فرکانس 4MHZ : CKSEL0 =1 ,CKSEL2 =1,CKSEL3 =0,CKSEL4 =0
                    2-فرکانس 8MHZ : CKSEL0 =0 ,CKSEL2 =0,CKSEL3 =1,CKSEL4 =0

                    دیدگاه

                      #25
                      پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                      مرسی از راهنماییتون
                      یه سوال دیگه
                      حالا اگه از کریستال خارجی بخوام استفاده کنم باید چیرو تغییر بدم؟
                      telgram:09396888049

                      دیدگاه

                        #26
                        پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                        سلام
                        دوست عزیز اگه دیتا شیت mega16 رو دارید می تونید به صفحات 23 تا 27 مراجعه کنید

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

                        دیدگاه

                          #27
                          پاسخ : کمک درباره ایجاد زمان یک ثانیه با تایمر صفر

                          ممنون از کمکتون آقا مجتبی خیلی کمکم کردین
                          telgram:09396888049

                          دیدگاه

                          قبلی 1 2 template بعدی
                          لطفا صبر کنید...
                          X