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

[kamran1991]

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

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

[ry.mohammad]

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

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

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

سلام
دوست عزیز کریستال داخلی درصد خطاش بیشتره حتی اگه با تایمر 16 بیتی نوشته بشه شما باید دنبال یه ساعت با کریستال ساعت باشین که با rtc میکرو راه اندازی میشه

[kamran1991]

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

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

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

[Sepehr20mg10]

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

اینو زمانی که با بسکام کار میکردم نوشتم
یه تایمره برقه از ساعت 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

اینم شماتیک :