- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu dersimizde random özelliğini kullanarak sayı tahmin oyunu hazırlayalım.
Visual Studio 2008'de bu oyunu randomize kullanarak yapacağız.
Randomize ne işe yarar?
Randomize rastgele sayı atamaya yarıyor. Aynı sayılar değil de, her defasında farklı sayılar atıyor.
Kullanılacak toolbox'lar:
1 tane buton yeterli, ama yazı yazmak için 1 tane de label ekledim.
Oyunumuzun görünümü aşağıdaki gibi olacak:
Şimdi de kodları yazıyoruz:
Kod:
Public Class Form1 Dim sayı As Integer = (Rnd() * 50), tahmin As Integer 'genel degişken atıyoruz' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error Resume Next Randomize() For I = 1 To 7 tahmin = InputBox("Tahmininiz: ", "sayı Tahmin") If tahmin = sayı Then MsgBox(" tebrikler bildiniz") Continue For sayı = (Rnd() * 50) ElseIf sayı < tahmin Then MsgBox(" küçük deger giriniz") ElseIf sayı > tahmin Then MsgBox(" büyük deger giriniz") End If Next I MsgBox("game ower") End Sub
Programımızın son hali:
Visual Studio 2008'de bu oyunu randomize kullanarak yapacağız.
Randomize ne işe yarar?
Randomize rastgele sayı atamaya yarıyor. Aynı sayılar değil de, her defasında farklı sayılar atıyor.
Kullanılacak toolbox'lar:
1 tane buton yeterli, ama yazı yazmak için 1 tane de label ekledim.
Oyunumuzun görünümü aşağıdaki gibi olacak:
Şimdi de kodları yazıyoruz:
Kod:
Public Class Form1 Dim sayı As Integer = (Rnd() * 50), tahmin As Integer 'genel degişken atıyoruz' Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click On Error Resume Next Randomize() For I = 1 To 7 tahmin = InputBox("Tahmininiz: ", "sayı Tahmin") If tahmin = sayı Then MsgBox(" tebrikler bildiniz") Continue For sayı = (Rnd() * 50) ElseIf sayı < tahmin Then MsgBox(" küçük deger giriniz") ElseIf sayı > tahmin Then MsgBox(" büyük deger giriniz") End If Next I MsgBox("game ower") End Sub
Programımızın son hali:
