مشکل با تابلو روان 8*32

[فروم باز]

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

کد php:

$regfile = "m32def.dat"
$crystal = 1000000
Config Porta = Output
Config Portb = Output
Config Portc = Output
Config Portd = Output

Dim J As Byte
Dim Col As Byte
Dim Inh As Byte
Dim U As Byte
Dim K As Byte
Dim N As Byte , I As Byte , C_le As Byte

Do

U = 0
K = &B10000000
  For Col = 0 To 7


   Portd = K


    For J = 0 To 3
     Portb = Lookup(u , Dr)
     Portc.j = 1
     U = U + 1
     Portc = 0
    Next J

    Waitms 5
   Rotate K , Left
  Next Col
Loop

Dr:
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF,
Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFF 


این تابلو باید تمام LED هاش روشن بشه که میشه ولی وقتی دیتا رو به این صورت عوض میکنم چرت و پرت نشون میده.

کد php:

Data &HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,
Data &HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00,&HFF,&H00 


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

با تشکر.

[فروم باز]

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

با تشکر.

[milad ashtari]

دوست غزیز سلام

من کاملا با تابلو روان آشنایی دارم دقیق از مدار ی که درست کردی برام شرح بده ، حتما کمکت میکنم
وولی برنامه رو که نگاه می کردم چندتا مشکل داشت که باید اصلاحشون کنی.

[do...loop]

ميشه شماتيك مدارتو بذاري
اگه برنامت درست باشه احتمالا مدارت مشكل داره

[sharin]

سلام.

دوستان تاريخ تاپيك و پست ها رو نگاه كنيد ...
مربوط به 2 سال پيش هست ، حتما تا حالا مشكلشون حل شده ...

موفق باشيد.
يا علي.