Textbox matematiksel işlem ve para formatı
Tarih
14/04/2012 22:58
Konu Sahibi
drummers
Yorumlar
3
Okunma
1802
Konuyu Oyla:
  • Derecelendirme: 1/5 - 1 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 1/5 - 1 oy



drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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

Ek Dosyalar
muko.rar

Teşekkürler
drummers, 11-05-2009 tarihinden beri AccessTr.neT üyesidir.
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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


goodfalles
Hesap Aktif Değil
Kullanici Avatari
Aktivasyon Bekleyen
306
11/12/2008
İstanbul
Ofis 2007
17/11/2014,04:14
Çözüldü 
"." noktadan sonra "0" sıfırın bi önemi yok ondan dolayıdır matematiksel açıdan bi önemi yok bunun
Cevapla


drummers
Omur Can
Kullanici Avatari
Destek
O.... C....
398
11/05/2009
125
İzmir
Ofis 2003
29/11/2016,13:56
Çözüldü 
(15/04/2012, 22:58)goodfalles Adlı Kullanıcıdan Alıntı: "." 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







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  TextBox'a Tarih Formatı Girdirme Mettleshade 2 88 24/11/2016, 18:38 Mettleshade
  alt alta textbox gkmanil 11 1.764 29/05/2016, 14:06 atoz112
Çözüldü ListBox Ve TextBox ~~KaG~~ 6 2.615 14/10/2015, 13:12 atoz112
Çözüldü Form Üzerinde İşlem yaptırma tetikçi_61 2 2.041 09/07/2014, 10:45 tetikçi_61
Çözüldü TextBox ı for ile değişkenli kullanmak Gorkemku 1 1.440 26/05/2014, 10:02 alpeki99


Türkçe Çeviri: MCTR, Forum Yazılımı: MyBB, © 2002-2016 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya