Sayi bulma oyunu

[tamerr89]

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