Textbox ları kullanarak çarpma işlemi yapma

[mkbal]

merhaba arkadaşlar,
ekte gönderdiğim dosyayı formdaki soru cevaplardan yararlanarak yapttım.

fakat bir problemle karşılaştım:

örnekte 3 adet textbox var 1. ve 2. ye yazdığım rakamları çarpıp sonucu 3. textboxa yazdırıyorum

10 * 10 = 100 veriyor ama

1,5 * 1,5 = 2,25 vermesi gerekirken 225,00 veriyor.

anladığım kadarı ile sorun textboxlardaki formatlardan, 1. ve 2. textboxta virgülden sonra 5 dijit, 3. textboxta ise 2 dijit kullanıyorum.
textboxlarda binlik ayracı olarak nokta, kuruş ayracı olarakta virgül kullanıyorum...

yardımlarınızı bekliyorum, şimdiden teşekkür ederim.

 

[mami68]

Bu şekil denedim oldu.Denermisiniz

TextBox7 = FormatNumber(TextBox7, 5) * 1
TextBox8 = FormatNumber(TextBox8, 5) * 1
TextBox9 = FormatNumber(TextBox9, 2) / 100

 

[mkbal]

Evet dediğiniz doğru fakat 10 * 10 = 1 çıkıyor enter tuşuyla satırlarda gezmeye devam ettiğinizde daha sonra sonuç 0,01 sonrada 100 oluyor

1,5 * 1,5 = 2.25 (dikkat ettiyseniz sonuç 2,25 değil noktayla ayırmı&#351

tahminimce visual basic sonucu kendi sayı mantığına çeviriyor yada veriyi metin olarak değerlendiriyor...
önlemenin yolu var mı bilmiyorum.
Bende kendimce yollar denemeye devam edeceğim...

 

[Orion1]

Eklidosyayı inceleyiniz.

If TextBox7 <> "" Then TextBox9.Text = Format(TextBox7 * TextBox8, "#,##0.00")

 

[mkbal]

Teşekkür ederim üstad.

kod yazmak çok ince iş bende sorunu böyle çözdüm

If TextBox7 <> "" Then TextBox9.Text = TextBox7 * TextBox8

sorun textbox9 un sonuna .text ekleyince &#231;&#246;z&#252;ld&#252;.

yard&#305;mlar&#305;n&#305;z i&#231;in tekrar te&#351;ek&#252;r ederim...

 

[Orion1]

Teşekkür ederim üstad.

kod yazmak çok ince iş bende sorunu böyle çözdüm

If TextBox7 <> "" Then TextBox9.Text = TextBox7 * TextBox8

sorun textbox9 un sonuna .text ekleyince çözüldü.

yardımlarınız için tekrar teşekür ederim...

Doğrusu benim önceki mesajımda yazdığım şekilde olacak.

 

[M.ACAR]

textbox'daki yazılan rakamları çarpma işlemi

Ekli dosyayı görüntüle Kitap1.xlsTextboxlar içinde çarpma işlemini nasıl yapabilirim,yardım edermisiniz,şimdiden teşekkür ederim.

 

[M.ACAR]

Ekli dosyayı görüntüle 63424textboxlar içinde çarpma işlemini nasıl yapabilirim,yardım edermisiniz,şimdiden teşekkür ederim.

yardım ederseniz çok sevinirim.

 

[M.ACAR]

Forumdaki arkadaşlara kolay gelsin , dün sorduğum çarpım işlemini düzelttim,fakat birim değerlerini yapamadım,yardımcı olursanız sevinirim,