Programalama > VISUAL BASIC.NET

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