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.