نمایش ساعت و دقیقه روی سون سگمنت با قابلیت تنظیم RTC

مارس 11, 2018 پروژه های میکروکنترلر, پروژه های میکروکنترلر AVR 10,470 بازدید

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

در این بخش تیم الکترونیک و برنامه نویسی الکترونیک ۹۸, اقدام به طراحی و انتشار پروژه ای کاربردی و جذاب با عنوان, نمایش ساعت و دقیقه روی سون سگمنت با قابلیت تنظیم RTC, برای شما علاقه مندان به پروژه های میکروکنترلر AVR کرده است. در این پروژه بر روی یک سون سگمنت مالتی پلکس چهار رقمی ساعت و دقیقه نمایش داده می شود، و هر ثانیه LED نقطه (DP) روشن و خاموش می گردد. همچنین توسط دو شستی می توان زمان را تغییر داد.

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

برای آنکه ساعت دیجیتالی با دقت بالایی داشته باشیم از کریستال 32768Hz یا همان کریستال ساعت برای فعال سازی واحد RTC استفاده می کنیم. دقت این تایمر به مراتب بالاتر از دستورات تاخیری است.

پس از پیکربندی RTC با دستور Config Clock = Soft, Gosub = Sectic و Timer$، ساعت داخلی میکروکنترلر ATmega8 با زمان اولیه 23:22 شروع به کار می کند. افزایش زمان با تابع Sub Keyscan انجام می شود. تابع Sub Send مربوط به ارسال معادل باینری زمان روی سون سگمنت (7-Segment) می باشد.

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

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

$regfile = "m8def.dat"
$crystal = 8000000                                          'Internal RC
$hwstack = 64
$swstack = 64
$framesize = 64
'---------------------------------------RTC
Config Clock = Soft , Gosub = Sectic
Enable Interrupts
Time$ = "23:22:10"
'---------------------------------------I/O
Config Portd = Output                                       'A-G (Data)
Config Portc = Output                                       'Comm. Anode
Config Pinb.0 = Input                                       'Hour Key
Config Pinb.1 = Input                                       'Minute Key
Config Pinb.2 = Output                                      'Blink Sec
'---------------------------------------Set Pullup Resistor For Setting Key's
Set Portb.0
Set Portb.1
'---------------------------------------Aliases
Dataport Alias Portd
Comm Alias Portc
Hour_key Alias Pinb.0
Min_key Alias Pinb.1
Second_led Alias Portb.2
'---------------------------------------Variables
Dim Temp As Byte
Dim Temp2 As Byte
Dim Scnd As Byte
Dim Rtc_run As Byte
Dim S As Bit
Dim Dp As Bit
'---------------------------------------Declaration
Declare Sub Keyscan
Declare Sub Refresh
Declare Sub Send
Declare Sub Wait4key
Declare Sub Blink_sec
'---------------------------------------Wait 4 RTC Start
Comm = &H0F                                                 'Prompt
Do
   If Rtc_run > 0 Then Exit Do
Loop
'---------------------------------------Main Prog Start Here:
Do
   Call Keyscan
   Call Refresh
   Call Blink_sec
Loop
End
'---------------------------------------
Sub Keyscan
   If Hour_key = 0 Then
      Incr _hour
      If _hour > 23 Then _hour = 0
      Call Wait4key
   End If
   If Min_key = 0 Then
      Incr _min
      If _min > 59 Then _min = 0
      Call Wait4key
   End If
End Sub
'---------------------------------------
Sub Refresh
   Comm = &B1000 : Dp = 0 : Temp = _hour \ 10 : Call Send
   Comm = &B0100 : Dp = 1 : Temp = _hour Mod 10 : Call Send
   Comm = &B0010 : Dp = 0 : Temp = _min \ 10 : Call Send
   Comm = &B0001 : Dp = 0 : Temp = _min Mod 10 : Call Send
End Sub
'---------------------------------------
Sub Send
   Dataport = Lookup(temp , Segdata)
   If Dp = 1 Then
      Portd.7 = S
    Else
      Portd.7 = 1
   End If
   Waitms 4
   Dataport = &HFF
End Sub
'---------------------------------------
Sub Wait4key
   For Temp2 = 1 To 25
      Call Refresh
   Next
End Sub
'---------------------------------------
Sub Blink_sec
   Incr Scnd
   If Scnd > 63 Then Scnd = 0
   If Scnd > 0 And Scnd < 31 Then
      S = 1
   Else
      S = 0
   End If
End Sub
'---------------------------------------
Segdata:
Data &B11000000 , &B11111001 , &B10100100 , &B10110000
Data &B10011001 , &B10010010 , &B10000010 , &B11111000
Data &B10000000 , &B10010000
'---------------------------------------
Sectic:
Incr Rtc_run
Return

100

101

102

103

104

105

$regfile = "m8def.dat"

$crystal = 8000000 'Internal RC

$hwstack = 64

$swstack = 64

$framesize = 64

'---------------------------------------RTC

Config Clock = Soft , Gosub = Sectic

Enable Interrupts

Time$ = "23:22:10"

'---------------------------------------I/O

Config Portd = Output 'A-G (Data)

Config Portc = Output 'Comm. Anode

Config Pinb.0 = Input 'Hour Key

Config Pinb.1 = Input 'Minute Key

Config Pinb.2 = Output 'Blink Sec

'---------------------------------------Set Pullup Resistor For Setting Key's

Set Portb.0

Set Portb.1

'---------------------------------------Aliases

Dataport Alias Portd

Comm Alias Portc

Hour_key Alias Pinb.0

Min_key Alias Pinb.1

Second_led Alias Portb.2

'---------------------------------------Variables

Dim Temp As Byte

Dim Temp2 As Byte

Dim Scnd As Byte

Dim Rtc_run As Byte

Dim S As Bit

Dim Dp As Bit

'---------------------------------------Declaration

Declare Sub Keyscan

Declare Sub Refresh

Declare Sub Send

Declare Sub Wait4key

Declare Sub Blink_sec

'---------------------------------------Wait 4 RTC Start

Comm = &H0F 'Prompt

If Rtc_run > 0 Then Exit Do

Loop

'---------------------------------------Main Prog Start Here:

Call Keyscan

Call Refresh

Call Blink_sec

Loop

End

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

Sub Keyscan

If Hour_key = 0 Then

Incr _hour

If _hour > 23 Then _hour = 0

Call Wait4key

End If

If Min_key = 0 Then

Incr _min

If _min > 59 Then _min = 0

Call Wait4key

End If

End Sub

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

Sub Refresh

Comm = &B1000 : Dp = 0 : Temp = _hour \ 10 : Call Send

Comm = &B0100 : Dp = 1 : Temp = _hour Mod 10 : Call Send

Comm = &B0010 : Dp = 0 : Temp = _min \ 10 : Call Send

Comm = &B0001 : Dp = 0 : Temp = _min Mod 10 : Call Send

End Sub

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

Sub Send

Dataport = Lookup(temp , Segdata)

If Dp = 1 Then

Portd.7 = S

Else

Portd.7 = 1

End If

Waitms 4

Dataport = &HFF

End Sub

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

Sub Wait4key

For Temp2 = 1 To 25

Call Refresh

End Sub

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

Sub Blink_sec

Incr Scnd

If Scnd > 63 Then Scnd = 0

If Scnd > 0 And Scnd < 31 Then

S = 1

Else

S = 0

End If

End Sub

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

Segdata:

Data &B11000000 , &B11111001 , &B10100100 , &B10110000

Data &B10011001 , &B10010010 , &B10000010 , &B11111000

Data &B10000000 , &B10010000

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

Sectic:

Incr Rtc_run

Return

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

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

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

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

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

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

تاریخ انتشار : 11 مارس 2018

ثبت نام / ورود

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

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

44 دیدگاه

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

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

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

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

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