نوشته اصلی توسط
shayanmelody
سلام به همگی.
با یکم تاخیر مدار رو درست کردم و برنامش رو نوشتم.برنامه را در زیر میبینید:
$regfile = "m8def.dat"
$crystal = 8000000
config portb.1 = output
config spi = hard , interrupt = off , data order = msb , master = yes , polarity = high , phase = 0 , clockrate = 128
spiinit
dim a as byte
dim b as byte
dim c as byte
dim d as byte
dim e as byte
dim f as byte
do
for c = 0 to 32 'ba estefade az moteghayere in halghe amale shifte matn ra anjam midahim
f = 32 - c
for d = 0 to 70 'in halghe vazifeye control sorate matn ra bar ohde darad
portb.1 = 0 'az portb.1 baraye emale pulse bar roye paye st_cp ya p.12 estefade shode ast
for b = 0 to 7 'meghdare b barabar ba tedade shift register ha mibashad
e = b + f
a = lookup(e , lbl)
spiout a , 1
next
portb.1 = 1
next
next
loop
lbl:
Data &b11111111
data &b11111111
data &b11111111
data &b11111111
data &b11111111
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
از نظر مدار که مشکلی نیست ؟اگه دیتاشیت آی سی رو نگاه کنید همه چیز واضحه.اما چون الآن دیر وقته حوصله ندارم تایپ کنم.اما اگه نتونستید،بپرسید تا کامل بگم.