We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Public Class frmproject5 Inherits System.Windows.Forms.Form Dim intNumberToGuess As Long 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 If IsNumeric(txtguess.Text) Then intGuess = CLng(txtguess.Text) Else MsgBox("Enter a number into the textbox!") End If Update() If Not (previousGuesses(intGuess) Is Nothing) Then lblinfo.Text() = "youve already tried this number - try again" MsgBox("youve 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 btnHnowToPlay_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! but you only have 6 guesses.") End Sub Private Sub cmdReset_Click() txtguess.Text = "" ' listguess.clear() lblinfo.Text = "" btnguess.Enabled = False 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
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|VB6 ListBox Question||4||63|
|Excel Automation VBA||19||116|
|Excel VBA - Run Time error '1004' Application-defined or object-defined error||4||526|
|"Failed to convert parameter value from a String to a Decimal."||4||44|
Join the community of 500,000 technology professionals and ask your questions.