- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
3 levelden oluşan basit bir sayı tahmin oyunu yapmaya ne dersiniz? Gelin o zaman birlikte Visual Basic .NET'de sayı tahmin oyunu yapalım..
İlk önce vb projesi oluşturuyoruz...
Forma 1 adet buton, 3 adet textbox 1 adet label ve 1 adet listbox koyalım...Form görüntüsünü aşağıdaki gibi yapabiliriz...
Sonra kod kısmına geldiğimiz zaman formloaded ve bottom kodlarıının dışına şu kodları yazalım.
Kod:
Dim tahmin As Integer Dim tutulan As Integer Dim level As Integer = 1 Dim a As Integer Sub sayiuret() 'Random sayı üretmek Randomize() a = Rnd() * 100 tutulan = a * level End Sub
Daha sonra formu iki kere çift tıklayınca karşımıza çıkan kod bölümüne ; aşağıdaki kodu yazıyoruz.
Kod:
sayiuret()
Bu yukarıda yazdığımız sub fonksiyonunu form açıldığı zaman çağırıyor ve sayiuret fonksiyonun içindeki random sayı atama olayını gerçeklestiriyor.
Butonu çift tıkladığımız zaman çıkan kod kısmına da geri kalan kodlarımızı yazalım.
Kod:
tahmin = TextBox1.Text If level <= 3 Then Select Case tahmin Case Is < tutulan TextBox3.Text = "Yukari" Case Is > tutulan TextBox3.Text = "Asagi" Case Else TextBox3.Text = "Kazandiniz" ListBox1.Items.Add(level & ". Level'i kazandiniz..") level += 1 sayiuret() End Select TextBox2.Text = level Else MsgBox("Oyun Bitti...") End If
Ve programımızı çalıştırdığımızda form görüntüleri aşağıdaki gibi olacaktır:
İlk önce vb projesi oluşturuyoruz...
Forma 1 adet buton, 3 adet textbox 1 adet label ve 1 adet listbox koyalım...Form görüntüsünü aşağıdaki gibi yapabiliriz...
Sonra kod kısmına geldiğimiz zaman formloaded ve bottom kodlarıının dışına şu kodları yazalım.
Kod:
Dim tahmin As Integer Dim tutulan As Integer Dim level As Integer = 1 Dim a As Integer Sub sayiuret() 'Random sayı üretmek Randomize() a = Rnd() * 100 tutulan = a * level End Sub
Daha sonra formu iki kere çift tıklayınca karşımıza çıkan kod bölümüne ; aşağıdaki kodu yazıyoruz.
Kod:
sayiuret()
Bu yukarıda yazdığımız sub fonksiyonunu form açıldığı zaman çağırıyor ve sayiuret fonksiyonun içindeki random sayı atama olayını gerçeklestiriyor.
Butonu çift tıkladığımız zaman çıkan kod kısmına da geri kalan kodlarımızı yazalım.
Kod:
tahmin = TextBox1.Text If level <= 3 Then Select Case tahmin Case Is < tutulan TextBox3.Text = "Yukari" Case Is > tutulan TextBox3.Text = "Asagi" Case Else TextBox3.Text = "Kazandiniz" ListBox1.Items.Add(level & ". Level'i kazandiniz..") level += 1 sayiuret() End Select TextBox2.Text = level Else MsgBox("Oyun Bitti...") End If
Ve programımızı çalıştırdığımızda form görüntüleri aşağıdaki gibi olacaktır: