مشکل با تابلو LED 8*16

[فروم باز]

سلام کسی نبود؟

[mehrdadgh]

سلام
مهندس فایل پروتوس رو هم بزار
راستی این 573 لچ هستش نه شیفت رجیستر ( مگه با چیفت رجیستر نمی خاستی ؟)
برنامت رو والا یه نیگا کردم خیلی عجیب غریب اومد به نظرم !!
چرا تو حلقه صفر گرفتی ؟ اگه لازم نداری نزارش دیگه !
به جای این دستورها D = Lookup(x , Dta)
Portd = Not D
هم میتونی دیتا هاتو مکمل بگیری البته مشکلی ایجاد نمی کنه
استفاده از دیکدر یکمی کارتو مشکل می کنه وقتی که سطرهای تابلو روان 8 تاست دیگه چه نیازی به دیکدر هستش ( برای سطرهای 16تایی بهترین روش دیکر هستش و تو 8 تایی کافیه یه دونه از پورتهای میکرو رو به سطرها وصل کنی )
حالا یه دونه فایل پروتوس رو اینجا بزار

[فروم باز]

1- از شیفت رجیستر جواب نگرفتم برای همین از لچ استفاده کردم.
2- به خاطر این تو حلقه صفر گذاشتم چون این تابلو 8*16 هست اگه تابلو بشه 8*32 یا 16*16 این صفر ها تغییر میکنه و برای این مستقیم از پایه میکرو استفاده نکردم چون این مدار باید با دیکودر و لچ جواب بده.(برا ی گسترش تابلو راحت تره)
در ضمن من این کد رو برای تست مدار نوشتم و باید ستون ها دونه به دونه با تاخیر یک ثانیه روشن بشه اما یه مشکل خیلی عجیب داره وقتی ولتاژ رو به 7805 وصل میکنم تا ستون سوم میره و هنگ میکنه و ستون سوم همین طور روشن میمونه ولی وقتی ولتاژ مثبت رو به یکی از خروجی های لچ وصل میکنم درست کار میکنه. حالا مشکل کجاست ؟ فکر نمیکنید از ولتاژ باشه والا من که گیج شدم.

کد php:

$regfile = "m32def.dat"
$crystal = 1000000
Config Porta = Output
Config Portc = Output
Config Portb = Output
Config Portd = Output
'*******************************************************************************
Dim Oe As Byte , En As Byte , I As Byte , J As Byte
Dim X As Byte , G As Byte , D As Byte , H As Byte
Dim K As Byte
'*******************************************************************************
Do
K = 1
En = &B11111110
Oe = &B11111110
Portc = En
Portb = Oe
K = Portb.0
X = 0
For I = 0 To 15
  Porta = X
  Portd = &H00
  Wait 1
  Portd = &HFF
  X = X + 1
Next I
Loop
End 


اینم فایل پروتیوس :

http://rapidshare.com/files/263495594/a.DSN.html

با تشکر.

[mehrdadgh]

پروتوس این ارور رو میده:
No model speciled for u5
مثل اینکه این ایسی کتابخونشو نداره!
شما دارین؟

[فروم باز]

نه من هم ندارم فکر کردم ایراد از نرم افزار منه!
حالا نمیتونید بگید که این کدی که جدید گذاشتم ایراد کجاست که این طوری میشه؟

[فروم باز]

سلام کسی نبود؟

[mehrdadgh]

سلام
راستش وقت نکردم هنوز برنامتو ببینم ولی یه پیشنهادی برات دارم
برو سایت forum.elec4u.com
دو تا پروژه هستش که تو یکی از دیکدر و لچ استفاده کرده حتما به دردت میخوره

---

سلام

کد:

$regfile = "m32def.dat"
$crystal = 1000000
Config Porta = Output
Config Portc = Output
Config Portb = Output
Config Portd = Output
'*******************************************************************************​
Dim Oe As Byte , En As Byte , I As Byte , J As Byte
Dim X As Byte , G As Byte , D As Byte , H As Byte
Dim K As Byte
'*******************************************************************************
Do
K = 1
En = &B11111110
Oe = &B11111110
Portc = En
Portb = Oe
K = Portb.0
X = 0
For I = 0 To 15
Porta = X
Portd = &H00
Wait 1
Portd = &HFF
X = X + 1
Next I
Loop
End

این کد که به نظر میرسه درسته ، اشکالش چیه ؟

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

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

به خاطر این تو حلقه صفر گذاشتم چون این تابلو 8*16 هست اگه تابلو بشه 8*32 یا 16*16 این صفر ها تغییر میکنه و برای این مستقیم از پایه میکرو استفاده نکردم چون این مدار باید با دیکودر و لچ جواب بده.(برا ی گسترش تابلو راحت تره)

مشکلی که گفتی رو نمیدونم ولی برای گسترش تابلو و نیز استفاده از دیکدر اون سایتی که گفتم رو برو

فکر کنم حالا بهتر بشه گفت کد درسته یا نه؟

کد:

$regfile = "m32def.dat"
$crystal = 1000000
Config Porta = Output
Config Portc = Output
Config Portb = Output
Config Portd = Output
'*******************************************************************************​
Dim Oe As Byte , En As Byte , I As Byte , J As Byte
Dim X As Byte , G As Byte , D As Byte , H As Byte
'*******************************************************************************
Do
En = &B11111110
Oe = &B11111110
X = 0
For H = 0 To 0
For I = 0 To 15
Porta = Lookup(j , Dc)
Portc = En
For J = 0 To 0
D = Lookup(x , Dta)
Portd = Not D
Portb = Oe
X = X + 1
Waitus 20
Portd = &HFF
Rotate Oe , Left
Next J
Next I
Rotate En , Left
Next H
Loop
End 'End Program
'*****************************************************************
Dc:
Data &H0 , &H1 , &H2 , &H3 , &H4 , &H5 , &H6 , &H7 , &H8 , &H9 , &HA , &HB , &HC , &HD , &HE , &HF
Dta:
Data &H00 , &H00 , &H00 , &H3F , &H7F , &HC4 , &HC4 , &HC4 , &H7F , &H3F , &H00 , &H00 , &H00 , &H00 , &H00 , &H00
**********

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

  tablo ravan mesal.rar (اندازه: 5.51 KB / تعداد دفعات دریافت: 46)

[فروم باز]

جدول اول رو برای دیکودر ستون ها گذاشتم که میشه اون رو حذف کرد و از متغیر استفاده کرد.اون زیاد مهم نیست ولی مشکلی که براتون گفتم نمیتونه از جریان پایین مدار باشه ؟ راستی 7805 چه جریانی به مدار میده؟


با تشکر.

---

من پروژه ای رو که معرفی کرده بودید گرفتم اما دیکودرش چیه؟ فقط نوشته DECODER_4_16

http://rapidshare.com/files/263650796/DFX.DSN.html

[فروم باز]

ببخشید هیچ کس نظری نداره؟

[فروم باز]

سلام من این تابلو رو تو پروتیوس شبیه سازی کردم و جواب هم داد اما یه سری message میده که نمیدونم چیه؟

WDTOE is not set but WDE is not. nothing
Timer expired - processor will be reset

این هارو پشت سر هم مینویسه.

با تشکر.

[mehrdadgh]

کدوم ؟
مال خودت یا اونی که من ادرس دادم؟