VB Exercise 6-3 - Exercise 6-3 .I was a little slow posting...

Info iconThis preview shows pages 1–3. Sign up to view the full content.

View Full Document Right Arrow Icon
Exercise 6-3 ….I was a little slow posting last week. It was Income Tax time and took priority over all else. IT is done now so I can get back to what I love. This exercise from several days ago asks us to create an order form that will take the number of spools of wire ordered and output the total cost of the order. Total Cost is based a charge of $100/spool and several different shipping charges based on the urgency of the order. $10/spool for Regular, $15/spool for Rush, $20/spool for Super Rush delivery Start Program Code Public Class Form1 ’Notice that I did not use the ControlChars library this time Private Sub btnExit_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click Me .Close() End Sub Private Sub btnClearForm_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClearForm.Click ResetSpools() ResetDelivery() End Sub Private Sub btnCalculate_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click Dim NumSpoolsOrdered As Integer
Background image of page 1

Info iconThis preview has intentionally blurred sections. Sign up to view the full version.

View Full DocumentRight Arrow Icon
Dim NumInStock As Integer Dim NumReady As Integer Dim NumBackOrdered As Integer Dim SandHCost As Decimal Dim TotDue As Decimal Try NumSpoolsOrdered = CInt (txtSpoolsOrdered.Text) Catch ex As Exception MessageBox.Show( "Spools Ordered must be 1 or more. Try Again" , "Input Error #1"
Background image of page 2
Image of page 3
This is the end of the preview. Sign up to access the rest of the document.

This note was uploaded on 11/11/2011 for the course COP 1332 taught by Professor Ryland during the Spring '11 term at American College of Computer & Information Sciences.

Page1 / 4

VB Exercise 6-3 - Exercise 6-3 .I was a little slow posting...

This preview shows document pages 1 - 3. Sign up to view the full document.

View Full Document Right Arrow Icon
Ask a homework question - tutors are online