VBNET

VB.Net Örnek Uygulamalar
2 Kasım 2011
Return 125
ElseIf kod = 2 Then
Return 55
ElseIf kod = 3 Then
Return 25
Else
Return 0
End If
End Function
Function kidem(ByVal m As Integer, ByVal kod As Byte) As Double
Return (kod * m / 100)
End Function
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Bekar" Then
ComboBox2.Enabled = False
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton1.Checked = False
RadioButton2.Checked = False
ElseIf ComboBox1.Text = "Boşanmış/Dul" Then
ComboBox2.Enabled = True
RadioButton1.Enabled = False
RadioButton2.Enabled = False
RadioButton1.Checked = False
RadioButton2.Checked = False
Else
ComboBox2.Enabled = True
RadioButton1.Enabled = True
RadioButton2.Enabled = True
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Dim m_gosterge As Integer = TextBox1.Text
Dim maas As Double
Dim kod As Byte = 0
Dim cocuk_sayisi As Byte
If ComboBox2.Text = ">3" Then
cocuk_sayisi = 4
Else
cocuk_sayisi = CInt(ComboBox2.Text)
End If
maas = m_gosterge + cocuk_yardimi(m_gosterge, cocuk_sayisi)
If RadioButton1.Checked Then kod = 1
If RadioButton2.Checked Then kod = 2
maas = maas + aile_yardimi(kod)
kod = 0
If ComboBox3.Text = "90-100" Then kod = 1
If ComboBox3.Text = "80-89" Then kod = 2
If ComboBox3.Text = "70-79" Then kod = 3
maas = maas + yabanci_dil(kod)
Tolga GÜYER Sayfa 46