GSM örneği

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

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