Zamlı Maaş Hesaplama (RadioButton ile) VB.NET
[code lang=”vbnet”]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[/code]