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

[فروم باز]

سلام من یه تابلو LED 8*16 درست کردم ولی درست کار نمیکنه یعنی پر پر میزنه و ثابت چراغ ها روشن نمیشه.
تو این تابلو برای سطر ها از شیفت رجیستر استفاده کردم و برای ستون ها از دیکودر استفاده کردم.

اینم کد :

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

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

با تشکر.

[ilgar]

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

[mehrdadgh]

سلام
برای تابلو روان بهتره اگه بافر نذاشتی از لچ استفاده کنی
این ایسی هاس سری hc امپدانسش ورودی شئن بالاست و به منزله بافر هم عمل میکنه ( البته تا حدی )
معمولا وقتی شیفت رجیستر استفاده میشه نور ال ای دی ها کم میشه و این مشکلات پیش میاد
تاخیر برنامت مناسبه و به نظرم بیشتر از این هم بشه هم جریان زیاد میکشه و هم حروف نا منظم تر دیده میشه
یه بار با بافر امتحان کن یا لچ که تو سایت مهندس لاچینی نومنه برنامه هاش هست

[فروم باز]

یعنی کد درسته و ایراد سخت افزاریه؟

[mehrdadgh]

فروم باز عزیز یه چیزی بگم ولی به دلت نگیری ها !
من چن تا تایپیک رو دیدم که شما اومدی یه چهل پنجاه سطری برنامه گذاشتی (بدون نقشه و ...) بعد میگی که درسته یا نه !! خوب اونایی که میان وب به هم کمک میکنن دیگه اونقدر هم بیکار نیستن که بشینن برنامه شو رو تحلیل کنن
تو این جور جا ها میشه جواب گرفت ولی به شرطی که بیشترین تلاش رو خودت بکنی و راهنمایی های بقیه رو به کار ببری

البته من اینو از روی دوستی به شما عرض می کنم و امیدوارم که از عرض بنده ناراحت نشده باشید !
حالا لااقل یه فایل پروتوس بزارید تا اگر بلد باشیم کمکتان کنیم
موفق باشید

[iman-63]

برنامه درسته اما خیلی شلوغه!!!
میشه خیلی خلاصهترش کرد. یه سرچ بزن. زیاد بحث شده

[فروم باز]

فروم باز عزیز یه چیزی بگم ولی به دلت نگیری ها !
من چن تا تایپیک رو دیدم که شما اومدی یه چهل پنجاه سطری برنامه گذاشتی (بدون نقشه و ...) بعد میگی که درسته یا نه !! خوب اونایی که میان وب به هم کمک میکنن دیگه اونقدر هم بیکار نیستن که بشینن برنامه شو رو تحلیل کنن
تو این جور جا ها میشه جواب گرفت ولی به شرطی که بیشترین تلاش رو خودت بکنی و راهنمایی های بقیه رو به کار ببری

البته من اینو از روی دوستی به شما عرض می کنم و امیدوارم که از عرض بنده ناراحت نشده باشید !
حالا لااقل یه فایل پروتوس بزارید تا اگر بلد باشیم کمکتان کنیم
موفق باشید

ممنون از نظرتون من از انتقاد ناراحت نمیشم ولی پروتیوس IC CD4514 (دیکودر) رو نداره برای همین من نقشه ها رو روی کاغذ کشیدم و اگه شد حتما یه نقشه از مدار براتون میزارم.
بازم ممنون از اینکه کمکم کردید. فعلا دارم شیفت رجیستر رو بر میدارم و به جاش از لچ استفاده میکنم. اگه مشکلی بود بازم مزاحم میشم.

با تشکر.

[t3r!p3000]

مهندس پروتئوس 4514 رو داره !

[فروم باز]

میدونم اون 4514 که منظور شماست 74hc4514 هست درسته؟ ولی من این آی سی رو تو بازار پیدا نکردم به جاش CD4514BE رو گرفتم که پروتیوس این رو نداره. در ضمن 74hc154 خروجیش مثبته یا منفی؟

[t3r!p3000]

مهندس فكر مي كنم سري CMOS و سري HC مثل هم باشن !

فقط سرعتشون فرق داره !

البته CMOS ولتاژ بالاتري رو مي تونه تحمل كننه . 3-15

خوب تو پروتئوس هر كدوم رو داشت امتحان كن !
قول مي دم فرقي نكنه !

[فروم باز]

سلام من این مدار رو تو پروتیوس کشیدم اینم عکسش

اینم کد :

کد 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
'*******************************************************************************
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
'**************************************************************************** 


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

با تشکر.