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
types and concept of recurson

ODBC   The ODBC gives an API which distinguishes the data base vendors implementation via the ODBC drivers specific to a DBMS. The program will use the API to call the ODBC dr

INTRODUCTION TO DATABASE APPLICATIONS   In this section, we define a dialog and tab order that is the order in which the controls will be navigated during the execution. The D

A variable is convenient placeholder which refers to a computer memory location where you can store program information which may change when your script is running. For instance,

I have an external application I open from visual studio (excel). I want to reposition where that opens (top, left).. How do I do that?

SDI Application The SDI application uses the main frame window to exhibit a document. Only one document can be opened at a particular time.

Create a project that draw a rectangle shape which may be either (*) or (+) according to the selected radio button. The number of rows in the shape will be taken from the 1 st

I would like to know how to deploy a VB.NET Application using SQL SERVER as a back-end database

Software That Is Obscure: The Software hides the intensions, meaning and actions from the user. For illustration, if a user is asked whether a full installation, the custom in