Question

I’m attempting to create the functioning GUI (bottom photo) from the coding in the first photo. I’m unclear as to what I’m missing to complete the code. Thank you

a Homework 8 similar to Exercise 16 8.pdf (page 1 of 2) Public Class Formi Dim answer As Integer Sub Random() Dim random As New Random() answer randon.Next (1, 1ee) End Sub Private Sub Formi Load(ByVal sender As System.Object, Byval e As System. EventArgs) Handles MyBase. Load Random() End Sub Private Sub Button1 click(ByVal sender As System.Object, ByVal e As Systen.EventAres) Handles Buttoni.Click If Val (TextBox1.Text) answer Thern End If If Val(TextBoxi. Text) answer Then End If If Val (TextBox1.Text) answer Then End If If Label4·Text “ "Correct" Then End If Labe14.Text "Too high... Labe14. Text Too low... Labe14.Text "Correct" Button2.Enabled True End Sub private sub Button2 click(eyval sender As Systen.object, Byval e As Systen.Eventares) Handles Button2.Click Labe14.Text TextBox1.Clear() Random() Button2.Enabled False End Sub End Class

Answer 1

Sub Random ) Dim random As New Random ) answer= random . Next (1, 100) End Sub 'on loading the form Private Sub Forml_Load (ByVal sender As System.Object, ByVal e As System. EventArgs) Handles MyBase. Load Random () End Sub 'On clicking button1 Private Sub Button1 Click (ByVal sender As System.Object, ByVal e As System. EventArgs) Handles Button1.Click 'Disable the Button2 Button2. Enabled = False 'Check the condition If Val (TextBox1.Text)> answer Ther End If 'Check the condition TextBox2.Text"Too high. .." If Val (TextBox1.Text) answer Ther TextBox2. Text"Too low. . ." End If

Guess the Number I have a number between 1 and 100. Can you guess my number? Enter Guess 59 Result Too high.. New Game

Guess the Number I have a number between 1 and 100. Can you guess my number? Enter Guess 55 Result Correct New Game

Copyable Code:

'From1 class

Public Class Form1

    Dim answer As Integer

    'Procedure Random to generate a random number between 1 and 100

    Sub Random()

        Dim random As New Random()

        answer = random.Next(1, 100)

    End Sub

    'on loading the form

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Random()

    End Sub

    'On clicking button1

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

        'Disable the Button2

        Button2.Enabled = False

        'Check the condition

        If Val(TextBox1.Text) > answer Then

            TextBox2.Text = "Too high..."

        End If

        'Check the condition

        If Val(TextBox1.Text) < answer Then

            TextBox2.Text = "Too low..."

        End If

        'Check the condition

        If Val(TextBox1.Text) = answer Then

            TextBox2.Text = "Correct"

            Button2.Enabled = True

        End If

    End Sub

    'On clicking the "Button2"

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        'Clear TextBox2

        TextBox2.Text = ""

        'Clear TextBox1

        TextBox1.Clear()

        'Call Function

        Random()

        'Disble Button2

        Button2.Enabled = False

    End Sub

End Class