ashblynn02
asked on
Enhancements to Number of Guess
I have a Guess the Number game where I would like to enhance the game a little more by adding when the user is getting warmer, or colder or if they are freezing or boiling... I have no idea how to do this. I have the game to where it is telling you that the user needs to go higher or lower. Can someone please help me??
And also I want a text box to be able to tell how many guesses they have guessed... how do you do that?
Thanks a million!! :)
And also I want a text box to be able to tell how many guesses they have guessed... how do you do that?
Thanks a million!! :)
Public Class frmproject5
Inherits System.Windows.Forms.Form
Dim intNumberToGuess As Long
Dim Count As Integer
Dim Index As Integer
Dim previousGuesses As New System.Collections.Hashtable
Private Sub Button1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnguess.Click
Dim intGuess As Long
Dim UpperBound As Long
Dim LowerBound As Long
'check the number being entered into the textbox against the random number set
If IsNumeric(txtguess.Text) Then
intGuess = CLng(txtguess.Text)
Else
' If no text enetered and button cliked, display message
MsgBox("Enter a number into the textbox!")
End If
' If the number being enetered is lower than the random number,
Update()
If Not (previousGuesses(intGuess) Is Nothing) Then
lblinfo.Text() = "You've already tried this number - try again"
MsgBox("You've already tried this number - try again")
Else
If intGuess < intNumberToGuess Then
lblinfo.Text() = "Too Low!"
MsgBox("Number is Too Low - Have another go!")
ElseIf intGuess > intNumberToGuess Then
lblinfo.Text = "Too High!"
MsgBox("Number is Too High - Have another go!")
ElseIf intGuess = intNumberToGuess Then
lblinfo.Text = "You've Got It!"
MsgBox("Well Done - You've worked out the random number - Now have another go!")
intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound)
End If
'Add the numbers guessed into the listbox
listguess.Items.Add(txtguess.Text)
previousGuesses(intGuess) = intGuess
End If
End Sub
Private Sub btnhowtoplay_enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnhowtoplay.Click
MsgBox("Type a number between 0 and 100 into the box labeled Type Guess Here. The program will generate a random number and will tell you if you've gone to high or to low, keep guessing until you are CORRECT!")
End Sub
Private Sub Btnreset_enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btnreset.Click
listguess.Items.Clear()
txtguess.Text = ""
listguess.Text = ""
lblinfo.Text = ""
btnguess.Enabled = True
Randomize()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim intNumberToGuess As Long
Dim UpperBound As Long
Dim LowerBound As Long
Randomize()
intNumberToGuess = Int((UpperBound - LowerBound + 100) * Rnd() + LowerBound)
End Sub
End Class
ASKER
Abs is coming up with an error... it says expressions is not an array or method and cannot have an arguement list...
do you know why it could be doing this?
Thanks!
do you know why it could be doing this?
Thanks!
Is this VB6 ?
Abs is a built in function for absolute value
Abs is a built in function for absolute value
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
visual basic express edition 2005... im not too sure if vb6... I am sorry I am new at this...
Try Math.Abs instead of Abs
Open in new window