کمک در ساخت ساعت دقیق

[EBKA]

سلام
دوسته من شما چرا ال سی دی رو تعریف نمیکنی؟؟؟
چرا مشخص نمیکنی پایه های میکرو به چه صورت به ال سی دی وصل بشه؟؟؟؟؟

[SABER66]

سلام.
من یه برنامه ساعت نوشتم تو بسکام درسته اما توپروتیوس مشکل داره فایلو

گذاشتم اگه میشه یه ادم خیر این ایراد مارو برطرف کنه. یا علی مدد

[abol_rh]

سلام در استفاده از تایمر2 با کریستال خارجی در شبیه سازی 5 ثانیه در هر 30ثانیه تاخیر داره چرا؟؟
Config Timer2 = Timer , Async = On , Prescale = 128
Enable Interrupts
Enable Timer2
On Timer2 G
do
loop
G:
Incr Scnd
If Scnd > 59 Then : Incr Dagh : Scnd = 0 : End If
If Dagh > 59 Then : Incr Saat : Dagh = 0 : Scnd = 0 : End If
If Saat > 23 Then : Saat = 0 : Scnd = 0 : Dagh = 0 : End If

Locate 1 , 1 : If Saat < 10 Then
Lcd "0" ; Saat ; ":"
Else
Lcd Saat ; ":"
End If
If Dagh < 10 Then
Locate 1 , 4 : Lcd "0" ; Dagh ; ":"
Else
Lcd Dagh ; ":"
End If
If Scnd < 10 Then
Locate 1 , 7 : Lcd "0" ; Scnd
Else
Lcd Scnd
End If



Return

[rdscience]

دوست من اينجا را يه نگاهي بنداز شايد بدردت بخوره
http://www.iranled.com/forum/post-154556.html
البته اين تو پروتئوس خطا داره ولي تو برد جوابگو هست ( خطا در حد 11 ثانيه در دو ساعت )
و اگر كه مي خواهي فقط ثانيه دقيقه ساعت روز هفته و ... داشته باشي مي توني از rtc ميكرو استفاده كني
موفق تر از قبل باشيد

[reza555]

اول برنامه این دستورو بنویس ببین خطا چقدر تغییر پیدا می کنه

کد:

$Sim

[abol_rh]

سلام من با تایمر2 وکریستال 32768 خارجی یه ساعت ساختم مثل همونایی که تواینترنت هست ولی تو پروتئوس 5ثانیه تاخیر داره اشکال کار از کجاست با تشکر

[silent70un]

سلام من مشکل این 5ثانیه تاخیر رو حل کردم برو به
http://www.iranled.com/forum/thread-21587.html
یه سر بزن

[mehdi2015]

سلام
دوستان کسی میتونه در مورد متغیر a که توی برنامه استفاده شده توضیح بده؟

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
On Ovf0 Ebka
: Dim Sea As Byte , Mine As Byte , Hu As Byte , A As Byte
  Start Timer0
    Cls : Cursor Off
Do
  Home
    Lcd Hu ; ":" ; Mine ; ":" ; Sea
Loop
Ebka:
   If A < 30 Then
     Incr A
  Else
     A = 0
     Incr Sea
    End If
  If Sea > 59 Then
     Sea = 0
     Incr Mine
   End If
   If Mine > 59 Then
     Incr Hu
     Mine = 0
   End If
   If Hu > 12 Then
     Hu = 1
   End If
Return

[mehdi2015]

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
On Ovf0 Ebka
: Dim Sea As Byte , Mine As Byte , Hu As Byte , A As Byte
  Start Timer0
    Cls : Cursor Off
Do
  Home
    Lcd Hu ; ":" ; Mine ; ":" ; Sea
Loop
Ebka:
   If A < 30 Then
     Incr A
  Else
     A = 0
     Incr Sea
    End If
  If Sea > 59 Then
     Sea = 0
     Incr Mine
   End If
   If Mine > 59 Then
     Incr Hu
     Mine = 0
   End If
   If Hu > 12 Then
     Hu = 1
   End If
Return

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

سلام
دوستان کسی میتونه در مورد متغیر a که توی برنامه استفاده شده توضیح بده؟

کد:

$regfile = "m8def.dat"
$crystal = 8000000
Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.0 , E = Portb.1 , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5
Config Timer0 = Timer , Prescale = 1024
Enable Interrupts
Enable Timer0
On Ovf0 Ebka
: Dim Sea As Byte , Mine As Byte , Hu As Byte , A As Byte
  Start Timer0
    Cls : Cursor Off
Do
  Home
    Lcd Hu ; ":" ; Mine ; ":" ; Sea
Loop
Ebka:
   If A < 30 Then
     Incr A
  Else
     A = 0
     Incr Sea
    End If
  If Sea > 59 Then
     Sea = 0
     Incr Mine
   End If
   If Mine > 59 Then
     Incr Hu
     Mine = 0
   End If
   If Hu > 12 Then
     Hu = 1
   End If
Return

یعنی هیچکی نمیتونه راهنمایی کنه ؟!