TextBox Üzerindeki Hesaplama Formülünde Sorun...

[manly]

EKteki dosyayı açıp menüye tıkladığımızda, açılan Form üzerinde ComboBox1 ile veriyi seçiyoruz. Daha sonra Mavi ekranlara rakamları girip hesapla butonuna bastığımızda hesaplamaları görüyoruz. Fakat hesaplamalarda yanlışlık var sebebini bulamadım. Yardım lütfen...

 

[BedriA]

Nasıl hesaplama yapması gerekiyor? Neye göre yanlış olduğunu bizim de anlayabileceğimiz şekilde açıklama yapabilirseniz, sonuç almak daha kolay olur.

 

[manly]

ComboBox1 ile veriyi çekiyoruz. ve TextBox1 e de veri geliyor.

TextBox2, TextBox3, TextBox4 e de biz rakam giriyoruz. Hesapla dediğimizde de aşağıdaki kod çalışıyor. Fakat Sonuçta hata veriyor.

Private Sub CommandButton1_Click()

TextBox5 = ([TextBox1] * ([TextBox2] + 3) * ([TextBox3] + 3) * ([TextBox4] + 3)) / 1000
TextBox6 = [TextBox5] * 1.2
TextBox7 = [TextBox5] * 1.25

End Sub

 

[BedriA]

Private Sub CommandButton1_Click()

TextBox5 = ([TextBox1] * ([TextBox2] + 3) * ([TextBox3] + 3) * ([TextBox4] + 3)) / 1000
TextBox6 = [TextBox5] * 1.2
TextBox7 = [TextBox5] * 1.25

End Sub

textbox1'i 3 ile toplamayı unutmuş olabilir misiniz?

 

[manly]

TextBox1 kendisi olacak.

ComboBox1 ile A yı seçince
TextBox1 = 2,21 geliyor.
TextBox2 = 10
TextBox3 = 10
TextBox4 = 10 yazıp hesaplat dediğimizde

TextBox5 = ([TextBox1] * ([TextBox2] + 3) * ([TextBox3] + 3) * ([TextBox4] + 3)) / 1000
TextBox6 = [TextBox5] * 1.2
TextBox7 = [TextBox5] * 1.25

TextBox5 = 485.587
TextBox6 = 582644.4
TextBox7 = 606921.25 oluyor... Halbuki hesap makinesi ile yaptığımızda

TextBox5 = 4,85
TextBox6 = 5,82
TextBox7 = 6,06 sonuç böyle çıkıyor.

 

[BedriA]

Kod çalışıyor. Yani programsal bir hata yok.

 

[manly]

Kod Çalışıyor da işlem sonucunda hata var. Sebebini arıyorum.

 

[kemal turan]

Merhaba
Textbox 5 hesaplama formülünüzün sonucu, 4.2419 olması lazım doğrularmısınız

 

[kemal turan]

Sonuca ulaşabildim.
Dosyayı sabah yüklerim

 

[kemal turan]

Merhaba,
Dosyanız ekte.
Selametle

 

[manly]

Teşekkür ederim. Çok sağolun.

 

[manly]

Merhaba,
Dosyanız ekte.
Selametle

Hesap şöyle olacak
AĞIRLIK= I2 * (I3+3) * (I4+3)* (I5+3)/ 1000

 

[kemal turan]

Yeni formülünüze göre kodda düzenleme yapabilirmisiniz.
Yoksa ben düzelteyim mi

 

[kemal turan]

MERHABA
Kodu değiştirebilirsiniz.
Dosyayı da ekledim.

VERI = Format(CDbl((TextBox1.Value) * CDbl((TextBox2.Value) + 3)) * CDbl((TextBox3.Value) + 3) * CDbl((TextBox4.Value) + 3)) / 1000
TextBox5 = Format(CDbl(VERI), "#,##0.00")

 

[manly]

Teşekkür ederim.