ewrite komutunu düzgün çalıştıramadım

[gokhangokcen]

iyi günler dilerim cümleten,

Dim numara1[55] As Byte

kayit:
For i=0 To 54
EWrite i,[numara1[i]]
DelayMS 200
Next
return

şeklinde bir kod parçacığım var fakat isis üzerinde deneme yaparken eproma veri yazmadığını görüyorum acaba atladığım bir noktamı var


konuyu şu şekilde çözdüm arkadaşlar;

numara1_yaz:

Print At 1,1,"1.TELEFON NO"
Print At 2,1,Dec numara1[0],Dec numara1[1],Dec numara1[2],Dec numara1[3],Dec numara1[4],Dec numara1[5],Dec numara1[6],Dec numara1[7],Dec numara1[8],Dec numara1[9],Dec numara1[10]

Return





numara2_yaz:

Print At 1,1,"2.TELEFON NO"
Print At 2,1,Dec numara2[0],Dec numara2[1],Dec numara2[2],Dec numara2[3],Dec numara2[4],Dec numara2[5],Dec numara2[6],Dec numara2[7],Dec numara2[8],Dec numara2[9],Dec numara2[10]

Return





numara3_yaz:

Print At 1,1,"3.TELEFON NO"
Print At 2,1,Dec numara3[0],Dec numara3[1],Dec numara3[2],Dec numara3[3],Dec numara3[4],Dec numara3[5],Dec numara3[6],Dec numara3[7],Dec numara3[8],Dec numara3[9],Dec numara3[10]

Return







numara4_yaz:

Print At 1,1,"4.TELEFON NO"
Print At 2,1,Dec numara4[0],Dec numara4[1],Dec numara4[2],Dec numara4[3],Dec numara4[4],Dec numara4[5],Dec numara4[6],Dec numara4[7],Dec numara4[8],Dec numara4[9],Dec numara4[10]

Return

numara1_kayit:
Cls
Print At 1,1,"NMRA KYT EDILIYR"
For i=0 To 10
Print At 2,i,255
EWrite i, [numara1[i]]
DelayMS 100
Next

For i=11 To 15
Print At 2,i,255
DelayMS 100
Next

tus=0
j=0
Cls
DelayMS 100
GoSub numara1_yaz

Return


numara2_kayit:
Cls
Print At 1,1,"NMRA KYT EDILIYR"
For i=11 To 22
Print At 2,i-11,255
EWrite i,[numara2[i-11]]
DelayMS 100
Next

For i=11 To 15
Print At 2,i,255
DelayMS 100
Next

tus=0
j=0
Cls
DelayMS 100
GoSub numara2_yaz

Return

numara3_kayit:
Cls
Print At 1,1,"NMRA KYT EDILIYR"
For i=23 To 34
Print At 2,i-23,255
EWrite i, [numara3[i-23]]
DelayMS 100
Next

For i=11 To 15
Print At 2,i,255
DelayMS 100
Next

tus=0
j=0
Cls
DelayMS 100
GoSub numara3_yaz

Return

numara4_kayit:
Cls
Print At 1,1,"NMRA KYT EDILIYR"
For i=35 To 46
Print At 2,i-35,255
EWrite i, [numara4[i-35]]
DelayMS 100
Next

For i=11 To 15
Print At 2,i,255
DelayMS 100
Next

tus=0
j=0
Cls
DelayMS 100
GoSub numara4_yaz

Return

değişkenleri parça olarak kullanıp yazdırdım düzeldi vaktim olmadığı için üzerine düşemedim bu şekilde iş görüyor.