---

Arkadaşlar 40 sütunlu bi kayan yazı yapmaya çalışıyorum. 5 adet 8 bit shift register kullandım (74ls595).
Devrem hazır ancak program tarafında shift registerleri nasıl süreceğimi bulamadım. Bu konuda bilgisi olan arkadaşlar bana yardımcı olabilir mi lütfen.

---

Reklamlar

---

74595 sürmek için





bağlantılarını bu şekilde yaptıktan sonra

74595'in data bacağına 1 verdin diyelim sonra yeni bilgi almak için latch 1 ve hemen ardından 0 yapman lazım bilgilerin oturtuktan sonra clock bacağını 1 ve hemen ardından 0 yaparsan çıkışlarda verdiğin bilgileri görürsün


örnek bi kod yazayım picbasicte


Kod

trisa=0  : trisb=0  :  trisc=0  :  trisd=0  :  trise=0


porta=0  : portb=0  :  portc=0  :  portd=0  :  porte=0





i var byte


latch var portd.0


veri var portd.1


izin var portd.2


sayi  var byte[8]








sayi[1]=17


sayi[2]=17


sayi[3]=17


sayi[4]=31


sayi[5]=17


sayi[6]=10


sayi[7]=4


sayi[8]=0





basla:


        for i=1 to 8


                SHIFTOUT veri,latch,1,[sayi[i]] 


                HIGH izin  :  PAUSeus 1  :  LOW izin


        next i


           


goto basla 

ama bu kod pek tercih edilmiyormuş nedeni ise yavaş olması bunun yerine bit kontrolü yaparak dataları gönderebilrsin mantığını kavraman için örnek similasyon dosyasını ekliyorum kolay gelsin..

bu arada araştırdığın zman çok dökümana ve koda rastlicaksın bunu da belirteyim çünkü bende aynı senin durumunda bu hale geldim..
Başa dön

---

araştırınca çeşitli kodlar buldum ama hiçbirini anlayamadım. ilk defa 74595 kullanıyorum. Zaten çalıştırına kadar baya bi uğraştım.

74595'in datasheet'inde latch diye bir pin göremedim.

RCK ve SCK girişlerini birleştirince çalıştırabildim. Bunların biri latch mı acaba? Neyi yanlış yapıyorum anlamadım. 2 gündür bunun yatıp bununla kalkıyorum.

ilgin için teşekkür ederim
Başa dön

---

Esmerim arkadaşımız verdiği şemada Clock ile Latch yerlerini yanlış vermiş.
11 Nolu bacak CLK dır. 12 nolu bacak ise Latch dır.

74595 bir shift registerdir. Birden fazla 595 bir birine seri olarak bağlanabilir. İçinde bir buffer (tampon) vardır. Verilen bilgi hemen çıkışda gözükmez. Data bacağından CLK yardımı ile seri olarak verilen bilgi önce Buffer da depolanır. Latch bacağını önce high hemen ardından low'a çekersin. Bu işlem bufferda bulunan bilginin çıkış bacaklarına aktarılmasını sağlar.
Diğer bir önemli nokta ise seri olarak birbirine bağlı birden fazla 595 lerde birinciye verilen 8 bitlik (1 bayte) bilginin ikinciye otomatik olarak aktarılması dır. Aktarma ne zaman olur ? tabiiki birinciye ikinci bir 8 bitlik bilgi verildiğinde ilk bilgi ikinciye ötelenir (aktarılır). Üçüncü byte yolandığında ise ilk bilgi üçüncüye, ikinci bilgi ikinciye aktarılır. Bu işlem bu şekilde zincirleme devam eder.
İşte bu özellik kullanılarak kayan yazı devrelerinde ve 7 segment display sürülmesinde 595 ler kullanılmaktadır.
Kayan yazılarda iki türlü kullanım şekli vardır. Harf dataları işlemci portundan matrix displaylara verilir (satır bilgisi). Sütunların aktif edilmesi işinide 595 ler üstlenir. Bu durumda her bir data yüklenmesinde 595 lerin çıkışları sırayla high olması gerekir. Bunu bir başka deyişle şöyle açıklayabiliriz. Birinci 595'in Q0 çıkışında high bekler. Bir bitlik bilgi (1 pals) verildiğinde Q0 low ve Q1 high olur. Yani High bilgisi bir yana atlar. Bu şekilde high bilgisinin bütün 595 ler boyunca kaydırılması lazımdır. Bu sisteme sütün tarama sistemi denilmektedir.
İkinci usulde ise satırlar işlemciden sürülür (Satır tarama) harf bilgileri ise 595 lere verilir. Bu sistemede satır taraması sistemi denilir. Bu iki tür kullanışın arayışı kayan yazıda kullanılan ledlerin parlaklığının mümkün olan en üst seviyeye yaklaştırılması ihtiyacından doğmuştur. Genelde satır taramasında daha az vakit harcandığı için ledlerde daha fazla parlaklık yakalandığı belirtilmektedir. Benim fikrimi sorarsan fazla parlaklık için matrix sayısı kesinlikle en az seviyede tutulması gerekir.


Ete
Başa dön

---

ete hocam ilgin için teşekkür ederim.

Sütun tarama bilgilerini 74595ler ile yapacağım. Devremi kurdum, aynen anlattığın gibi 595'leri seri bağladım.
Devrem hazır. (Proteus çizimi yapmadım, yaptığımda onu da ekleyeceğim buraya)

Benim derdim PIC Basic ile aynı anda hem clock ve data bilgisini, hem de satır bilgilerini nasıl göndereceğimi bulamamak. Bu şekilde yapılmış hiçbir örnek uygulama bulamadım.

latch ile clock bacaklarını birleştirmek yanlış bir uygulama mı olmuş? Bu şekilde pratikte çalışıyor. Yani 595'leri seri bağlamadan, tek bir 595'in çıkışına ledler bağlayarak çalıştırabiliyorum.

örn.:


INCLUDE "modedefs.bas"
DEFINE SHIFT_PAUSEUS 100000

TRISA=0

BASLA:

SHIFTOUT PORTA.2, PORTA.0, 0,[1 \ 8]

goto basla

END



Benim asıl derdim, 40 sütun tarama yapamamak ve bunları satır bilgilerine bindirememek. Yardımcı olabilirseniz çok mutlu olacağım.
Başa dön

---

40 sütün tarama yapmak için sana aşağıda bir devre örneği veriyorum. aslında derdin sütün taraması yapmak ise 595 lere yalnızca 2 hat dan bunu yapabilirsin. ilişikteki simulasyon dosyası ve program bunu sana gösterecektir.
programın açık halinide koydum zaten bir kaç satır bir şey.

not:
Resim dosyası çıkmıyor sebebini anlamadım.
Her neyse 5 adet 595 i bir birin seri bağla. CLK (11 nolu pinler) ve Latch (12 nolu pinler) hepsi birbirine bağlanacaktır.
CLK bacağı PortA.0 da ve İlk 595 in Data bacağı ise PortA.1 de bağlı olacaktır.

Gerekirse simulasyon dosyasını aşağıdakiten yükleyebilirsin.

http://www.4shared.com/file/36655000/95...ra595.html

kolay gelsin

ete

Kod

'****************************************************************


'*  name    : untıtled.bas                                      *


'*  author  : [e.t.e]                                           *


'*  notice  : copyright (c) 2007 ete]                           *


'*          : all rights reserved                               *


'*  date    : 28.11.2007                                        *


'*  version : 1.0                                               *


'*  notes   :                                                   *


'*          :                                                   *


'****************************************************************


porta=0:trısa=0


portb=0:trısb=%0


cmcon=7  


'ıntcon=%11000000


defıne osc 4


@ devıce pic16f628, pwrt_on


@ devıce pic16f628, protect_off


@ devıce pic16f628, mclr_off


@ devıce pic16f628, ıntrc_osc_noclkout





i var byte        


symbol clk=porta.0 


symbol dta=porta.1 





basla:


      high dta


      pulsout clk,1


      low dta


      


      for i=1 to 40


          pulsout clk,1


          


          pause 50


      next    





      goto basla


    end

Başa dön

---

Hocam tarama tamam. Bu şekilde yapılabiliyor.
Ben shiftout kullanmayı denemiştim ama olmadı. Senin gönderdiğim gibi yapılabiliyor.

Peki bu tarama programını benim kayan yazı programının üzerine nasıl bindirebilirim?

Onunlada ilgili bir örnek verebilirseniz sevinirim..
Başa dön

---

İşte bunu yapamam. Program nasıl yazılmış mantığı nedir bilmeden yapmam imkansız. Bana programı versen bile kırk saat mantığını anlamam gerekirki bunada vaktim olmaz maalesef.
Senin yapacağın iş yalnızca 1 den 40 ka kadar olan döngüde her bir sütuna ait bilgiyi Satırları sürdüğün portdan vermiş olman gerekir.

İşin mantığından 1. sütuna ait 8 bitlik bilgiyi satır portundan verdin. 595 1. sütunu aktif ettin ve displayde 1 sütün göründü süre yaklaşık 1 ms olmalı. Sonra 2. sütün bilgisini satır portundan vereceksin ve hemen ardından 595 in ikinci pinini high yapacaksın.
Bu işlem 40. sütuna kadar devam etmeli.

Ete
Başa dön

---

ete hocam olayı çözdüm.

benim gibi bir uygulama yapacak olan arkadaşlara örnek olması açısından picbasic ile yazılmış kaynak kodlarını aşağıda veriyorum. desteğiniz için sonsuz teşekkürler.

kodlar biraz karışık, ama mantık çok basit.

5 adet seri bağlı 74ls595 var. ilk 74595'in data giriş pini, pic'in porta.1 pinine, clock pini ise pic'in porta.0 pinine bağlı.
satır bilgileri ise sırası ile, rb0'dan rb7 pinlerine kadar bağlı.
ilk başta 16f628 kullanmıştım ama yazım biraz uzun olduğu için 16f876a kullanmak zorunda kaldım. çok fazla değişken olduğu için 16f628'in ram'i yetersiz kaldı. programda hiçbir değişiklik yapmadan (sadece değişkenleri arttırarak) 16f876a kullanmak mümkün.

shift register kullanacak arkadaşların benim gibi zorluk çekmemesi için kodları veriyorum.

program ve devre tamamen bana aittir. isteyenlere ayrıntılı devre şemasını da gönderebilirim. şu anda proteus'ta çizmeye çalışıyorum.


Kod

'****************************************************************


'*  name    : untıtled.bas                                      *


'*  author  : talat taşkın                                      *


'*  notice  : copyright (c) 2008                 *


'*          : all rights reserved                               *


'*  date    : 03.02.2008                                        *


'*  version : 11.0                                               *


'*  notes   :                                                   *


'*          :                                                   *


'****************************************************************











define osc 4 





trısa=%00000


trısb=%00000000





symbol clk=porta.0 


symbol dta=porta.1 





i var byte


i1 var byte


p var byte


g var byte











d0 var byte              


d1 var byte


d2 var byte


d3 var byte


d4 var byte


d5 var byte


d6 var byte


d7 var byte


d8 var byte


d9 var byte


d10 var byte


d11 var byte


d12 var byte


d13 var byte


d14 var byte


d15 var byte


d16 var byte


d17 var byte


d18 var byte


d19 var byte


d20 var byte


d21 var byte


d22 var byte


d23 var byte


d24 var byte


d25 var byte


d26 var byte


d27 var byte


d28 var byte


d29 var byte


d30 var byte


d31 var byte


d32 var byte


d33 var byte


d34 var byte


d35 var byte


d36 var byte


d37 var byte


d38 var byte


d39 var byte


d40 var byte


d41 var byte


d42 var byte


d43 var byte


d44 var byte


d45 var byte


d46 var byte


d47 var byte


d48 var byte


d49 var byte


d50 var byte


d51 var byte


d52 var byte


d53 var byte


d54 var byte


d55 var byte


d56 var byte


d57 var byte


d58 var byte


d59 var byte


d60 var byte


d61 var byte


d62 var byte


d63 var byte


d64 var byte


d65 var byte


d66 var byte


d67 var byte


d68 var byte


d69 var byte


d70 var byte


d71 var byte


d72 var byte


d73 var byte


d74 var byte


d75 var byte


d76 var byte


d77 var byte


d78 var byte


d79 var byte


d80 var byte


d81 var byte


d82 var byte


d83 var byte


d84 var byte


d85 var byte


d86 var byte


d87 var byte


d88 var byte


d89 var byte


d90 var byte


d91 var byte


d92 var byte


d93 var byte


d94 var byte


d95 var byte


d96 var byte


d97 var byte


d98 var byte


d99 var byte


d100 var byte


d101 var byte





d102 var byte


d103 var byte


d104 var byte


d105 var byte


d106 var byte


d107 var byte


d108 var byte


d109 var byte


d110 var byte


d111 var byte


d112 var byte


d113 var byte


d114 var byte


d115 var byte


d116 var byte


d117 var byte


d118 var byte


d119 var byte


d120 var byte


d121 var byte


d122 var byte


d123 var byte


d124 var byte


d125 var byte


d126 var byte


d127 var byte


d128 var byte


d129 var byte


d130 var byte


d131 var byte


d132 var byte


d133 var byte


d134 var byte


d135 var byte


d136 var byte


d137 var byte


d138 var byte


d139 var byte


d140 var byte


d141 var byte


d142 var byte


d143 var byte


d144 var byte


d145 var byte


d146 var byte


d147 var byte


d148 var byte


d149 var byte


d150 var byte


d151 var byte


d152 var byte


d153 var byte


d154 var byte


d155 var byte


d156 var byte


d157 var byte


d158 var byte


d159 var byte


d160 var byte


d161 var byte


d162 var byte


d163 var byte


d164 var byte


d165 var byte


d166 var byte


d167 var byte


d168 var byte


d169 var byte


d170 var byte


d171 var byte


d172 var byte


d173 var byte


d174 var byte


d175 var byte


d176 var byte


d177 var byte


d178 var byte


d179 var byte


d180 var byte


d181 var byte


d182 var byte


d183 var byte


d184 var byte


d185 var byte


d186 var byte


d187 var byte


d188 var byte


d189 var byte


d190 var byte


d191 var byte


d192 var byte


d193 var byte


d194 var byte


d195 var byte


d196 var byte


d197 var byte


d198 var byte


d199 var byte


d200 var byte


d201 var byte


d202 var byte


d203 var byte





d204 var byte


d205 var byte


d206 var byte


d207 var byte


d208 var byte


d209 var byte


d210 var byte


d211 var byte


d212 var byte


d213 var byte


d214 var byte


d215 var byte


d216 var byte


d217 var byte


d218 var byte


d219 var byte


d220 var byte


d221 var byte


d222 var byte


d223 var byte


d224 var byte


d225 var byte


d226 var byte


d227 var byte


d228 var byte


d229 var byte


d230 var byte


d231 var byte


d232 var byte


d233 var byte


d234 var byte


d235 var byte


d236 var byte


d237 var byte


d238 var byte


d239 var byte


d240 var byte


d241 var byte


d242 var byte


d243 var byte


d244 var byte


d245 var byte


d246 var byte


d247 var byte


d248 var byte


d249 var byte


d250 var byte





d251 var byte


d252 var byte


d253 var byte


d254 var byte


d255 var byte


d256 var byte


d257 var byte


d258 var byte


d259 var byte


d260 var byte


d261 var byte


d262 var byte


d263 var byte


d264 var byte


d265 var byte


d266 var byte


d267 var byte


d268 var byte


d269 var byte


d270 var byte


d271 var byte


d272 var byte


d273 var byte


d274 var byte


d275 var byte


d276 var byte


d277 var byte


d278 var byte


d279 var byte


d280 var byte


d281 var byte


d282 var byte


d283 var byte


d284 var byte


d285 var byte


d286 var byte


d287 var byte


d288 var byte


d289 var byte


d290 var byte


d291 var byte


d292 var byte


d293 var byte


d294 var byte


d295 var byte


d296 var byte


d297 var byte


d298 var byte


d299 var byte


d300 var byte

















 d0=%00000000


 d1=%01111111 'p


 d2=%00001001


 d3=%00001001


 d4=%00001001


 d5=%00000110   





 d6=%00000000 'boşluk





 d7=%01111110 'a


 d8=%00010001


 d9=%00010001


d10=%00010001


d11=%01111110





d12=%00000000 'boşluk





d13=%01111111 'n


d14=%00000100


d15=%00001000   


d16=%00010000   


d17=%01111111





d18=%00000000 'boşluk





d19=%00000001 't


d20=%00000001


d21=%01111111


d22=%00000001


d23=%00000001





d24=%00000000





d25=%01111111 'e   


d26=%01001001


d27=%01001001


d28=%01001001





d29=%00000000





d30=%01111111 'r


d31=%00001001


d32=%00011001


d33=%00101001


d34=%01000110





d35=%00000000


   


d36=%00000000


d37=%00000000





d38=%01111111 'e   


d39=%01001001


d40=%01001001


d41=%01000001





d42=%00000000





d43=%01111111 'r


d44=%00001001


d45=%00011001


d46=%00101001


d47=%01000110





d48=%00000000





d49=%00111110 'o


d50=%01000001


d51=%01000001


d52=%01000001


d53=%00111110





d54=%00000000





d55=%00000001 't


d56=%00000001


d57=%01111111


d58=%00000001


d59=%00000001





d60=%00000000





d61=%01111101 'i





d62=%00000000





d63=%01111111     'k


d64=%00001000


d65=%00010100


d66=%00100010   


d67=%01000001





d68=$00





d69=$00


d70=$00





d71=%00100110 's


d72=%01001001


d73=%01001001


d74=%01001001


d75=%00110010





d76=%00000000 





d77=%01111111  'h


d78=%00001000


d79=%00001000


d80=%01111111





d81=%00000000


 


d82=%00111110 'o


d83=%01000001


d84=%01000001


d85=%01000001


d86=%00111110





d87=%00000000





d88=%01111111 'p


d89=%00001001


d90=%00001001


d91=%00001001


d92=%00000110   





d93=%00000000 'boşluk





d94=%00000000


d95=%00000000





 d96=%01111110 'a


 d97=%00010001


 d98=%00010001


 d99=%00010001


d100=%01111110





d101=%00000000 





d102=%00001111  'v


d103=%00110000


d104=%01000000


d105=%00110000   


d106=%00001111





d107=%00000000





d108=%01111111 'r


d109=%00001001 


d110=%00011001


d111=%00101001


d112=%01000110





d113=%00000000





d114=%00111111  'u


d115=%01000000    


d116=%01000000   


d117=%01000000


d118=%00111111





d119=%00000000





d120=%01111111  'p


d121=%00001001


d122=%00001001


d123=%00001001


d124=%00000110





d125=%00000000





d126=%01111110   'a


d127=%00010001  


d128=%00010001


d129=%00010001


d130=%01111110





d131=%00000000





d132=%00000100  ' '


d133=%00000011





d134=%00000000





d135=%01111111  'd


d136=%01000001


d137=%01000001


d138=%01000001


d139=%00111110





d140=%00000000





d141=%01111110   'a


d142=%00010001


d143=%00010001


d144=%00010001


d145=%01111110





d146=%00000000





d147=%01111111 'n


d148=%00000100


d149=%00001000


d150=%00010000


d151=%01111111





d152=%00000000





d153=%00000000


d154=%00000000





d155=%01111101 ' i





d156=%00000000





d157=%00000001  't


d158=%00000001


d159=%01111111


d160=%00000001


d161=%00000001





d162=%00000000





d163=%01111111  'h


d164=%00001000


d165=%00001000


d166=%00001000   


d167=%01111111





d168=$00





d169=%01111110  'a


d170=%00010001


d171=%00010001


d172=%00010001


d173=%01111110





d174=%00000000





d175=%01111111 'l


d176=%01000000


d177=%01000000


d178=%01000000





d179=%00000000





d180=%00000000  


d181=%00000000





d182=%00111110  'c


d183=%01000001


d184=%01000001


d185=%01000001


d186=%00100010





d187=%00000000





d188=%01111101  'i





d189=%00000000





d190=%01111111  'n


d191=%00000100


d192=%00001000   


d193=%00010000


d194=%01111111





d195=%00000000





d196=%00100110  's


d197=%01001001   


d198=%01001001


d199=%01001001


d200=%00110010





d201=%00000000 





d202=%01111111 'e


d203=%01001001 


d204=%01001001


d205=%01000001


   


d206=%00000000 





d207=%01111111 'l


d208=%01000000


d209=%01000000


d210=%01000000





d211=%00000000


d212=%00000000


d213=%00000000





d214=%01111111 'f


d215=%00001001    


d216=%00001001   


d217=%00000001





d218=%00000000





d219=%01111110 'a


d220=%00010001  


d221=%00010001


d222=%00010001


d223=%01111110





d224=%00000000





d225=%01111111 'n


d226=%00000100


d227=%00001000


d228=%00010000


d229=%01111111





d230=%00000000





d231=%00000001 't


d232=%00000001


d233=%01111111


d234=%00000001


d235=%00000001





d236=%00000000





d237=%01111110   'a


d238=%00010001


d239=%00010001  


d240=%00010001


d241=%01111110





d242=%00000000





d243=%01100001 'z


d244=%01010001


d245=%01001001 


d246=%01000101


d247=%01000011





d248=%00000000





d249=%01111101  'i





d250=%00000000


d251=%00000000 


d252=%00000000





d253=%00111101 'ü


d254=%01000000


d255=%01000000


d256=%01000000 


d257=%00111101





d258=%00000000





d259=%01111111 'r


d260=%00001001


d261=%00011001


d262=%00101001


d263=%01000110


 


d264=%00000000





d265=%00111101 'ü


d266=%01000000


d267=%01000000


d268=%01000000 


d269=%00111101





d270=$00





d271=%01111111 'n


d272=%00000100


d273=%00001000


d274=%00010000


d275=%01111111





d276=%00000000


 


d277=%01111111 'l


d278=%01000000


d279=%01000000


d280=%01000000





d281=%00000000





d282=%01111111  'e


d283=%01001001


d284=%01001001


d285=%01000001





d286=%00000000





d287=%01111111 'r


d288=%00001001


d289=%00011001


d290=%00101001


d291=%01000110





d292=%00000000


   


d293=%01111101





d294=%00000000


d295=%00000000


d296=%00000000


d297=%00000000   


d298=%00000000


d299=%00000000


d300=%00000000











'porta.1=1


'porta.0=1


'pauseus 100


'porta.0=0


'porta.1=0








porta=0


portb=0


p=3/2


i=0


i1=80





basla:





i=i+1


g=g+1





     if g >0 then


      dta =1


      pulsout clk,100


      dta =0


     endif





      


'      for g=1 to 40 


'      pulsout clk,1 


'      pause 0    


'      next











  


 if i=i1 then kaydir








   clk=1 : clk=0 : portb=d0


   pause p : dta=0


   clk=1 : clk=0 : portb=d1


   pause p  : dta=0


   clk=1 : clk=0 : portb=d2


   pause p  : dta=0


   clk=1 : clk=0 : portb=d3


   pause p : dta=0


   clk=1 : clk=0 : portb=d4


   pause p : dta=0


   clk=1 : clk=0 : portb=d5


   pause p : dta=0


   clk=1 : clk=0 : portb=d6


   pause p : dta=0


   clk=1 : clk=0 : portb=d7


   pause p : dta=0


   clk=1 : clk=0 : portb=d8


   pause p : dta=0


   clk=1 : clk=0 : portb=d9


   pause p : dta=0


   clk=1 : clk=0 : portb=d10


   pause p : dta=0


   clk=1 : clk=0 : portb=d11


   pause p : dta=0


   clk=1 : clk=0 : portb=d12


   pause p : dta=0


   clk=1 : clk=0 : portb=d13


   pause p : dta=0


   clk=1 : clk=0 : portb=d14


   pause p : dta=0


   clk=1 : clk=0 : portb=d15


   pause p : dta=0


   clk=1 : clk=0 : portb=d16


   pause p : dta=0


   clk=1 : clk=0 : portb=d17


   pause p : dta=0


   clk=1 : clk=0 : portb=d18


   pause p : dta=0


   clk=1 : clk=0 : portb=d19 


   pause p : dta=0


   clk=1 : clk=0 : portb=d20


   pause p : dta=0


   clk=1 : clk=0 : portb=d21


   pause p : dta=0


   clk=1 : clk=0 : portb=d22


   pause p : dta=0


   clk=1 : clk=0 : portb=d23


   pause p : dta=0


   clk=1 : clk=0 : portb=d24


   pause p : dta=0


   clk=1 : clk=0 : portb=d25


   pause p : dta=0


   clk=1 : clk=0 : portb=d26


   pause p : dta=0


   clk=1 : clk=0 : portb=d27


   pause p : dta=0


   clk=1 : clk=0 : portb=d28


   pause p : dta=0


   clk=1 : clk=0 : portb=d29 


   pause p : dta=0


   clk=1 : clk=0 : portb=d30


   pause p : dta=0


   clk=1 : clk=0 : portb=d31


   pause p : dta=0


   clk=1 : clk=0 : portb=d32


   pause p : dta=0


   clk=1 : clk=0 : portb=d33


   pause p : dta=0


   clk=1 : clk=0 : portb=d34


   pause p : dta=0


   clk=1 : clk=0 : portb=d35


   pause p : dta=0


   clk=1 : clk=0 : portb=d36


   pause p : dta=0


   clk=1 : clk=0 : portb=d37


   pause p : dta=0


   clk=1 : clk=0 : portb=d38


   pause p : dta=0


   clk=1 : clk=0 : portb=d39


   pause p : dta=0








  


    kaydir:


   i=0


   '===kaydırma baslıyor===


   d0=d1


   


   d1=d2


   d2=d3


   d3=d4


   d4=d5


   d5=d6


   d6=d7


   d7=d8


   d8=d9


   d9=d10


   d10=d11


   d11=d12


   d12=d13


   d13=d14


   d14=d15


   d15=d16


   d16=d17


   d17=d18


   d18=d19


   d19=d20


   d20=d21


   d21=d22


   d22=d23


   d23=d24


   d24=d25


   d25=d26


   d26=d27


   d27=d28


   d28=d29


   d29=d30


   d30=d31


   d31=d32


   d32=d33


   d33=d34


   d34=d35


   d35=d36


   d36=d37


   d37=d38


   d38=d39


   d39=d40


   d40=d41


   d41=d42


   d42=d43


   d43=d44


   d44=d45


   d45=d46


   d46=d47


   d47=d48


   d48=d49


   d49=d50


   d50=d51


   d51=d52


   d52=d53


   d53=d54


   d54=d55


   d55=d56


   d56=d57


   d57=d58


   d58=d59


   d59=d60   


   d60=d61


   d61=d62


   d62=d63


   d63=d64


   d64=d65


   d65=d66


   d66=d67


   d67=d68


   d68=d69


   d69=d70


   d70=d71


   d71=d72


   d72=d73


   d73=d74


    d74=d75   


   d75=d76


   d76=d77


   d77=d78


   d78=d79


   d79=d80


   d80=d81


   d81=d82


   d82=d83


   d83=d84


   d84=d85


   d85=d86


   d86=d87


   d87=d88


   d88=d89


   d89=d90


    d90=d91   


   d91=d92


   d92=d93


   d93=d94


   d94=d95


   d95=d96


   d96=d97


   d97=d98


   d98=d99


   d99=d100


   d100=d101


   


   d101=d102


   d102=d103


   d103=d104


   d104=d105


   d105=d106


   d106=d107


   d107=d108


   d108=d109


   d109=d110


   d110=d111


   d111=d112


   d112=d113


   d113=d114


   d114=d115


   d115=d116


   d116=d117


   d117=d118


   d118=d119


   d119=d120


   d120=d121


   d121=d122


   d122=d123


   d123=d124


   d124=d125


   d125=d126


   d126=d127


   d127=d128


   d128=d129


   d129=d130


   d130=d131


   d131=d132


   d132=d133


   d133=d134


   d134=d135


   d135=d136


   d136=d137


   d137=d138


   d138=d139


   d139=d140


   d140=d141


   d141=d142


   d142=d143


   d143=d144


   d144=d145


   d145=d146


   d146=d147


   d147=d148


   d148=d149


   d149=d150


   d150=d151


   d151=d152


   d152=d153


   d153=d154


   d154=d155


   d155=d156


   d156=d157


   d157=d158


   d158=d159


   d159=d160   


   d160=d161


   d161=d162


   d162=d163


   d163=d164


   d164=d165


   d165=d166


   d166=d167


   d167=d168


   d168=d169


   d169=d170


   d170=d171


   d171=d172


   d172=d173


   d173=d174


    d174=d175   


   d175=d176


   d176=d177


   d177=d178


   d178=d179


   d179=d180


   d180=d181


   d181=d182


   d182=d183


   d183=d184


   d184=d185


   d185=d186


   d186=d187


   d187=d188


   d188=d189


   d189=d190


    d190=d191   


   d191=d192


   d192=d193


   d193=d194


   d194=d195


   d195=d196


   d196=d197


   d197=d198


   d198=d199


   d199=d200


   d200=d201


    d201=d202


   d202=d203


   d203=d204


   d204=d205


   d205=d206


   d206=d207


   d207=d208


   d208=d209


   d209=d210


   d210=d211


   d211=d212


   d212=d213


   d213=d214


   d214=d215


   d215=d216


   d216=d217


   d217=d218


   d218=d219


   d219=d220


   d220=d221


   d221=d222


   d222=d223


   d223=d224


   d224=d225


   d225=d226


   d226=d227


   d227=d228


   d228=d229


   d229=d230


   d230=d231


   d231=d232


   d232=d233


   d233=d234


   d234=d235


   d235=d236


   d236=d237


   d237=d238


   d238=d239


   d239=d240


   d240=d241


   d241=d242


   d242=d243


   d243=d244


   d244=d245


   d245=d246


   d246=d247


   d247=d248


   d248=d249


   d249=d250


   d250=d251


   d251=d252


   d252=d253


   d253=d254


   d254=d255


   d255=d256


   d256=d257


   d257=d258


   d258=d259


   d259=d260   


   d260=d261


   d261=d262


   d262=d263


   d263=d264


   d264=d265


   d265=d266


   d266=d267


   d267=d268


   d268=d269


   d269=d270


   d270=d271


   d271=d272


   d272=d273


   d273=d274


    d274=d275   


   d275=d276


   d276=d277


   d277=d278


   d278=d279


   d279=d280


   d280=d281


   d281=d282


   d282=d283


   d283=d284


   d284=d285


   d285=d286


   d286=d287


   d287=d288


   d288=d289


   d289=d290


    d290=d291   


   d291=d292


   d292=d293


   d293=d294


   d294=d295


   d295=d296


   d296=d297


   d297=d298


   d298=d299


   d299=d300


   d300=d0


   


   goto basla


   end

Başa dön

---

talatt


Projeyi yapmana sevindim bir kaç öneride bulanayım d300 e kadar tek tek değişken tanımlamışsın bunu

Kod

d var byte[300]

diyerek tek satırsa 300 dizilik bir değişken yapabilirdin sonra içeriğini
Kod

d[0]=11110000


d[1]=01011011

vs şeklinde yapabilrsin


ve son kaydırma bloğuna gelince
Kod

yedek=d[0]


for i=1 to 299


   d[i]=d[i+1]


next i


d[300]=yedek

bu kodlarla kısaltabilirsin programını umarım yardımcı olmuşumdur
Başa dön