ايران ويج

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

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

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

سلام در استفاده از تایمر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

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

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

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

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

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

(۲۴-بهمن-۱۳۸۹, ۱۸:۲۰:۲۴)EBKA نوشته است: [ -> ]

کد:

$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 نوشته است: [ -> ]سلام
دوستان کسی میتونه در مورد متغیر 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

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