Fiyat Hesaplama VB.Net
Satılan mal yazılan birim fiyatı ve adeti dışarıdan girilen ve labele ##.## TL şeklinde Yazan Programı yapalım..
Resimde Görüldüğü gibi Birim fiyatın karşısında girilen rakam program tarafından her son 3 rakamdan sonra otomatikmen nokta(.) koyacak..
Program 3 textbox,5 label ve 1 buttondan oluşuyor..Şimdi Yapmaya Başlayalım..
Yapılışı;
Textbox2 yazılacaklar;
Button1 Yazılacaklar; Try
TextBox2.Text = Format(CDec(TextBox2.Text), "##,##")
TextBox2.SelectionStart = TextBox2.Text.Length
Catch
End Try
Try
Label5.Text = Format(CDec(TextBox2.Text) * CInt(TextBox3.Text), "##,## TL")
Catch
MsgBox("Geçersiz sayılar tespit edildi.")
End Try
Projeyi indir
Rica: Sitemizin Google'da Ön Sıralarda Çıkması İçin Lütfen Alttaki Google+ Butonuna Tıklayınız , Sayfamızı Facebookta Beğeniniz veya yazıları Twitter,Facebookta paylaşınız.
dostum gercekten teşkler ama bu kusuratları hesaplamıyor onun içinde bir cözüm yolun var mı ? yardımcı olursan sevinirim
bütün kodları sil. Sadece button1′in click olayına aşağıdaki kodları yaz.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Try
Label5.Text = (CSng(TextBox2.Text) * CSng(TextBox3.Text)) & ” TL”
Catch
End Try
End Sub