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

Başlatan mustafa_cmbz, 15 Ekim 2020, 03:06:14

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.
Her birimiz, geride bıraktığımız eserler kadar ölümsüzüz. Evlat gibi, talebe gibi, icatlar gibi...   http://fidenetgaraj.blogspot.com

mustafa_cmbz

Alıntı yapılan: fide - 15 Ekim 2020, 09:30:19dim 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 :P

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