Visual Basıc ' te Kayıt nasıl yapılır..

[gokhanaygun]

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