AccessTr.neT
Textbox matematiksel işlem ve para formatı - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic .NET (https://accesstr.net/forum-visual-basic-net.html)
+--- Forum: Visual Basic .NET Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-net-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Textbox matematiksel işlem ve para formatı (/konu-textbox-matematiksel-islem-ve-para-formati.html)

Textbox matematiksel işlem ve para formatı - drummers - 14/04/2012

Kod:
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        On Error Resume Next
        Dim para As Single
        para = CSng(TextBox3.Text)
        para = CSng(TextBox5.Text)
        para = CSng(TextBox6.Text)

        TextBox3.Text = para.ToString("N")
        TextBox3.Text = TextBox1.Text * TextBox2.Text
        TextBox5.Text = para.ToString("N")
        TextBox5.Text = TextBox3.Text * TextBox4.Text / 100
        TextBox6.Text = para.ToString("N")
        TextBox6.Text = TextBox3.Text - TextBox5.Text
    End Sub
Bu kod ile textboxlara girdiğim değerlere matematiksel işlem yaptırıyorum.

TextBox1.Text = 123 (Tonaj)

TextBox2.Text = 0,650 (Birim Fiyat)

TextBox4.Text = 2 ( Stopaj Oranı)

Yukarıdaki hesaplamaya göre çıkan sonuç

TextBox3.Text = 79,95

TextBox5.Text = 1,599

TextBox6.Text = 78,351

Bu kod ile virgden sonra 3 hane yapmasının önne geçemedim

Sonuç aynen şöyle olmalı

TextBox3.Text = 79,95

TextBox5.Text = 1,60

TextBox6.Text = 78,35


Bide Form2 de datagridden seçilen veriyi düzeleme işleminde bir yerde hata yapıyorum onu çözemedim
muko.rar

Teşekkürler

Cvp: Textbox matematiksel işlem ve para formatı - drummers - 14/04/2012

Kod:
On Error Resume Next
        Dim para As Single
        para = CSng(TextBox3.Text)
        para = CSng(TextBox5.Text)
        para = CSng(TextBox6.Text)

        TextBox3.Text = para.ToString("N")
        TextBox3.Text = TextBox1.Text * TextBox2.Text
        TextBox3.Text = (Math.Round(Convert.ToDouble(TextBox3.Text), 2))

        TextBox5.Text = para.ToString("N")
        TextBox5.Text = TextBox3.Text * TextBox4.Text / 100
        TextBox5.Text = (Math.Round(Convert.ToDouble(TextBox5.Text), 2))

        TextBox6.Text = para.ToString("N")
        TextBox6.Text = TextBox3.Text - TextBox5.Text
        TextBox6.Text = (Math.Round(Convert.ToDouble(TextBox6.Text), 2))
Böyle çözdm fakat tek sorun 1,50 çıkacak sonucu 1,5 olarak gösteriyor sıfır değerini yazmıyorImg-cray

Cvp: Textbox matematiksel işlem ve para formatı - goodfalles - 15/04/2012

"." noktadan sonra "0" sıfırın bi önemi yok ondan dolayıdır matematiksel açıdan bi önemi yok bunun

Cvp: Textbox matematiksel işlem ve para formatı - drummers - 15/04/2012

(15/04/2012, 22:58)goodfalles yazdı: "." noktadan sonra "0" sıfırın bi önemi yok ondan dolayıdır matematiksel açıdan bi önemi yok bunun

Anladım. Teşekkürler