ساعت دیجیتال با قابلیت نمایش ثانیه شمار توسط سون سگمنت

فوریه 19, 2018 پروژه های میکروکنترلر, پروژه های میکروکنترلر AVR 9,207 بازدید

ساخت ساعت دیجیتال

در این بخش تیم الکترونیک و برنامه نویسی الکترونیک ۹۸, اقدام به طراحی و انتشار پروژه ای کاربردی و حرفه ای با عنوان, ساعت دیجیتال با قابلیت نمایش ساعت، دقیقه و ثانیه توسط سون سگمنت, برای شما علاقه مندان به پروژه های میکروکنترلر AVR کرده است. در این پروژه زمان دقیق محاسبه شده توسط واحد RTC میکروکنترلر AVR، به کمک 6 عدد سون سگمنت (7-Segment) آند مشترک بر حسب ساعت، دقیقه و ثانیه مشاهده می شود. همچنین شما می توانید با استفاده از دو میکروسوئیچ تعبیه شده در مدار زمان را نیز تنظیم نمائید.

نقشه شماتیک پروژه

مدار طراحی شده در این پروژه بسیار حرفه ای و استاندارد بوده به نحوی که برای محاسبه بسیار دقیق زمان از واحد RTC میکروکنترلر ATmega32 و کریستال ساعت استفاده شده، و همچنین جهت راه اندازی صحیح سون سگمنت ها از آی سی 74HC573 که یک تراشه Latch می باشد، به کار گرفته شده است. به همین دلیل شما می توانید با استفاده از این پروژه یک ساعت دیجیتالی بسیار دقیق و زیبا با استفاده از نمایشگرهای سون سگمنت (7-Segment) و میکروکنترلرهای AVR بسازید.

سخت افزار پروژه

در این پروژه به کمک میکروکنترلر ATmega32 و آی شس 74HC573، که همانطور که گفته شد یک تراشه Latch می باشد، زمان بر روی نمایشگر ظاهر شده و به کمک شستی های MIN و HOUR می توان ساعت و دقیقه را تنظیم کرد. این ساعت از زمان سنج داخلی RTC برای داشتن دقت بالا استفاده می کند و زمان پیش فرض آن برای شروع 12:00:00 می باشد.

همچنین فایل شبیه ساز این پروژه نیز که با نرم افزار Proteus 8 Professional طراحی شده، پیوست فایل پروژه جهت دانلود قرار داده شده است، که می تواند شما را در یادگیری هر چه بهتر مدار و نحوه عملکرد آن یاری نماید.

برنامه میکروکنترلر به زبان بیسیک BASIC در نرم افزار BASCOM-AVR

$regfile = "m32def.dat"
$crystal = 8000000
'---------------------------------------
Config Porta = Output
Config Portb = Output
Config Portd = Output
Config Pinc.0 = Input
Config Pinc.1 = Input
'---------------------------------------
Ddrc.0 = 0 : Portc.0 = 1
Ddrc.1 = 0 : Portc.1 = 1
'---------------------------------------
Enable Interrupts
Config Clock = Soft
'---------------------------------------
Dim A As Byte , B As Byte , X As Byte , X2 As Byte
Dim X3 As Byte , Led As Integer , F As Byte
Dim Key As Bit
'---------------------------------------
_min = 12
_sec = 12
_hour = 12
'---------------------------------------
X = _sec
X2 = _min
X3 = _hour
'---------------------------------------
For A = 0 To 5
Portd = Lookup(0 , Digit)                                   'FOR DISPLAY 0 FOR DEFULT ON 7 SEG MENT
Porta.a = 1
Porta.a = 0
Next A
'---------------------------------------
Do                                                          'CHANGE NUMBER
If Pinc.0 = 0 And Key = 0 Then
Key = 1
Incr _min
If _min > 59 Then _min = 0
End If
If Pinc.1 = 0 And Key = 0 Then
Key = 1
Incr _hour
If _hour > 23 Then _hour = 0
End If
If Pinc.0 = 1 And Pinc.1 = 1 And Key = 1 Then Key = 0
Waitms 10
Select Case X
'---------------------------------------                    'SECOND
Case Is < 10 : Portd = Lookup(_sec , Digit)
 Porta.0 = 1
 Porta.0 = 0
'---------------------------------------
Case Is >= 10 : A = _sec / 10
Portd = Lookup(a , Digit)
Porta.1 = 1
Porta.1 = 0
'---------------------------------------
B = _sec Mod 10
Portd = Lookup(b , Digit)
Porta.0 = 1
Porta.0 = 0
End Select
'---------------------------------------
Select Case X2                                              ' MINUTE
Case Is < 10 : Portd = Lookup(_min , Digit)
 Porta.2 = 1
 Porta.2 = 0
'---------------------------------------
Case Is >= 10 : A = _min / 10
Portd = Lookup(a , Digit)
Porta.3 = 1
Porta.3 = 0
'---------------------------------------
B = _min Mod 10
Portd = Lookup(b , Digit)
Porta.2 = 1
Porta.2 = 0
'---------------------------------------
End Select
Select Case X3                                              ' HOUR
'---------------------------------------
Case Is < 10 : Portd = Lookup(_hour , Digit)
 Porta.4 = 1
 Porta.4 = 0
'---------------------------------------
Case Is >= 10 : A = _hour / 10
Portd = Lookup(a , Digit)
Porta.5 = 1
Porta.5 = 0
'---------------------------------------
B = _hour Mod 10
Portd = Lookup(b , Digit)
Porta.4 = 1
Porta.4 = 0
End Select
'---------------------------------------
 Incr Led                                                   'FOR LIGHTING BETWEEN LED
 If Led > 37 Then
 Toggle Portb.0
 Led = 0
 End If
Loop
'---------------------------------------
Digit:
Data &B11000000                                             '0
Data &B11111001
Data &B10100100
Data &B10110000
Data &B10011001
Data &B10010010
Data &B10000011
Data &B11111000
Data &B10000000
Data &B10011000                                             '9

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

$regfile = "m32def.dat"

$crystal = 8000000

'---------------------------------------

Config Porta = Output

Config Portb = Output

Config Portd = Output

Config Pinc.0 = Input

Config Pinc.1 = Input

'---------------------------------------

Ddrc.0 = 0 : Portc.0 = 1

Ddrc.1 = 0 : Portc.1 = 1

'---------------------------------------

Enable Interrupts

Config Clock = Soft

'---------------------------------------

Dim A As Byte , B As Byte , X As Byte , X2 As Byte

Dim X3 As Byte , Led As Integer , F As Byte

Dim Key As Bit

'---------------------------------------

_min = 12

_sec = 12

_hour = 12

'---------------------------------------

X = _sec

X2 = _min

X3 = _hour

'---------------------------------------

For A = 0 To 5

Portd = Lookup(0 , Digit) 'FOR DISPLAY 0 FOR DEFULT ON 7 SEG MENT

Porta.a = 1

Porta.a = 0

Next A

'---------------------------------------

Do 'CHANGE NUMBER

If Pinc.0 = 0 And Key = 0 Then

Key = 1

Incr _min

If _min > 59 Then _min = 0

End If

If Pinc.1 = 0 And Key = 0 Then

Key = 1

Incr _hour

If _hour > 23 Then _hour = 0

End If

If Pinc.0 = 1 And Pinc.1 = 1 And Key = 1 Then Key = 0

Waitms 10

Select Case X

'--------------------------------------- 'SECOND

Case Is < 10 : Portd = Lookup(_sec , Digit)

Porta.0 = 1

Porta.0 = 0

'---------------------------------------

Case Is >= 10 : A = _sec / 10

Portd = Lookup(a , Digit)

Porta.1 = 1

Porta.1 = 0

'---------------------------------------

B = _sec Mod 10

Portd = Lookup(b , Digit)

Porta.0 = 1

Porta.0 = 0

End Select

'---------------------------------------

Select Case X2 ' MINUTE

Case Is < 10 : Portd = Lookup(_min , Digit)

Porta.2 = 1

Porta.2 = 0

'---------------------------------------

Case Is >= 10 : A = _min / 10

Portd = Lookup(a , Digit)

Porta.3 = 1

Porta.3 = 0

'---------------------------------------

B = _min Mod 10

Portd = Lookup(b , Digit)

Porta.2 = 1

Porta.2 = 0

'---------------------------------------

End Select

Select Case X3 ' HOUR

'---------------------------------------

Case Is < 10 : Portd = Lookup(_hour , Digit)

Porta.4 = 1

Porta.4 = 0

'---------------------------------------

Case Is >= 10 : A = _hour / 10

Portd = Lookup(a , Digit)

Porta.5 = 1

Porta.5 = 0

'---------------------------------------

B = _hour Mod 10

Portd = Lookup(b , Digit)

Porta.4 = 1

Porta.4 = 0

End Select

'---------------------------------------

Incr Led 'FOR LIGHTING BETWEEN LED

If Led > 37 Then

Toggle Portb.0

Led = 0

End If

Loop

'---------------------------------------

Digit:

Data &B11000000 '0

Data &B11111001

Data &B10100100

Data &B10110000

Data &B10011001

Data &B10010010

Data &B10000011

Data &B11111000

Data &B10000000

Data &B10011000 '9

اطلاعات پروژه

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

حجم فایل : 146 کیلوبایت

محیط برنامه نویسی : Bascom-AVR

برنامه نویسی شده به زبان : Basic

نویسنده : فرهاد اکبری

تاریخ انتشار : 19 فوریه 2018

ثبت نام / ورود

کاربر گرامی جهت مشاهده لینک دانلود ابتدا باید وارد سایت شوید، اگر کاربر جدید هستید می توانید در کمتر از یک دقیقه، به خانواده الکترونیک98 بپیوندید.

به خانواده 40980 نفری الکترونیک98 بپیوندید

10 دیدگاه

شرایط و قوانین ثبت دیدگاه

فارسی بنویسید و از کیبورد فارسی استفاده کنید.

لطفاً بیش‌از‌حدِ معمول، شکلک یا ایموجی استفاده نکنید و از کشیدن حروف یا کلمات با صفحه‌کلید بپرهیزید.

به کاربران و سایر اشخاص احترام بگذارید. پیام‌هایی که شامل محتوای توهین‌آمیز و کلمات نامناسب باشند، حذف می‌شوند.

از ارسال لینک‌های سایت‌های دیگر و ارایه‌ی اطلاعات شخصی خودتان مثل شماره تماس، ایمیل و آی‌دی شبکه‌های اجتماعی پرهیز کنید.