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;
[code lang=”vbnet”]Try
TextBox2.Text = Format(CDec(TextBox2.Text), "##,##")
TextBox2.SelectionStart = TextBox2.Text.Length
Catch
End Try[/code]
Button1 Yazılacaklar;
[code lang=”vbnet”]Try
Label5.Text = Format(CDec(TextBox2.Text) * CInt(TextBox3.Text), "##,## TL")
Catch
MsgBox("Geçersiz sayılar tespit edildi.")
End Try
[/code]
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