Proton Basic te dizi oluşturulabiilyor mu ?

[elektroacemi]

Arkadaşlar aşağıdakine benzer bir uygulama C de olduğu gibi kolay yapılabiilr mi ?

Dizi = {20, 42,2,5,9,0,34}

Değişken= 2
Sayı=Dizi (değişken)

[ferit06]

 protonda dizi oluşturabilirsiniz

  Dim   Olcum [84]  As  Byte  ' tanımlarsınız

For a=1 To 83           'Bu şekide  veya istediğiniz şekilde doldurursunuz
   ADCIN 0, adval
   Olcum[a]=adval
Next

For a=0 To 83             '  Bu şekilde veya istediğniz şekilde kullanırsınız
adval=Olcum[a]           
Next

Sabit atamalarda;

   For y = 0 To 24                   
        Olcum[y]=LookUp y, [$00,$7F,$09,$09,$01,$00,$7F,$49,$49,$41,$00,$00,$7F,$09,_
                          $19,$29,$46,$00,$7D,$00,$01,$01,$7F,$01,$01]
   Next' 

şeklinde yapabilirsiniz.

[elektroacemi]

Dim   Deger [25]  As  Byte


For y = 0 To 24                   
        Deger[y]=LookUp y, [$55,"A",$09,$09,$01,$00,$7F,$49,$49,$41,$00,$00,$7F,$09,$19,$29,$46,$00,$7D,$00,$01,$01,$7F,$01,$01]
Next

bunu yazdım,
daha sonra
Print At 1,1, "Deger", Dec Deger[0]             bununla ekrana bastırdım, ama 0 bastı

[ferit06]

Ölçüm ile yapılan atama ile lookup ile sabit değer atama arasında bir fark olduğunu düşünmüyorum. Ben ölçüm yaparak atama yaptım ve kullandım. Ama sizin kullandığınız şekilde bir print ifadesi ile bir denemem olmadı( nokia3310 vwe 1100 ekranlar ile yaptığım işlemlerde kullanmıştım).


aşağıdaki şekildeki denememde çalıştı

    Dim deger[25] As Byte
    Dim y As Byte

DelayMS 200

BASLA:                   
For y = 0 To 24                   
        deger[y]=LookUp y, [$55,"A",$09,$09,$01,$00,$7F,$49,$49,$41,$00,$00,$7F,$09,$19,$29,$46,$00,$7D,$00,$01,$01,$7F,$01,$01]
Next


For y=0 To 24
Print At 1,1, "Deger", Dec deger[y]   


DelayMS 5000
Next

son cümleyi de şu şekilde değitirirseniz temizler ve sırayla hepsini ekrana yazar



For y=0 To 24
Print  $FE,1, "Deger", Dec deger[y]   


DelayMS 5000
Next