edit VB program

vb.zip

Home >Information Systems homework help >edit VB program

EX0306ShippingSummary/EX0306ShippingSummary/_UpgradeReport_Files/UpgradeReport.css

BODY { BACKGROUND-COLOR: white; FONT-FAMILY: "Verdana", sans-serif; FONT-SIZE: 100%; MARGIN-LEFT: 0px; MARGIN-TOP: 0px } P { FONT-FAMILY: "Verdana", sans-serif; FONT-SIZE: 70%; LINE-HEIGHT: 12pt; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 10px; MARGIN-TOP: 10px } .note { BACKGROUND-COLOR: #ffffff; COLOR: #336699; FONT-FAMILY: "Verdana", sans-serif; FONT-SIZE: 100%; MARGIN-BOTTOM: 0px; MARGIN-LEFT: 0px; MARGIN-TOP: 0px; PADDING-RIGHT: 10px } .infotable { BACKGROUND-COLOR: #f0f0e0; BORDER-BOTTOM: #ffffff 0px solid; BORDER-COLLAPSE: collapse; BORDER-LEFT: #ffffff 0px solid; BORDER-RIGHT: #ffffff 0px solid; BORDER-TOP: #ffffff 0px solid; FONT-SIZE: 70%; MARGIN-LEFT: 10px } .issuetable { BACKGROUND-COLOR: #ffffe8; BORDER-COLLAPSE: collapse; COLOR: #000000; FONT-SIZE: 100%; MARGIN-BOTTOM: 10px; MARGIN-LEFT: 13px; MARGIN-TOP: 0px } .issuetitle { BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #dcdcdc 1px solid; BORDER-TOP: #dcdcdc 1px; COLOR: #003366; FONT-WEIGHT: normal } .header { BACKGROUND-COLOR: #cecf9c; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; COLOR: #000000; FONT-WEIGHT: bold } .issuehdr { BACKGROUND-COLOR: #E0EBF5; BORDER-BOTTOM: #dcdcdc 1px solid; BORDER-TOP: #dcdcdc 1px solid; COLOR: #000000; FONT-WEIGHT: normal } .issuenone { BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: 0px; BORDER-LEFT: 0px; BORDER-RIGHT: 0px; BORDER-TOP: 0px; COLOR: #000000; FONT-WEIGHT: normal } .content { BACKGROUND-COLOR: #e7e7ce; BORDER-BOTTOM: #ffffff 1px solid; BORDER-LEFT: #ffffff 1px solid; BORDER-RIGHT: #ffffff 1px solid; BORDER-TOP: #ffffff 1px solid; PADDING-LEFT: 3px } .issuecontent { BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #dcdcdc 1px solid; BORDER-TOP: #dcdcdc 1px solid; PADDING-LEFT: 3px } A:link { COLOR: #cc6633; TEXT-DECORATION: underline } A:visited { COLOR: #cc6633; } A:active { COLOR: #cc6633; } A:hover { COLOR: #cc3300; TEXT-DECORATION: underline } H1 { BACKGROUND-COLOR: #003366; BORDER-BOTTOM: #336699 6px solid; COLOR: #ffffff; FONT-SIZE: 130%; FONT-WEIGHT: normal; MARGIN: 0em 0em 0em -20px; PADDING-BOTTOM: 8px; PADDING-LEFT: 30px; PADDING-TOP: 16px } H2 { COLOR: #000000; FONT-SIZE: 80%; FONT-WEIGHT: bold; MARGIN-BOTTOM: 3px; MARGIN-LEFT: 10px; MARGIN-TOP: 20px; PADDING-LEFT: 0px } H3 { COLOR: #000000; FONT-SIZE: 80%; FONT-WEIGHT: bold; MARGIN-BOTTOM: -5px; MARGIN-LEFT: 10px; MARGIN-TOP: 20px } H4 { COLOR: #000000; FONT-SIZE: 70%; FONT-WEIGHT: bold; MARGIN-BOTTOM: 0px; MARGIN-TOP: 15px; PADDING-BOTTOM: 0px } UL { COLOR: #000000; FONT-SIZE: 70%; LIST-STYLE: square; MARGIN-BOTTOM: 0pt; MARGIN-TOP: 0pt } OL { COLOR: #000000; FONT-SIZE: 70%; LIST-STYLE: square; MARGIN-BOTTOM: 0pt; MARGIN-TOP: 0pt } LI { LIST-STYLE: square; MARGIN-LEFT: 0px } .expandable { CURSOR: hand } .expanded { color: black } .collapsed { DISPLAY: none } .foot { BACKGROUND-COLOR: #ffffff; BORDER-BOTTOM: #cecf9c 1px solid; BORDER-TOP: #cecf9c 2px solid } .settings { MARGIN-LEFT: 25PX; } .help { TEXT-ALIGN: right; margin-right: 10px; }

EX0306ShippingSummary/EX0306ShippingSummary/_UpgradeReport_Files/UpgradeReport.xslt

Solution: Project: Filename Status Errors Warnings javascript:document.images[' '].click() src Converted Converted src Conversion Report - : files 1 file Converted: Not converted: : Conversion Report function outliner () { oMe = window.event.srcElement //get child element var child = document.all[event.srcElement.getAttribute("child",false)]; //if child element exists, expand or collapse it. if (null != child) child.className = child.className == "collapsed" ? "expanded" : "collapsed"; } function changepic() { uMe = window.event.srcElement; var check = uMe.src.toLowerCase(); if (check.lastIndexOf("upgradereport_plus.gif") != -1) { uMe.src = "_UpgradeReport_Files/UpgradeReport_Minus.gif" } else { uMe.src = "_UpgradeReport_Files/UpgradeReport_Plus.gif" } } Conversion Report - Time of Conversion: Conversion Settings

EX0306ShippingSummary/EX0306ShippingSummary/_UpgradeReport_Files/UpgradeReport_Minus.gif

EX0306ShippingSummary/EX0306ShippingSummary/_UpgradeReport_Files/UpgradeReport_Plus.gif

EX0306ShippingSummary/EX0306ShippingSummary/Backup/EX0306.sln

Microsoft Visual Studio Solution File, Format Version 10.00 # Visual Basic Express 2008 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EX0306", "EX0306.vbproj", "{6A61B6D8-7075-4389-A7BF-09BE98EF610C}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Debug|Any CPU.Build.0 = Debug|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Release|Any CPU.ActiveCfg = Release|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

EX0306ShippingSummary/EX0306ShippingSummary/Backup/EX0306.suo

EX0306ShippingSummary/EX0306ShippingSummary/Backup/EX0306.vbproj

Debug AnyCPU 9.0.21022 2.0 {6A61B6D8-7075-4389-A7BF-09BE98EF610C} WinExe EX0306.My.MyApplication EX0306 EX0306 WindowsForms 2.0 v3.5 publish\ true Disk false Foreground 7 Days false false true 0 1.0.0.%2a false false true true full true true bin\Debug\ EX0306.xml 42016,42017,42018,42019,42032,42036 pdbonly false true true bin\Release\ EX0306.xml 42016,42017,42018,42019,42032,42036 Form ShippingForm.vb Form True MyApplication.myapp True True Resources.resx True Settings.settings True VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer ShippingForm.vb Designer MyApplicationCodeGenerator MyApplication.Designer.vb SettingsSingleFileGenerator Settings.Designer.vb False .NET Framework 2.0 %28x86%29 false False .NET Framework 3.0 %28x86%29 false False .NET Framework 3.5 true False Windows Installer 3.1 true

EX0306ShippingSummary/EX0306ShippingSummary/Backup/EX0306.vbproj.user

<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> <PropertyGroup> <LastOpenVersion>8.0.41202</LastOpenVersion> <ProjectView>ProjectFiles</ProjectView> <ProjectTrust>0</ProjectTrust> <PublishUrlHistory> </PublishUrlHistory> <InstallUrlHistory> </InstallUrlHistory> <SupportUrlHistory> </SupportUrlHistory> <UpdateUrlHistory> </UpdateUrlHistory> <BootstrapperUrlHistory> </BootstrapperUrlHistory> <FallbackCulture>en-US</FallbackCulture> <VerifyUploadedFiles>false</VerifyUploadedFiles> </PropertyGroup> </Project>

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/AssemblyInfo.vb

Imports System Imports System.Reflection Imports System.Runtime.InteropServices ' General Information about an assembly is controlled through the following ' set of attributes. Change these attribute values to modify the information ' associated with an assembly. ' Review the values of the assembly attributes <Assembly: AssemblyTitle("EX0306")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("EX0306")> <Assembly: AssemblyCopyright("Copyright 2008")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("88d98425-9111-4e1f-904c-3318516cbd17")> ' Version information for an assembly consists of the following four values: ' ' Major Version ' Minor Version ' Build Number ' Revision ' ' You can specify all the values or you can default the Build and Revision Numbers ' by using the '*' as shown below: ' <Assembly: AssemblyVersion("1.0.*")> <Assembly: AssemblyVersion("1.0.0.0")> <Assembly: AssemblyFileVersion("1.0.0.0")>

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/MyApplication.Designer.vb

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/MyApplication.myapp

true Form1 false 0 true 0 0 true

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/MyEvents.vb

Namespace My 'Use the editor window dropdowns in the Application pane of the Project Designer to handle MyApplication Events ' 'Startup: Raised when the application starts, before the startup form is created. 'Shutdown: Raised after all application forms are closed. This event is not raised if the application is terminating abnormally. 'UnhandledException: Raised if the application encounters an unhandled exception. 'StartupNextInstance: Raised when launching a single-instance application and the application is already active. 'NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected. Partial Friend Class MyApplication End Class End Namespace

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:2.0.50727.1433 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Namespace My.Resources 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen 'with the /str option, or rebuild your VS project. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "2.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EX0306.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property End Module End Namespace

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/Resources.resx

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:2.0.50727.1433 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "9.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class Settings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings),Settings) #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As Settings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property End Class Namespace My <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ Friend ReadOnly Property Settings() As Global.EX0306.Settings Get Return Global.EX0306.Settings.Default End Get End Property End Module End Namespace

EX0306ShippingSummary/EX0306ShippingSummary/Backup/My Project/Settings.settings

EX0306ShippingSummary/EX0306ShippingSummary/Backup/ShippingForm.Designer.vb

Partial Public Class ShippingForm Inherits System.Windows.Forms.Form <System.Diagnostics.DebuggerNonUserCode()> _ Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(ShippingForm)) Me.CalcButton = New System.Windows.Forms.Button Me.ClearButton = New System.Windows.Forms.Button Me.Label4 = New System.Windows.Forms.Label Me.Label3 = New System.Windows.Forms.Label Me.Label2 = New System.Windows.Forms.Label Me.Label1 = New System.Windows.Forms.Label Me.ExitButton = New System.Windows.Forms.Button Me.OuncesTextBox = New System.Windows.Forms.TextBox Me.GroupBox1 = New System.Windows.Forms.GroupBox Me.IDMaskedTextBox = New System.Windows.Forms.MaskedTextBox Me.PoundsTextBox = New System.Windows.Forms.TextBox Me.Label5 = New System.Windows.Forms.Label Me.ChargesTextBox = New System.Windows.Forms.TextBox Me.PrintButton = New System.Windows.Forms.Button Me.PrintForm1 = New Microsoft.VisualBasic.PowerPacks.Printing.PrintForm(Me.components) Me.GroupBox1.SuspendLayout() Me.SuspendLayout() ' 'CalcButton ' Me.CalcButton.Location = New System.Drawing.Point(11, 181) Me.CalcButton.Name = "CalcButton" Me.CalcButton.Size = New System.Drawing.Size(75, 23) Me.CalcButton.TabIndex = 3 Me.CalcButton.Text = "&Calculate" ' 'ClearButton ' Me.ClearButton.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.ClearButton.Location = New System.Drawing.Point(92, 181) Me.ClearButton.Name = "ClearButton" Me.ClearButton.Size = New System.Drawing.Size(75, 23) Me.ClearButton.TabIndex = 4 Me.ClearButton.Text = "C&lear" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(215, 72) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(32, 23) Me.Label4.TabIndex = 6 Me.Label4.Text = "&oz." ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(151, 72) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(24, 23) Me.Label3.TabIndex = 4 Me.Label3.Text = "&lb." ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(32, 72) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(44, 13) Me.Label2.TabIndex = 2 Me.Label2.Text = "Weight:" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(32, 32) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(71, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "&ID (Six digits):" ' 'ExitButton ' Me.ExitButton.Location = New System.Drawing.Point(254, 181) Me.ExitButton.Name = "ExitButton" Me.ExitButton.Size = New System.Drawing.Size(75, 23) Me.ExitButton.TabIndex = 6 Me.ExitButton.Text = "E&xit" ' 'OuncesTextBox ' Me.OuncesTextBox.Location = New System.Drawing.Point(177, 72) Me.OuncesTextBox.Name = "OuncesTextBox" Me.OuncesTextBox.Size = New System.Drawing.Size(32, 20) Me.OuncesTextBox.TabIndex = 5 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.IDMaskedTextBox) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.OuncesTextBox) Me.GroupBox1.Controls.Add(Me.PoundsTextBox) Me.GroupBox1.Location = New System.Drawing.Point(22, 12) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(288, 104) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' 'IDMaskedTextBox ' Me.IDMaskedTextBox.Location = New System.Drawing.Point(113, 25) Me.IDMaskedTextBox.Mask = "000000" Me.IDMaskedTextBox.Name = "IDMaskedTextBox" Me.IDMaskedTextBox.Size = New System.Drawing.Size(42, 20) Me.IDMaskedTextBox.TabIndex = 1 ' 'PoundsTextBox ' Me.PoundsTextBox.Location = New System.Drawing.Point(113, 72) Me.PoundsTextBox.Name = "PoundsTextBox" Me.PoundsTextBox.Size = New System.Drawing.Size(32, 20) Me.PoundsTextBox.TabIndex = 3 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(25, 135) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(93, 13) Me.Label5.TabIndex = 1 Me.Label5.Text = "Shipping Charges:" ' 'ChargesTextBox ' Me.ChargesTextBox.Location = New System.Drawing.Point(131, 135) Me.ChargesTextBox.Name = "ChargesTextBox" Me.ChargesTextBox.ReadOnly = True Me.ChargesTextBox.Size = New System.Drawing.Size(100, 20) Me.ChargesTextBox.TabIndex = 2 Me.ChargesTextBox.TabStop = False Me.ChargesTextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'PrintButton ' Me.PrintButton.Location = New System.Drawing.Point(173, 181) Me.PrintButton.Name = "PrintButton" Me.PrintButton.Size = New System.Drawing.Size(75, 23) Me.PrintButton.TabIndex = 5 Me.PrintButton.Text = "&Print" Me.PrintButton.UseVisualStyleBackColor = True ' 'PrintForm1 ' Me.PrintForm1.DocumentName = "document" Me.PrintForm1.Form = Me Me.PrintForm1.PrintAction = System.Drawing.Printing.PrintAction.PrintToPrinter Me.PrintForm1.PrinterSettings = CType(resources.GetObject("PrintForm1.PrinterSettings"), System.Drawing.Printing.PrinterSettings) Me.PrintForm1.PrintFileName = Nothing ' 'ShippingForm ' Me.AcceptButton = Me.CalcButton Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.ClearButton Me.ClientSize = New System.Drawing.Size(339, 228) Me.Controls.Add(Me.PrintButton) Me.Controls.Add(Me.ChargesTextBox) Me.Controls.Add(Me.CalcButton) Me.Controls.Add(Me.ClearButton) Me.Controls.Add(Me.ExitButton) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.Label5) Me.Name = "ShippingForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Shipping Form" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents CalcButton As System.Windows.Forms.Button Friend WithEvents ClearButton As System.Windows.Forms.Button Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents ExitButton As System.Windows.Forms.Button Friend WithEvents OuncesTextBox As System.Windows.Forms.TextBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents PoundsTextBox As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents ChargesTextBox As System.Windows.Forms.TextBox Friend WithEvents PrintButton As System.Windows.Forms.Button Friend WithEvents PrintForm1 As Microsoft.VisualBasic.PowerPacks.Printing.PrintForm Friend WithEvents IDMaskedTextBox As System.Windows.Forms.MaskedTextBox End Class

EX0306ShippingSummary/EX0306ShippingSummary/Backup/ShippingForm.resx

text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 True True True True True True True True True True True True True True 17, 17 True AAEAAAD/////AQAAAAAAAAAMAgAAAFFTeXN0ZW0uRHJhd2luZywgVmVyc2lvbj0yLjAuMC4wLCBDdWx0 dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWIwM2Y1ZjdmMTFkNTBhM2EFAQAAACdTeXN0ZW0uRHJh d2luZy5QcmludGluZy5QcmludGVyU2V0dGluZ3MSAAAAC3ByaW50ZXJOYW1lCmRyaXZlck5hbWUKb3V0 cHV0UG9ydAtwcmludFRvRmlsZRRwcmludERpYWxvZ0Rpc3BsYXllZApleHRyYWJ5dGVzCWV4dHJhaW5m bwZjb3BpZXMGZHVwbGV4B2NvbGxhdGUTZGVmYXVsdFBhZ2VTZXR0aW5ncwhmcm9tUGFnZQZ0b1BhZ2UH bWF4UGFnZQdtaW5QYWdlCnByaW50UmFuZ2UMZGV2bW9kZWJ5dGVzDWNhY2hlZERldm1vZGUBAQEAAAAH AAQEBAAAAAAEAAcBAQcCBx5TeXN0ZW0uRHJhd2luZy5QcmludGluZy5EdXBsZXgCAAAAIFN5c3RlbS5E cmF3aW5nLlByaW50aW5nLlRyaVN0YXRlAgAAACRTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QYWdlU2V0 dGluZ3MCAAAACAgICCJTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludFJhbmdlAgAAAAcCAgAAAAoG AwAAAAAJAwAAAAAAAAAK//8F/P///x5TeXN0ZW0uRHJhd2luZy5QcmludGluZy5EdXBsZXgBAAAAB3Zh bHVlX18ACAIAAAD/////Bfv///8gU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuVHJpU3RhdGUBAAAABXZh bHVlAAICAAAAAAkGAAAAAAAAAAAAAAAPJwAAAAAAAAX5////IlN5c3RlbS5EcmF3aW5nLlByaW50aW5n LlByaW50UmFuZ2UBAAAAB3ZhbHVlX18ACAIAAAAAAAAAAAAKBQYAAAAkU3lzdGVtLkRyYXdpbmcuUHJp bnRpbmcuUGFnZVNldHRpbmdzBwAAAA9wcmludGVyU2V0dGluZ3MFY29sb3IJcGFwZXJTaXplC3BhcGVy U291cmNlEXByaW50ZXJSZXNvbHV0aW9uCWxhbmRzY2FwZQdtYXJnaW5zBAQEBAQEBCdTeXN0ZW0uRHJh d2luZy5QcmludGluZy5QcmludGVyU2V0dGluZ3MCAAAAIFN5c3RlbS5EcmF3aW5nLlByaW50aW5nLlRy aVN0YXRlAgAAACFTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QYXBlclNpemUCAAAAI1N5c3RlbS5EcmF3 aW5nLlByaW50aW5nLlBhcGVyU291cmNlAgAAAClTeXN0ZW0uRHJhd2luZy5QcmludGluZy5QcmludGVy UmVzb2x1dGlvbgIAAAAgU3lzdGVtLkRyYXdpbmcuUHJpbnRpbmcuVHJpU3RhdGUCAAAAH1N5c3RlbS5E cmF3aW5nLlByaW50aW5nLk1hcmdpbnMCAAAAAgAAAAkBAAAAAff////7////AAoKCgH2////+////wAJ CwAAAAULAAAAH1N5c3RlbS5EcmF3aW5nLlByaW50aW5nLk1hcmdpbnMEAAAABGxlZnQFcmlnaHQDdG9w BmJvdHRvbQAAAAAICAgIAgAAAGQAAABkAAAAZAAAAGQAAAAL

EX0306ShippingSummary/EX0306ShippingSummary/Backup/ShippingForm.vb

'Project: Exercise 3.6 'Programmer: Theresa Berry 'Date: August 2008 'Description: Calculates and displays the charges for shipping a package. 'Folder: EX0306 Option Strict On Public Class ShippingForm 'Declare module-level constants. Const SHIP_RATE_Decimal As Decimal = 0.12D Private Sub CalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click 'Calculate and display the shipping charges Dim ShippingChargeDecimal As Decimal Dim PoundsInteger, OuncesInteger As Integer Try 'Convert pounds if input was valid PoundsInteger = Integer.Parse(PoundsTextBox.Text) Try 'Convert ounces if input was valid OuncesInteger = Integer.Parse(OuncesTextBox.Text) 'Calculate shipping charges ShippingChargeDecimal = ((PoundsInteger * 16) + OuncesInteger) * SHIP_RATE_Decimal 'Display the results ChargesTextBox.Text = ShippingChargeDecimal.ToString("C") Catch OuncesException As FormatException 'Handle if invalid amount entered for number of ounces MessageBox.Show("Please input the number of ounces (as a whole number).", "Input Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) With OuncesTextBox .Focus() .SelectAll() End With End Try Catch PoundsException As FormatException 'Handle if invalid amount entered for number of pounds MessageBox.Show("Please input the number of pounds (as a whole number).", "Input Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) With PoundsTextBox .Focus() .SelectAll() End With Catch AnException As Exception MessageBox.Show("Error: " & AnException.Message) End Try End Sub Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click 'Clear the form PoundsTextBox.Clear() OuncesTextBox.Clear() ChargesTextBox.Clear() With IDmaskedTextBox .Clear() .Focus() End With End Sub Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click 'End the program Me.Close() End Sub Private Sub PrintButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintButton.Click 'Print the form PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview PrintForm1.Print() End Sub End Class

EX0306ShippingSummary/EX0306ShippingSummary/bin/Debug/EX0306.exe

EX0306ShippingSummary/EX0306ShippingSummary/bin/Debug/EX0306.pdb

EX0306ShippingSummary/EX0306ShippingSummary/bin/Debug/EX0306.vshost.exe

EX0306ShippingSummary/EX0306ShippingSummary/bin/Debug/EX0306.vshost.exe.manifest

EX0306ShippingSummary/EX0306ShippingSummary/bin/Debug/EX0306.xml

EX0306 Returns the cached ResourceManager instance used by this class. Overrides the current thread's CurrentUICulture property for all resource lookups using this strongly typed resource class. A strongly-typed resource class, for looking up localized strings, etc.

EX0306ShippingSummary/EX0306ShippingSummary/EX0306.sln

Microsoft Visual Studio Solution File, Format Version 11.00 # Visual Studio 2010 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EX0306", "EX0306.vbproj", "{6A61B6D8-7075-4389-A7BF-09BE98EF610C}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Debug|Any CPU.Build.0 = Debug|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Release|Any CPU.ActiveCfg = Release|Any CPU {6A61B6D8-7075-4389-A7BF-09BE98EF610C}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

EX0306ShippingSummary/EX0306ShippingSummary/EX0306.suo

EX0306ShippingSummary/EX0306ShippingSummary/EX0306.v12.suo

EX0306ShippingSummary/EX0306ShippingSummary/EX0306.vbproj

Debug AnyCPU 9.0.21022 2.0 {6A61B6D8-7075-4389-A7BF-09BE98EF610C} WinExe EX0306.My.MyApplication EX0306 EX0306 WindowsForms 3.5 v3.5 false publish\ true Disk false Foreground 7 Days false false true 0 1.0.0.%2a false true true full true true bin\Debug\ EX0306.xml 42016,42017,42018,42019,42032,42036,42353,42354,42355 pdbonly false true true bin\Release\ EX0306.xml 42016,42017,42018,42019,42032,42036,42353,42354,42355 Form ShippingForm.vb Form True MyApplication.myapp True True Resources.resx True Settings.settings True VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer ShippingForm.vb Designer MyApplicationCodeGenerator MyApplication.Designer.vb SettingsSingleFileGenerator Settings.Designer.vb False .NET Framework 3.5 SP1 Client Profile false False .NET Framework 2.0 %28x86%29 false False .NET Framework 3.0 %28x86%29 false False .NET Framework 3.5 true False .NET Framework 3.5 SP1 false False Windows Installer 3.1 true

EX0306ShippingSummary/EX0306ShippingSummary/EX0306.vbproj.user

8.0.41202 ProjectFiles 0 en-US false

EX0306ShippingSummary/EX0306ShippingSummary/My Project/AssemblyInfo.vb

EX0306ShippingSummary/EX0306ShippingSummary/My Project/MyApplication.Designer.vb

EX0306ShippingSummary/EX0306ShippingSummary/My Project/MyApplication.myapp

true Form1 false 0 true 0 0 true

EX0306ShippingSummary/EX0306ShippingSummary/My Project/MyEvents.vb

EX0306ShippingSummary/EX0306ShippingSummary/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.1026 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On Imports System Namespace My.Resources 'This class was auto-generated by the StronglyTypedResourceBuilder 'class via a tool like ResGen or Visual Studio. 'To add or remove a member, edit your .ResX file then rerun ResGen 'with the /str option, or rebuild your VS project. '''<summary> ''' A strongly-typed resource class, for looking up localized strings, etc. '''</summary> <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Friend Module Resources Private resourceMan As Global.System.Resources.ResourceManager Private resourceCulture As Global.System.Globalization.CultureInfo '''<summary> ''' Returns the cached ResourceManager instance used by this class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Get If Object.ReferenceEquals(resourceMan, Nothing) Then Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EX0306.Resources", GetType(Resources).Assembly) resourceMan = temp End If Return resourceMan End Get End Property '''<summary> ''' Overrides the current thread's CurrentUICulture property for all ''' resource lookups using this strongly typed resource class. '''</summary> <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Friend Property Culture() As Global.System.Globalization.CultureInfo Get Return resourceCulture End Get Set resourceCulture = value End Set End Property End Module End Namespace

EX0306ShippingSummary/EX0306ShippingSummary/My Project/Resources.resx

EX0306ShippingSummary/EX0306ShippingSummary/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.1026 ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </auto-generated> '------------------------------------------------------------------------------ Option Strict On Option Explicit On <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "10.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class Settings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As Settings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New Settings()),Settings) #Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean Private Shared addedHandlerLockObject As New Object <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) If My.Application.SaveMySettingsOnExit Then My.Settings.Save() End If End Sub #End If #End Region Public Shared ReadOnly Property [Default]() As Settings Get #If _MyType = "WindowsForms" Then If Not addedHandler Then SyncLock addedHandlerLockObject If Not addedHandler Then AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings addedHandler = True End If End SyncLock End If #End If Return defaultInstance End Get End Property End Class Namespace My <Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _ Friend Module MySettingsProperty <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ Friend ReadOnly Property Settings() As Global.EX0306.Settings Get Return Global.EX0306.Settings.Default End Get End Property End Module End Namespace

EX0306ShippingSummary/EX0306ShippingSummary/My Project/Settings.settings

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/DesignTimeResolveAssemblyReferences.cache

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.exe

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.pdb

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.Resources.resources

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.shippingForm.resources

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.vbproj.FileListAbsolute.txt

C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.exe C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.xml C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.pdb C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\ResolveAssemblyReference.cache C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.Resources.resources C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.ShippingForm.resources C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\obj\Debug\EX0306.vbproj.GenerateResource.Cache C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\bin\Debug\EX0306.exe C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\bin\Debug\EX0306.pdb C:\Users\Theresa\Documents\VB2008\Solutions\Chapter03\EX0306\bin\Debug\EX0306.xml C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.exe C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.xml C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.pdb C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\bin\Debug\EX0306.exe C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\bin\Debug\EX0306.pdb C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\bin\Debug\EX0306.xml C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\ResolveAssemblyReference.cache C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.Resources.resources C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.ShippingForm.resources C:\Users\Theresa\Documents\VB2008\Solutions IM and Testbank\Solutions\Chapter03\EX0306\obj\Debug\EX0306.vbproj.GenerateResource.Cache C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\EX0306.exe C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\EX0306.xml C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\EX0306.pdb C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\bin\Debug\EX0306.exe C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\bin\Debug\EX0306.pdb C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\bin\Debug\EX0306.xml C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\ResolveAssemblyReference.cache C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\EX0306.Resources.resources C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\EX0306.ShippingForm.resources C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\GenerateResource-ResGen.read.1.tlog C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306\obj\Debug\GenerateResource-ResGen.write.1.tlog C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\EX0306.exe C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\EX0306.xml C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\EX0306.pdb C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\bin\Debug\EX0306.exe C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\bin\Debug\EX0306.pdb C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\bin\Debug\EX0306.xml C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\ResolveAssemblyReference.cache C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\EX0306.Resources.resources C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\EX0306.ShippingForm.resources C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\GenerateResource-ResGen.read.1.tlog C:\Users\rgiorcelli\Documents\BISM 3800\Demo Programs\EX0306ShippingSummary\obj\Debug\GenerateResource-ResGen.write.1.tlog C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.exe C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.xml C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.pdb C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\bin\Debug\EX0306.exe C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\bin\Debug\EX0306.pdb C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\bin\Debug\EX0306.xml C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.Resources.resources C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.ShippingForm.resources C:\Users\nalquayyid\Desktop\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.vbproj.GenerateResource.Cache U:\3800\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.exe U:\3800\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.xml U:\3800\EX0306ShippingSummary\EX0306ShippingSummary\obj\Debug\EX0306.pdb

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.vbproj.GenerateResource.Cache

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/EX0306.xml

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/GenerateResource-ResGen.read.1.tlog

^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\MY PROJECT\RESOURCES.RESX ^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\SHIPPINGFORM.RESX ^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\MY PROJECT\RESOURCES.RESX ^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\SHIPPINGFORM.RESX

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/GenerateResource-ResGen.write.1.tlog

^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\MY PROJECT\RESOURCES.RESX|C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\SHIPPINGFORM.RESX C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\OBJ\DEBUG\EX0306.RESOURCES.RESOURCES C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306\OBJ\DEBUG\EX0306.SHIPPINGFORM.RESOURCES ^C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\MY PROJECT\RESOURCES.RESX|C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\SHIPPINGFORM.RESX C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\OBJ\DEBUG\EX0306.RESOURCES.RESOURCES C:\USERS\RGIORCELLI\DOCUMENTS\BISM 3800\DEMO PROGRAMS\EX0306SHIPPINGSUMMARY\OBJ\DEBUG\EX0306.SHIPPINGFORM.RESOURCES

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/ResolveAssemblyReference.cache

EX0306ShippingSummary/EX0306ShippingSummary/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll

EX0306ShippingSummary/EX0306ShippingSummary/obj/EX0306.vbproj.FileList.txt

bin\Debug\EX0306.exe.config bin\Debug\EX0306.exe bin\Debug\EX0306.pdb bin\Debug\EX0306.xml obj\Debug\ResolveAssemblyReference.cache obj\Debug\EX0306.Resources.resources obj\Debug\EX0306.shippingForm.resources obj\Debug\EX0306.vbproj.GenerateResource.Cache obj\Debug\EX0306.exe obj\Debug\EX0306.xml obj\Debug\EX0306.pdb

EX0306ShippingSummary/EX0306ShippingSummary/ProcessShipping.vb

Public Class ProcessShipping Private ShippingCharge As Integer Private PoundsInteger, OuncesInteger As Integer Public Sub New(ByVal ShippingIn As Decimal, ByVal Shipping2In As Decimal) oz1 = ShippingIn Lb1 = Shipping2In CalculateOz() End Sub Property oz1() As Decimal Get Return PoundsInteger End Get Set(value As Decimal) PoundsInteger = value End Set End Property Property Lb1() As Decimal Get Return OuncesInteger End Get Set(value As Decimal) OuncesInteger = value End Set End Property Protected Sub CalculateOz() 'Calculate ShippingCharge = PoundsInteger * 0.12D End Sub Catch OuncesException As FormatException 'Handle if invalid amount entered for number of ounces MessageBox.Show("Please input the number of ounces (as a whole number).", "Input Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) With OuncesTextBox .Focus() .SelectAll() End With End Try End Class

EX0306ShippingSummary/EX0306ShippingSummary/ShippingForm.Designer.vb

Partial Public Class ShippingForm Inherits System.Windows.Forms.Form <System.Diagnostics.DebuggerNonUserCode()> _ Public Sub New() MyBase.New() 'This call is required by the Windows Form Designer. InitializeComponent() End Sub 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot Nothing Then components.Dispose() End If MyBase.Dispose(disposing) End Sub 'Required by the Windows Form Designer Private components As System.ComponentModel.IContainer 'NOTE: The following procedure is required by the Windows Form Designer 'It can be modified using the Windows Form Designer. 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() Me.CalcButton = New System.Windows.Forms.Button() Me.ClearButton = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.ExitButton = New System.Windows.Forms.Button() Me.OuncesTextBox = New System.Windows.Forms.TextBox() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.IDMaskedTextBox = New System.Windows.Forms.MaskedTextBox() Me.PoundsTextBox = New System.Windows.Forms.TextBox() Me.Label5 = New System.Windows.Forms.Label() Me.ChargesTextBox = New System.Windows.Forms.TextBox() Me.SummaryButton = New System.Windows.Forms.Button() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.CountLabel = New System.Windows.Forms.Label() Me.TotalChargesLabel = New System.Windows.Forms.Label() Me.TotalWeightLabel = New System.Windows.Forms.Label() Me.GroupBox1.SuspendLayout() Me.GroupBox2.SuspendLayout() Me.SuspendLayout() ' 'CalcButton ' Me.CalcButton.Location = New System.Drawing.Point(14, 398) Me.CalcButton.Name = "CalcButton" Me.CalcButton.Size = New System.Drawing.Size(75, 23) Me.CalcButton.TabIndex = 3 Me.CalcButton.Text = "&Calculate" ' 'ClearButton ' Me.ClearButton.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.ClearButton.Location = New System.Drawing.Point(95, 398) Me.ClearButton.Name = "ClearButton" Me.ClearButton.Size = New System.Drawing.Size(75, 23) Me.ClearButton.TabIndex = 4 Me.ClearButton.Text = "C&lear" ' 'Label4 ' Me.Label4.Location = New System.Drawing.Point(215, 72) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(32, 23) Me.Label4.TabIndex = 6 Me.Label4.Text = "&oz." ' 'Label3 ' Me.Label3.Location = New System.Drawing.Point(151, 72) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(24, 23) Me.Label3.TabIndex = 4 Me.Label3.Text = "&lb." ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(32, 72) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(44, 13) Me.Label2.TabIndex = 2 Me.Label2.Text = "Weight:" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(32, 32) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(71, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "&ID (Six digits):" ' 'ExitButton ' Me.ExitButton.Location = New System.Drawing.Point(257, 398) Me.ExitButton.Name = "ExitButton" Me.ExitButton.Size = New System.Drawing.Size(75, 23) Me.ExitButton.TabIndex = 6 Me.ExitButton.Text = "E&xit" ' 'OuncesTextBox ' Me.OuncesTextBox.Location = New System.Drawing.Point(177, 72) Me.OuncesTextBox.Name = "OuncesTextBox" Me.OuncesTextBox.Size = New System.Drawing.Size(32, 20) Me.OuncesTextBox.TabIndex = 5 ' 'GroupBox1 ' Me.GroupBox1.Controls.Add(Me.IDMaskedTextBox) Me.GroupBox1.Controls.Add(Me.Label4) Me.GroupBox1.Controls.Add(Me.Label3) Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.Label1) Me.GroupBox1.Controls.Add(Me.OuncesTextBox) Me.GroupBox1.Controls.Add(Me.PoundsTextBox) Me.GroupBox1.Location = New System.Drawing.Point(22, 12) Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.Size = New System.Drawing.Size(288, 104) Me.GroupBox1.TabIndex = 0 Me.GroupBox1.TabStop = False ' 'IDMaskedTextBox ' Me.IDMaskedTextBox.Location = New System.Drawing.Point(113, 25) Me.IDMaskedTextBox.Mask = "000000" Me.IDMaskedTextBox.Name = "IDMaskedTextBox" Me.IDMaskedTextBox.Size = New System.Drawing.Size(42, 20) Me.IDMaskedTextBox.TabIndex = 1 ' 'PoundsTextBox ' Me.PoundsTextBox.Location = New System.Drawing.Point(113, 72) Me.PoundsTextBox.Name = "PoundsTextBox" Me.PoundsTextBox.Size = New System.Drawing.Size(32, 20) Me.PoundsTextBox.TabIndex = 3 ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(25, 135) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(93, 13) Me.Label5.TabIndex = 1 Me.Label5.Text = "Shipping Charges:" ' 'ChargesTextBox ' Me.ChargesTextBox.Location = New System.Drawing.Point(131, 135) Me.ChargesTextBox.Name = "ChargesTextBox" Me.ChargesTextBox.ReadOnly = True Me.ChargesTextBox.Size = New System.Drawing.Size(100, 20) Me.ChargesTextBox.TabIndex = 2 Me.ChargesTextBox.TabStop = False Me.ChargesTextBox.TextAlign = System.Windows.Forms.HorizontalAlignment.Right ' 'SummaryButton ' Me.SummaryButton.Location = New System.Drawing.Point(176, 398) Me.SummaryButton.Name = "SummaryButton" Me.SummaryButton.Size = New System.Drawing.Size(75, 23) Me.SummaryButton.TabIndex = 7 Me.SummaryButton.Text = "Summary" Me.SummaryButton.UseVisualStyleBackColor = True ' 'GroupBox2 ' Me.GroupBox2.Controls.Add(Me.TotalWeightLabel) Me.GroupBox2.Controls.Add(Me.TotalChargesLabel) Me.GroupBox2.Controls.Add(Me.CountLabel) Me.GroupBox2.Controls.Add(Me.Label8) Me.GroupBox2.Controls.Add(Me.Label6) Me.GroupBox2.Controls.Add(Me.Label7) Me.GroupBox2.Location = New System.Drawing.Point(28, 198) Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.Size = New System.Drawing.Size(262, 168) Me.GroupBox2.TabIndex = 8 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Summary for All Packages Processed" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(22, 84) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(120, 13) Me.Label6.TabIndex = 9 Me.Label6.Text = "Total Shipping Charges:" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(22, 123) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(71, 13) Me.Label7.TabIndex = 10 Me.Label7.Text = "Total Weight:" ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(22, 48) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(84, 13) Me.Label8.TabIndex = 11 Me.Label8.Text = "Package Count:" ' 'CountLabel ' Me.CountLabel.AutoSize = True Me.CountLabel.Location = New System.Drawing.Point(175, 48) Me.CountLabel.Name = "CountLabel" Me.CountLabel.Size = New System.Drawing.Size(0, 13) Me.CountLabel.TabIndex = 12 ' 'TotalChargesLabel ' Me.TotalChargesLabel.AutoSize = True Me.TotalChargesLabel.Location = New System.Drawing.Point(175, 84) Me.TotalChargesLabel.Name = "TotalChargesLabel" Me.TotalChargesLabel.Size = New System.Drawing.Size(0, 13) Me.TotalChargesLabel.TabIndex = 13 ' 'TotalWeightLabel ' Me.TotalWeightLabel.AutoSize = True Me.TotalWeightLabel.Location = New System.Drawing.Point(175, 123) Me.TotalWeightLabel.Name = "TotalWeightLabel" Me.TotalWeightLabel.Size = New System.Drawing.Size(0, 13) Me.TotalWeightLabel.TabIndex = 14 ' 'ShippingForm ' Me.AcceptButton = Me.CalcButton Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.ClearButton Me.ClientSize = New System.Drawing.Size(339, 442) Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.SummaryButton) Me.Controls.Add(Me.ChargesTextBox) Me.Controls.Add(Me.CalcButton) Me.Controls.Add(Me.ClearButton) Me.Controls.Add(Me.ExitButton) Me.Controls.Add(Me.GroupBox1) Me.Controls.Add(Me.Label5) Me.Name = "ShippingForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Shipping Form" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.GroupBox2.ResumeLayout(False) Me.GroupBox2.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents CalcButton As System.Windows.Forms.Button Friend WithEvents ClearButton As System.Windows.Forms.Button Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents ExitButton As System.Windows.Forms.Button Friend WithEvents OuncesTextBox As System.Windows.Forms.TextBox Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents PoundsTextBox As System.Windows.Forms.TextBox Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents ChargesTextBox As System.Windows.Forms.TextBox Friend WithEvents IDMaskedTextBox As System.Windows.Forms.MaskedTextBox Friend WithEvents SummaryButton As System.Windows.Forms.Button Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents TotalWeightLabel As System.Windows.Forms.Label Friend WithEvents TotalChargesLabel As System.Windows.Forms.Label Friend WithEvents CountLabel As System.Windows.Forms.Label Friend WithEvents Label8 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label End Class

EX0306ShippingSummary/EX0306ShippingSummary/ShippingForm.resx

EX0306ShippingSummary/EX0306ShippingSummary/ShippingForm.vb

'Project: Exercise 3.6 'Programmer: Theresa Berry 'Date: August 2008 'Description: Calculates and displays the charges for shipping a package. 'Folder: EX0306 Option Strict On Public Class ShippingForm Private Process As ProcessShipping 'Declare module-level constants. Const SHIP_RATE_Decimal As Decimal = 0.12D Private Sub CalcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CalcButton.Click 'Calculate and display the shipping charges Dim ShippingChargeDecimal As Decimal Dim PoundsInteger, OuncesInteger As Integer Try 'Convert pounds if input was valid PoundsInteger = Integer.Parse(PoundsTextBox.Text) Try 'Convert ounces if input was valid OuncesInteger = Integer.Parse(OuncesTextBox.Text) 'Calculate shipping charges ShippingChargeDecimal = ((PoundsInteger * 16) + OuncesInteger) * SHIP_RATE_Decimal 'Display the results ChargesTextBox.Text = ShippingChargeDecimal.ToString("C") Catch OuncesException As FormatException 'Handle if invalid amount entered for number of ounces If OuncesInteger = -1 Then MessageBox.Show("Please input the number of ounces (as a whole number).", "Input Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If With OuncesTextBox .Focus() .SelectAll() End With End Try Catch PoundsException As FormatException 'Handle if invalid amount entered for number of pounds If PoundsInteger = -1 Then MessageBox.Show("Please input the number of pounds (as a whole number).", "Input Error", _ MessageBoxButtons.OK, MessageBoxIcon.Exclamation) End If With PoundsTextBox .Focus() .SelectAll() End With Catch AnException As Exception MessageBox.Show("Error: " & AnException.Message) End Try End Sub Private Sub ClearButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearButton.Click 'Clear the form PoundsTextBox.Clear() OuncesTextBox.Clear() ChargesTextBox.Clear() With IDmaskedTextBox .Clear() .Focus() End With End Sub Private Sub ExitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitButton.Click 'End the program Me.Close() End Sub Private Sub SummaryButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SummaryButton.Click 'Display summary information for all packages processed Dim MessageString As String MessageString = "Shipping Total = " & ProcessShipping.totalshipping.ToString("C") & Environment.NewLine & "shipping cost: " & ProcessShipping.ShippingChargeDecimal.ToString("N") _ & Environment.NewLine & "Total of shipping Discounts: " & ShippingChargeDecimal.DiscountTotal.ToString("C") MessageBox.Show(MessageString, "Summary", MessageBoxButtons.OK, MessageBoxIcon.Information) End Sub End Class