Bu programın amacı hem bilmediğiz kodları göstermek, hem de telefoncular için bir deneme programı oluşturmak. Kendi yazdığım bir program.



Public Class Form1
Dim hesap, toplam As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If CheckBox1.Checked Then
toplam = Val(TextBox1.Text) * 1.25
TextBox2.Text = toplam
End If
If RadioButton1.Checked Then
toplam = Val(TextBox1.Text) + 10
TextBox2.Text = toplam
End If
If RadioButton1.Checked And CheckBox1.Checked Then
toplam = (Val(TextBox1.Text) * 1.25) + 10
TextBox2.Text = toplam
End If
End Sub


Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
If ComboBox1.Text = "Avea" Then
TextBox1.Text = "10"
End If
If ComboBox1.Text = "Turkcell" Then
TextBox1.Text = "12"
End If
If ComboBox1.Text = "Vodafone" Then
TextBox1.Text = "8"
End If
End Sub

Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
MsgBox("kontör yüklemek istiyormusunuz", MsgBoxStyle.YesNo)
End Sub
End Class

__________________