VB.Net Fiyat Hesaplama

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..

Textbox2 yazılacaklar;

Try
TextBox2.Text = Format(CDec(TextBox2.Text), "##,##")
TextBox2.SelectionStart = TextBox2.Text.Length

Catch

End Try

Button1 Yazılacaklar;

Try
Label5.Text = Format(CDec(TextBox2.Text) * CInt(TextBox3.Text), "##,## TL")
Catch
MsgBox("Geçersiz sayılar tespit edildi.")
End Try