اطلاعیه

Collapse
No announcement yet.

درخواست متن پروژه ساعت (شماتیک موجود هست)

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

    درخواست متن پروژه ساعت (شماتیک موجود هست)

    درود بر دوستان

    دنبال نرم افزار ساعت برای atmega32a هستم که ساعت را نشون بده و قابلیت تنظیم و ست کردن داشته باشه . (کریستال داخلی) در جستجویی که داشتم شماتیک را پیدا کردم ولی متن برنامه را خیر . لطفا در صورت امکان متن برنامه به زبان سی (کد ویژن) را برای بنده قرار دهید (البته اگر بسکام بود ایرادی ندارد)
    تشکر از شما

    #2
    پاسخ : درخواست متن پروژه ساعت (شماتیک موجود هست)

    نوشته اصلی توسط kamran1991
    درود بر دوستان

    دنبال نرم افزار ساعت برای atmega32a هستم که ساعت را نشون بده و قابلیت تنظیم و ست کردن داشته باشه . (کریستال داخلی) در جستجویی که داشتم شماتیک را پیدا کردم ولی متن برنامه را خیر . لطفا در صورت امکان متن برنامه به زبان سی (کد ویژن) را برای بنده قرار دهید (البته اگر بسکام بود ایرادی ندارد)
    تشکر از شما
    سلام
    دوست عزیز کریستال داخلی درصد خطاش بیشتره حتی اگه با تایمر 16 بیتی نوشته بشه شما باید دنبال یه ساعت با کریستال ساعت باشین که با rtc میکرو راه اندازی میشه
    برد جوجه کشی:
    مطالعه پست 1 (حتما مطالعه کنید)


    مطالعه پست 2 (برای مطلع شدن از تغییرات برنامه مطالعه کنید)

    دانلود

    توجه:
    این برد نیمه صنعتی و خانگی هست...
    برای صنعتی شدن حتما برد مخصوص خودتون رو بزنید...

    آی دی کانال تلگرامی مربوط به برد جوجه کشی : electr0o0nic@

    دیدگاه


      #3
      پاسخ : درخواست متن پروژه ساعت (شماتیک موجود هست)

      دقیق بودن ساعت مهم نیست
      برنامه ای خودم نوشتم ولی خطا میدهد و کامپایل نمیشود
      لطفا بررسی کنید و اصلاخات آن را بدهید . خیلی ممنون

      http://s5.picofile.com/file/8156110542/New_Folder_8_.zip.html

      دیدگاه


        #4
        پاسخ : درخواست متن پروژه ساعت (شماتیک موجود هست)

        اینو زمانی که با بسکام کار میکردم نوشتم
        یه تایمره برقه از ساعت 4 تا 12 شب روشنه بقیه اوقات خاموشه
        کد:
        $regfile = "m32def.dat"
        $crystal = 8000000
        Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.2 _
                , Rs = Portd.3
        
        Config Porta = Output
        Config Timer2 = Timer , Async = On , Prescale = 128
        Enable Interrupts
        Enable Ovf2
        Deflcdchar 0 , 12 , 18 , 18 , 12 , 32 , 32 , 32 , 32
        Declare Sub Hour
        Declare Sub Minute
        Dim S As Byte
        Dim M As Byte
        Dim H As Byte
        Saat:
        S = 0
        M = 0
        H = 0
        Cursor Off
        Cls
        Home
        Locate 1 , 3
        Lcd Chr(0) ; " FPL Timer " ; Chr(0)
        Locate 2 , 1
        Do
        If Pinb.0 = 1 Then Call Minute
        If Pinb.1 = 1 Then Call Hour
        Locate 2 , 5
        If H < 10 Then
          Lcd "0" ; H ; ":"
        Else
          Lcd H ; ":"
        End If
        If M < 10 Then
          Lcd "0" ; M ; ":"
        Else
          Lcd M ; ":"
        End If
        If S < 10 Then
          Lcd "0" ; S
        Else
          Lcd S
        End If
        Waitms 100
        Incr S
        If S > 59 Then
        S = 0
        Incr M
        Shiftcursor Left , 2
        Lcd ""
        If M > 59 Then
        Incr H
        M = 0
        If H > 23 Then
        jmp saat
        
        End If
        End If
        End If
        If H = 16 Then Set Porta.1
        If H = 0 Then Reset Porta.1
        Loop
        End
                                    'end program
        Minute:
        Incr M
        If M > 59 Then
        M = 0
        End If
        Return
        
        Hour:
        Incr H
        If H > 23 Then
        H = 0
        End If
        Return
        اینم شماتیک :

        دیدگاه

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