من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

[جعفر]

سلام:
من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده همون هایی که توی بانک ها نصب است اندازه تابلو جوری باشه که از فاصله 20 الی 30 متری قایل دیدن باشه توی قسمت پروژه ها یک مورد بود که متاسفانه فقط ساعت است من تاریخ رو هم لازم دارم

[رضا سپاس یار]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

سلام،

اون پروژه تقویم هم داره. کافیه که متغیرهای مربوط به Date رو در خروجی نمایش بدید. من هم اون تابلو رو برای بانک درست کرده بودم :smile:

[جعفر]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

سلام،

اون پروژه تقویم هم داره. کافیه که متغیرهای مربوط به Date رو در خروجی نمایش بدید. من هم اون تابلو رو برای بانک درست کرده بودم :smile:

سلام:
اگر ممکنه بیشتر توضیح بدید

[skr_prince]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

برنامه ساعت به همراه تقویم

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

Config Portd = Output
Config Portb = Output
Config Portc = Output

Config Clock = Soft
Enable Interrupts
Time$ = "12:00:00"
Date$ = "06/14/08"

Declare Sub Sectic

Dim A As Byte
Dim Scan As Byte
Dim Index As Byte
Dim I As Byte
Dim S As Byte
Dim C As Word
Dim Buf(25) As Byte


S = _sec

For Index = 0 To 3
Buf(index + 11) = Lookup(index , Dot)
Next Index


Do

If S <> _sec Then Call Sectic
Scan = &HFE
For Index = 1 To 6

Portd = Buf(index )
Portc.3 = 1
Portc.3 = 0

Portd = Buf(index + 8)
Portc.4 = 1
Portc.4 = 0

Portd = Buf(index + 16)
Portc.5 = 1
Portc.5 = 0

Portb = Scan
Rotate Scan , Left , 1
Waitms 1
Portb = &HFF

Next Index



Portd = Buf(7 )
Portc.3 = 1
Portc.3 = 0

Portd = Buf(15)
Portc.4 = 1
Portc.4 = 0

Portd = Buf(23)
Portc.5 = 1
Portc.5 = 0

Portc.1 = 0
Waitms 1
Portc.1 = 1



Portd = Buf(8 )
Portc.3 = 1
Portc.3 = 0

Portd = Buf(16)
Portc.4 = 1
Portc.4 = 0

Portd = Buf(24)
Portc.5 = 1
Portc.5 = 0

Portc.2 = 0
Waitms 1
Portc.2 = 1



Loop

End


Sub Sectic:

S = _sec
C = _sec Mod 15
If C < 8 Then

For I = 0 To 3
C = _sec Mod 2
If C = 0 Then
Buf(i + 11) = Lookup(i , Dot)
Else
Buf(i + 11) = 0
End If
Next I

For I = 0 To 4

A = _hour / 10
A = A * 5
A = A + I
Buf(i + 1) = Lookup(a , Font)

A = _hour Mod 10
A = A * 5
A = A + I
Buf(i + 6) = Lookup(a , Font)

A = _min / 10
A = A * 5
A = A + I
Buf(i + 15) = Lookup(a , Font)

A = _min Mod 10
A = A * 5
A = A + I
Buf(i + 20) = Lookup(a , Font)

Next I

Else

For I = 0 To 3
Buf(i + 11) = Lookup(i , Lin)
Next I

For I = 0 To 4
A = _month / 10
A = A * 5
A = A + I
Buf(i + 1) = Lookup(a , Font)

A = _month Mod 10
A = A * 5
A = A + I
Buf(i + 6) = Lookup(a , Font)

A = _day / 10
A = A * 5
A = A + I
Buf(i + 15) = Lookup(a , Font)

A = _day Mod 10
A = A * 5
A = A + I
Buf(i + 20) = Lookup(a , Font)
Next I

End If

End Sub

Font:
Data &H00 , &H3E , &H41 , &H41 , &H3E '0
Data &H00 , &H21 , &H7F , &H01 , &H00 '1
Data &H00 , &H23 , &H45 , &H49 , &H31 '2
Data &H42 , &H41 , &H51 , &H69 , &H46 '3
Data &H0C , &H14 , &H24 , &H7F , &H04 '4
Data &H72 , &H51 , &H51 , &H51 , &H4E '5
Data &H1E , &H29 , &H49 , &H49 , &H06 '6
Data &H40 , &H47 , &H48 , &H50 , &H60 '7
Data &H36 , &H49 , &H49 , &H49 , &H36 '8
Data &H30 , &H49 , &H49 , &H4A , &H3C '9
Dot:
Data &H00 , &H36 , &H36 , &H00 , &H00 ':
Lin:
Data &H00 , &H08 , &H08 , &H00 , &H00 '-

[reza_micro]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

سلام
skr_prince عزیز، ممنون به خاطر زحمتی که کشیدی و کد تو انجمن قرار دادی. اما من از این برنامه شما سر در نمیارم
شما داری ساعت درست می کنی. پس باید یه یک ثانیه درست کنی و بر مبنای اون ادامه بدی. اما من نمیدونم که شما چه جور این یه ثانیه رو درست کردی؟؟؟
اگه میشه در مورد منطق برنامه ات توضیح بده و اگ در مورد سخت افزار هم یه توضیح کوچولو بدی ممنون میشم. :nice:

[hamed_online62]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

کاری که skr_prince کرده اینه که از تایمر دو در مد آسنکرون استفاده کرده. تو بیسکام این کار به شکل ساده تری هم قابل انجامه که تو این برنامه داری میبینی. با دستور Config clock=soft در واقع RTC رو پیکربندی می کنی( Real Time Clock ). دستورات $Time و $Date هم مقادیر زمان و تاریخ هستند. در واقع زمان و تاریخ به صورت رشته تو اینها قرار می گیره. برای دستیابی به هر پارامتر( ثانیه ، دقیقه ، ساعت ، روز ، ماه ، سال) هم باید از متغیرهایی که تو برنامه نوشته شده استفاده کنی( year , _month , _day , _hour , _min , _sec_ ).
نکته قابل توجه استفاده از کریستال ساعت ( 32768 هرتز ) در پایه های C.6 و C.7 هست. در واقع با این کریستال هر یک ثانیه یک وقفه به میکرو ارسال میشه و به مقدار sec_ یکی اضافه .
اگه نیاز داری که در هر بار وقفه یه سری عملیات خاص انجام بدی می تونی این طوری پیکر بندی کنی:
Config Clock=Soft , Gosub=Sectic
Sectic اسم لیبلی هست که بعد از هر وقفه به اونجا پرش می کنه.

[reza_micro]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

ممنون آقای حامد جعفری از توضیحت
میشه بگی این کدی که در این انجمن گذاشته شده با چی نوشته شده؟؟ من فکر می کردم با بسکام نوشتن....
من تازه از 8051 به AVR مهاجرت کردم به خاطر این هنوز درست حسابی راه نیفتادم.

[hamed_online62]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

درسته با بسکام نوشته شده

ورودت رو به سرزمین AVR خوش آمد میگم

[skr_prince]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

با تشکر از توضیحات آقای جعفری در مورد برنامه ، اینم شماتیک برنامه .
موفق باشی.
="http://s272.photobucket.com/albums/jj167/ashks/?action=view&current=1.jpg"

[reza_micro]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

متشکرم از آقای جعفری و همچنین از skr_prince
همچنیم تشکر به خاطر تبریکتون
من متوجه میشم که این برنامه تو بسکام نوشته شده اما چیزایی که انتظار دارم رو نمی بینم. مثلا اینکه از هیچ تایمری استفاده نشده و یا حتی از دستورات تاخیری.
در ضمن وقفه ها فعال شدن اما کاربردی ندارن و یا اینکه من متوجه نمیشم. :angry:
هنوز هم تو کف اون یه ثانیه هستم که تو این برنامه چه جوری ایجاد شده.
اگه یه توضیحی بدین ممنون میشم. :nerd:

[milad2546]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

سلام..

شاید اینجا محل مناسبی برای آموزش برنامه دوستمون نباشه.. چون قبلا این کار انجام شده... به لینک زیر سر بزن 100% میفهمی... :agree: :agree:

http://www.eca.ir/forum2/index.php?topic=7070.0

اگه وقت کنی همشو بخونی که عالیه...

[reza_micro]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

آقا میلاد، ممنون به خاطر انجمنی که معرفی کردی. دارم میخونمش.
اما سوال من اساسیه. من میگم این برنامه چه طوری اون یه ثانیه رو تولید کرده؟ مگه به جز تایمرها و دستورات تاخیری و همینطور مدت زمانی که اجرای هر دستور طول می کشه، راهی هم وجود داره؟؟؟ من که هیچکدوم از این راه ها رو نمی بینم.
به هر حال من خودم یه ساعت دیجیتال ساختم اما با استفاده از تایمرها ولی دوست دارم که روشی که تو این برنامه استفاده شده رو هم یاد بگیرم. :mrgreen:

[gholinezhad_h]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

من تابلو باقابلیت نمایش ساعت ، تاریخ و دما ونمایش پیامهای تبلیغاتی ساختم از کدویژن استفاده کردم و برای تاریخ و ساعت از IC ds1307 استفاده کردم و تابعهای تبدیل تاریخ میلادی به شمسی را با فابلیت تشخیص سالهای کبیسه خودم نوشتم

[milad2546]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

من تابلو باقابلیت نمایش ساعت ، تاریخ و دما ونمایش پیامهای تبلیغاتی ساختم از کدویژن استفاده کردم و برای تاریخ و ساعت از IC ds1307 استفاده کردم و تابعهای تبدیل تاریخ میلادی به شمسی را با فابلیت تشخیص سالهای کبیسه خودم نوشتم

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

[gholinezhad_h]

پاسخ : من به دنبال یک تابلوی دیجیتال هستم که بتونه تاریخ و ساعت رو نمایش بده

با سلام
دوستان در اولین فرصت سورس کامل برنامه تابلو روان را که برنامه شامل 16 افکت وردی و خروجی است و سورس برنامه PC که اطلاعات را برای تابلو ارسال می کند را برایتان در سایت می ذارم در این برنامه ارتفاع تابلو به16 یا 32 پیکسل و طول از 16 تا 400 پیکسل توسط نرم افزار قابل تنظییم و تغییر است
برنامه میکرو را با C و برنامه PC را با دلفی نوشتم