Zamlı Maaş Hesaplama (RadioButton ile) VB.NET

Public Class Form1
Dim smaas, zmaas As Single
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
Try
smaas = CSng(TextBox1.Text)
zmaas = smaas * 1.1
TextBox2.Text = zmaas
Catch ex As Exception
End Try
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
Try
smaas = CSng(TextBox1.Text)
zmaas = smaas * 1.12
TextBox2.Text = zmaas
Catch ex As Exception
End Try
End Sub

Private Sub RadioButton3_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton3.CheckedChanged
Try
smaas = CSng(TextBox1.Text)
zmaas = smaas * 1.15
TextBox2.Text = zmaas
Catch ex As Exception
End Try
End Sub

Private Sub RadioButton4_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton4.CheckedChanged
Try
smaas = CSng(TextBox1.Text)
zmaas = smaas * 1.18
TextBox2.Text = zmaas
Catch ex As Exception
End Try
End Sub
End Class

Projeyi İNDİR

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.