اطلاعیه

Collapse
No announcement yet.

مشکل ds1307 با mega64

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

    مشکل ds1307 با mega64

    با سلام
    دوستان سورس برنامه رو با شبیه ساز گذاشتم
    روی مگا 32 جواب میده و لی 64 نه اگه میشه راهنمایی کنید
    :smile:

    http://hotfile.com/dl/119132249/1537817/2.rar.html
    خدایا مرا آن ده که آن به

    #2
    پاسخ : مشکل ds1307 با mega64

    سلام

    میشه کاملتر بگین ؟ برنامشو خودتون نوشتید ؟ چون از لحاظ پینها این دو میکرو با هم فرق دارن پینهاشو عوض کردین (منظورم تو برنامست)
    ؟ oo:
    AV Maziton 100
    Render By Artlantis Studio
    [img width=346 height=100]http://maziyar123.persiangig.com/View.jpg[/img]

    دیدگاه


      #3
      پاسخ : مشکل ds1307 با mega64

      با سلام
      بله پینها صحیح است مشکل در سخت افزار نیست همین برنامه در مگا 32 جواب داد
      کد:
           '------ds1307---------------
      
       $regfile = "m64def.dat"
      $crystal = 8000000
      $lib "glcdKS108.lib"
      $lib "ds1307clock.lib"
      'First we define that we use a graphic LCD
      Config Graphlcd = 128 * 64sed , Dataport = Portb , Controlport = Portc , Ce = 3 , Ce2 = 4 , Cd = 0 , Rd = 1 , Reset = 6 , Enable = 2
      
      
      Config Sda = Portd.1
      Config Scl = Portd.0
      'address of ds1307
      Const Ds1307w = &HD0                    ' Addresses of Ds1307 clock
      Const Ds1307r = &HD1
      Config Debounce = 30
      
       Dim _sec As Byte
       Dim _min As Byte
       Dim _hour As Byte
      '---------------------------
      
      Setfont Font8x8
      
      Gosub Ds1307
      Gosub Disply_24
      
      '-------------------------------------------------------------------------------
      
      Ds1307:
          I2cstart                      ' Generate start code
          I2cwbyte Ds1307w                  ' send address
          I2cwbyte 0                     ' start address in 1307
          I2cstart                      ' Generate start code
      
      
           I2cwbyte Ds1307r
       I2crbyte _sec , Ack
       I2crbyte _min , Ack
       I2crbyte _hour , nAck
      
      
      I2cstop
      
      
          _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
      
      
      
      
          If _sec > 59 Then _sec = 0
          If _min > 59 Then _min = 0
          If _hour > 23 Then
          _hour = 0
          Gosub Seco
          End If
      
      Return
      '-------------------------------------------------------------------------------
      
      '-------------------------------------------------------------------------------
       Disply_24:
           Lcdat 5 , 1 , "Time= "
      
           If _hour > 9 Then : Lcdat 5 , 40 , _hour
           Else : Lcdat 5 , 40 , "0" ; _hour
           End If
      
                   Setfont Font8x8
      
           Lcdat 5 , 55 , ":"
      
      
      
           If _min > 9 Then : Lcdat 5 , 64 , _min
           Else : Lcdat 5 , 64 , "0" ; _min
           End If
      
      
      
           Lcdat 5 , 77 , ":"
      
      
           If _sec > 9 Then : Lcdat 5 , 88 , _sec
           Else : Lcdat 5 , 88 , "0" ; _sec
           End If
      
      
      
      Return
      '-------------------------------------------------------------------------------
      
      '-------------------------------------------------------------------------------
      
      '---------------------------------------------
      Seco:
      
           If _sec > 59 Then _sec = 0
           _sec = Makebcd(_sec)
           I2cstart                      ' Generate start code
           I2cwbyte Ds1307w                  ' send address
           I2cwbyte 0                     ' starting address in 1307
           I2cwbyte _sec
           I2cstop
      Return
      '-------------------------------------
      Mine:
      
      
      
           If _min > 59 Then _min = 0
           _min = Makebcd(_min)
           I2cstart                      ' Generate start code
           I2cwbyte Ds1307w                  ' send address
           I2cwbyte 1                     ' starting address in 1307
           I2cwbyte _min
           I2cstop
      
      
      Return
      '-------------------------------------
      
      Hour:
      
           If _hour > 23 Then _hour = 0
           _hour = Makebcd(_hour)
           I2cstart                      ' Generate start code
           I2cwbyte Ds1307w                  ' send address
           I2cwbyte 2                     ' starting address in 1307
           I2cwbyte _hour
           I2cstop
      
      Return
      $include "font8x8.font"
      خدایا مرا آن ده که آن به

      دیدگاه


        #4
        پاسخ : مشکل ds1307 با mega64

        پس پینهات درسته ؟ ال سی دی و پایه های دیتا هم درستن ؟ فیوزبیت رو رو 8 مگا تنظیم کردین ؟ یه کار دیگه چون ال سی دی گرافیک به پورت C هم وصل شده Jtag رو غیر فعال کن ببین چی میشه
        AV Maziton 100
        Render By Artlantis Studio
        [img width=346 height=100]http://maziyar123.persiangig.com/View.jpg[/img]

        دیدگاه


          #5
          پاسخ : مشکل ds1307 با mega64

          آقا من جای پورت c رو هم به گفته شما شک پیدا کردم عوض کرم ولی تو شبیه ساز باید جواب میداد هنوز به نتیجه نرسیدم دوستان کمکی کنید ممنون میشم oo:
          خدایا مرا آن ده که آن به

          دیدگاه


            #6
            پاسخ : مشکل ds1307 با mega64

            مشکل رو بگم خودت خندت میگیره
            به مقاومتهای پول پ نگاه کن! چند گذاشتی؟ 4.7اهم؟ بذارشون 4.7k اهم درست میشه
            در ضمن اون مقاومتهای 330 اهم هم لازم نیست و مستقیم به میکرو وصلش کن
            پروردگارا: به من زيستني عطا کن که در لحظه مرگ بر بي ثمري لحظه اي که براي زيستن گذشته است حسرت نخورم، و مردني عطا کن که بر بيهودگيش سوگوار نباشم. بگذار تا آن را خود انتخاب کنم، اما آنچنان که تو دوست ميداري

            دیدگاه


              #7
              پاسخ : مشکل ds1307 با mega64



              راست میگیا به همه دقت کردیم به غیر از برنامه شبیه ساز آقا امیر درست میگه اون330 اهم رو حذف کن اونم بکن 4.7k حلّه
              امیر جان به خوب نکته ای اشاره کردی حال کردم :mrgreen: آرش خان دقت کن :mrgreen: :mrgreen: :mrgreen:
              AV Maziton 100
              Render By Artlantis Studio
              [img width=346 height=100]http://maziyar123.persiangig.com/View.jpg[/img]

              دیدگاه


                #8
                پاسخ : مشکل ds1307 با mega64

                نوشته اصلی توسط maziyar123

                راست میگیا به همه دقت کردیم به غیر از برنامه شبیه ساز آقا امیر درست میگه اون330 اهم رو حذف کن اونم بکن 4.7k حلّه
                امیر جان به خوب نکته ای اشاره کردی حال کردم آرش خان دقت کن
                خوب حالا وقتشه به خودت گیر بدم :mrgreen:
                خوب فرمودین JTAG رو غیر فعال کن چون ال سی دی گرافیکی بهش وصله ! بله؟ :biggrin:
                دوست عزیز دقت کن JTAG در مگا 64 و مگا128 روی پورت F هست نه روی پورت C ! پس بیشتر دقت کن!!! :mrgreen:
                شوخی میکنم به دل نگیری!
                پروردگارا: به من زيستني عطا کن که در لحظه مرگ بر بي ثمري لحظه اي که براي زيستن گذشته است حسرت نخورم، و مردني عطا کن که بر بيهودگيش سوگوار نباشم. بگذار تا آن را خود انتخاب کنم، اما آنچنان که تو دوست ميداري

                دیدگاه


                  #9
                  پاسخ : مشکل ds1307 با mega64

                  بله

                  دستتون درد نکنه عجب اشتباهی بود خجالت کشیدم
                  خدایا مرا آن ده که آن به

                  دیدگاه


                    #10
                    پاسخ : مشکل ds1307 با mega64

                    نوشته اصلی توسط امیر حسنی کاخکی
                    خوب حالا وقتشه به خودت گیر بدم :mrgreen:
                    خوب فرمودین JTAG رو غیر فعال کن چون ال سی دی گرافیکی بهش وصله ! بله؟ :biggrin:
                    دوست عزیز دقت کن JTAG در مگا 64 و مگا128 روی پورت F هست نه روی پورت C ! پس بیشتر دقت کن!!! :mrgreen:
                    شوخی میکنم به دل نگیری!
                    آقای امیر جان به جای اینکه به اشتباهات دیگران گیر بدی بهتره راهماییشون کنی که دیگه سوتی ندن مثل همین کاری که من کردم و شما راهنماییم کردین خیلی نوکرم آقایی :mrgreen:
                    بد سوتی دادما نهههههههههههههههههههه امیر ؟ :mrgreen:
                    AV Maziton 100
                    Render By Artlantis Studio
                    [img width=346 height=100]http://maziyar123.persiangig.com/View.jpg[/img]

                    دیدگاه


                      #11
                      پاسخ : مشکل ds1307 با mega64

                      نوشته اصلی توسط maziyar123
                      آقای امیر جان به جای اینکه به اشتباهات دیگران گیر بدی بهتره راهماییشون کنی که دیگه سوتی ندن مثل همین کاری که من کردم و شما راهنماییم کردین خیلی نوکرم آقایی :mrgreen:
                      بد سوتی دادما نهههههههههههههههههههه امیر ؟ :mrgreen:
                      من اگه به عکس آواتارت نگاه میکردم مطمعن باش بهت گیر نمیدادم!الان هم ازت معضرت میخوام (الانم تا نیومدی سراغم زودتر برم آدرسم رو از تو پروفایلم تغیر بدم !!!!!) :icon_razz: :mrgreen:
                      پروردگارا: به من زيستني عطا کن که در لحظه مرگ بر بي ثمري لحظه اي که براي زيستن گذشته است حسرت نخورم، و مردني عطا کن که بر بيهودگيش سوگوار نباشم. بگذار تا آن را خود انتخاب کنم، اما آنچنان که تو دوست ميداري

                      دیدگاه

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