29 March 2008, 18:07 | Mesaj No:1 |
Durumu:
Papatyam No :
1196
Üyelik T.:
09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
|
Sayi bulma oyunu
Sayi bulma oyunu Dim sayi, s As Integer Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Randomize() sayi = Val(TextBox1.Text) + Rnd() * (Val(TextBox2.Text) - Val(TextBox1.Text)) ListBox1.Items.Clear() TextBox4.Text = 0 TextBox5.Text = 10 s = 0 End Sub Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click If Val(TextBox3.Text) = sayi Then MsgBox(s + 1 & " hakta Bildiniz" s = 0 TextBox4.Text = 0 TextBox5.Text = 10 End If If Val(TextBox3.Text) <> sayi Then s = s + 1 TextBox4.Text = s TextBox5.Text = 10 - s ListBox1.Items.Add(Val(TextBox3.Text)) End If If Val(TextBox4.Text) = 10 Then MsgBox("bilemediniz sayymyz " & sayi & " idi" ListBox1.Items.Clear() s = 0 End If End Sub |
Bookmarks |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
Benzer Konular | ||||
Konu Başlıkları | Konuyu Başlatan | Papatyam Forum Ana Kategori Başlıkları |
Cevaplar | Son Mesajlar |
Son Harften Takım Bulma Oyunu | YakupEMİR | Forum Oyunları | 9 | 10 October 2010 15:51 |
Son Harften Ülke Bulma Oyunu | YakupEMİR | Forum Oyunları | 6 | 10 October 2010 15:26 |
Sayi gruplari | tamerr89 | visual basic.net | 0 | 29 March 2008 18:09 |
Sayi buldurma | tamerr89 | asp.net | 0 | 29 March 2008 13:00 |
-C## consolede asal sayi programi | tamerr89 | C# | 0 | 04 March 2008 14:19 |
Tefekküre Davet Köşesi |
|
Papatyam Sosyal Medya Guruplarımıza Katılın |