Programalama > VISUAL BASIC.NET

VISUAL BASIC.NET / Sayi Bulma Oyunu

5 Tane Textbox2 Buton1tane De Listbox Ekliyoruz Belirtilen Sayi Araligindaki Sayiyi Tahmin Ediyoruz

Etiketler: sayi, bulma, oyunu

Ort. 0

Puan ver:

hazirkod 19 June 19:34 0

0 kişiden 0 puan aldı

10519

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
 
harun yyldyz
harun.yildiz55@gmail.com