Telefoncular İçin GSM örneği

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.

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

  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

bunu nsl çalıştırcağız exe haline getireceğiz bir yardımcı olurmusnuz!:uzul:
KARDEŞ İİ HOŞDA ŞİMDİ BU KODALARI COMMAND PUTONUNAMI YAZICAS
kardeş exe halinbe getirmen için file dosyasının en alt kısımlarında var orada görürsün zaten.aşırı zor diosan internette "visual basic 6.0 türkçe yama" diye arat bulurswun hadi kolay gelsin.
omer_25 kardeş yorumlarda verdiğin yama bunda işe yaramaz çünkü bu Visual Basic 6.0 değil Visual Basic .Net'tir
SAOL TŞKKR EDERİM BANA BU VİSUAL BASİC .NETTE YARDIMCI OLURMUSUNZ FAZLA BİŞEY BİLMİYORUM YARDIM EDERMİSİNZ
arkadaşim bana val komuyu hakkında biraz bilgi verirmisin

Yukarı Git