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 SubEnd Class
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 SubEnd Class