Bar uygulama

[Maxim]

aslında çok daha basit
sadece lcd ekranda > bu karakterin değişken değere göre sağa gidip gelmesini istiyorum ama tek olarak değil
şunun gibi : >>>>>>>

neden olmuyor ? tuhaftır olmadı
oluyorda tek başına karakter sağa sola gidiyor
zaten bu rep komutunu oldum olası anlamadım

satırın 11. karakterinden başlatıp 20. karakterine kadar olacak, yani tam 10 karakter

DIM ADET AS BYTE
DIM PAD AS BYTE
DIM OUT AS BYTE (bu değer 0 ile 100 arasında)


ADET = OUT /10
ADET = ADET + 11
If ADET=21 Then ADET=20

PAD = 20 - ADET  
 
Print At 4,11, Rep $00\ADET,Rep " "\pad+1

[muhittin_kaplan]

ben olsam değişken kadar döngü kurardım

[ete]

Olmaz çünki ekranın 11. karekterinden itibaren yazdırabileceğin 10 karekterlik yer varken sen sanki 20 karekter sığarmış gibi yazmaya çalışıyorsun. Dolayısıyla 10 karekterden fazlası ekranın diğer satırlarında denk gelen yerlere taşıyor.
Doğrusu şöyle olabilir;

DIM ADET AS BYTE
DIM PAD AS BYTE
DIM OUT AS BYTE (bu değer 0 ile 100 arasında)

ADET = OUT /10
'Bu satır işi bozuyor neden koyuldu anlamadım!!!!  ADET = ADET + 11
If ADET>10 Then ADET=10
Pad=10-Adet 
Print At 4,11, Rep $00\ADET,Rep " "\pad

Rep komutu Repeat yani "tekrarla" komutudur. Parametrelerine bakarsan komuttan sonra yer alan karekteri "\" işaretinden sonra yer alan miktar kadar ekrana yazar.  Yukarıdaki örneğe bakarsak 20 karekterlik ekranın 11. ci karekterinden itibaren $00 (bu hangi karekter bilmiyorum) karekterini ADET miktarı kadar yazdıracaksın.  Diyelimki Adet=8
O halde 8 adet $00 karekteri yazılacak ve peşinden gelen komut nedeni ilede (10-8=2) 2 adet boşluk karekteri yazılmış olacak dolayısıyla toplam 10 karekter yazılmış olacaktır.

Ete

[Maxim]

muhittin & ete usta teşekkürler herşey netleşti.