- Messages
- 122
- Reaction score
- 0
- Points
- 26
Public Class Form1
'Declare Variables
Dim intGuess As Integer
Dim intGuessCount As Integer
Dim intRandumNumber As New Random
Dim intTry As Integer
Dim objRandomNumber As New Random
Dim intRandomNumber As Integer = objRandomNumber.Next(1, 101)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Add(intTry)
'This next line is always highlighted no matter what different ways I have tried to error check
'my input box for integers only.
intTry = InputBox("Enter Your Number to Guess.", "Input Needed")
If Not Integer.TryParse(intTry, intGuess) Then
MessageBox.Show("Entries Must be a Number Only!")
Else
End If
If intTry = intRandomNumber Then
MessageBox.Show("You Got It!", "Correct Guess")
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox1.Items.Add(intTry)
End Sub
End Class
tanong ko po diyan ano po bang problema diyan kasi po nag sasave parin po nang same number ang gusto ko po sana hindi niya po isasave sasabihin niya po ay mayroon na nakainput or input was already halimbawa nag input ako nang 3 tapos pagininput ko ulit ang 3 may sasabihin na po siya was already input..papano po ba iyan .. wala na po siyang mali ang problema ko lang nag sasave parin po siya nang same number papno po kaya iyon tulong naman po please..
'Declare Variables
Dim intGuess As Integer
Dim intGuessCount As Integer
Dim intRandumNumber As New Random
Dim intTry As Integer
Dim objRandomNumber As New Random
Dim intRandomNumber As Integer = objRandomNumber.Next(1, 101)
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
ListBox1.Items.Add(intTry)
'This next line is always highlighted no matter what different ways I have tried to error check
'my input box for integers only.
intTry = InputBox("Enter Your Number to Guess.", "Input Needed")
If Not Integer.TryParse(intTry, intGuess) Then
MessageBox.Show("Entries Must be a Number Only!")
Else
End If
If intTry = intRandomNumber Then
MessageBox.Show("You Got It!", "Correct Guess")
End If
End Sub
Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox1.Items.Add(intTry)
End Sub
End Class
tanong ko po diyan ano po bang problema diyan kasi po nag sasave parin po nang same number ang gusto ko po sana hindi niya po isasave sasabihin niya po ay mayroon na nakainput or input was already halimbawa nag input ako nang 3 tapos pagininput ko ulit ang 3 may sasabihin na po siya was already input..papano po ba iyan .. wala na po siyang mali ang problema ko lang nag sasave parin po siya nang same number papno po kaya iyon tulong naman po please..