Proton Basic de bitlerin değişkenle kontrolü nasıl yapılır?

[zakbay]

Merhaba

Arkadaşlar protonda bir yerde takıldım

pbp de bir değişkenin bitlerini aşağıdaki kodla kontrol ediyordum

Kod Seç Genişlet

a var byte
b var byte

for a = 0 to 7
 b.0[a] = 1
next a

burada byte tanım değişkenin bitleri sıra ile 0 dan 7 nci bite kadar sırayla 1 yapıyor

bu kod parçası  proton basic te çalışmıyor.
Proton karşılığını bilen var mı acaba ?

[zakbay]

Kendim cevaplayayım
sorumun cevanını proton help içinden buldum
adamlar bunun için bile bir kod yapmış

setbit
clearbit

umarım sizinde işinize yarar

Kod Seç Genişlet

  \' Clear then Set each bit of variable EX_VAR
 DEVICE = 16F877
 XTAL = 4
 DIM EX_VAR AS BYTE
 DIM INDEX AS BYTE

 CLS
 EX_VAR = %11111111
AGAIN:
 FOR INDEX = 0 TO 7         \' Create a loop for 8 bits
 CLEARBIT EX_VAR,INDEX      \' Clear each bit of EX_VAR
 PRINT AT 1,1,BIN8 EX_VAR   \' Display the binary result
 DELAYMS 100                \' Slow things down to see what\'s happening
 NEXT                       \' Close the loop
 FOR INDEX = 7 TO 0 STEP -1 \' Create a loop for 8 bits
 SETBIT EX_VAR,INDEX        \' Set each bit of EX_VAR
 PRINT AT 1,1,BIN8 EX_VAR   \' Display the binary result
 DELAYMS 100                \' Slow things down to see what\'s happening
 NEXT                       \' Close the loop
 GOTO AGAIN                 \' Do it forever

[mhoca]

Sağol kardeşim. Sonuçların paylaşılması çok önemli. İyi çalışmalar.