۰۸-آبان-۱۳۸۸, ۱۹:۴۷:۳۲
با سلام من این کد رو نوشتم و جواب هم داده ولی وقتی قسمت دیتاش رو تغییر میدم چرت و پرت نشون میده. مشه بگید مشکل کار از کجاست؟
این تابلو باید تمام LED هاش روشن بشه که میشه ولی وقتی دیتا رو به این صورت عوض میکنم چرت و پرت نشون میده.
که باید سطر ها هشت تا درمیون روشن بشن که نمیشن.
با تشکر.
کد 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
که باید سطر ها هشت تا درمیون روشن بشن که نمیشن.
با تشکر.