تابلوی 8*8 با avr

[hadi-e]

باسلام
برنامه نویسی برای یک تابلو روان اول از همه برنامه
$regfile = "m8def.dat"
$crystal = 8000000

Config Portb = Output
Config Portd = Output

Dim A As Byte
Dim C As Byte
Dim G As Byte
Dim K As Byte
Dim F As Byte

Do

For G = 0 To 9
For K = 0 To 5


C = &B00000001
For A = 0 To 7
Portd = C

F = G + A

Portb = Lookup(f , Text)
Rotate C , Left
Waitus 500
Portb = &B11111111
Next A


Next G
Next K
Loop
End

Text:
Data &B11100011
Data &B11101111
Data &B11101111
Data &B11101011
Data &B11101011
Data &B11101111
Data &B11101111
Data &B11100011
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
اما سخت افزار یک atmega8 ویک دات ماتریکس
نحوه اتصال ان در پروتئس از سطر اول از چپ بهport bo تا راست به port b7
برای سطر واما ستون از طرف چپ به ترتیب بهport do تا d7 به راست است
اگه به دیتاه توجه شود شما می توانید به جای حرف ت حرف دیگری تعریف کنید
اگه مشکلی داشتید بگید راهنمایی کنم