سلام
ميشه لطفا برنامه زيرو بخونيد بعد يه توضيح كامل وقابل فهم بديد
ممنون ميشم
$regfile = "m32def.dat"
$crystal = 8000000
Config Portb.1 = Output
Config Spi = Hard , Interrupt = Off , Data Order = Lsb , Master = Yes , Polarity = High , Phase = 1 , Clockrate = 128
Spiinit
Dim A As Byte
Dim B As Byte
Dim C As Byte
Dim D As Word
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim H As Byte
Goto Fa
En:
Do
For C = 0 To 135
For D = 0 To 100
For B = 0 To 7
E = C + B
A = Lookup(e , Lbl)
Spiout A , 1
Next
Portb.1 = 0
Portb.1 = 1
Portb.1 = 0
Next
Next
Loop
Lbl:
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B00000001
Data &B00000001
Data &B11101111
Data &B11101111
Data &B00000001
Data &B00000001
Data &B11111111
Data &B11111111
Data &B11100011
Data &B11000001
Data &B11010101
Data &B11010101
Data &B11000101
Data &B11100111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B01111101
Data &B00000001
Data &B00000001
Data &B11111101
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B01111101
Data &B00000001
Data &B00000001
Data &B11111101
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11100011
Data &B11000001
Data &B11011101
Data &B11011101
Data &B11000001
Data &B11100011
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B00000001
Data &B00000001
Data &B10001111
Data &B11000111
Data &B10001111
Data &B00000001
Data &B00000001
Data &B11111111
Data &B11111111
Data &B11000110
Data &B11000010
Data &B11111010
Data &B11111010
Data &B11000000
Data &B11000001
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B01111101
Data &B00000001
Data &B00000001
Data &B01101101
Data &B01000111
Data &B01111111
Data &B00111111
Data &B11111111
Data &B11111111
Data &B11011101
Data &B11000001
Data &B11100001
Data &B11001101
Data &B11011111
Data &B11000111
Data &B11100111
Data &B11111111
Data &B11111111
Data &B11011101
Data &B01000001
Data &B01000001
Data &B11111101
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11100011
Data &B11000001
Data &B11010101
Data &B11010101
Data &B11000101
Data &B11100111
Data &B11111111
Data &B11111111
Data &B11000001
Data &B11000001
Data &B11011111
Data &B11011111
Data &B11000001
Data &B11100001
Data &B11111111
Data &B11111111
Data &B11100011
Data &B11000001
Data &B11011101
Data &B01011101
Data &B00000011
Data &B00000001
Data &B11111101
Data &B11111111
Data &B11111111
Data &B00111111
Data &B00000100
Data &B00000100
Data &B00111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Fa:
Do
For C = 0 To 120
F = 120 - C
For D = 0 To 100
For B = 0 To 7
E = F + B
A = Lookup(e , Lbl2)
'A = Not A
Spiout A , 1
Next
Portb.1 = 0
Portb.1 = 1
Portb.1 = 0
Next
Next
Goto En
Loop
Lbl2:
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B00001101
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11000011
Data &B11000001
Data &B00111001
Data &B00111001
Data &B11000001
Data &B11000011
Data &B11100111
Data &B11100111
Data &B11000111
Data &B10000011
Data &B10010011
Data &B10000011
Data &B11000111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111101
Data &B11111001
Data &B11100011
Data &B01000111
Data &B11100111
Data &B11100111
Data &B11100101
Data &B10000101
Data &B10001111
Data &B11111111
Data &B11111111
Data &B11111101
Data &B11111001
Data &B11100011
Data &B01000111
Data &B11100111
Data &B11100111
Data &B11100111
Data &B10000111
Data &B00000111
Data &B00100111
Data &B00100111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B10001111
Data &B10000111
Data &B11100111
Data &B01100111
Data &B11100111
Data &B11100111
Data &B01100111
Data &B11100111
Data &B10000111
Data &B10000111
Data &B11100111
Data &B11100111
Data &B11100111
Data &B11000111
Data &B11000111
Data &B11110111
Data &B11000111
Data &B11110111
Data &B11000111
Data &B11001111
Data &B11111111
Data &B11111111
Data &B11111101
Data &B11001101
Data &B10110001
Data &B10000011
Data &B11000111
Data &B11111111
Data &B11111111
Data &B11100111
Data &B01100111
Data &B10100111
Data &B11001111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11110001
Data &B11000001
Data &B10000111
Data &B10010111
Data &B10000111
Data &B11001111
Data &B11111111
Data &B11111111
Data &B00001111
Data &B00000111
Data &B11100111
Data &B00000111
Data &B00000111
Data &B11100111
Data &B11100111
Data &B11100111
Data &B11000111
Data &B11000111
Data &B11110111
Data &B11000111
Data &B11110111
Data &B11000111
Data &B11001111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111
Data &B11111111