Chat with us, powered by LiveChat You'd just have to do the question number 11. I'll provide you the form and code, I just need the executable file. Thanks2.jpg1.jpgExplanation.docx | Wridemy

You’d just have to do the question number 11. I’ll provide you the form and code, I just need the executable file. Thanks2.jpg1.jpgExplanation.docx

 

You'd just have to do the question number 11.

I'll provide you the form and code, I just need the executable file.

Thanks

Explanation:

DesignerCode

<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.Label3 = New System.Windows.Forms.Label() Me.cbover = New System.Windows.Forms.CheckBox() Me.cbtraveling = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.txtsales = New System.Windows.Forms.TextBox() Me.txtcommission = New System.Windows.Forms.TextBox() Me.txtadditional = New System.Windows.Forms.TextBox() Me.txttotaldue = New System.Windows.Forms.TextBox() Me.btnCalculate = New System.Windows.Forms.Button() Me.btnexit = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(32, 29) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(39, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Sales :" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(32, 91) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(86, 13) Me.Label2.TabIndex = 1 Me.Label2.Text = "Commission Only" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(32, 157) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(95, 13) Me.Label3.TabIndex = 2 Me.Label3.Text = "Additional Amount:" ' 'cbover ' Me.cbover.AutoSize = True Me.cbover.Location = New System.Drawing.Point(228, 46) Me.cbover.Name = "cbover" Me.cbover.Size = New System.Drawing.Size(94, 17) Me.cbover.TabIndex = 3 Me.cbover.Text = "&Over 10 Years" Me.cbover.UseVisualStyleBackColor = True ' 'cbtraveling ' Me.cbtraveling.AutoSize = True Me.cbtraveling.Location = New System.Drawing.Point(228, 80) Me.cbtraveling.Name = "cbtraveling" Me.cbtraveling.Size = New System.Drawing.Size(78, 17) Me.cbtraveling.TabIndex = 4 Me.cbtraveling.Text = "&Travvelling" Me.cbtraveling.UseVisualStyleBackColor = True ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(225, 115) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(120, 13) Me.Label4.TabIndex = 5 Me.Label4.Text = "Total Dues Salesperson" ' 'txtsales ' Me.txtsales.Location = New System.Drawing.Point(35, 46) Me.txtsales.Name = "txtsales" Me.txtsales.Size = New System.Drawing.Size(119, 20) Me.txtsales.TabIndex = 6 ' 'txtcommission ' Me.txtcommission.Location = New System.Drawing.Point(35, 115) Me.txtcommission.Name = "txtcommission" Me.txtcommission.Size = New System.Drawing.Size(119, 20) Me.txtcommission.TabIndex = 7 ' 'txtadditional ' Me.txtadditional.Location = New System.Drawing.Point(35, 183) Me.txtadditional.Name = "txtadditional" Me.txtadditional.Size = New System.Drawing.Size(119, 20) Me.txtadditional.TabIndex = 8 ' 'txttotaldue ' Me.txttotaldue.Location = New System.Drawing.Point(228, 140) Me.txttotaldue.Multiline = True Me.txttotaldue.Name = "txttotaldue" Me.txttotaldue.Size = New System.Drawing.Size(204, 65) Me.txttotaldue.TabIndex = 9 ' 'btnCalculate ' Me.btnCalculate.Location = New System.Drawing.Point(535, 46) Me.btnCalculate.Name = "btnCalculate" Me.btnCalculate.Size = New System.Drawing.Size(122, 33) Me.btnCalculate.TabIndex = 10 Me.btnCalculate.Text = "&Calculate" Me.btnCalculate.UseVisualStyleBackColor = True ' 'btnexit ' Me.btnexit.Location = New System.Drawing.Point(535, 102) Me.btnexit.Name = "btnexit" Me.btnexit.Size = New System.Drawing.Size(122, 33) Me.btnexit.TabIndex = 11 Me.btnexit.Text = "E&xit" Me.btnexit.UseVisualStyleBackColor = True ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(696, 319) Me.Controls.Add(Me.btnexit) Me.Controls.Add(Me.btnCalculate) Me.Controls.Add(Me.txttotaldue) Me.Controls.Add(Me.txtadditional) Me.Controls.Add(Me.txtcommission) Me.Controls.Add(Me.txtsales) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.cbtraveling) Me.Controls.Add(Me.cbover) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Name = "Form1" Me.Text = "Form1" 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 Label3 As System.Windows.Forms.Label Friend WithEvents cbover As System.Windows.Forms.CheckBox Friend WithEvents cbtraveling As System.Windows.Forms.CheckBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents txtsales As System.Windows.Forms.TextBox Friend WithEvents txtcommission As System.Windows.Forms.TextBox Friend WithEvents txtadditional As System.Windows.Forms.TextBox Friend WithEvents txttotaldue As System.Windows.Forms.TextBox Friend WithEvents btnCalculate As System.Windows.Forms.Button Friend WithEvents btnexit As System.Windows.Forms.Button

End Class

Coding

Public Class Form1 Dim comission As Double = 0 Dim additiona As Double = 0 Dim totalDue As Double = 0 Private Sub txtsales_KeyPress(sender As Object, e As KeyPressEventArgs) Handles txtsales.KeyPress If e.KeyChar <> ControlChars.Back Then e.Handled = Not (Char.IsDigit(e.KeyChar) Or e.KeyChar = ".") End If End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load txtcommission.Enabled = False txtadditional.Enabled = False txttotaldue.Enabled = False txtcommission.Text = String.Format("{0:n}", comission) 'display default txtadditional.Text = String.Format("{0:n}", additiona) ''display default End Sub

Private Sub btnexit_Click(sender As Object, e As EventArgs) Handles btnexit.Click End End Sub

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click If Val(txtsales.Text) > 0 Then ''calculate additional charge If cbover.Checked = True And Val(txtsales.Text) < 10000 Then If cbtraveling.Checked = True Then additiona = 700 Else additiona = 500 End If End If ''calculate commision If Val(txtsales.Text) > 1 And Val(txtsales.Text) < 5999.99 Then comission = 0.1 * Val(txtsales.Text) ElseIf Val(txtsales.Text) > 6000 And Val(txttotaldue.Text) < 29999 Then comission = 600 + 0.13 * (Val(txtsales.Text) – 6000) Else comission = 3720 + 0.14 * (Val(txtsales.Text) – 30000) End If End If totalDue = Val(txtsales.Text) + comission + additiona ''total calculation txtcommission.Text = String.Format("{0:n}", comission) ''output display for user txtadditional.Text = String.Format("{0:n}", additiona) ''output display for user txttotaldue.Text = String.Format("{0:n}", totalDue) ''output display for user End Sub End Class

Our website has a team of professional writers who can help you write any of your homework. They will write your papers from scratch. We also have a team of editors just to make sure all papers are of HIGH QUALITY & PLAGIARISM FREE. To make an Order you only need to click Ask A Question and we will direct you to our Order Page at WriteDemy. Then fill Our Order Form with all your assignment instructions. Select your deadline and pay for your paper. You will get it few hours before your set deadline.

Fill in all the assignment paper details that are required in the order form with the standard information being the page count, deadline, academic level and type of paper. It is advisable to have this information at hand so that you can quickly fill in the necessary information needed in the form for the essay writer to be immediately assigned to your writing project. Make payment for the custom essay order to enable us to assign a suitable writer to your order. Payments are made through Paypal on a secured billing page. Finally, sit back and relax.

Do you need an answer to this or any other questions?

About Wridemy

We are a professional paper writing website. If you have searched a question and bumped into our website just know you are in the right place to get help in your coursework. We offer HIGH QUALITY & PLAGIARISM FREE Papers.

How It Works

To make an Order you only need to click on “Order Now” and we will direct you to our Order Page. Fill Our Order Form with all your assignment instructions. Select your deadline and pay for your paper. You will get it few hours before your set deadline.

Are there Discounts?

All new clients are eligible for 20% off in their first Order. Our payment method is safe and secure.

Hire a tutor today CLICK HERE to make your first order

Related Tags

Academic APA Writing College Course Discussion Management English Finance General Graduate History Information Justify Literature MLA