@sa

[masoodhashemy]

با سلام
من یک @sa با atmega16 میخواهم که یک کلید برای تنظیم @sa و دیگری برای تنظیم دقیقه و نتیجه را بر روی 4 تا 7seg نشان دهد و به جای ثانیه point وسط 7seg روشن شود. همچنین یک خروجی برای آلارم داشته باشد مثلا تنظیم کنم 7:30 وقتی رسید به 7:30 مثلا یک LED روشن شود.
بخدا الان دارم میمیرم چون همیشه آرزو داشتم خودم برنامه کامل بنویسم اما در 1 هفته با کلی درس اصلا وقت نمیکنم(البته اولین پروژه ام هست):cry2: :cry2: :cry2:

[v.nassiri]

پاسخ : ساعت دیجیتال با avr

با درود . . .
پول برا چی؟؟؟
همین که دانشجویی بسه. ما هم خودمون یه روزی دانشجو بودیم.
برات مینویسم میزارم همین جا.
چیز دیگه ای هم میخوای بهش اضافه کنی؟؟؟

[masoodhashemy]

پاسخ : ساعت دیجیتال با avr

فقط با سون سگمنت 4 تایی باشد(که 4 تاش بهم چسیبده با مالتی پلکس کار میکند) و به جای ثانیه point دومی روشن خاموش شود. اگر ممکنه :applause: :cry2: :applause: :cry2: :applause:

[sh449]

پاسخ : ساعت دیجیتال با avr

اتفاقا یکی از دوستان منم همین برنامه رو از من خواست که براش انجام بدم ، و اگه براش نوشتم اینجا هم میزارمش که شما هم استفاده بکنید هر چند آقای نصیری زحمتش رو متقبل شدن با این وجود منم هر کمکی از دستم بر بیاد برای شما کوتاهی نمی کنم

راستی ما هم ترم قبل یه استاد داشتیم با این خصوصیاتی که شما می فرمایید با این تفاوت که هیچ کدوم از این نمرات رو برای پایان ترم لحاظ نکرد چون میدونست بچه برنامه رو از همدیگه کپی می کنن :mrgreen:

[Iman417]

پاسخ : ساعت

حسین جان ایشون هم با همون اسماعیل بیگ کلاس داره :rolleyes: :icon_razz:
ولی این ترم یه کم روند کارش تغییر کرده

[sh449]

پاسخ : ساعت

حسین جان ایشون هم با همون کلاس داره :rolleyes: :icon_razz:
ولی این ترم یه کم روند کارش تغییر کرده

آره از ظاهرشون که تغییر کرده مشخصه :mrgreen:

[v.nassiri]

پاسخ : ساعت

با درود . . .
آقا شرمنده که دیر شد.همون شب نوشتمش اما تا اومدم بفرستمش مودم سوخت!!!!!!!!!!!!! اینجا هوا خوب نبود رعد و برق که زد دخلشو آورد.الانم تازه یه مودم دیگه گرفتم.
خلاصه ببخشید

'****************************** Designed By Teslanic **************************************
'************************************ Digital Clock *******************************************


$regfile = "m16def.dat"
$crystal = 1000000

Config Clock = Soft
Config Timer1 = Timer , Prescale = 8
Timer1 = 3035
Start Timer1
Enable Ovf1
On Ovf1 Tik

Config Portd = Output
Dis Alias Portd

Ddrc.0 = 1 : Portc.0 = 0
Ddrc.1 = 1 : Portc.1 = 0
Ddrc.2 = 1 : Portc.2 = 0
Ddrc.3 = 1 : Portc.3 = 0

Ddrb.0 = 1 : Portb.0 = 0
Ddrb.4 = 0 : Portb.4 = 1
Ddrb.5 = 0 : Portb.5 = 1
Ddrb.6 = 0 : Portb.6 = 1

S1 Alias Portc.0
S2 Alias Portc.1
S3 Alias Portc.2
S4 Alias Portc.3

Dim My As Byte , Md As Byte
Dim Hy As Byte , Hd As Byte
Dim Tic As Bit

Dim A As Byte , B As Byte , D As Byte , Y As Byte
Dim Emin As Eram Byte , Ehour As Eram Byte , Amin As Byte , Ahour As Byte

Dim Canter As Byte

Amin = Emin : Ahour = Ehour

Declare Sub Hesab

Enable Interrupts



Main:
Do

A = _min
Call Hesab
My = Y : Md = D

A = _hour
Call Hesab
Hy = Y : Hd = D

S1 = 1 : S2 = 1 : S3 = 1 : S4 = 0
A = Lookup(my , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 1 : S2 = 1 : S3 = 0 : S4 = 1
A = Lookup(md , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 1 : S2 = 0 : S3 = 1 : S4 = 1
A = Lookup(hy , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 0 : S2 = 1 : S3 = 1 : S4 = 1
A = Lookup(hd , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 1 : S2 = 0 : S3 = 1 : S4 = 1
If Tic = 1 Then
Dis = 1
Else
Dis = 0
End If
Waitms 9




Debounce Pinb.4 , 0 , _inc1
Debounce Pinb.5 , 0 , _inc2
Debounce Pinb.6 , 0 , _alarm

'******************************************** ******************************************* FOR ALARM
If _hour = Ehour And _min = Emin Then
Set Portb.0
Else
Reset Portb.0
End If




Loop

_inc1:
Incr _hour
If _hour > 23 Then
_hour = 0
End If
jmp main

_inc2:
Incr _min
If _min > 59 Then
_min = 0
End If
jmp main

'******************************************** ************************************************** * SETTING FOR ALARM

_alarm:
Waitms 200
Do
If Tic = 1 Then
S1 = 1 : S2 = 1 : S3 = 1 : S4 = 1
jmp asd
Else


If Ahour = 24 Then
S1 = 0 : S2 = 0 : S3 = 0 : S4 = 0
Dis = &H02
Else


A = Amin
Call Hesab
My = Y : Md = D

A = Ahour
Call Hesab
Hy = Y : Hd = D

S1 = 1 : S2 = 1 : S3 = 1 : S4 = 0
A = Lookup(my , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 1 : S2 = 1 : S3 = 0 : S4 = 1
A = Lookup(md , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 1 : S2 = 0 : S3 = 1 : S4 = 1
A = Lookup(hy , Number)
Dis = A
Waitms 5
Dis = 0

S1 = 0 : S2 = 1 : S3 = 1 : S4 = 1
A = Lookup(hd , Number)
Dis = A
Waitms 5
Dis = 0

End If

End If

Asd:


Debounce Pinb.4 , 0 , _ainc1
Debounce Pinb.5 , 0 , _ainc2
If Pinb.6 = 0 Then
Waitms 200 : Jmp Main
End If

Loop



_ainc1:
Incr Ahour
If Ahour > 24 Then
Ahour = 0
End If
Ehour = Ahour
jmp _alarm

_ainc2:
Incr Amin
If Amin > 59 Then
Amin = 0
End If
Emin = Amin
jmp _alarm


End

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

Tik:
Toggle Tic
Incr Canter
Timer1 = 3035

Return


Hesab:
D = A / 10
B = D
Y = B * 10
Y = A - Y

Return


Number:
Data &HFC , &H60 , &HDA , &HF2 , &H66 , &HB6 , &HBE , &HE0 , &HFE , &HF6 , &H01

اگه مشکلی بود در خدمتیم