
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

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
- Run the program, by pressing the F5.
Screenshot of the output form
Screenshot of Calculate
Screenshot of Print Preview
Want to see more full solutions like this?
Chapter 3 Solutions
Programming with Microsoft Visual Basic 2015 (MindTap Course List)
- Just need some assistance with number 3 please, in C#arrow_forwardHow do we find the possible final values of variable x in the following program. Int x=0; sem s1=1, s2 =0; CO P(s2); P(s1); x=x*2; V(s1); // P(s1); x=x*x; V(s1); // P(s1); x=x+3; V(s2); V(s1); Ocarrow_forwardLab 07: Java Graphics (Bonus lab) In this lab, we'll be practicing what we learned about GUIs, and Mouse events. You will need to implement the following: ➤ A GUI with a drawing panel. We can click in this panel, and you will capture those clicks as a Point (see java.awt.Point) in a PointCollection class (you need to build this). о The points need to be represented by circles. Below the drawing panel, you will need 5 buttons: о An input button to register your mouse to the drawing panel. ○ о о A show button to paint the points in your collection on the drawing panel. A button to shift all the points to the left by 50 pixels. The x position of the points is not allowed to go below zero. Another button to shift all the points to the right 50 pixels. The x position of the points cannot go further than the You can implement this GUI in any way you choose. I suggest using the BorderLayout for a panel containing the buttons, and a GridLayout to hold the drawing panel and button panels.…arrow_forward
- If a UDP datagram is sent from host A, port P to host B, port Q, but at host B there is no process listening to port Q, then B is to send back an ICMP Port Unreachable message to A. Like all ICMP messages, this is addressed to A as a whole, not to port P on A. (a) Give an example of when an application might want to receive such ICMP messages. (b) Find out what an application has to do, on the operating system of your choice, to receive such messages. (c) Why might it not be a good idea to send such messages directly back to the originating port P on A?arrow_forwardDiscuss how business intelligence and data visualization work together to help decision-makers and data users. Provide 2 specific use cases.arrow_forwardThis week we will be building a regression model conceptually for our discussion assignment. Consider your current workplace (or previous/future workplace if not currently working) and answer the following set of questions. Expand where needed to help others understand your thinking: What is the most important factor (variable) that needs to be predicted accurately at work? Why? Justify its selection as your dependent variable.arrow_forward
- According to best practices, you should always make a copy of a config file and add a date to filename before editing? Explain why this should be done and what could be the pitfalls of not doing it.arrow_forwardIn completing this report, you may be required to rely heavily on principles relevant, for example, the Work System, Managerial and Functional Levels, Information and International Systems, and Security. apply Problem Solving Techniques (Think Outside The Box) when completing. should reflect relevance, clarity, and organisation based on research. Your research must be demonstrated by Details from the scenario to support your analysis, Theories from your readings, Three or more scholarly references are required from books, UWIlinc, etc, in-text or narrated citations of at least four (4) references. “Implementation of an Integrated Inventory Management System at Green Fields Manufacturing” Green Fields Manufacturing is a mid-sized company specialising in eco-friendly home and garden products. In recent years, growing demand has exposed the limitations of their fragmented processes and outdated systems. Different departments manage production schedules, raw material requirements, and…arrow_forward1. Create a Book record that implements the Comparable interface, comparing the Book objects by year - title: String > - author: String - year: int Book + compareTo(other Book: Book): int + toString(): String Submit your source code on Canvas (Copy your code to text box or upload.java file) > Comparable 2. Create a main method in Book record. 1) In the main method, create an array of 2 objects of Book with your choice of title, author, and year. 2) Sort the array by year 3) Print the object. Override the toString in Book to match the example output: @Javadoc Declaration Console X Properties Book [Java Application] /Users/kuan/.p2/pool/plugins/org.eclipse.justj.openjdk.hotspo [Book: year=1901, Book: year=2010]arrow_forward
- Q5-The efficiency of a 200 KVA, single phase transformer is 98% when operating at full load 0.8 lagging p.f. the iron losses in the transformer is 2000 watt. Calculate the i) Full load copper losses ii) half load copper losses and efficiency at half load. Ans: 1265.306 watt, 97.186%arrow_forward2. Consider the following pseudocode for partition: function partition (A,L,R) pivotkey = A [R] t = L for i L to R-1 inclusive: if A[i] A[i] t = t + 1 end if end for A [t] A[R] return t end function Suppose we call partition (A,0,5) on A=[10,1,9,2,8,5]. Show the state of the list at the indicated instances. Initial A After i=0 ends After 1 ends After i 2 ends After i = 3 ends After i = 4 ends After final swap 10 19 285 [12 pts]arrow_forward.NET Interactive Solving Sudoku using Grover's Algorithm We will now solve a simple problem using Grover's algorithm, for which we do not necessarily know the solution beforehand. Our problem is a 2x2 binary sudoku, which in our case has two simple rules: •No column may contain the same value twice •No row may contain the same value twice If we assign each square in our sudoku to a variable like so: 1 V V₁ V3 V2 we want our circuit to output a solution to this sudoku. Note that, while this approach of using Grover's algorithm to solve this problem is not practical (you can probably find the solution in your head!), the purpose of this example is to demonstrate the conversion of classical decision problems into oracles for Grover's algorithm. Turning the Problem into a Circuit We want to create an oracle that will help us solve this problem, and we will start by creating a circuit that identifies a correct solution, we simply need to create a classical function on a quantum circuit that…arrow_forward
- Programming with Microsoft Visual Basic 2017Computer ScienceISBN:9781337102124Author:Diane ZakPublisher:Cengage LearningEBK JAVA PROGRAMMINGComputer ScienceISBN:9781337671385Author:FARRELLPublisher:CENGAGE LEARNING - CONSIGNMENTMicrosoft Visual C#Computer ScienceISBN:9781337102100Author:Joyce, Farrell.Publisher:Cengage Learning,
- EBK JAVA PROGRAMMINGComputer ScienceISBN:9781305480537Author:FARRELLPublisher:CENGAGE LEARNING - CONSIGNMENTProgramming Logic & Design ComprehensiveComputer ScienceISBN:9781337669405Author:FARRELLPublisher:CengageCOMPREHENSIVE MICROSOFT OFFICE 365 EXCEComputer ScienceISBN:9780357392676Author:FREUND, StevenPublisher:CENGAGE L



