4 byte datanin picbasicpro da otelenmesi

[cesurcelik]

merhaba.
4 byte veya daha fazla datayi ardasik bagli 4 veya daha fazla shift registere gondermek(hc595) ve daha sonra 4 byte lik bilgiyi oldugu gibi bir oteleyip  shift registere gondermek istiyorum
ornegin

11110000 11110000 11110000 11110000 gibi bir blogu sift ettikten sonra ayni blogu bir kaydirip
01111000 01111000 01111000 01111000 gibi
tekrardan sift etmek istiyorum.
picbasicte nasil yapabilirim
bilgi paylasimi icin simdiden teşekkür ederim
mutlu gunler

[mhk]

rstpin=0:rstpin=1
    for sayreg=0 to 7        
             deg1=deger[sayreg]
        
        for saybit=0 to 7
           datapin=getbit deg1,saybit
           clk=1:clk=0
        next
    next

Bu kod picbasic proton ile yapıldı. 8 tane dizi değişken ( 8*8=64 bit ) 0.byte'tan başlamak üzere 8 byte'a kadar bit bit bilgileri seri giriş/paralel çıkış entegresine ( 74164 74595 vs gibi) veri yüklemek için kullanılabilir. Burda clk; seri giriş/paralel çıkış entegresi clk girişi , datapin;seri giriş/paralel çıkış entegresi data girişidir. Rstpin; ise bu entegrelerin reset girişidir.

verikaydir:
        for tara=0 to 7
                deg1=deger[tara]
                deg1=deg1<<1
                deg2=deger[tara+1]
                deg1.0=deg2.7
                deger[tara]=deg1
        next
return

Bu kod ise komple verinin kaydırılması ile ilgilidir.

[cesurcelik]

merhaba.
cevabiniz icin cok teşekkür ederim

datapin=getbit deg1,saybit

hocam verdiginiz yukaridaki  proton kod unda 'getbit' in karsiligi picbasic pro da shiftout komutu mu?
teşekkür ederim

[mhk]

Pic basicte şu şekilde yapabilirsin;

rstpin=0:rstpin=1 

    for sayreg=0 to 7        
             deg1=deger[sayreg] 
        
        for saybit=0 to 7 
               if saybit=0 then  datapin=deg1.0 
               if saybit=1 then  datapin=deg1.1
               if saybit=2 then  datapin=deg1.2
               if saybit=3 then  datapin=deg1.3
               if saybit=4 then  datapin=deg1.4
               if saybit=5 then  datapin=deg1.5
               if saybit=6 then  datapin=deg1.6
               if saybit=7 then  datapin=deg1.7
             clk=1:clk=0 
        next 
    next

[cesurcelik]

@mhk
cok teşekkür ederim verdiginiz bilgiler icin...
mutlu gunler