AccessTr.neT

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

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ıyor Img-cray

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

(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

drummers

drummers

goodfalles

drummers