Lab6 - v AnyCPu °=D<§JQ¢J$€§>QI...

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

View Full Document Right Arrow Icon
Background image of page 1

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

View Full DocumentRight Arrow Icon
Background image of page 2
Background image of page 3

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

View Full DocumentRight Arrow Icon
Background image of page 4
Background image of page 5
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: v AnyCPu °=D<§JQ¢J$€§>QI runnLvl:i DrderCalmlahnr.vb | Fen-ninth [Desogfl] ] o0 Buttnnl yr 3’ Crick 'Z-leidiFeterson L'LebSPertl Public Class Forml [—3 Private Dim formisvalicl As Boolean = True Dim total As Double Dim objDrderCalculatclr As New OrderCalculathr lstMessages . Items . Clear I} If IsNumeric:txtordernmnunt.Text} = False Then formisvalid = False Sub ButtonliclicktflyVal sender As System.0bject, ByVal e As System.EventArgs} Handles Buttonl.Click lstHessages.Items.Add("Please enter a numeric Order Amount") Else If txtDrderAmflunE.Text > 0 Then Else farmisvalid = False lsCHEssagEs.Items.Addt" Please Enter only End If End If If IsNumericttxtSalesTax.Text} : False Then farmisvalid : False lstMessages.Items.Add:"Please enter a numeric Else If txtSalesTax.Text < 0 Or txtSalesTax.Text > POSITIVE DIdEI Amnuntfifl Sales Tax figure between 0 and .19") 0 . 19 Then formisvalid = False lstMessages.Items.Add:"Please enter Sales Tax figure between 0 and .19'} End If End If If formisvalid = True Then obj OrderCalculathr . Ordernmnunt = txtorde rnmaunt .Text objOrderCalculator.SalesTaxPercent = txtSalesTax.Text total = obj OrderCalculathr. GetTatalAfterDiscount I} lstHessages . Items . Clear I} lstHesSages.ItemS.Add("The total after dlscount 13" End If — End Sub —End Class & Format(total, "currency"}} nzmmwnummmuMTsWV-w um Anyml § iiigfl E 3 ran um M amuse! g: g? hummus“. -x.. aluminum...“ m- m arm-u '[77sn mmamhunm. a mi xmlnmJlalLug-u- m... I—liafll,u,n,fl .71.;easuu.onau,n_ man-,n—ncm',au' B m” mind-n: mm- m “and vim =94. w mm. “‘a—Emfil '- LabéHeidiPetersc-n [Running] - Microsoft 1|-I'i5una.l Studio IE9??? ' _. F c-rm'i Calculate Total Alta" Discount lst Messages .:. _":-: F on“ 1 {hderflrmmt Sales Tax PM all] I Calculate Total Potter Dismurfi i The total alter discount ammo + string Seantllam + string Gamma ~852mpmmmwsumn v-ammvwflo/Wh u: Awgwduam - I a a 1mm «1 Tu LabbBufloanlick r Micmsmt Visio BEE!“ I nua‘ V sac Slaps Seadlfixm “Type your seardw here v E Anew Shaves (us mats] Efiadngmndsmm‘s) fiaaxfiawdutsrapesms ms) yew [mat Fgmat iDvfiHQ'filhl7fi‘aeL-fifigx J'Qvt‘v'lfi vwlily _ 1 WWWWWWWW Imflfluwmwiiéi WI~A~ Avgvthvflmeme 1— 139“ auém the Deflmfijflfir‘mmes . W‘UE M‘MU' It 1mm a er'npty ‘ Displaygmx Massey: Else : - DmSeMwublBS- ‘ 5.x aqua Logmfl} -'aegin Buluznichd - ' Deuane Variables ‘ Hesml = nbjDS Getflamsar Vina Display Fawn ...
View Full Document

Page1 / 5

Lab6 - v AnyCPu °=D&amp;lt;§JQ¢J$€§&amp;gt;QI...

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

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