8 Led Baştan Yakıp Söndürmek [YARDIM]

[hasali]

Merhaba arkadaşlar,
Üniversite II öğrencisiyim, hocamız protonda 8 ledi baştan sona yakıp yine yanmaya başladığı yerden sönecek ve bu böyle devam edecek.
For next ile baştan sona yakıyorum fakat tekrar geri söndüremiyorum. Yardım eder misiniz ? Gerekirse ücret ödeyebilirim.

[Klein]

son bitin değilini girişe geri besleyeceksin.

Şöyle:
bir a sayın var. başlangış değerin 0

bu sayının son bitine bakacaksın. eğer bit 0 ise , a değişkeninin ilk bitini 1 yapacaksın. eğer bu bit1 ise a değişkeninin ilk bitini 0 yapacaksın. a bitini her kaydırdığında bu işlemi yapacaksın.

[kudretuzuner]

Merhaba
Proton bilmiyorum ama,VB.Net'te For next döngüsünde mantık şöyledir.
For a=0 to 8 step1(sıfırdan 8 e birer birer artar)
next a
For a=8 to 0 step -1(sekizden birer birer aşağı sayar)
next a
Bu mantığa göre programı yazarsanız olması lazım.

[Cenk_Unur]

Toggle komutunu bir inceleyin...

[Maxim]

illa for next mi kullanmak zorundayız ?
kara düzen gidin işte

portb=%00000000

loop:

high portb.0
delayms 250
high portb.1
delayms 250
high portb.2
delayms 250
high portb.3
delayms 250
high portb.4
delayms 250
high portb.5
delayms 250
high portb.6
delayms 250
high portb.7
delayms 250


low portb.0
delayms 250
low portb.1
delayms 250
low portb.2
delayms 250
low portb.3
delayms 250
low portb.4
delayms 250
low portb.5
delayms 250
low portb.6
delayms 250
low portb.7
delayms 250

goto loop

[justice_for_all]

yanarken kaydırıp veya(or) işlemine sokman gerek,söndürürkende kaydırıp ve(and) işlemine sokman gerek.

[Klein]

Çok uzatmışsınız işi arkadaşlar.

a = a >> 1;
a = a | (((a >> 15) ^ 1));
// a'yı bir kez sağa kaydır.
// a'nın şimdiki değerini 15 kez sağa kaydır ve bu değeri 1 ile exor yap çıkan sonucu a ile orla;
kod bu. Proton bilmediğim için proton kodu veremiyorum.