arrays

[demirkan1]

Merhaba arkadaşlar,
Bir proje üzerinde çalışıyorum.İnternetde buldugum örnek kodda aşağıdaki gibi avr basic ile bir dizi tanımlaması yapılmış bu tanımlamayı protonda yapamadım bu konuda yardımcı olacak arkadaşlara teşekkür ederim.

Dim pdata[8] As Word     
Dim temps  As pdata.BIT0

[zakbay]

Protondaki menülerden Help -> Help Topics  arama kutusuna arrays yaz ara sonuclardan arrays as strings tıkla
gelen sayfada bolca örnek kullanımı var

DIM ARRAY1[10] AS BYTE                   ' Create a 10-byte array named ARRAY1

[demirkan1]

onu bende biliyorum önemli olan bir alt satırı nasıl yapacağız, temps değişkeni içine her dizinin 0.bitini koymamız gerekiyor

[SERRO EFE]

Malesef proton böyle bir tanımlamaya izin vermiyor ama şöyle bişey denedim(çalışması bi garip geldi ama belki sizin işinizi görür)

        Device = 16F628
        Xtal = 4
        Dim VAR1[5] As Byte  
        Symbol var_bit = VAR1[0].0 
         TRISB = %00000000
         bb:
         Inc VAR1[1]
         PORTB.0 = var_bit[1]
         GoTo bb

;

[demirkan1]

malesef hata veriyor eger proton desteklemiyorsa aşagıdaki gibi yapmayı düşünüyorum

Dim pdata[8] As Word
Dim temps[8] As Byte

temps[0]=pdata[0] & %00000001
temps[1]=pdata[1] & %00000001
temps[2]=pdata[2] & %00000001
temps[3]=pdata[3] & %00000001
temps[4]=pdata[4] & %00000001
temps[5]=pdata[5] & %00000001
temps[6]=pdata[6] & %00000001
temps[7]=pdata[7] & %00000001