Programming with Microsoft Visual Basic 2015 (MindTap Course List)
Programming with Microsoft Visual Basic 2015 (MindTap Course List)
7th Edition
ISBN: 9781285860268
Author: Diane Zak
Publisher: Cengage Learning
Question
Book Icon
Chapter 3.LB, Problem 3E
Program Plan Intro

Cranston Berries

Create a Visual Basic Windows Application:

  • Open Microsoft Visual Basic 2010.
  • Click “File” Menu -> “New Project”.
  • In the New Project pop-up window, select the “Windows Form Application” and give the name as “Cranston Project”, and specify the location as “\VB2015\Chap01\”.

Form Design:

  • Design the main form and print form by placing the labels, textbox, and button and then change their name and properties.
  • Inside the “Calculate” button,
    • Calculate the projected sales.
  • Inside the “Print” button,
    • Print the form data.
  • Inside the “Clear” button,
    • Clear the screen.
  • Inside the “Exit” button,
    • Close the form.

Screenshot of the form design

Programming with Microsoft Visual Basic 2015 (MindTap Course List), Chapter 3.LB, Problem 3E , additional homework tip 1

Expert Solution & Answer
Check Mark

Explanation of Solution

Program:

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Partial Class frmMain

    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.components = New System.ComponentModel.Container()

        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain))

        Me.Label1 = New System.Windows.Forms.Label()

        Me.Label2 = New System.Windows.Forms.Label()

        Me.Label3 = New System.Windows.Forms.Label()

        Me.Label4 = New System.Windows.Forms.Label()

        Me.txtProjIncrease = New System.Windows.Forms.TextBox()

        Me.txtStraw = New System.Windows.Forms.TextBox()

        Me.txtBlue = New System.Windows.Forms.TextBox()

        Me.txtRasp = New System.Windows.Forms.TextBox()

        Me.Label5 = New System.Windows.Forms.Label()

        Me.Label6 = New System.Windows.Forms.Label()

        Me.lblStraw = New System.Windows.Forms.Label()

        Me.lblBlue = New System.Windows.Forms.Label()

        Me.lblRasp = New System.Windows.Forms.Label()

        Me.btnCalc = New System.Windows.Forms.Button()

        Me.btnPrint = New System.Windows.Forms.Button()

        Me.btnClear = New System.Windows.Forms.Button()

        Me.btnExit = New System.Windows.Forms.Button()

        Me.PrintForm1 = New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm(Me.components)

        Me.SuspendLayout()

        '

        'Label1

        '

        Me.Label1.AutoSize = True

        Me.Label1.Location = New System.Drawing.Point(27, 26)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(268, 20)

        Me.Label1.TabIndex = 0

        Me.Label1.Text = "Projected &increase % (in decimal form):"

        '

        'Label2

        '

        Me.Label2.AutoSize = True

        Me.Label2.Location = New System.Drawing.Point(27, 108)

        Me.Label2.Name = "Label2"

        Me.Label2.Size = New System.Drawing.Size(94, 20)

        Me.Label2.TabIndex = 2

        Me.Label2.Text = "&Strawberries:"

        '

        'Label3

        '

        Me.Label3.AutoSize = True

        Me.Label3.Location = New System.Drawing.Point(27, 157)

        Me.Label3.Name = "Label3"

        Me.Label3.Size = New System.Drawing.Size(86, 20)

        Me.Label3.TabIndex = 4

        Me.Label3.Text = "&Blueberries:"

        '

        'Label4

        '

        Me.Label4.AutoSize = True

        Me.Label4.Location = New System.Drawing.Point(27, 203)

        Me.Label4.Name = "Label4"

        Me.Label4.Size = New System.Drawing.Size(89, 20)

        Me.Label4.TabIndex = 6

        Me.Label4.Text = "&Raspberries:"

        '

        'txtProjIncrease

        '

        Me.txtProjIncrease.Location = New System.Drawing.Point(301, 23)

        Me.txtProjIncrease.Name = "txtProjIncrease"

        Me.txtProjIncrease.Size = New System.Drawing.Size(57, 27)

        Me.txtProjIncrease.TabIndex = 1

        '

        'txtStraw

        '

        Me.txtStraw.Location = New System.Drawing.Point(122, 105)

        Me.txtStraw.Name = "txtStraw"

        Me.txtStraw.Size = New System.Drawing.Size(100, 27)

        Me.txtStraw.TabIndex = 3

        '

        'txtBlue

        '

        Me.txtBlue.Location = New System.Drawing.Point(122, 154)

        Me.txtBlue.Name = "txtBlue"

        Me.txtBlue.Size = New System.Drawing.Size(100, 27)

        Me.txtBlue.TabIndex = 5

        '

        'txtRasp

        '

        Me.txtRasp.Location = New System.Drawing.Point(122, 200)

        Me.txtRasp.Name = "txtRasp"

        Me.txtRasp.Size = New System.Drawing.Size(100, 27)

        Me.txtRasp.TabIndex = 7

        '

        'Label5

        '

        Me.Label5.AutoSize = True

        Me.Label5.Location = New System.Drawing.Point(118, 78)

        Me.Label5.Name = "Label5"

        Me.Label5.Size = New System.Drawing.Size(95, 20)

        Me.Label5.TabIndex = 12

        Me.Label5.Text = "Current Sales"

        '

        'Label6

        '

        Me.Label6.AutoSize = True

        Me.Label6.Location = New System.Drawing.Point(254, 78)

        Me.Label6.Name = "Label6"

        Me.Label6.Size = New System.Drawing.Size(110, 20)

        Me.Label6.TabIndex = 13

        Me.Label6.Text = "Projected Sales"

        '

        'lblStraw

        '

        Me.lblStraw.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

        Me.lblStraw.Location = New System.Drawing.Point(258, 105)

        Me.lblStraw.Name = "lblStraw"

        Me.lblStraw.Size = New System.Drawing.Size(100, 27)

        Me.lblStraw.TabIndex = 14

        Me.lblStraw.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'lblBlue

        '

        Me.lblBlue.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

        Me.lblBlue.Location = New System.Drawing.Point(258, 154)

        Me.lblBlue.Name = "lblBlue"

        Me.lblBlue.Size = New System.Drawing.Size(100, 27)

        Me.lblBlue.TabIndex = 15

        Me.lblBlue.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'lblRasp

        '

        Me.lblRasp.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle

        Me.lblRasp.Location = New System.Drawing.Point(258, 200)

        Me.lblRasp.Name = "lblRasp"

        Me.lblRasp.Size = New System.Drawing.Size(100, 27)

        Me.lblRasp.TabIndex = 16

        Me.lblRasp.TextAlign = System.Drawing.ContentAlignment.MiddleRight

        '

        'btnCalc

        '

        Me.btnCalc.Location = New System.Drawing.Point(17, 261)

        Me.btnCalc.Name = "btnCalc"

        Me.btnCalc.Size = New System.Drawing.Size(81, 29)

        Me.btnCalc.TabIndex = 8

        Me.btnCalc.Text = "&Calculate"

        Me.btnCalc.UseVisualStyleBackColor = True

        '

        'btnPrint

        '

        Me.btnPrint.Location = New System.Drawing.Point(110, 261)

        Me.btnPrint.Name = "btnPrint"

        Me.btnPrint.Size = New System.Drawing.Size(81, 29)

        Me.btnPrint.TabIndex = 9

        Me.btnPrint.Text = "&Print"

        Me.btnPrint.UseVisualStyleBackColor = True

        '

        'btnClear

        '

        Me.btnClear.Location = New System.Drawing.Point(203, 261)

        Me.btnClear.Name = "btnClear"

        Me.btnClear.Size = New System.Drawing.Size(81, 29)

        Me.btnClear.TabIndex = 10

        Me.btnClear.Text = "C&lear"

        Me.btnClear.UseVisualStyleBackColor = True

        '

        'btnExit

        '

        Me.btnExit.Location = New System.Drawing.Point(296, 261)

        Me.btnExit.Name = "btnExit"

        Me.btnExit.Size = New System.Drawing.Size(81, 29)

        Me.btnExit.TabIndex = 11

        Me.btnExit.Text = "E&xit"

        Me.btnExit.UseVisualStyleBackColor = True

        '

        'PrintForm1

        '

        Me.PrintForm1.DocumentName = "document"

        Me.PrintForm1.Form = Me

        Me.PrintForm1.PrintAction = System.Drawing.Printing.PrintAction.PrintToPreview

        Me.PrintForm1.PrinterSettings = CType(resources.GetObject("PrintForm1.PrinterSettings"), System.Drawing.Printing.PrinterSettings)

        Me.PrintForm1.PrintFileName = Nothing

        '

        'frmMain

        '

        Me.AutoScaleDimensions = New System.Drawing.SizeF(8!, 20!)

        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font

        Me.ClientSize = New System.Drawing.Size(392, 314)

        Me.Controls.Add(Me.btnExit)

        Me.Controls.Add(Me.btnClear)

        Me.Controls.Add(Me.btnPrint)

        Me.Controls.Add(Me.btnCalc)

        Me.Controls.Add(Me.lblRasp)

        Me.Controls.Add(Me.lblBlue)

        Me.Controls.Add(Me.lblStraw)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.Label5)

        Me.Controls.Add(Me.txtRasp)

        Me.Controls.Add(Me.txtBlue)

        Me.Controls.Add(Me.txtStraw)

        Me.Controls.Add(Me.txtProjIncrease)

        Me.Controls.Add(Me.Label4)

        Me.Controls.Add(Me.Label3)

        Me.Controls.Add(Me.Label2)

        Me.Controls.Add(Me.Label1)

        Me.Font = New System.Drawing.Font("Segoe UI", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))

        Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5)

        Me.Name = "frmMain"

        Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen

        Me.Text = "Cranston Berries"

        Me.ResumeLayout(false)

        Me.PerformLayout

End Sub

    Friend WithEvents Label1 As Label

    Friend WithEvents Label2 As Label

    Friend WithEvents Label3 As Label

    Friend WithEvents Label4 As Label

    Friend WithEvents txtProjIncrease As TextBox

    Friend WithEvents txtStraw As TextBox

    Friend WithEvents txtBlue As TextBox

    Friend WithEvents txtRasp As TextBox

    Friend WithEvents Label5 As Label

    Friend WithEvents Label6 As Label

    Friend WithEvents lblStraw As Label

    Friend WithEvents lblBlue As Label

    Friend WithEvents lblRasp As Label

    Friend WithEvents btnCalc As Button

    Friend WithEvents btnPrint As Button

    Friend WithEvents btnClear As Button

    Friend WithEvents btnExit As Button

    Friend WithEvents PrintForm1 As PowerPacks.Printing.PrintForm

End Class

Sample Output
  • Run the program, by pressing the F5.

    Screenshot of the output form

Programming with Microsoft Visual Basic 2015 (MindTap Course List), Chapter 3.LB, Problem 3E , additional homework tip 2

Screenshot of Calculate

Programming with Microsoft Visual Basic 2015 (MindTap Course List), Chapter 3.LB, Problem 3E , additional homework tip 3

Screenshot of Print Preview

Programming with Microsoft Visual Basic 2015 (MindTap Course List), Chapter 3.LB, Problem 3E , additional homework tip 4

Want to see more full solutions like this?

Subscribe now to access step-by-step solutions to millions of textbook problems written by subject matter experts!
Previous
Chapter 3.LB, Problem 2E
Next
Chapter 3.LB, Problem 4E
Students have asked these similar questions
In this exercise, you modify the Gross Pay application from this lesson. Use Windows to make a copy of the Gross Pay Solution folder. Rename the copy Modified Gross Pay Solution. Open the Gross Pay Solution (Gross Pay Solution.sln) file contained in the Modified Gross Pay Solution folder. Open the designer and Code Editor windows. Locate the form’s Load event procedure. Change both For…Next statements to Do…Loop statements. Save the solution and then start and test the application. Close the Code Editor window and then close the solution.
Specifications:  Lions, Tigers, and Bears Pet Clinic needs an application that displays basic services.  The application should be designed with checkboxes to select the various services (such as office call, vaccination, grooming, etc).  As each service is selected, the charge for the service should display in an associated label.  (When the checkmark is removed, the amount should be removed).   As each selection is made, the charges should be added into the total (a variable… consider scope), and displayed in a Total Due area on the application (currency format).  Align all numeric data appropriately.   Consider what should happen when the checkmark is removed. Include at least 8 services that your pet clinic performs. Include a Clear and Exit button. The clear should clear all checkboxes, appropriate labels, and the total variable. Use the standard Microsoft naming conventions for all controls. Include appropriate comments in your code. This is for intro to C# Can't use parse. Thank…
3. Solar Panel InstallationThe Megawatt solar panel company installs solar panels on home rooftops. The base installation charge of $2,000 includes two panels. The charge for each additional panel is $300. The normal waiting time for installation is two weeks, but customers can pay an express charge of 5% of the total cost to reduce this time. Create an application that collects the required information from the user and calculates the charges for the installation.The user should input the following information: first name, last name, phone, number of panels, deposit amount, and a check box for the express installation option. When the user clicks a button to view the charges, display a group box containing the following information: base installation charge, cost of installing additional panels, total installation cost, deposit amount, and balance due.Error checking should include the following criteria:• The name and phone fields cannot be blank• The number of panels must be an…

Chapter 3 Solutions

Programming with Microsoft Visual Basic 2015 (MindTap Course List)

Ch. 3.LA - Prob. 1RQCh. 3.LA - Prob. 2RQCh. 3.LA - Which of the following statements declares a...Ch. 3.LA - Prob. 4RQCh. 3.LA - Prob. 5RQCh. 3.LA - Which of the following declares a procedure-level...Ch. 3.LA - Prob. 7RQCh. 3.LA - Prob. 8RQCh. 3.LA - Prob. 9RQCh. 3.LA - Prob. 10RQ
Ch. 3.LA - Prob. 11RQCh. 3.LA - A static variable has the same...Ch. 3.LA - A procedure needs to store a salespersons name and...Ch. 3.LA - Prob. 2ECh. 3.LA - Prob. 3ECh. 3.LA - Prob. 4ECh. 3.LA - Prob. 5ECh. 3.LA - Prob. 6ECh. 3.LA - Prob. 7ECh. 3.LA - Prob. 8ECh. 3.LA - Prob. 9ECh. 3.LA - Prob. 10ECh. 3.LA - Prob. 11ECh. 3.LA - Prob. 12ECh. 3.LA - Prob. 13ECh. 3.LA - Prob. 14ECh. 3.LA - Prob. 15ECh. 3.LA - Prob. 16ECh. 3.LA - Prob. 17ECh. 3.LA - Prob. 19ECh. 3.LB - Prob. 1RQCh. 3.LB - Prob. 2RQCh. 3.LB - Prob. 3RQCh. 3.LB - Prob. 4RQCh. 3.LB - Prob. 5RQCh. 3.LB - Prob. 6RQCh. 3.LB - Prob. 7RQCh. 3.LB - Prob. 8RQCh. 3.LB - Prob. 9RQCh. 3.LB - Prob. 10RQCh. 3.LB - Prob. 1ECh. 3.LB - Prob. 2ECh. 3.LB - Prob. 3ECh. 3.LB - Prob. 4ECh. 3.LB - Prob. 5ECh. 3.LB - Prob. 6ECh. 3.LB - Prob. 7ECh. 3.LB - Prob. 8ECh. 3.LB - Prob. 9ECh. 3.LB - Prob. 11ECh. 3.LB - Prob. 12ECh. 3.LC - Prob. 1RQCh. 3.LC - Prob. 2RQCh. 3.LC - Prob. 3RQCh. 3.LC - Which of the following statements declares a...Ch. 3.LC - Prob. 5RQCh. 3.LC - Prob. 2ECh. 3.LC - Prob. 3ECh. 3.LC - Prob. 4ECh. 3.LC - Prob. 5ECh. 3.LC - Prob. 6ECh. 3.LC - Prob. 7ECh. 3.LC - Prob. 8ECh. 3.LC - Prob. 9ECh. 3.LC - Prob. 10ECh. 3.LC - Prob. 11E
Knowledge Booster
Background pattern image
Similar questions
SEE MORE QUESTIONS
Recommended textbooks for you
Text book image
Programming with Microsoft Visual Basic 2017
Computer Science
ISBN:9781337102124
Author:Diane Zak
Publisher:Cengage Learning
Text book image
EBK JAVA PROGRAMMING
Computer Science
ISBN:9781337671385
Author:FARRELL
Publisher:CENGAGE LEARNING - CONSIGNMENT
SEE MORE TEXTBOOKS