Float değişkenin virgülden sonraki kısmı başka bir değişkene atmak?

[mustafa_cmbz]

Merhabalar..

DIM FLOAT_SAYI AS FLOAT
FLOAT_SAYI=7.5

Elimde yukarıdaki örnekteki gibi bir float sayı mevcut.

bu float sayıda 5 rakamını alıp başka bir değişkene atmak istiyorum.Bunu bir türlü yapamadım.

mesela:

value = DIG FLOAT_SAYI , 0

Dediğimde dıg komunu float sayılarda çalışmıyor.

[Mucit23]

Virgülden sonra kaç hane lazım? Eğer tek bir hane almak istiyorsan sayıyı 10 ile çarpıp 10'a bölümünden kalana bakabilirsin. Bunun içinde Mod alman lazım

[fide]

dim tamKisim=int(float(FLOAT_SAYI))
dim ondalik
ondalik=FLOAT_SAYI-tamKisim

Bu şekilde olması gerekir.
Olay şu: Float sayıyı tam sayıya çevir. Sonra float kısımdan bunu çıkar.

[mustafa_cmbz]

dim tamKisim=int(float(FLOAT_SAYI))
dim ondalik
ondalik=FLOAT_SAYI-tamKisim

Bu şekilde olması gerekir.
Olay şu: Float sayıyı tam sayıya çevir. Sonra float kısımdan bunu çıkar.

 

  Dim FLOAT_SAYI   As Float
   Dim FLOAT_SAYI_2 As Float
   Dim ONDA         As Word
   Dim TAM          As Word 
   FLOAT_SAYI=7.5

  DENEME:
  TAM=FLOAT_SAYI
  FLOAT_SAYI_2 = FLOAT_SAYI - TAM
  ONDA = FLOAT_SAYI_2 * 10 
  Print At 1,1,Dec FLOAT_SAYI,"  ",Dec FLOAT_SAYI_2 
  Print At 2,1,Dec TAM ,"  ",Dec ONDA 
  GoTo DENEME

Geçen gece denemiştim bunu fakat sonuç 0.5 çıktığı için bunu değeri koyacağın değişkende float olmalıydı.Neyse sonra aklıma 10 ile çarpmak geldi

şuan bu hali ile çok kolay bir şekilde hallettim..