• 0

Visual Basic - Guessing game (1 - 100)


Question


Public Class Form1

    

    Dim aRandNumGen As New Random

    Dim answer As Integer = aRandNumGen.Next(1, 101)

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        lblTime1.Text = "Time: " + TimeString

        lblTime2.Text = "Date: " + DateString

        GroupBox1.Hide()

    End Sub

 

    Private Sub btnGuess_Click(sender As Object, e As EventArgs) Handles btnGuess.Click

        If Not IsNumeric(TextBox1.Text) Then

            MessageBox.Show("Numeric")

        End If

        Dim guess As Integer

        guess = CInt(TextBox1.Text)

        If answer = guess Then

            GroupBox1.Show()

        End If

 

        If answer = guess Then

            Label2.Text = "Congartulations"

        ElseIf answer < guess Then

            Label2.Text = "Too High"

        ElseIf answer < guess - 5 Then

            Label2.Text = "A little too low"

        ElseIf answer > guess Then

            Label2.Text = "Too Low"

        ElseIf answer > guess + 5 Then

            Label2.Text = "A little too high"

        End If

        TextBox1.Focus()

        TextBox1.SelectionStart = 0

        TextBox1.SelectionLength =

            TextBox1.TextLength

    End Sub

    

    

End Class

 

So i need to make a guessing game and i can run it and get random number with good instruction but i am missing some codes like as you see that i want to make like if the randomnumber is near to the answer like + 5 it will said little too high and if rnadom number - 5 then it will said little too low but i can't seem to work it out and also that i am trying to make it so that the textbox1 can only be enter as numeric but whenever i put word it will make the program crash.

And i also have a groupbox saying Do you want to play again? with 2 rad buttons yes and no and a button OK

so i want to make it so that when the user enter the correct random number the groupbox will be visible but not at start

Link to comment
https://www.neowin.net/forum/topic/1170027-visual-basic-guessing-game-1-100/
Share on other sites

10 answers to this question

Recommended Posts

  • 0

Your crash is due to the fact that you still execute the CInt() cast even if the text is not numeric. Just read your code carefully, that's what it does. Don't do that.

 

Also you hide the groupbox on every tick of the timer, which means even if you show it when the user wins, it'll disappear as soon as the timer event happens again. You could hide it in the OnLoaded event and enable it when the user has guessed properly.

  • 0

Hey Asik

can you give me a hint about the crashing even without isnumeric i tried to remove it and yes it crash still but than if i remove the cint it won work because of option strict on and option explicit on so what you recommend me to do?

And for the groupbox i have fixed it to show up 

  • 0
Option Strict On

Option Explicit On

 

Public Class Form1

    

    Dim aRandNumGen As New Random

    Dim answer As Integer = aRandNumGen.Next(1, 101)

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        lblTime1.Text = "Time: " + TimeString

        lblTime2.Text = "Date: " + DateString

    End Sub

 

    Private Sub btnGuess_Click(sender As Object, e As EventArgs) Handles btnGuess.Click

        If Not IsNumeric(TextBox1.Text) Then

            MessageBox.Show("Numeric")

        End If

        If CDbl(TextBox1.Text) > 100 Then

            MessageBox.Show("Number be between 1 - 100")

        End If

        If CDbl(TextBox1.Text) < 1 Then

            MessageBox.Show("Number be between 1 - 100")

        End If

        Dim guess As Integer = CInt(TextBox1.Text)

 

        If answer = guess Then

            GroupBox1.Show()

        End If

 

        If answer = guess Then

            Label2.Text = "Congratulations"

        ElseIf answer < guess Then

            Label2.Text = "Too High"

        ElseIf answer - 5 < guess Then

            Label2.Text = "A little too low"

        End If

        If answer > guess Then

            Label2.Text = "Too Low"

        ElseIf answer + 5 > guess Then

            Label2.Text = "A little too high"

        End If

        TextBox1.Focus()

        TextBox1.SelectionStart = 0

        TextBox1.SelectionLength =

            TextBox1.TextLength

    End Sub

    

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If RadYes.Checked Then

            Reset()

        End If

        If RadNo.Checked Then

            End

        End If

    End Sub

 

    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click

        End

    End Sub

 

    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click

        TextBox1.Clear()

    End Sub

End Class

 

Okay so this is my newly improve code and i have groupbox showing after the person guess correctly and now i just need to make that if the user enter not numeric it should pop up a message box "Numeric Only" but mine kept on crashing what do i need to fix?

And also i already make that if the user enter number correctly than groupbox show yes/no and a button if no then program will exit but if yes i want to reset it but what's the code?

  • 0
  On 11/08/2013 at 04:30, atyemail said:

 

 
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show("Numeric")
        End If
 
Okay so this is my newly improve code and i have groupbox showing after the person guess correctly and now i just need to make that if the user enter not numeric it should pop up a message box "Numeric Only" but mine kept on crashing what do i need to fix?

 

 

It's because you still run the whole code after showing the message box, try adding "Return" (means, in this case, stop running through the method) after that line:

If Not IsNumeric(TextBox1.Text) Then
    MessageBox.Show("Numeric Only")
    Return
End If
  • 0

Thank you very much,

Please help me atm i have problem when the random number is in range random number - 10 = a little too low but the a little too high is not working, any suggestion?

 

Public Class Form1
    
    Dim aRandNumGen As New Random
    Dim answer As Integer = aRandNumGen.Next(1, 101)
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
        lblTime1.Text = "Time: " + TimeString
        lblTime2.Text = "Date: " + DateString
    End Sub
 
    Private Sub btnGuess_Click(sender As Object, e As EventArgs) Handles btnGuess.Click
        If Not IsNumeric(TextBox1.Text) Then
            MessageBox.Show("Numeric")
            Return
        End If
        If CDbl(TextBox1.Text) > 100 Then
            MessageBox.Show("Number be between 1 - 100")
        End If
        If CDbl(TextBox1.Text) < 1 Then
            MessageBox.Show("Number be between 1 - 100")
        End If
        Dim guess As Integer = CInt(TextBox1.Text)
 
        If answer = guess Then
            GroupBox1.Show()
        End If
 
        If answer = guess Then
            Label2.Text = "Congratulations"
        ElseIf answer < guess Then
            Label2.Text = "Too High"
        ElseIf answer - 10 < guess Then
            Label2.Text = "A little too low"
        ElseIf answer > guess Then
            Label2.Text = "Too Low"
        ElseIf answer + 10 > guess Then
            Label2.Text = "A little too high"
        End If
 
        TextBox1.Focus()
        TextBox1.SelectionStart = 0
        TextBox1.SelectionLength =
            TextBox1.TextLength
    End Sub
    
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If RadYes.Checked Then
            Reset()
        End If
        If RadNo.Checked Then
            End
        End If
    End Sub
 
    Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
        End
    End Sub
 
    Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click
        TextBox1.Clear()
    End Sub
End Class
  • 0
If answer = guess Then
    Label2.Text = "Congratulations"
ElseIf answer < guess Then
    Label2.Text = "Too High"
ElseIf answer - 10 < guess Then
    Label2.Text = "A little too low"
ElseIf answer > guess Then
    Label2.Text = "Too Low"
ElseIf answer + 10 > guess Then
    Label2.Text = "A little too high"
End If

It's because the logic is flawed. Try to read and follow the logic.

(I also recommend placing 'guess' on the left side for readability)

 

If you can't fix it yourself, this is how I would do it :

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

.

If guess = answer Then
    Label2.Text = "Congratulations"
ElseIf guess > answer Then
    If guess < answer + 10 Then
        Label2.Text = "A little too high"
    Else
        Label2.Text = "Too High"
    End If
ElseIf guess < answer Then
    If guess > answer - 10 Then
        Label2.Text = "A little too low"
    Else
        Label2.Text = "Too Low"
    End If
End If
  • 0
  On 11/08/2013 at 03:49, atyemail said:

Hey Asik

can you give me a hint about the crashing even without isnumeric i tried to remove it and yes it crash still but than if i remove the cint it won work because of option strict on and option explicit on so what you recommend me to do?

And for the groupbox i have fixed it to show up 

Your method should look roughly like this (pseudo-code, you figure out how to translate in VB):

If the text in the textbox is not a number Then
     print some error message
Else
     convert text to integer with CInt
     tell user whether the guess is above, below or equal to the answer
End If

Your problem currently is that you attempt to convert to integer even if the text isn't a number.

This topic is now closed to further replies.
  • Recently Browsing   0 members

    • No registered users viewing this page.
  • Posts

    • Why do you think the writing is on the wall? Tesla continues to have the highest selling models on the planet, and they continue to grow on that despite their junk reliability rating. I'm not going to buy one because of the continued build quality issues (and lack of Carplay), but I appreciate that they're the best player in an EV market that is massively lacking in infrastructure and affordability. Besides the EV technology needing to eventually outpace gasoline, self-driving technology is undoubtedly going to be the future. It's not going to happen tomorrow and not even in 10 years, but within our lifetimes, most cars on the road will be self-driving. That's the only way to solve the issue of a million deaths on the road. Waymo is using technology that's simply too expensive, which means it has to charge high fares. Tesla is going to blow past them with their ~$40k car and further yet when they release that weird looking 2-seater. Pretty soon Nvidia is going to be a market player, Amazon will be a player, and possibly the other 20+ startups that are working on a vehicle. I'd like to revisit this in a year and see how the market looks. I'm willing to bet there will be a huge increase of driverless cars on the road, and I doubt that Waymo is going to be the majority of them. Waymo isn't profitable for Google, so it's entirely possible the plug gets pulled as soon as several players leave them in the dust.
    • I have always found it funny how so many here complain everyday about Windows but often are the same people who will attack anyone who even suggests using Linux.
    • I don't think even with these options, will people enroll in this program. I mean, it's certainly a welcome change for us power users, and I think many will take advantage of it. But like the article says, Windows 10 remains the dominant OS, and I don't think this is going to change in 4 months time. Having mainstream Windows 10 users have to jump through hoops just to continue to receive updates is going to be an unnecessary hassle. The only remedy is for Microsoft to extend support for 4 more years, giving users enough time to just upgrade their PCs as the hardware naturally ages out.
    • Windows 11 gets fixes for stuck Windows Update by Taras Buria Earlier this week, Microsoft started a gradual rollout of KB5062324, a small configuration update for Windows 11 version 24H2. The goal is to address an issue with a stuck Windows Update, which is unable to finish scanning for available updates. Microsoft is rolling out KB5062324 gradually. You can get it by heading to Settings > Windows Update and toggling "Get the latest updates as soon as they're available." After that, restart your computer and check for available updates. Windows Update should properly detect KB5062324 and download it to fix issues with update detection. In the support document for KB5062324, Microsoft added that the bug could be mitigated by restarting Windows. This will get Windows Update unstuck and allow the system to finish update scanning. Users can also get a permanent solution by downloading KB5058499 (the May 2025 non-security update) or a newer release. Note that the bug only affects computers with Windows 11 version 24H2. Older releases are unaffected. Windows 11 version 24H2 still has a few known issues awaiting their fixes. For example, there are compatibility issues with the sprotect.sys driver, which causes apps to stop responding, audio output losses on PCs with Dirac Audio, apps hanging when using cameras, and more. You can find the complete list of known issues in Windows 11 version 24H2 here. Speaking of updates and fixes, Microsoft today released a non-security update for Windows 10. KB5061087 (build number 19045.6036) is now available for download, and it includes various fixes for the Start menu, USB printers, incorrect Windows version reporting, and more. The update arrived minutes after Microsoft announced that the Extended Security Update program would be free for Windows 10 users. Also, the company recently revealed its plans to pull legacy drivers from Windows Update.
    • Well this will provide me time to save funds for 2 Replacement Windows 11 Compatible Machines, tried to save since my birthday in February, but savings not much at moment--guess ordered way too much Doordash. So will get this with either WIndows backup with the settings to the Cloud or 1000 MS Reward points, Then work on saving for 2 Windows 11 Compatible machines. Get sisters Windows 10 Laptop squared away for a year, then will be up to her to afford replacement of that one, but my systems i'm getting replaced somehow, even if i have to goto with a Mini PC for PC 2, someway somehow all systems gonna be Windows 11 by October 2026.
  • Recent Achievements

    • Week One Done
      DrRonSr earned a badge
      Week One Done
    • Week One Done
      Sharon dixon earned a badge
      Week One Done
    • Dedicated
      Parallax Abstraction earned a badge
      Dedicated
    • First Post
      956400 earned a badge
      First Post
    • Week One Done
      davidfegan earned a badge
      Week One Done
  • Popular Contributors

    1. 1
      +primortal
      607
    2. 2
      ATLien_0
      228
    3. 3
      Michael Scrip
      167
    4. 4
      +FloatingFatMan
      154
    5. 5
      Xenon
      140
  • Tell a friend

    Love Neowin? Tell a friend!