In: Computer Science
Hello, this problem is in the book Microsoft Visual Basic 2015 RELOADED, so you can see the problem in chapter 4, case project Multiplication Practice on page 227. Also, I am new to this so I started from chapter 1 and am using Microsoft Visual Studio 2015 to code. Here is the problem: ________________________ Create an application that displays two random integers from 1 through 10 in the interface. The application should allow the user to enter the product of both numbers. It then should check whether the user’s answer is correct. Display an appropriate message when the answer is correct in a Label control. Also display an appropriate message when the answer is incorrect in a Label control. ________________________ So far my design view includes 2 buttons, 1 for the random number generator and 1 that is used as the Answer, when the answer button is pushed, either "Correct!" or "Incorrect" will show in the message Label. Also has 2 text boxes, 1 for each random number generated. Thank you! (Zak 227) Zak, Diane. Microsoft Visual Basic 2015: RELOADED, 6th Edition.
Create a new VB windows application with the name ProductOfNumbers. Add the below code in Form1
Form1.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
_
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form
Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtNumber1 = New System.Windows.Forms.TextBox()
Me.txtNumber2 = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtproduct = New System.Windows.Forms.TextBox()
Me.btnGenerate = New System.Windows.Forms.Button()
Me.btnAnswer = New System.Windows.Forms.Button()
Me.lblMessage = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(39, 24)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(53, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Number 1"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(39, 65)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(53, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Number 2"
'
'txtNumber1
'
Me.txtNumber1.Location = New System.Drawing.Point(137, 21)
Me.txtNumber1.Name = "txtNumber1"
Me.txtNumber1.Size = New System.Drawing.Size(100, 20)
Me.txtNumber1.TabIndex = 2
'
'txtNumber2
'
Me.txtNumber2.Location = New System.Drawing.Point(137, 58)
Me.txtNumber2.Name = "txtNumber2"
Me.txtNumber2.Size = New System.Drawing.Size(100, 20)
Me.txtNumber2.TabIndex = 3
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(12, 102)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(106, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "What is the product?"
'
'txtproduct
'
Me.txtproduct.Location = New System.Drawing.Point(137, 95)
Me.txtproduct.Name = "txtproduct"
Me.txtproduct.Size = New System.Drawing.Size(100, 20)
Me.txtproduct.TabIndex = 5
'
'btnGenerate
'
Me.btnGenerate.Location = New System.Drawing.Point(17, 177)
Me.btnGenerate.Name = "btnGenerate"
Me.btnGenerate.Size = New System.Drawing.Size(113, 23)
Me.btnGenerate.TabIndex = 6
Me.btnGenerate.Text = "Generate Numbers"
Me.btnGenerate.UseVisualStyleBackColor = True
'
'btnAnswer
'
Me.btnAnswer.Location = New System.Drawing.Point(162, 177)
Me.btnAnswer.Name = "btnAnswer"
Me.btnAnswer.Size = New System.Drawing.Size(75, 23)
Me.btnAnswer.TabIndex = 7
Me.btnAnswer.Text = "Answer"
Me.btnAnswer.UseVisualStyleBackColor = True
'
'lblMessage
'
Me.lblMessage.AutoSize = True
Me.lblMessage.Location = New System.Drawing.Point(42, 139)
Me.lblMessage.Name = "lblMessage"
Me.lblMessage.Size = New System.Drawing.Size(0, 13)
Me.lblMessage.TabIndex = 8
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!,
13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(297, 235)
Me.Controls.Add(Me.lblMessage)
Me.Controls.Add(Me.btnAnswer)
Me.Controls.Add(Me.btnGenerate)
Me.Controls.Add(Me.txtproduct)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtNumber2)
Me.Controls.Add(Me.txtNumber1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "Form1"
Me.Text = "Product Of Numbers"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents txtNumber1 As System.Windows.Forms.TextBox
Friend WithEvents txtNumber2 As System.Windows.Forms.TextBox
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents txtproduct As System.Windows.Forms.TextBox
Friend WithEvents btnGenerate As System.Windows.Forms.Button
Friend WithEvents btnAnswer As System.Windows.Forms.Button
Friend WithEvents lblMessage As System.Windows.Forms.Label
End Class
Form1.vb
Public Class Form1
Private Sub btnGenerate_Click(sender As System.Object, e As
System.EventArgs) Handles btnGenerate.Click
lblMessage.Text = ""
txtproduct.Text = ""
'generate two random numbers between 1 and 10
Dim randomNumber1 As Integer = CInt(Int((10 * Rnd()) + 1))
Dim randomNumber2 As Integer = CInt(Int((10 * Rnd()) + 1))
'display the random numbers in the textboxes
txtNumber1.Text = randomNumber1.ToString()
txtNumber2.Text = randomNumber2.ToString()
End Sub
Private Sub btnAnswer_Click(sender As System.Object, e As
System.EventArgs) Handles btnAnswer.Click
'if the answer provided is empty, the display a error message
If txtproduct.Text.Trim() = "" Then
lblMessage.Text = "Enter your answer..."
Else
'else
'get the answer provided by the user into an integer variable
product
Dim product As Integer = CInt(txtproduct.Text)
''get the numbers generated into an integer variables
randomNumber1 and randomNumber2
Dim randomNumber1 As Integer = CInt(txtNumber1.Text.Trim())
Dim randomNumber2 As Integer = CInt(txtNumber2.Text.Trim())
'check if answer provided is correct
If product = randomNumber1 * randomNumber2 Then
'if correct display correct
lblMessage.Text = "Correct!"
Else
'else display incorrect
lblMessage.Text = "Incorrect"
End If
End If
End Sub
End Class
Sample screen: