SERİ 74HC595 KULLANIMI

[izzethoca]

MERHABA ARKADAŞLAR
74hc595 kullanarak kayan yazı yapmak istiyorum
74hc595 leri ayrı ayrı (lach)  sürerek devreyi yapıyorum fakat çok fazla pic pini kullanıyorum
74hc595 leri seri sürerek bu devreyi yapmaya çalıştım fakat olmuyor. Seri sürmek için yaptığım kodlar aşağıda bir yardımcı
olursanız sevinirim. Saygılarımla
Burada iki adet dotmatrisi 2 adet 74hc595 ile sürmeye çalıştım

trisa=0
trisb=0
porta=0
portb=0
d var byte [10]
x var byte
i var byte
j var byte
a var byte
b var byte
b=0
a=0
i=0
x=0
'A harfi
d[0]=1
d[1]=118
d[2]=118
d[3]=118
d[4]=1
'A harfi

d[5]=1
d[6]=118
d[7]=118
d[8]=118
d[9]=1


basla:


a=1
  
 
SHIFTOUT PORTA.1,PORTA.0,1,[d[0]d[1],d[2],d[3],d[4],d[5],d[6],d[7],d[8],d[9]]
pulsout porta.2,10

 for I=0 to 4
  portb=a  
 pause 1
  a=a*2 
  next
pause 5
goto basla
end

[izzethoca]

ARKADAŞLAR İLGİNİZE TEŞEKKÜRLER
SİZİ FAZLA MEŞGUL ETEMEMEK İÇİN YAZDIM PROBLEMİ ÇÖZDÜM KODLAR AŞAĞIDAKİ GİBİ
NEDEN İKİ HARFİ YAZMAK BU KADAR ZORMU DİYEBİLİRSİNİZ
İKİ HARFİ VE DAHA FAZLA HARFİ SABİT YAZMAYLA BAŞLIYORUM DAHA SONRA KAYDIRMA İŞLEMİ YAPMAK İSTİYORUM
KODLARIN TAMAMI KENDİ YAZDIĞIM VE ANLAYABİLDİĞİM ŞEKİLDE OLSUN İSTİYORUM
BU KODLARI  YAZARKEN "ETE" HOCANIN FORUMDA VERDİĞİ CEVAPLARI KULLANDIM  HAKKINI HELAL ETSİN KENDİSİNE ÇOK TEŞEKKÜR EDİYORUM

trisa=0
trisb=0
porta=0
portb=0
d var byte [10]
x var byte
a var byte
a=0
x=0
'A harfi
d[0]=1
d[1]=118
d[2]=118
d[3]=118
d[4]=1
'E harfi

d[5]=62
d[6]=54
d[7]=54
d[8]=54
d[9]=0


basla:
a=1
FOR X=0 TO 4
SHIFTOUT PORTA.1,PORTA.0,1,[D[X+5],D[X]]
portb=a 
pulsout porta.2,5
 portb=a  
 pause 1
  a=a*2 
  next
goto basla
end

[izzethoca]

DEVRE RESMİ VEREMİYORUM BURAYA NASI RESİM EKLENİR BİLMİYORUM:)