Skip to main content

AccessTr.neT


Textbox matematiksel işlem ve para formatı

Textbox matematiksel işlem ve para formatı

Çözüldü #1
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #2
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
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla
Çözüldü #3
"." noktadan sonra "0" sıfırın bi önemi yok ondan dolayıdır matematiksel açıdan bi önemi yok bunun
Cevapla
Çözüldü #4
(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, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da