TextBox da aritmetik işlem sonucu kimi zaman yanlış

[excellcan]

Forumda emeği geçen herkese merhaba. Arkadaşlar ekli çalışmada ComboBox1' e
yazdığım kodların kimi zaman doğru sonuç vermediğini gördüm. Kodlar çoğu zaman doğru çalıştığına göre sorun kodla alakalı değil diye düşünüyorum. Ama ne olabileceğini de tahmin edemiyorum. Umarım yardımcı olursunuz. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Levent Menteşoğlu]

Sorun muhtemelen Val fonksiyonundan kaynaklanıyordur. Val fonksiyonu virgülü ondalık ayıraç olarak kabul etmez. Bunu bir örnekle açıklarsam;

Val(25,14)=25 sonucunu verirken val(25.14)=25,14 sonucunu verir. Dolayısıyla bu komutu kullanırken ondalık sayılarda virgülü noktaya çevirerek kullanmanız gerekir. Örneğin;

a = (Val(ComboBox1)) * 2

yerine

a = (Val(replace(ComboBox1,",","."))) * 2

 

[excellcan]

Sorun muhtemelen Val fonksiyonundan kaynaklanıyordur. Val fonksiyonu virgülü ondalık ayıraç olarak kabul etmez. Bunu bir örnekle açıklarsam;

Val(25,14)=25 sonucunu verirken val(25.14)=25,14 sonucunu verir. Dolayısıyla bu komutu kullanırken ondalık sayılarda virgülü noktaya çevirerek kullanmanız gerekir. Örneğin;

a = (Val(ComboBox1)) * 2

yerine

a = (Val(replace(ComboBox1,",","."))) * 2

Hocam kodları aşağıdaki gibi değiştirdim. Bu da sonuç vermedi.


a = (Val(Replace(ComboBox1, ",", "."))) * 2

b = (Val(Replace(TextBox1, ",", "."))) + (Val(Replace(TextBox6, ",", "."))) / a

c = (Val(Replace(TextBox2, ",", "."))) + (Val(Replace(TextBox5, ",", "."))) / a

d = (Val(Replace(TextBox3, ",", "."))) + (Val(Replace(TextBox4, ",", "."))) / a


TextBox7.Value = b
TextBox8.Value = c
TextBox9.Value = d