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 6E
Program Plan Intro

Meyer’s Purple Bakery

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 “Bakery 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 total sales, sales tax and sales clerk’s name..
  • 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 Main form design

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

Screenshot of the Name Entry form design

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

Screenshot of the Item price form design

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

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.lblTotalSales = New System.Windows.Forms.Label()

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

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

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

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

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

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

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

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

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

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

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

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

        Me.PictureBox1 = New System.Windows.Forms.PictureBox()

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

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

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

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

        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).BeginInit

        Me.SuspendLayout

        '

        'lblTotalSales

        '

        Me.lblTotalSales.BackColor = System.Drawing.Color.FromArgb(CType(CType(255,Byte),Integer), CType(CType(255,Byte),Integer), CType(CType(192,Byte),Integer))

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

        Me.lblTotalSales.Location = New System.Drawing.Point(110, 230)

        Me.lblTotalSales.Name = "lblTotalSales"

        Me.lblTotalSales.Size = New System.Drawing.Size(94, 27)

        Me.lblTotalSales.TabIndex = 14

        Me.lblTotalSales.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'lblTotalItems

        '

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

        Me.lblTotalItems.Location = New System.Drawing.Point(110, 187)

        Me.lblTotalItems.Name = "lblTotalItems"

        Me.lblTotalItems.Size = New System.Drawing.Size(47, 27)

        Me.lblTotalItems.TabIndex = 13

        Me.lblTotalItems.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'txtDate

        '

        Me.txtDate.Location = New System.Drawing.Point(156, 67)

        Me.txtDate.Name = "txtDate"

        Me.txtDate.Size = New System.Drawing.Size(111, 27)

        Me.txtDate.TabIndex = 1

        '

        'btnExit

        '

        Me.btnExit.Location = New System.Drawing.Point(228, 216)

        Me.btnExit.Name = "btnExit"

        Me.btnExit.Size = New System.Drawing.Size(114, 31)

        Me.btnExit.TabIndex = 9

        Me.btnExit.Text = "E&xit"

        Me.btnExit.UseVisualStyleBackColor = true

        '

        'btnPrint

        '

        Me.btnPrint.Location = New System.Drawing.Point(228, 148)

        Me.btnPrint.Name = "btnPrint"

        Me.btnPrint.Size = New System.Drawing.Size(114, 31)

        Me.btnPrint.TabIndex = 7

        Me.btnPrint.Text = "&Print Receipt"

        Me.btnPrint.UseVisualStyleBackColor = true

        '

        'btnClear

        '

        Me.btnClear.Location = New System.Drawing.Point(228, 182)

        Me.btnClear.Name = "btnClear"

        Me.btnClear.Size = New System.Drawing.Size(114, 31)

        Me.btnClear.TabIndex = 8

        Me.btnClear.Text = "C&lear Screen"

        Me.btnClear.UseVisualStyleBackColor = true

        '

        'btnCalc

        '

        Me.btnCalc.Location = New System.Drawing.Point(228, 114)

        Me.btnCalc.Name = "btnCalc"

        Me.btnCalc.Size = New System.Drawing.Size(114, 31)

        Me.btnCalc.TabIndex = 6

        Me.btnCalc.Text = "&Calculate"

        Me.btnCalc.UseVisualStyleBackColor = true

        '

        'Label5

        '

        Me.Label5.AutoSize = true

        Me.Label5.Location = New System.Drawing.Point(24, 190)

        Me.Label5.Name = "Label5"

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

        Me.Label5.TabIndex = 11

        Me.Label5.Text = "Total items:"

        '

        'Label4

        '

        Me.Label4.AutoSize = true

        Me.Label4.Location = New System.Drawing.Point(24, 153)

        Me.Label4.Name = "Label4"

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

        Me.Label4.TabIndex = 4

        Me.Label4.Text = "&Muffins:"

        '

        'Label3

        '

        Me.Label3.AutoSize = true

        Me.Label3.Location = New System.Drawing.Point(24, 114)

        Me.Label3.Name = "Label3"

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

        Me.Label3.TabIndex = 2

        Me.Label3.Text = "&Doughnuts:"

        '

        'Label2

        '

        Me.Label2.AutoSize = true

        Me.Label2.Location = New System.Drawing.Point(106, 70)

        Me.Label2.Name = "Label2"

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

        Me.Label2.TabIndex = 0

        Me.Label2.Text = "Da&te:"

        '

        'Label1

        '

        Me.Label1.AutoSize = true

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

        Me.Label1.Location = New System.Drawing.Point(103, 18)

        Me.Label1.Name = "Label1"

        Me.Label1.Size = New System.Drawing.Size(172, 37)

        Me.Label1.TabIndex = 10

        Me.Label1.Text = "Sales Receipt"

        '

        'txtDonuts

        '

        Me.txtDonuts.Location = New System.Drawing.Point(110, 111)

        Me.txtDonuts.Name = "txtDonuts"

        Me.txtDonuts.Size = New System.Drawing.Size(47, 27)

        Me.txtDonuts.TabIndex = 3

        '

        'PictureBox1

        '

        Me.PictureBox1.Image = Global.Bakery_Project.My.Resources.Resources.Chef

        Me.PictureBox1.Location = New System.Drawing.Point(22, 12)

        Me.PictureBox1.Name = "PictureBox1"

        Me.PictureBox1.Size = New System.Drawing.Size(71, 68)

        Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage

        Me.PictureBox1.TabIndex = 34

        Me.PictureBox1.TabStop = false

        '

        'Label6

        '

        Me.Label6.AutoSize = true

        Me.Label6.Location = New System.Drawing.Point(24, 230)

        Me.Label6.Name = "Label6"

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

        Me.Label6.TabIndex = 12

        Me.Label6.Text = "Total sales:"

        '

        'txtMuffins

        '

        Me.txtMuffins.Location = New System.Drawing.Point(110, 148)

        Me.txtMuffins.Name = "txtMuffins"

        Me.txtMuffins.Size = New System.Drawing.Size(47, 27)

        Me.txtMuffins.TabIndex = 5

        '

        '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

        '

        'lblMsg

        '

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

        Me.lblMsg.Location = New System.Drawing.Point(28, 276)

        Me.lblMsg.Name = "lblMsg"

        Me.lblMsg.Size = New System.Drawing.Size(314, 49)

        Me.lblMsg.TabIndex = 15

        Me.lblMsg.TextAlign = System.Drawing.ContentAlignment.MiddleCenter

        '

        'frmMain

        '

        Me.AcceptButton = Me.btnCalc

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

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

        Me.ClientSize = New System.Drawing.Size(366, 346)

        Me.Controls.Add(Me.lblMsg)

        Me.Controls.Add(Me.txtMuffins)

        Me.Controls.Add(Me.Label6)

        Me.Controls.Add(Me.PictureBox1)

        Me.Controls.Add(Me.txtDonuts)

        Me.Controls.Add(Me.lblTotalSales)

        Me.Controls.Add(Me.lblTotalItems)

        Me.Controls.Add(Me.txtDate)

        Me.Controls.Add(Me.btnExit)

        Me.Controls.Add(Me.btnPrint)

        Me.Controls.Add(Me.btnClear)

        Me.Controls.Add(Me.btnCalc)

        Me.Controls.Add(Me.Label5)

        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 = "Meyer's Purple Bakery"

        CType(Me.PictureBox1,System.ComponentModel.ISupportInitialize).EndInit

        Me.ResumeLayout(false)

        Me.PerformLayout

End Sub

    Friend WithEvents lblTotalSales As Label

    Friend WithEvents lblTotalItems As Label

    Friend WithEvents txtDate As TextBox

    Friend WithEvents btnExit As Button

    Friend WithEvents btnPrint As Button

    Friend WithEvents btnClear As Button

    Friend WithEvents btnCalc As Button

    Friend WithEvents Label5 As Label

    Friend WithEvents Label4 As Label

    Friend WithEvents Label3 As Label

    Friend WithEvents Label2 As Label

    Friend WithEvents Label1 As Label

    Friend WithEvents txtDonuts As TextBox

    Friend WithEvents PictureBox1 As PictureBox

    Friend WithEvents Label6 As Label

    Friend WithEvents txtMuffins As TextBox

    Friend WithEvents PrintForm1 As PowerPacks.Printing.PrintForm

    Friend WithEvents lblMsg As Label

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 6E , additional homework tip 4

Screenshot of Calculation after entering the quantity

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

Screenshot of getting salesclerk’s name

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

Screenshot of getting the item price

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

Screenshot of Calculate

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

Screenshot of Print Preview

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

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 5E
Next
Chapter 3.LB, Problem 7E
Students have asked these similar questions
Specifications: Part-1Part-1: DescriptionIn this part of the lab you will build a single operation ALU. This ALU will implement a bitwise left rotation. Forthis lab assignment you are not allowed to use Digital's Arithmetic components.IF YOU ARE FOUND USING THEM, YOU WILL RECEIVE A ZERO FOR LAB2!The ALU you will be implementing consists of two 4-bit inputs (named inA and inB) and one 4-bit output (named out). Your ALU must rotate the bits in inA by the amount given by inB (i.e. 0-15).Part-1: User InterfaceYou are provided an interface file lab2_part1.dig; start Part-1 from this file.NOTE: You are not permitted to edit the content inside the dotted lines rectangle.Part-1: ExampleIn the figure above, the input values that we have selected to test are inA = {inA_3, inA_2, inA_1, inA_0} = {0, 1, 0,0} and inB = {inB_3, inB_2, inB_1, inB_0} = {0, 0, 1, 0}. Therefore, we must rotate the bus 0100 bitwise left by00102, or 2 in base 10, to get {0, 0, 0, 1}. Please note that a rotation left is…
How can I perform Laplace Transformation when using integration based on this? Where we convert time-based domain to frequency domain
what would be the best way I can explain the bevhoirs of Laplace and Inverse Transofrmation In MATLAB.

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
Programming Logic & Design Comprehensive
Computer Science
ISBN:9781337669405
Author:FARRELL
Publisher:Cengage
Text book image
Microsoft Visual C#
Computer Science
ISBN:9781337102100
Author:Joyce, Farrell.
Publisher:Cengage Learning,
Text book image
EBK JAVA PROGRAMMING
Computer Science
ISBN:9781337671385
Author:FARRELL
Publisher:CENGAGE LEARNING - CONSIGNMENT
SEE MORE TEXTBOOKS