frmLab4Part1 - objOrderCalculator.OrderAmount =...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
'Lab4Part1HeidiPeterson 'Driver Program ' Public Class frmLab4Part1HeidiPeterson P Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)Handles Button1_Click 'declares variables Dim objOrderCalculator As New OrderCalculator Dim TotalAfterDiscount As Double 'get OrderAmount and SalesTax
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: objOrderCalculator.OrderAmount = txtOrderAmount.Text objOrderCalculator.SalesTaxPercent = txtSalesTax.Text TotalAfterDiscount = objOrderCalculator.GetTotalAfterDiscount() lblOutput.Text = "the total after the discount is" & _ Format(TotalAfterDiscount, "currency") End Sub End Class...
View Full Document

This note was uploaded on 07/27/2009 for the course BIS 311 taught by Professor Marshburn during the Fall '08 term at DeVry Cincinnati.

Ask a homework question - tutors are online