TGamesZeus 1
TGamesZeus
Best Studio 1
Best Studio
berkmenoo 1
berkmenoo
InfernoShade 1
InfernoShade
noisiv 1
noisiv
Manwe Work 1
Manwe Work
Agora Metin2 1
Agora Metin2
Bvural41 1
Bvural41
onur akbaş 1
onur akbaş
IronTalonX 1
IronTalonX
D 1
delimuratt
berzahx 1
berzahx
Hikaye Ekle

Telefoncular İçin GSM örneği

  • Konuyu başlatan Konuyu başlatan ßyMesMes
  • Başlangıç tarihi Başlangıç tarihi
  • Cevaplar Cevaplar 4
  • Görüntüleme Görüntüleme 684

ßyMesMes

'Sıradışı Emekli Admin
Telefon Numarası Onaylanmış Üye TC Kimlik Numarası Doğrulanmış Üye
Fahri Üye
Paylaşım
Katılım
2 Ağu 2010
Konular
5,330
Mesajlar
24,645
Çözüm
54
Online süresi
1mo 20d
Reaksiyon Skoru
6,396
Altın Konu
425
Başarım Puanı
514
MmoLira
-2,509
DevLira
0
Ticaret - 0%
0   0   0

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.

6632GSM_ornegi.jpg


Kod:
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
 
Teşşekurler . Kaliteli Bir Konu Olmuş .
 
panpaa neler atcaz sölesene textbox sayısı o su busu falan söleee panpa
 
Paylasım icin tesekkurler.
 

Şu an konuyu görüntüleyenler (Toplam : 0, Üye: 0, Misafir: 0)

Geri
Üst