VISUAL BASIC.NET / İlginç Bir Sayı Tahmini Oyunu

[HZ.CİN]

VISUAL BASIC.NET / İlginç Bir Sayı Tahmini Oyunu
Formumuza 1 Tane Textbox 1 Tanede Listbox Ekleyin

Dim a As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Randomize()
        a = (Rnd() * 10)
    End Sub
 
    Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        If e.KeyChar = Chr(13) Then
            If TextBox1.Text > a Then
                ListBox1.Items.Add("İn")
                TextBox1.Select()
                TextBox1.Clear()
            ElseIf TextBox1.Text < a Then
                ListBox1.Items.Add("Çık")
                TextBox1.Select()
                TextBox1.Clear()
            ElseIf TextBox1.Text = a Then
                ListBox1.Items.Add("Bildin")
                MsgBox("Bildiniz", , " ")
                ListBox1.ClearSelected()
                a = (Rnd() * 10)
            End If
        End If
    End Sub
 
pesimist_style
ankara