pbp for next döngüsü proton basic karşılığı

[dnaci]

Merhaba aşağıdaki döngüyle değerleri epromun ilk 11 adresine pbp ile yazabiliyorum. Şimdi kodu proton basic ile devam ettirmek istiyorum. Proton örneklerini denememe rağmen sonuç alamadım var mıdır kolay bir yolu.

DEGER VAR BYTE[11]
ADR=0
      FOR ADR=0 TO 10 
      WRITE ADR, DEGER[ADR]
PAUSE 10 
NEXT ADR 

[er-da]

protonda şöyle oluyor,

adr=0
for adr=0 to 10
EWrite adr,[değer]

pausems 10
next

bu şekilde byte olarak kayıt yapar eğer word tipi değişken  ise adresi iki şer atlayarak  yazman lazım 0,2,4 gibi

for adr =0 yo 10 step 2       olmalı .......proton help  EWrite komutu yazısında açıklama var..

[dnaci]

Evet yazdığınız gibi oluyor ancak şu satırı ekleyeyim, DEGER değişkenimiz bir dizi grubu ve iş burada karışıyor:

DEGER VAR BYTE[11]

[er-da]

kısa bir önek kod yazdım

Dim y As Byte
Dim  x As Byte
Dim deger[11] As Byte

 
 basla:
For x =0 To 10
Inc y
deger[x]=y

Next
For x=0 To 10
EWrite x,[deger[x]]
Next
Stop

önce değer dizisine 11 adet y değişkenini bir artırarak yükledim ikinci kısımda bunu eeproma sıra ile yazdım..

[dnaci]

Bu koda benzer bir kod denemiştim ama inc y kullanmamıştım. Kodu dener bilgi veririm. Teşekkür ederim.

[er-da]

oradaki" inc y" değişkenini ben 11 adet diziye  değişik sayılar yüklemek için örnek olarak  kullandım 0,1,2,3, ..11 gibi  gerçek proğramda kullanılmaz .mesela sen diziye 11 adet analog okuma kaydetmek istiyorsan

 basla:
For x =0 To 10

deger[x]=Adin 0
next

gibi kullanmalısın..

[dnaci]

Sağolasın er-da kodlar işime yaradı.