ساعت دیجیتال با آلارم قابل تنظیم (Mega8 + Lcd)

این پروژه ساعت دیجیتال با مبکروکنترلر AVR می باشد، میکرو به کار رفته در این پروژه ATmega8 است و برای ساعت از کریستال ساعت استفاده شده.

برای تنظیم ساعت و آلارم از یک کی پد 4×4 استفاده شده و یک خروجی بازر برای اعلام زمان هشدار به کار رفته.

این پروژه شامل فایل سورس برنامه نوشته شده در محیط کامپایلر بسکام (Bascom) و شماتیک مداری در محیط شبیه ساز پروتئوس و همچنین فایل مدار چاپی آن در محیط پروتل.

سورس کد این ساعت که در محیط بسکام نوشته شده:


$regfile = "m8def.dat"
$crystal = 8000000
Config Lcdpin = Pin , Db7 = Pinc.0 , Db6 = Pinc.1 , Db5 = Pinc.2 , Db4 = Pinc.3 , E = Pinc.4 , Rs = Pinc.5
Config Lcd = 16 * 2
Config Timer1 = Pwm , Pwm = 8 , Compare A Pwm =Clear Down , Compare B Pwm = Clear Down , Prescale = 64
Config Date = Ymd , Separator = / ' ANSI-Format
Config Clock = Soft
Config Kbd = Portd
Declare Sub Keypad
Dim Kbd As Byte , Tmp As String * 10 , I As Byte , Set_flag As Byte
Dim H As String * 3 , M As String * 3 , S As String * 3
Dim B As Byte , Alarm As String * 10 , Pwm As Byte
Date$ = "12/02/01"
Time$ = "23:59:50"
Enable Interrupts
Cursor Off
Pwm = 100
Do
Keypad
Waitms 100
If Alarm = Time$ Then
For I = 1 To 100
Pwm1a = Pwm
Waitms 100
Pwm1a = 0
Waitms 100
Pwm1a = Pwm
Waitms 100
Pwm1a = 0
Waitms 200
Locate 1 , 1 : Lcd "Time: " ; Time$ ; " "
Locate 2 , 1 : Lcd "Wake up "
Kbd = Getkbd()
Waitms 5
If Kbd = 15 Then Exit For
Next
End If
Locate 1 , 1 : Lcd "Time: " ; Time$ ; " "
Locate 2 , 1 : Lcd "Alarm: " ; Alarm ; " "
Loop
'read from keypad
'___________**************_____________***************
Sub Keypad
Kbd = Getkbd()
Waitms 5
Kbd = Lookup(kbd , Dta)
If Kbd = 10 Then
Set_flag = 1
Cls
Locate 1 , 1 : Lcd "Enter Time "
Elseif Kbd = 11 Then
Set_flag = 2
Cls
Locate 1 , 1 : Lcd "Enter Alarm Time"
Elseif Kbd = 22 And Pwm < 250 Then
Pwm = Pwm + 50
Locate 2 , 1 : Lcd "Vol=" ; Pwm ; " "
Waitms 500
Cls
Exit Sub
Elseif Kbd = 33 And Pwm > 0 Then
Pwm = Pwm - 50
Locate 2 , 1 : Lcd "Vol=" ; Pwm ; " "
Waitms 500
Cls
Exit Sub
Else
Set_flag = 0
Exit Sub
End If
Tmp = ""
Locate 2 , 1 : Lcd "Enter hour: "
Waitms 500
For B = 1 To 3
For I = 1 To 2
Kbd = Getkbd()
Waitms 5
Kbd = Lookup(kbd , Dta)
If Kbd >= 16 Then Decr I
If Kbd < 10 Then
Tmp = Tmp + Str(kbd)
If B = 1 And Tmp > "23" Then
I = 0
Tmp = ""
End If
If B > 1 And Tmp > "59" Then
I = 0
Tmp = ""
End If
Locate 2 , 13 : Lcd Tmp
Waitms 500
End If
If Kbd = 55 Then
B = 0
Exit Sub
End If
Next I
If B = 1 Then
H = Tmp
Locate 2 , 1 : Lcd "Enter min: "
Tmp = ""
Elseif B = 2 Then
M = Tmp
Locate 2 , 1 : Lcd "Enter sec: "
Tmp = ""
Elseif B = 3 Then
S = Tmp
If Set_flag = 1 Then
Locate 2 , 1 : Lcd "Set Time: "
Tmp = H + ":"
Tmp = Tmp + M
Tmp = Tmp + ":"
Tmp = Tmp + S
Time$ = Tmp
Elseif Set_flag = 2 Then
Locate 2 , 1 : Lcd "Set Alarm: "
Alarm = H + ":"
Alarm = Alarm + M
Alarm = Alarm + ":"
Alarm = Alarm + S
End If
Locate 2 , 1 : Lcd H ; ":" ; M ; ":" ; S ; " "
Wait 2
End If
Next B
End Sub
'lookup table
'___________**************_____________****************
Dta:
Data 1 , 2 , 3 , 22 , 4 , 5 , 6 , 33 , 7 , 8 , 9 , 44 , 10 , 0 , 11 , 55 , 16


در تلاشم که توضیحات کلی در باره این برنامه برای شما عزیزان بنویسم که راحت تر بتونید از اون استفاده کنید.

برای باز کردن این برنامه نیاز به کامپایلر بسکام دارید که از اینجا می توانید دانلود کنید.
در ادامه فایل های سورس برنامه و شماتیک مدار برای دانلود قرار داده شده است.

دانلود فایل های ضمیمه:

دانلود سورس برنامه و فایل Hex

دانلود فایل شمانیک پروتئوس

دانلود فایل مدار چاپی

همچنین می توانید پک قطعات مربوط به این پروژه رو از سایت تهیه فرمایید.

رمز فایل: www.ideaelec.com