Telefoncular İçin GSM örneği

[ßyMesMes]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

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

 

[turkmmouser03]

Teşşekurler . Kaliteli Bir Konu Olmuş .

 

[brkdnh]

panpaa neler atcaz sölesene textbox sayısı o su busu falan söleee panpa

 

[umit99]

Eyvallah.

 

[Karcemackers]

Paylasım icin tesekkurler.