Sayi bulma oyunu - Papatyam Forum

Papatyam Forum

Go Back   Papatyam Forum > ..::.BİLGİSAYAR & TEKNOLOJİ.::. > Programlama > visual basic.net

Yeni Konu aç  Cevapla
 
Seçenekler
Alt 29 March 2008, 18:07   Mesaj No:1

tamerr89

Papatyam Paylaşımcı Üyesi
Avatar Otomotik
Durumu:tamerr89 isimli Üye şimdilik offline konumundadır
Papatyam No : 1196
Üyelik T.: 09 December 2007
Arkadaşları:0
Cinsiyet:
Yaş:34
Mesaj: 212
Konular:
Beğenildi:
Beğendi:
Takdirleri:10
Takdir Et:
Konu Bu  Üyemize Aittir!
Standart 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&quot

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&quot

ListBox1.Items.Clear()

s = 0

End If

End Sub
Alıntı ile Cevapla
Cevapla

Bookmarks

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 
Seçenekler

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

Yeni Sayfa 1

www.papatyam.org Ana Sayfa

Tefekküre Davet Köşesi

Papatyam Sosyal Medya Guruplarımıza Katılın

                       Instagram         

Papatyam alemdarhost.com sunucularında barındırılmaktadır.