Find the total cost, Visual Basic Programming

<HTML>

<H2> Case: Design a web page that contains the VBScript utilized for calculating subtotals, taxes, discounts & totals as well as code utilized to validate user input.</H2>

<HEAD>

<TITLE>VBScript: Case Study</TITLE>

<SCRIPT LANGUAGE="VBScript">

<!-- Add this to instruct non-IE browsers to skip over VBScript modules. Option Explicit

Sub cmd Calculate_On Click Dim Amount of Discount Dim Amount of Tax

Dim DISCOUNT_LIMIT Dim DISCOUNT_RATE Dim Subtotal Before

Dim Subtotal After Dim TAX_RATE Dim Total Cost

 

If (Len(Document .frmCaseStudy.txtQuantity.Value) = 0) Then

MsgBox "You have to enter quantity." Exit Sub

End If

If (Not IsNumeric(Document.frmCaseStudy.txtQuantity.Value)) Then

MsgBox "Quantity has to be a numeric value." Exit Sub

End If

If (Len(Document.frmCaseStudy.cmbProducts.Value) = 0) Then

MsgBox "You have to select product." Exit Sub

End If

DISCOUNT_LIMIT = 1000

DISCOUNT_RATE = .10

TAX_RATE = 0.06

'Calculate the subtotal for the order.

SubtotalBefore=Document.frmCaseStudy.txtQuantity.Value* Document.frmCaseStudy.lblUnitCost.value

If (SubtotalBefore > DISCOUNT_LIMIT) Then

AmountofDiscount = SubtotalBefore * DISCOUNT_RATE Else

AmountofDiscount = 0

End If

SubtotalAfter = SubtotalBefore - AmountofDiscount

' Calculate taxes & total cost.

AmountofTax = SubtotalAfter * TAX_RATE TotalCost = SubtotalAfter + AmountofTax

'Display the results. Document.frmCaseStudy.lblSubtotalBefore.value = SubtotalBefore Document.frmCaseStudy.lblDiscount.value=AmountofDiscount Document.frmCaseStudy.lblSubtotalAfter.value=SubtotalAfter Document.frmCaseStudy.lblTaxes.value=AmountofTax Document.frmCaseStudy.lblTotalCost.value = TotalCost

 

End Sub

Sub cmdSubmit_onClick

'Submit this order for processing.

MsgBox "Your order has been submitted." Document.frmCaseStudy.Submit

End Sub

Sub cmbProducts_onchange()

Select Case Document.frmCaseStudy.cmbProducts.SelectedIndex

Case 1

Document.frmCaseStudy.lblUnitCost.value = 1590

Case 2

Document.frmCaseStudy.lblUnitCost.value = 880

Case 3

Document.frmCaseStudy.lblUnitCost.value = 1940

Case Else

Document.frmCaseStudy.lblUnitCost.value = 0

End Select

End Sub

-->

</SCRIPT>

</HEAD>

<BODY>

<FORM NAME="frmCaseStudy">

<TABLE>

<TR>

<TD><B>Monitor:</B></TD>

<TD>

<SELECT NAME = "cmbProducts">

<OPTION VALUE ="0" ></OPTION>

<OPTION VALUE ="1" >Item 1</OPTION>

<OPTION VALUE ="2">Item 2</OPTION>

<OPTION VALUE ="3">Item 3</OPTION>

</SELECT>

</TD>

</TR>

<TR>

<TD><B>Quantity:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="txtQuantity" >

</TD>

</TR>

<TR>

<TD><INPUT TYPE="Button" NAME="cmdCalculate" VALUE="Calculate

Cost"></TD>

<TD></TD>

</TR>

<TR>

<TD><B>Unit Cost:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="lblUnitCost" >

</TD>

</TR>

<TR>

<TD><B>Subtotal before discount:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="lblSubtotalBefore" >

</TD>

</TR>

<TR>

<TD><B>Discount:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME = "lblDiscount" >

</TD>

</TR>

<TR>

<TD><B>Subtotal after discount:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="lblSubtotalAfter" >

</TD>

</TR>

<TR>

<TD><B>Taxes:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="lblTaxes" >

</TD>

</TR>

<TR>

<TD><B>Total Cost:</B></TD>

<TD>

<INPUT TYPE = "TEXT" NAME ="lblTotalCost" >

</TD>

</TR>

<TR>

<TD><INPUT TYPE="Button" NAME="cmdSubmit" VALUE="Submit

Order"></TD>

<TD></TD>

</TR>

</TABLE>

</FORM>

</BODY>

</HTML>

Posted Date: 4/23/2013 1:44:24 AM | Location : United States







Related Discussions:- Find the total cost, Assignment Help, Ask Question on Find the total cost, Get Answer, Expert's Help, Find the total cost Discussions

Write discussion on Find the total cost
Your posts are moderated
Related Questions
This is a series of VBScript statements enclosed through the Function & End Function statements. A Function procedure is same to a Sub procedure, however can also return a value. T

The Refresh Method: The refresh method transfer to the first record in the record set. To invoke the refresh method follow the syntax which is as shown below: Form1.Data1.R

Displaying the file Without Scrolling: To display a file follow the steps as shown below: 1. Generate a SDI application. 2. Type the coding as shown in the Serialize els

CONTROL ARRAY The control array is a group of similar objects with similar name. Adding controls with control arrays uses less resource than simply adding the multiple controls

The user has to enter a starting balance, the dollar amount of deposits, and the dollar amount of withdrawals. the program then has to calculate the balance

Create a Visual Basic that allows a user to play a variation of Hangman. User Inputs The user types a letter into the textbox.   Functional Items 1. Read a

Displaying a file With Scrolling: To display a file with the scrolling option allows the steps as shown below: 1. Generate a SDI application. 2. In the Step 6 of the App

INTRODUCTION TO CONTROLS AND TOOLBARS The Visual Basic programming is an event driven programming. In the form objects the termed controls are placed. We can put the properties

We are need of VB.NET Dynamically Created Gridview with Textboxes, DDLs Utilizing VB code in ASP.NET I dynamically create a calendar showing either 3 or 6 or 9 or 12 months, dep

Methods: VBScript Dictionary Object Method D escription Add Method Adds a key, item pair. Exists Method