امتیاز موضوع:
  • 0 رأی - میانگین امتیازات: 0
  • 1
  • 2
  • 3
  • 4
  • 5
ساعت دیجیتالی با avr
نویسنده پیام
reza-m آفلاین
كاربر دو ستاره
**

ارسال‌ها: 96
موضوع‌ها: 19
تاریخ عضویت: آذر ۱۳۸۷

تشکرها : 11
( 156 تشکر در 65 ارسال )
ارسال: #1
ساعت دیجیتالی با avr

.rar   New Folder.rar (اندازه: 38.88 KB / تعداد دفعات دریافت: 564) این هم یک ساعت دیجیتالی که دارای ثانیه شمار نیز می باشد و برای سگمنت های بزرگ طراحی شده که در آن از آی سی لچ و شیفت رجیستر و دکودر استفاده شده و 5 پین میکرو اشغال شده است
این هم هدیه من به شما
۱۱-دى-۱۳۸۸, ۱۲:۴۴:۰۷
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : t3r!p3000, 1nafar, saeidjan, arobfan, منصورنادری, aliavr1, helma
mahdi20 آفلاین
کاربر با تجربه
****

ارسال‌ها: 518
موضوع‌ها: 35
تاریخ عضویت: آذر ۱۳۸۶

تشکرها : 5261
( 1763 تشکر در 452 ارسال )
ارسال: #2
RE: ساعت دیجیتالی با avr
دستت درد نکنه.

اما انگار هدیه که دادی کار نمی کرد

[تصویر:  iran2.png]
۱۱-دى-۱۳۸۸, ۱۳:۰۸:۳۹
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : aliavr1
reza-m آفلاین
كاربر دو ستاره
**

ارسال‌ها: 96
موضوع‌ها: 19
تاریخ عضویت: آذر ۱۳۸۷

تشکرها : 11
( 156 تشکر در 65 ارسال )
ارسال: #3
RE: ساعت دیجیتالی با avr
دوست عزیز من تست کردم و مشکلی نداشته شاید ورژن پروتئوست پایینه
من از ورژن 7.6 استفاده کردم
۱۱-دى-۱۳۸۸, ۱۶:۱۷:۲۸
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : t3r!p3000, aliavr1
t3r!p3000 آفلاین
         
*****

ارسال‌ها: 5,050
موضوع‌ها: 83
تاریخ عضویت: اردیبهشت ۱۳۸۵

تشکرها : 34447
( 17423 تشکر در 5116 ارسال )
ارسال: #4
Smile  هفت مدار در یک مدار
نمی دونم چرا هدیه شما ناقص بود و برنامه نداشت !
تنظیم ساعت و دقیقه اش هم افتضاح بودش !!!!

شاعر می گه :
مدار بی برنامه معنی نداره
دل من طاقت بیسیک نداره !

منظور از بیسیک همان دوری از بسکام است !!!!


واسه اینکه مفهوم هدیه رو نشون بدم اینو می ذارم !



7 مدار در یک مدار با 10 عدد سون سگمنت و ATmega32


مدار زیر چنین کارهایی می کند :

1- دماسنج با دقت 0.25 درجه
2- ساعت با نمایش ثانیه و به صورت 24 ساعته با تنظیم منو بندی شده و راحت ! ( نکته مهمی بودش )
3- کرنومتر با دقت 1/128 ثانیه
4- شمارنده خودرو پارکینگی با روش مادون قرمز به همراه کنترل دستی
5- فرکانس متر با دقت هرتز و حداکثر یک مگاهرتز
6- شمارنده دستی ( بهش صلوات شمار هم می گن )
7- نمایش حروف روان !!!!

و نقشه مدار به فرم زیر است :

[تصویر:  q3yzlhi57l1p52f9z84x_thumb.png]
روش کلیک کنید تا بزرگشو ببینید !


و اینم برنامه مدار فوق :

کد php:
$regfile "m32def.dat" $crystal 8000000

Config Adc 
Single Prescaler Auto Reference Internal


Ddra.3 
Ddra.4 Ddra.5 Ddra.6 Ddra.7 0
Ddrc 
63 Ddrd 255 Ddrb = &B11111101


Dim B 
As Byte As Byte Sectic As Byte Ff As Byte
Dim Out_1 
As Byte Out_2 As Byte Out_3 As Byte Out_4 As Byte
Dim Out_5 
As Byte Out_6 As Byte Out_7 As Byte Out_8 As Byte
Dim Out_9 
As Byte Out_10 As Byte Fff As Byte Ww As Word
Dim Ol 
As Byte Frq As Long As Word As Long As Word As Word
Dim Cornometr_ms 
As Word Cornometr_s As Byte Cornometr_m As Byte Cornometr_h As Word
Dim Dama 
As Word Car As Word
Dim Cc 
As Byte Mm As Byte Ss As Byte

Config Timer2 
Timer Async On Prescale 1
On Timer2 Sectic 
Enable Interrupts Enable Timer2
Config Timer1 
Counter Edge Rising On Timer1 Ol Enable Timer1
Config Timer0 
Timer Prescale On Timer0 Scan Enable Timer0

Start Timer0 
Start Timer2 Gosub Res_data Gosub Sectic Sectic 126

'###############################################################################

Star:

Do
 Debounce Pina.3 , 1 , Set1
Loop

Set1:
 If F = 7 Then :
 F = 2 : Start Timer2
 L = Frq / 100000 : Out_8 = L + 1 : L = L * 100000 : Frq = Frq - L
 L = Frq / 10000 : Out_7 = L + 1 : L = L * 10000 : Frq = Frq - L
 L = Frq / 1000 : Out_6 = L + 1 : L = L * 1000 : Frq = Frq - L
 L = Frq / 100 : Out_5 = L + 1 : L = L * 100 : Frq = Frq - L
 L = Frq / 10 : Out_4 = L + 1 : L = L * 10 : Frq = Frq - L
 Out_3 = Frq + 1 : Out_10 = 11 : Out_9 = 12 : Out_2 = 13 : Out_1 = 14
 Elseif F = 2 Then :
 F = 3 : Stop Timer2 : Stop Timer1 : Gosub Res_data
 Do
 Debounce Pina.3 , 1 , Set2
 Debounce Pina.4 , 1 , Set3 , Gosub
 Debounce Pina.5 , 1 , Set4 , Gosub
 Loop
Set2:
 Stop Timer2 : Gosub Res_data : Goto Set1
Set3:
 Start Timer2 : Return
Set4:
 Stop Timer2
 For C = 0 To 50000
 If Pina.5 = 0 Then Return
 Next
 Gosub Res_data : Return
 Elseif F = 3 Then :

 F = 4 : Gosub Res_data : Start Timer2

 Elseif F = 4 Then :
 F = 5 : Stop Timer2 : Gosub Res_data
 Do
 Debounce Pina.3 , 1 , Set1
 Debounce Pina.4 , 1 , Set6 , Gosub
 Debounce Pina.5 , 1 , Set7 , Gosub
 Debounce Pina.6 , 1 , In_car , Gosub
 Debounce Pina.7 , 1 , Out_car , Gosub

 Loop
Set6:
 Incr Out_1
 If Out_1 > 10 Then :
 Out_1 = 1 : Incr Out_2
 End If
 If Out_2 > 10 Then :
 Out_2 = 1 : Incr Out_3
 End If
 If Out_3 > 10 Then :
 Out_3 = 1 : Incr Out_4
 End If
 If Out_4 > 10 Then :
 Out_4 = 1 : Incr Out_5
 End If
 If Out_5 > 10 Then :
 Out_5 = 1 : Incr Out_6
 End If
 If Out_6 > 10 Then :
 Out_6 = 1 : Incr Out_7
 End If
 If Out_7 > 10 Then :
 Out_7 = 1 : Incr Out_8
 End If
 If Out_8 > 10 Then :
 Out_8 = 1 : Incr Out_9
 End If
 If Out_9 > 10 Then :
 Out_9 = 1 : Incr Out_10
 End If
 If Out_10 > 10 Then Out_10 = 1

 For C = 0 To 30000
 If Pina.4 = 0 Then Return
 Next

 Do
 Incr Out_1
 If Out_1 > 10 Then :
 Out_1 = 1 : Incr Out_2
 End If
 If Out_2 > 10 Then :
 Out_2 = 1 : Incr Out_3
 End If
 If Out_3 > 10 Then :
 Out_3 = 1 : Incr Out_4
 End If
 If Out_4 > 10 Then :
 Out_4 = 1 : Incr Out_5
 End If
 If Out_5 > 10 Then :
 Out_5 = 1 : Incr Out_6
 End If
 If Out_6 > 10 Then :
 Out_6 = 1 : Incr Out_7
 End If
 If Out_7 > 10 Then :
 Out_7 = 1 : Incr Out_8
 End If
 If Out_8 > 10 Then :
 Out_8 = 1 : Incr Out_9
 End If
 If Out_9 > 10 Then :
 Out_9 = 1 : Incr Out_10
 End If
 If Out_10 > 10 Then Out_10 = 1

 If Pina.4 = 0 Then Return
 Waitms 50
 If Pina.4 = 0 Then Return
 Waitms 50
 If Pina.4 = 0 Then Return
 Loop


Set7:
 Decr Out_1
 If Out_1 = 0 Then :
 Out_1 = 10 : Decr Out_2
 End If
 If Out_2 = 0 Then :
 Out_2 = 10 : Decr Out_3
 End If
 If Out_3 = 0 Then :
 Out_3 = 10 : Decr Out_4
 End If
 If Out_4 = 0 Then :
 Out_4 = 10 : Decr Out_5
 End If
 If Out_5 = 0 Then :
 Out_5 = 10 : Decr Out_6
 End If
 If Out_6 = 0 Then :
 Out_6 = 10 : Decr Out_7
 End If
 If Out_7 = 0 Then :
 Out_7 = 10 : Decr Out_8
 End If
 If Out_8 = 0 Then :
 Out_8 = 10 : Decr Out_9
 End If
 If Out_9 = 0 Then :
 Out_9 = 10 : Decr Out_10
 End If
 If Out_10 = 0 Then Out_10 = 10

 For C = 0 To 30000
 If Pina.5 = 0 Then Return
 Next

 Do
 Decr Out_1
 If Out_1 = 0 Then :
 Out_1 = 10 : Decr Out_2
 End If
 If Out_2 = 0 Then :
 Out_2 = 10 : Decr Out_3
 End If
 If Out_3 = 0 Then :
 Out_3 = 10 : Decr Out_4
 End If
 If Out_4 = 0 Then :
 Out_4 = 10 : Decr Out_5
 End If
 If Out_5 = 0 Then :
 Out_5 = 10 : Decr Out_6
 End If
 If Out_6 = 0 Then :
 Out_6 = 10 : Decr Out_7
 End If
 If Out_7 = 0 Then :
 Out_7 = 10 : Decr Out_8
 End If
 If Out_8 = 0 Then :
 Out_8 = 10 : Decr Out_9
 End If
 If Out_9 = 0 Then :
 Out_9 = 10 : Decr Out_10
 End If
 If Out_10 = 0 Then Out_10 = 10

 If Pina.5 = 0 Then Return
 Waitms 50
 If Pina.5 = 0 Then Return
 Waitms 50
 If Pina.5 = 0 Then Return
 Loop

In_car:
 If Pina.7 = 0 Then :
 For W = 0 To 60000
 Debounce Pina.7 , 1 , In_car2
 If Pina.6 = 0 Then Return
 Next
 Return
 Else :
 Return
 End If
 In_car2:
 Gosub Set6 : Return
Out_car:

 If Pina.6 = 0 Then :
 For W = 0 To 60000
 Debounce Pina.6 , 1 , Out_car2
 If Pina.7 = 0 Then Return
 Next
 Return
 Else :
 Return
 End If
 Out_car2:
 Gosub Set7 : Return


 Elseif F = 5 Then : '
DAMASANJ
 F 
Gosub Res_data Start Timer2

 
Elseif 6 Then :
 
Gosub Res_data Start Timer2
Saat
:
 
Ff Waitms 100

 
Do
 
Debounce Pina.3 Set_time
 Loop

Set_time
:
 For 
0 To 50000
 
If Pina.3 0 Then Goto Set1
 Next
 Ff 
1
 
Do
 
Debounce Pina.3 Set_mm
 Debounce Pina.4 
Incr_cc Gosub
 Debounce Pina.5 
Decr_cc Gosub
 Loop
Incr_cc
:
 
Incr Cc
 
If Cc 23 Then Cc 0
 C 
Cc Ww 10 Out_9 Ww Ww Ww 10 Ww Out_8 1
 
For 0 To 30000
 
If Pina.4 0 Then Return
 
Next
 
Do
 
Incr Cc
 
If Cc 23 Then Cc 0
 C 
Cc Ww 10 Out_9 Ww Ww Ww 10 Ww Out_8 1
 
If Pina.4 0 Then Return
 
Waitms 50
 
If Pina.4 0 Then Return
 
Waitms 50
 
If Pina.4 0 Then Return
 
Loop
Decr_cc
:
 
Decr Cc
 
If Cc 23 Then Cc 23
 C 
Cc Ww 10 Out_9 Ww Ww Ww 10 Ww Out_8 1
 
For 0 To 30000
 
If Pina.5 0 Then Return
 
Next
 
Do
 
Decr Cc
 
If Cc 23 Then Cc 23
 C 
Cc Ww 10 Out_9 Ww Ww Ww 10 Ww Out_8 1
 
If Pina.5 0 Then Return
 
Waitms 50
 
If Pina.5 0 Then Return
 
Waitms 50
 
If Pina.5 0 Then Return
 
Loop
Set_mm
:
 
Ff 2
 
Do
 
Debounce Pina.3 Saat
 Debounce Pina.4 
Incr_mm Gosub
 Debounce Pina.5 
Decr_mm Gosub
 Loop
Incr_mm
:
 
Incr Mm
 
If Mm 59 Then Mm 0
 C 
Mm Ww 10 Out_6 Ww Ww Ww 10 Ww Out_5 1
 
For 0 To 30000
 
If Pina.4 0 Then Return
 
Next
 
Do
 
Incr Mm
 
If Mm 59 Then Mm 0
 C 
Mm Ww 10 Out_6 Ww Ww Ww 10 Ww Out_5 1
 
If Pina.4 0 Then Return
 
Waitms 50
 
If Pina.4 0 Then Return
 
Waitms 50
 
If Pina.4 0 Then Return
 
Loop
Decr_mm
:
 
Decr Mm
 
If Mm 59 Then Mm 59
 C 
Mm Ww 10 Out_6 Ww Ww Ww 10 Ww Out_5 1
 
For 0 To 30000
 
If Pina.5 0 Then Return
 
Next
 
Do
 
Decr Mm
 
If Mm 59 Then Mm 59
 C 
Mm Ww 10 Out_6 Ww Ww Ww 10 Ww Out_5 1
 
If Pina.5 0 Then Return
 
Waitms 50
 
If Pina.5 0 Then Return
 
Waitms 50
 
If Pina.5 0 Then Return
 
Loop
 End 
If

Goto 
Star

Res_data
:
 
Out_1 Out_2 Out_3 Out_4 Out_5 Out_6 1
 Out_7 
Out_8 Out_9 Out_10 Sectic 255
 Cornometr_ms 
Cornometr_s Cornometr_m Cornometr_h 0
 
If 3 Then :
 
Out_4 16 Out_6 16 Out_8 16
 End 
If

Return

'###############################################################################

Sectic:
 Incr Sectic
 If F = 2 Then :
 If Sectic = 127 Then :
 Stop Timer1 : W = Timer1 : Timer1 = 0 : Start Timer1
 Frq = Ol * 65536 : Frq = Frq + W : Ol = 0 : If Frq > 999999 Then Frq = 999999
 L = Frq / 100000 : Out_8 = L + 1 : L = L * 100000 : Frq = Frq - L
 L = Frq / 10000 : Out_7 = L + 1 : L = L * 10000 : Frq = Frq - L
 L = Frq / 1000 : Out_6 = L + 1 : L = L * 1000 : Frq = Frq - L
 L = Frq / 100 : Out_5 = L + 1 : L = L * 100 : Frq = Frq - L
 L = Frq / 10 : Out_4 = L + 1 : L = L * 10 : Frq = Frq - L
 Out_3 = Frq + 1 : Out_10 = 11 : Out_9 = 12 : Out_2 = 13 : Out_1 = 14
 End If
 Elseif F = 3 Then :
 Cornometr_ms = Sectic * 8 : W = Cornometr_ms / 59
 Cornometr_ms = Cornometr_ms - W : If Cornometr_ms > 999 Then Cornometr_ms = 0
 If Sectic = 127 Then :
 Incr Cornometr_s
 If Cornometr_s > 59 Then :
 Cornometr_s = 0 : Incr Cornometr_m
 End If
 If Cornometr_m > 59 Then :
 Cornometr_m = 0 : Incr Cornometr_h
 End If
 End If
 E = Cornometr_ms : W = E / 100 : Out_3 = W + 1 : W = W * 100 : E = E - W
 W = E / 10 : Out_2 = W + 1 : W = W * 10 : E = E - W : Out_1 = E + 1

 E = Cornometr_s : W = E / 10 : Out_5 = W + 1 : W = W * 10 : E = E - W : Out_4 = E + 16
 E = Cornometr_m : W = E / 10 : Out_7 = W + 1 : W = W * 10 : E = E - W : Out_6 = E + 16
 E = Cornometr_h : W = E / 100 : Out_10 = W + 1 : W = W * 100 : E = E - W
 W = E / 9 : Out_9 = W + 1 : W = W * 10 : E = E - W : Out_8 = E + 16

 Elseif F = 4 Then :
 If Sectic = 127 Then :
 Incr Fff : If Fff = 21 Then Fff = 0
 Select Case Fff
 Case 0 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 1 :
 Out_10 = 1 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 2 :
 Out_10 = 2 : Out_9 = 1 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 3 :
 Out_10 = 3 : Out_9 = 2 : Out_8 = 1 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 4 :
 Out_10 = 4 : Out_9 = 3 : Out_8 = 2 : Out_7 = 1 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 5 :
 Out_10 = 5 : Out_9 = 4 : Out_8 = 3 : Out_7 = 2 : Out_6 = 1
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 6 :
 Out_10 = 6 : Out_9 = 5 : Out_8 = 4 : Out_7 = 3 : Out_6 = 2
 Out_5 = 1 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 7 :
 Out_10 = 7 : Out_9 = 6 : Out_8 = 5 : Out_7 = 4 : Out_6 = 3
 Out_5 = 2 : Out_4 = 1 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 Case 8 :
 Out_10 = 8 : Out_9 = 7 : Out_8 = 6 : Out_7 = 5 : Out_6 = 4
 Out_5 = 3 : Out_4 = 2 : Out_3 = 1 : Out_2 = 0 : Out_1 = 0
 Case 9 :
 Out_10 = 9 : Out_9 = 8 : Out_8 = 7 : Out_7 = 6 : Out_6 = 5
 Out_5 = 4 : Out_4 = 3 : Out_3 = 2 : Out_2 = 1 : Out_1 = 0

 Case 10 :
 Out_10 = 10 : Out_9 = 9 : Out_8 = 8 : Out_7 = 7 : Out_6 = 6
 Out_5 = 5 : Out_4 = 4 : Out_3 = 3 : Out_2 = 2 : Out_1 = 1
 Case 11 :
 Out_10 = 0 : Out_9 = 10 : Out_8 = 9 : Out_7 = 8 : Out_6 = 7
 Out_5 = 6 : Out_4 = 5 : Out_3 = 4 : Out_2 = 3 : Out_1 = 2
 Case 12 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 10 : Out_7 = 9 : Out_6 = 8
 Out_5 = 7 : Out_4 = 6 : Out_3 = 5 : Out_2 = 4 : Out_1 = 3
 Case 13 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 10 : Out_6 = 9
 Out_5 = 8 : Out_4 = 7 : Out_3 = 6 : Out_2 = 5 : Out_1 = 4
 Case 14 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 10
 Out_5 = 9 : Out_4 = 8 : Out_3 = 7 : Out_2 = 6 : Out_1 = 5
 Case 15 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 10 : Out_4 = 9 : Out_3 = 8 : Out_2 = 7 : Out_1 = 6
 Case 16 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 10 : Out_3 = 9 : Out_2 = 8 : Out_1 = 7
 Case 17 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 10 : Out_2 = 9 : Out_1 = 8
 Case 18 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 10 : Out_1 = 9
 Case 19 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 10
 Case 20 :
 Out_10 = 0 : Out_9 = 0 : Out_8 = 0 : Out_7 = 0 : Out_6 = 0
 Out_5 = 0 : Out_4 = 0 : Out_3 = 0 : Out_2 = 0 : Out_1 = 0
 End Select
 End If
 Elseif F = 6 Then :
 If Sectic = 127 Then :
 Start Adc : Dama = Getadc(0) : Stop Adc : Dama = Dama * 25
 L = Dama / 100000 : Out_8 = L + 1 : L = L * 100000 : Dama = Dama - L
 L = Dama / 10000 : Out_7 = L + 1 : L = L * 10000 : Dama = Dama - L
 L = Dama / 1000 : Out_6 = L + 1 : L = L * 1000 : Dama = Dama - L
 L = Dama / 100 : Out_5 = L + 16 : L = L * 100 : Dama = Dama - L
 L = Dama / 10 : Out_4 = L + 1 : L = L * 10 : Dama = Dama - L
 Out_3 = Dama + 1 : Out_10 = 27 : Out_9 = 28 : Out_8 = 12 : Out_2 = 29 : Out_1 = 30
 End If
 Elseif F = 7 Then :
 If Sectic = 127 Then :

 Ss = Ss + 1
 If Ss > 59 Then :
 Ss = 0 : Mm = Mm + 1
 End If
 If Mm > 59 Then :
 Mm = 0 : Cc = Cc + 1
 End If
 If Cc > 23 Then :
 Cc = 0
 End If
 E = Ss : W = E / 10 : Out_3 = W + 1 : W = W * 10 : E = E - W : Out_2 = E + 1
 E = Mm : W = E / 10 : Out_6 = W + 1 : W = W * 10 : E = E - W : Out_5 = E + 1
 E = Cc : W = E / 10 : Out_9 = W + 1 : W = W * 10 : E = E - W : Out_8 = E + 1
 Out_4 = 12 : Out_7 = 12 : Out_1 = 0 : Out_10 = 0

 Elseif Sectic = 63 Then :
 Out_4 = 0 : Out_7 = 0
 E = Mm : W = E / 10 : Out_6 = W + 1 : W = W * 10 : E = E - W : Out_5 = E + 1
 E = Cc : W = E / 10 : Out_9 = W + 1 : W = W * 10 : E = E - W : Out_8 = E + 1
 Elseif Sectic = 31 Then :
 If Ff = 1 Then : Out_8 = 0 : Out_9 = 0
 Elseif Ff = 2 Then : Out_6 = 0 : Out_5 = 0
 End If
 Elseif Sectic = 95 Then :
 If Ff = 1 Then : Out_8 = 0 : Out_9 = 0
 Elseif Ff = 2 Then : Out_6 = 0 : Out_5 = 0
 End If
 End If

 End If
 If Sectic > 126 Then Sectic = 255
Return

Ol:
 Incr Ol
Return

'
###############################################################################

Scan:
 
Incr B : If 11 Then B 1

 Reset Portb.4 
Reset Portb.5 Reset Portb.6 Reset Portb.7 Reset Portc.0
 Reset Portc.1 
Reset Portc.2 Reset Portc.3 Reset Portc.4 Reset Portc.5

 Select 
Case B
 
Case :
 
Portd Lookup(out_1 Number) : Set Portb.7
 
Case :
 
Portd Lookup(out_2 Number) : Set Portb.6
 
Case :
 
Portd Lookup(out_3 Number) : Set Portb.5
 
Case :
 
Portd Lookup(out_4 Number) : Set Portb.4
 
Case :
 
Portd Lookup(out_5 Number) : Set Portc.5
 
Case :
 
Portd Lookup(out_6 Number) : Set Portc.4
 
Case :
 
Portd Lookup(out_7 Number) : Set Portc.3
 
Case :
 
Portd Lookup(out_8 Number) : Set Portc.2
 
Case :
 
Portd Lookup(out_9 Number) : Set Portc.1
 
Case 10 :
 
Portd Lookup(out_10 Number) : Set Portc.0
 End Select
Return

'###############################################################################

Number:
Data 0 , &B00111111 , &B00000110 , &B01011011 , &B01001111 , &B01100110 , &B01101101 _
 , &B01111101 , &B00000111 , &B01111111 , &B01101111 , &B01110001 , &B01001000 , &B01110110 _
 , &B01001001 , 0 , &B10111111 , &B10000110 , &B11011011 , &B11001111 , &B11100110 , &B11101101_
 , &B11111101 , &B10000111 , &B11111111 , &B01101111 , 26 , &B00110001 , &B01111001 , &B00000001 , &B01011000 

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


.rar   10+7 + cornometr + Sa@ + FRQ + Temp.rar (اندازه: 139.7 KB / تعداد دفعات دریافت: 572)


توضیحات مدار و برنامه و هم بعدا که وقت کردم می ذارم !
فقط همینو بگم که با دکمه S می تونید مد های مختلف رو عوض کنید !


ویرایش جدید :
با تایپیک زیر مراجعه شود : ( فایل کاملتر و توضیحات )
http://www.iranled.com/forum/showthread....#pid134110
(آخرین ویرایش در این ارسال: ۱۱-شهریور-۱۳۸۹, ۱۸:۰۵:۵۱، توسط t3r!p3000.)
۱۱-دى-۱۳۸۸, ۲۳:۱۶:۵۷
ارسال‌ها
پاسخ
تشکر شده توسط : mehrdadgh, saeidjan, sita_rampail, mahdi20, kmz, 1nafar, Majid_Ebru, alaska, arobfan, رسول, kaspian, aliavr1, asgarbs, helma, GOLDOST
arobfan آفلاین
تازه وارد

ارسال‌ها: 14
موضوع‌ها: 0
تاریخ عضویت: دى ۱۳۸۸

تشکرها : 45
( 25 تشکر در 12 ارسال )
ارسال: #5
RE: ساعت دیجیتالی با avr
من با lcd دونه دارم
شاید بدردتون بخوره

.zip   prj8.zip (اندازه: 51.29 KB / تعداد دفعات دریافت: 312)
۱۴-دى-۱۳۸۸, ۱۳:۲۲:۲۴
ارسال‌ها
پاسخ
تشکر شده توسط : mahdi20, t3r!p3000, kaspian, aliavr1, helma, GOLDOST
reza-m آفلاین
كاربر دو ستاره
**

ارسال‌ها: 96
موضوع‌ها: 19
تاریخ عضویت: آذر ۱۳۸۷

تشکرها : 11
( 156 تشکر در 65 ارسال )
ارسال: #6
RE: ساعت دیجیتالی با avr
با سلام سورس برنامه ساعت دیجیتالی را دانلود کنید


فایل‌(های) پیوست شده
.rar   digital clock.rar (اندازه: 48.23 KB / تعداد دفعات دریافت: 455)
۱۸-اسفند-۱۳۸۸, ۱۳:۳۱:۳۷
وب سایت ارسال‌ها
پاسخ
تشکر شده توسط : t3r!p3000, iman417, MEHDISH1365, aliavr1, helma, GOLDOST


موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
  سیگنال ژنراتور 1 تا 8 مگاهرتز با avr omid_phoenix 6 8,062 ۳۰-دى-۱۳۹۸, ۱۳:۰۰:۰۰
آخرین ارسال: mehradseo
  راه اندازی ماژول gy-955 با AVR و کدویژن hadikh73 6 6,091 ۰۴-شهریور-۱۳۹۷, ۱۲:۰۸:۲۱
آخرین ارسال: hadikh73
  درخواست کمک برای ساعت با فونت بزرگ sobhan6831 4 1,863 ۲۴-فروردین-۱۳۹۷, ۲۰:۱۹:۱۲
آخرین ارسال: sobhan6831
  دانلود رایگان سورس ساعت حرم امام رضا (ع) ورژن 2 sina6479 3 4,865 ۲۶-اسفند-۱۳۹۶, ۲۲:۱۹:۴۴
آخرین ارسال: sajjad85
  اندازه گیر سلف و خازن با میکروکنترلر AVR baharbahari 33 24,202 ۱۴-دى-۱۳۹۶, ۰۰:۴۳:۵۹
آخرین ارسال: 1نفر
  درخواست راهنمایی ولوم دیجیتالی sobhan6831 0 1,908 ۰۶-اردیبهشت-۱۳۹۶, ۲۱:۱۷:۳۵
آخرین ارسال: sobhan6831
  فرستنده گیرنده مادون قرمز 4 کاناله مادون قرمز با avr ؟ mega32 3 2,631 ۲۸-فروردین-۱۳۹۶, ۰۹:۲۴:۱۶
آخرین ارسال: agape
  برنامه نویسی AVR به روش فلوچارتی با نرم افزار FLOWCODE AVR V3 koorosh.k 8 11,675 ۲۴-آذر-۱۳۹۵, ۲۲:۴۶:۰۸
آخرین ارسال: 1نفر
  [سوال] ساخت منبع تغذیه با avr xxabasxx 3 2,610 ۰۴-آذر-۱۳۹۵, ۰۱:۱۴:۳۷
آخرین ارسال: helma
  ارتباط avr با plc از طریق profibus nex2004 5 6,387 ۰۳-مهر-۱۳۹۵, ۰۳:۱۶:۰۸
آخرین ارسال: jalil2008

پرش به انجمن:


کاربرانِ درحال بازدید از این موضوع: 1 مهمان

صفحه‌ی تماس | IranVig | بازگشت به بالا | | بایگانی | پیوند سایتی RSS