PicBasic Pro ondalıklı sayı gösterimi

[efe1409]

Arkadaşlar;
Aşağıda yazılı kod örneğinde hesaplama sonucu küsüratlı olduğunda bunu nasıl gösterebiliriz.

ISISP:
KONTROL[0]=HAM3*47
KONTROL[1]=KONTROL[0]/100
KONTROL[3]=KONTROL[1]/10
KONTROL[4]=KONTROL[3]//10
return

Eğer sayısal örneklersek;
Ham=125
125*47=5875
5875/100=58,75 sonucunu 58,7 olarak nasıl gösterebilirim.

[ftsahin]

ham=125
sonuc = ham*47' = 5875
tam= sonuc / 100 ' =58
sonuc = sonuc - (tam*100)' = 5875- (5800) = 75
sonuc = sonuc * 10 ' =750
kesir = sonuc / 100 ' = 7

....
....
lcdout #tam,',',#kesir
...

Tüm kesirli işlemlerde bu yöntemi kullanabilirsin. Virgülden sonra daha fazla rakam kullanmak istersen üstteki işlemin son 3 satırını tekrar etmen gerekir.
Kolay gelsin.

[ete]

ham=125
sonuc = ham*47' = 5875
tam= sonuc / 100 ' =58
kesir = sonuc // 100 ' = 75
lcdout $fe,2,"SAYI=",# tam,",",# kesir

sanırım olmuştur.

Ete

[ftsahin]

Ete hocam programı burada yazdım Proteusta denemeye gerek duymadım bu yüzden yanlış olması normaldir. Düzelttiğiniz için teşekkür ederim. Bir de program oldukça kısalmış.

[ete]

@ftsahin,

Senin yazdığın kodla ilgili bir şey yazmadım ve yanlışda demedim. Aslında uzun yoldan yapmışsın. Doğru bir kod ve fazlalıkları var. Çünki kesir burada yalnızca 75 olacak sen ayrıca neden 750 yi hesaplayıp sonra 7 yi buldun bu kısmını anlamadım. Her neyse sorun değil.

Ete