3 Simple Visual Basic Projects | Due in 24 hours | $10

Archive.zip

Home >Computer Science homework help >3 Simple Visual Basic Projects | Due in 24 hours | $10

272Week4_Assignments(2).docx

Chapter 3 Memory Locations and Calculations

Due Date: Submit by the end of the day on Thursday 09/21/2017 in Blackboard. Late penalty is 10% per weekday for a maximum of 5 days. No submission after Wednesday 9/27/2017.

How to submit your zipped 272Week4_Assignments_YourName folder:

I will only accept folder zipped using your Windows operating system’s compression utility. Make sure you have saved all assignment(s) in a folder named 272Week4_Assignment_YourName.

Assigned Project(s):

For each of the following projects, use comments to enter the following information above

' *******************************************************************

' Project: <project name>

' Programmer: <your name>

' Description: <Brief description of the project and its purpose>

' ********************************************************************

Above the following the partial form class assuming your form name is MainForm

Public Class MainForm

…

< event handlers or sub procedures>

…

End Class

Important: Failure to provide introductory comments and single-line comments to document your code will result in a 30% deduction on that project.

Create a folder named “272Week4_Assignments_YourName”

Project 1: Alligator

· Copy your Alligator Solution in Week 3 assignments and paste/save in “272Week4_Assignments_YourName”.

· Follow the step-by-step instructions given in Programming Tutorial 2 of Chapter 3 to complete this application

· Testing and debugging the application for correctness.

· Use comment lines to document your code as shown in class

· When done, save (all) your project

Project 2: Mason Solution

· Go Chap03 in Data Files folder

· Copy Mason Solution folder and paste/save in “272Week4_Assignments_YourName”.

· Follow the instructions in Exercise #21 on p. 170 to complete the Mason application

· Use Valid data as well we invalid to test you application as instructed.

Project 3: Debug Solution

· Go Chap03 in Data Files folder

· Copy Debug Solution folder and paste/save in “272Week4_Assignments_YourName”.

· Complete the SWAT THE BUGS exercise # 24 on p; 170

· In the Code Editor, use comment lines to document where the bug(s) is and how you correct the error(s).

· Run and test for correctness.

Steps to submit a compressed folder:

1. Right-click with the mouse on 272Week4_Assginment_YourName folder

2. On the drop-down menu, select “send to”

3. Now, click on “Compressed (zipped) folder” and a zipped folder will be created

4. Locate the 272Week4_Assignments in Blackboard Learn link in Week 2 folder. Use the link to upload the zipped folder

5. You will receive one grade for weekly assignments if you have more than one assigned projects. Note that each project will be graded independently.

__MACOSX/._272Week4_Assignments(2).docx

Alligator Solution/Alligator Project/Alligator Project.vbproj

Debug AnyCPU {7B0EB192-0554-444C-9AA1-68F4B945D0EF} WinExe Alligator_Project.My.MyApplication Alligator_Project Alligator Project 512 WindowsForms v4.5 AnyCPU true full true true bin\Debug\ Alligator Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 AnyCPU pdbonly false true true bin\Release\ Alligator Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On Form Main Form.vb Form True Application.myapp True True Resources.resx True Settings.settings True Main Form.vb VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb

__MACOSX/Alligator Solution/Alligator Project/._Alligator Project.vbproj

Alligator Solution/Alligator Project/App.config

__MACOSX/Alligator Solution/Alligator Project/._App.config

Alligator Solution/Alligator Project/Main Form.Designer.vb

__MACOSX/Alligator Solution/Alligator Project/._Main Form.Designer.vb

Alligator Solution/Alligator Project/Main Form.resx

__MACOSX/Alligator Solution/Alligator Project/._Main Form.resx

Alligator Solution/Alligator Project/Main Form.vb

Public Class MainForm End Class

__MACOSX/Alligator Solution/Alligator Project/._Main Form.vb

Alligator Solution/Alligator Project/My Project/Application.Designer.vb

__MACOSX/Alligator Solution/Alligator Project/My Project/._Application.Designer.vb

Alligator Solution/Alligator Project/My Project/Application.myapp

true Form1 false 0 true 0 0 true

__MACOSX/Alligator Solution/Alligator Project/My Project/._Application.myapp

Alligator Solution/Alligator Project/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("Alligator Project")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("Alligator Project")> <Assembly: AssemblyCopyright("Copyright © 2015")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("3f2a3119-04cb-4e3a-b44d-8de117296583")> ' 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")>

__MACOSX/Alligator Solution/Alligator Project/My Project/._AssemblyInfo.vb

Alligator Solution/Alligator Project/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.0 ' ' 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("Alligator_Project.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 '''<summary> ''' Looks up a localized resource of type System.Drawing.Bitmap. '''</summary> Friend ReadOnly Property Alligator() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("Alligator", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property End Module End Namespace

__MACOSX/Alligator Solution/Alligator Project/My Project/._Resources.Designer.vb

Alligator Solution/Alligator Project/My Project/Resources.resx

text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 ..\Resources\Alligator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a

__MACOSX/Alligator Solution/Alligator Project/My Project/._Resources.resx

Alligator Solution/Alligator Project/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.0 ' ' 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 Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) #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 MySettings 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 End Namespace 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.Alligator_Project.My.MySettings Get Return Global.Alligator_Project.My.MySettings.Default End Get End Property End Module End Namespace

__MACOSX/Alligator Solution/Alligator Project/My Project/._Settings.Designer.vb

Alligator Solution/Alligator Project/My Project/Settings.settings

__MACOSX/Alligator Solution/Alligator Project/My Project/._Settings.settings

__MACOSX/Alligator Solution/Alligator Project/._My Project

Alligator Solution/Alligator Project/Resources/Alligator.png

__MACOSX/Alligator Solution/Alligator Project/Resources/._Alligator.png

__MACOSX/Alligator Solution/Alligator Project/._Resources

__MACOSX/Alligator Solution/._Alligator Project

Alligator Solution/Alligator Solution.sln

Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 14 VisualStudioVersion = 14.0.22512.0 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Alligator Project", "Alligator Project\Alligator Project.vbproj", "{7B0EB192-0554-444C-9AA1-68F4B945D0EF}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {7B0EB192-0554-444C-9AA1-68F4B945D0EF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {7B0EB192-0554-444C-9AA1-68F4B945D0EF}.Debug|Any CPU.Build.0 = Debug|Any CPU {7B0EB192-0554-444C-9AA1-68F4B945D0EF}.Release|Any CPU.ActiveCfg = Release|Any CPU {7B0EB192-0554-444C-9AA1-68F4B945D0EF}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

__MACOSX/Alligator Solution/._Alligator Solution.sln

__MACOSX/._Alligator Solution

Debug Solution/Debug Project/App.config

__MACOSX/Debug Solution/Debug Project/._App.config

Debug Solution/Debug Project/Debug Project.vbproj

Debug AnyCPU {E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE} WinExe Debug_Project.My.MyApplication Debug_Project Debug Project 512 WindowsForms v4.5 AnyCPU true full true true bin\Debug\ Debug Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 AnyCPU pdbonly false true true bin\Release\ Debug Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On Form Main Form.vb Form True Application.myapp True True Resources.resx True Settings.settings True Main Form.vb VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb

__MACOSX/Debug Solution/Debug Project/._Debug Project.vbproj

Debug Solution/Debug Project/Main Form.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Public Class MainForm Inherits System.Windows.Forms.Form '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.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.averageLabel = New System.Windows.Forms.Label() Me.test1TextBox = New System.Windows.Forms.TextBox() Me.test2TextBox = New System.Windows.Forms.TextBox() Me.test3TextBox = New System.Windows.Forms.TextBox() Me.calcButton = New System.Windows.Forms.Button() Me.exitButton = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(25, 28) Me.Label1.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(46, 17) Me.Label1.TabIndex = 0 Me.Label1.Text = "Test &1:" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(25, 68) Me.Label2.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(46, 17) Me.Label2.TabIndex = 2 Me.Label2.Text = "Test &2:" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(25, 108) Me.Label3.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(46, 17) Me.Label3.TabIndex = 4 Me.Label3.Text = "Test &3:" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(25, 168) Me.Label4.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(59, 17) Me.Label4.TabIndex = 8 Me.Label4.Text = "Average:" ' 'averageLabel ' Me.averageLabel.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.averageLabel.Location = New System.Drawing.Point(82, 163) Me.averageLabel.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0) Me.averageLabel.Name = "averageLabel" Me.averageLabel.Size = New System.Drawing.Size(78, 26) Me.averageLabel.TabIndex = 9 Me.averageLabel.TextAlign = System.Drawing.ContentAlignment.MiddleCenter ' 'test1TextBox ' Me.test1TextBox.Location = New System.Drawing.Point(72, 28) Me.test1TextBox.Margin = New System.Windows.Forms.Padding(2) Me.test1TextBox.Name = "test1TextBox" Me.test1TextBox.Size = New System.Drawing.Size(52, 25) Me.test1TextBox.TabIndex = 1 ' 'test2TextBox ' Me.test2TextBox.Location = New System.Drawing.Point(72, 68) Me.test2TextBox.Margin = New System.Windows.Forms.Padding(2) Me.test2TextBox.Name = "test2TextBox" Me.test2TextBox.Size = New System.Drawing.Size(52, 25) Me.test2TextBox.TabIndex = 3 ' 'test3TextBox ' Me.test3TextBox.Location = New System.Drawing.Point(72, 108) Me.test3TextBox.Margin = New System.Windows.Forms.Padding(2) Me.test3TextBox.Name = "test3TextBox" Me.test3TextBox.Size = New System.Drawing.Size(52, 25) Me.test3TextBox.TabIndex = 5 ' 'calcButton ' Me.calcButton.Location = New System.Drawing.Point(180, 20) Me.calcButton.Margin = New System.Windows.Forms.Padding(2) Me.calcButton.Name = "calcButton" Me.calcButton.Size = New System.Drawing.Size(95, 33) Me.calcButton.TabIndex = 6 Me.calcButton.Text = "&Calculate" ' 'exitButton ' Me.exitButton.Location = New System.Drawing.Point(180, 60) Me.exitButton.Margin = New System.Windows.Forms.Padding(2) Me.exitButton.Name = "exitButton" Me.exitButton.Size = New System.Drawing.Size(95, 33) Me.exitButton.TabIndex = 7 Me.exitButton.Text = "E&xit" ' 'MainForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(299, 217) Me.Controls.Add(Me.exitButton) Me.Controls.Add(Me.calcButton) Me.Controls.Add(Me.test3TextBox) Me.Controls.Add(Me.test2TextBox) Me.Controls.Add(Me.test1TextBox) Me.Controls.Add(Me.averageLabel) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.MaximizeBox = False Me.Name = "MainForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Average Calculator" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents averageLabel As System.Windows.Forms.Label Friend WithEvents test1TextBox As System.Windows.Forms.TextBox Friend WithEvents test2TextBox As System.Windows.Forms.TextBox Friend WithEvents test3TextBox As System.Windows.Forms.TextBox Friend WithEvents calcButton As System.Windows.Forms.Button Friend WithEvents exitButton As System.Windows.Forms.Button End Class

__MACOSX/Debug Solution/Debug Project/._Main Form.Designer.vb

Debug Solution/Debug Project/Main Form.resx

text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 True True True True True True True True True True True

__MACOSX/Debug Solution/Debug Project/._Main Form.resx

Debug Solution/Debug Project/Main Form.vb

' Project name: Debug Project ' Project purpose: Calculates the average of three test scores. ' Created/revised by: <your name> on <current date> Option Explicit On Option Strict On Option Infer Off Public Class MainForm Private Sub exitButton_Click(sender As Object, e As EventArgs) Handles exitButton.Click Me.Close() End Sub Private Sub calcButton_Click(sender As Object, e As EventArgs) Handles calcButton.Click ' calculates the average of three test scores Dim test1 As Decimal Dim test2 As Decimal Dim test3 As Decimal Dim average As Decimal ' convert input to numbers Decimal.TryParse(test1TextBox.Text, test1) Decimal.TryParse(test2TextBox.Text, test2) Decimal.TryParse(test3TextBox.Text, test3) ' calculate and display the average average = test1 + test2 + test3 / 3 averageLabel.Text = average.ToString("N2") End Sub End Class

__MACOSX/Debug Solution/Debug Project/._Main Form.vb

Debug Solution/Debug Project/My Project/Application.Designer.vb

__MACOSX/Debug Solution/Debug Project/My Project/._Application.Designer.vb

Debug Solution/Debug Project/My Project/Application.myapp

true Form1 false 0 true 0 0 true

__MACOSX/Debug Solution/Debug Project/My Project/._Application.myapp

Debug Solution/Debug Project/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("Debug Project")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("Debug Project")> <Assembly: AssemblyCopyright("Copyright © 2015")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("8f44d0c4-e219-4f20-9133-79a3a7574bca")> ' 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")>

__MACOSX/Debug Solution/Debug Project/My Project/._AssemblyInfo.vb

Debug Solution/Debug Project/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' 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 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("Debug_Project.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(ByVal value As Global.System.Globalization.CultureInfo) resourceCulture = value End Set End Property End Module End Namespace

__MACOSX/Debug Solution/Debug Project/My Project/._Resources.Designer.vb

Debug Solution/Debug Project/My Project/Resources.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

__MACOSX/Debug Solution/Debug Project/My Project/._Resources.resx

Debug Solution/Debug Project/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' 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 Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) #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 MySettings 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 End Namespace 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.Debug_Project.My.MySettings Get Return Global.Debug_Project.My.MySettings.Default End Get End Property End Module End Namespace

__MACOSX/Debug Solution/Debug Project/My Project/._Settings.Designer.vb

Debug Solution/Debug Project/My Project/Settings.settings

__MACOSX/Debug Solution/Debug Project/My Project/._Settings.settings

__MACOSX/Debug Solution/Debug Project/._My Project

__MACOSX/Debug Solution/._Debug Project

Debug Solution/Debug Solution.sln

Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 14 VisualStudioVersion = 14.0.22823.1 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Debug Project", "Debug Project\Debug Project.vbproj", "{E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE}.Debug|Any CPU.Build.0 = Debug|Any CPU {E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE}.Release|Any CPU.ActiveCfg = Release|Any CPU {E058C0C1-52EC-4BE2-A9DB-4B3C6B565BAE}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

__MACOSX/Debug Solution/._Debug Solution.sln

__MACOSX/._Debug Solution

Mason Solution/Mason Project/App.config

__MACOSX/Mason Solution/Mason Project/._App.config

Mason Solution/Mason Project/Main Form.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class MainForm Inherits System.Windows.Forms.Form 'Form overrides dispose to clean up the component list. <System.Diagnostics.DebuggerNonUserCode()> _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try 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.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.calcButton = New System.Windows.Forms.Button() Me.clearButton = New System.Windows.Forms.Button() Me.exitButton = New System.Windows.Forms.Button() Me.Label7 = New System.Windows.Forms.Label() Me.projected1Label = New System.Windows.Forms.Label() Me.projected2Label = New System.Windows.Forms.Label() Me.projected3Label = New System.Windows.Forms.Label() Me.sales1TextBox = New System.Windows.Forms.TextBox() Me.percent1TextBox = New System.Windows.Forms.TextBox() Me.sales2TextBox = New System.Windows.Forms.TextBox() Me.percent2TextBox = New System.Windows.Forms.TextBox() Me.sales3TextBox = New System.Windows.Forms.TextBox() Me.percent3TextBox = New System.Windows.Forms.TextBox() Me.SuspendLayout() ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(42, 71) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(71, 20) Me.Label1.TabIndex = 0 Me.Label1.Text = "Region &1:" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(42, 113) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(71, 20) Me.Label2.TabIndex = 3 Me.Label2.Text = "Region &2:" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(42, 161) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(71, 20) Me.Label3.TabIndex = 6 Me.Label3.Text = "Region &3:" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(127, 40) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(43, 20) Me.Label4.TabIndex = 12 Me.Label4.Text = "Sales" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(224, 20) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(141, 20) Me.Label5.TabIndex = 13 Me.Label5.Text = "Increase Percentage" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(224, 40) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(124, 20) Me.Label6.TabIndex = 14 Me.Label6.Text = "(in decimal form)" ' 'calcButton ' Me.calcButton.Location = New System.Drawing.Point(250, 229) Me.calcButton.Name = "calcButton" Me.calcButton.Size = New System.Drawing.Size(83, 35) Me.calcButton.TabIndex = 9 Me.calcButton.Text = "&Calculate" Me.calcButton.UseVisualStyleBackColor = True ' 'clearButton ' Me.clearButton.Location = New System.Drawing.Point(339, 229) Me.clearButton.Name = "clearButton" Me.clearButton.Size = New System.Drawing.Size(83, 35) Me.clearButton.TabIndex = 10 Me.clearButton.Text = "C&lear" Me.clearButton.UseVisualStyleBackColor = True ' 'exitButton ' Me.exitButton.Location = New System.Drawing.Point(428, 229) Me.exitButton.Name = "exitButton" Me.exitButton.Size = New System.Drawing.Size(83, 35) Me.exitButton.TabIndex = 11 Me.exitButton.Text = "E&xit" Me.exitButton.UseVisualStyleBackColor = True ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(401, 40) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(110, 20) Me.Label7.TabIndex = 15 Me.Label7.Text = "Projected Sales" ' 'projected1Label ' Me.projected1Label.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.projected1Label.Location = New System.Drawing.Point(401, 68) Me.projected1Label.Name = "projected1Label" Me.projected1Label.Size = New System.Drawing.Size(110, 26) Me.projected1Label.TabIndex = 16 Me.projected1Label.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'projected2Label ' Me.projected2Label.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.projected2Label.Location = New System.Drawing.Point(401, 113) Me.projected2Label.Name = "projected2Label" Me.projected2Label.Size = New System.Drawing.Size(110, 26) Me.projected2Label.TabIndex = 17 Me.projected2Label.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'projected3Label ' Me.projected3Label.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle Me.projected3Label.Location = New System.Drawing.Point(401, 158) Me.projected3Label.Name = "projected3Label" Me.projected3Label.Size = New System.Drawing.Size(110, 26) Me.projected3Label.TabIndex = 18 Me.projected3Label.TextAlign = System.Drawing.ContentAlignment.MiddleRight ' 'sales1TextBox ' Me.sales1TextBox.Location = New System.Drawing.Point(127, 68) Me.sales1TextBox.Name = "sales1TextBox" Me.sales1TextBox.Size = New System.Drawing.Size(75, 27) Me.sales1TextBox.TabIndex = 1 ' 'percent1TextBox ' Me.percent1TextBox.Location = New System.Drawing.Point(257, 68) Me.percent1TextBox.Name = "percent1TextBox" Me.percent1TextBox.Size = New System.Drawing.Size(55, 27) Me.percent1TextBox.TabIndex = 2 ' 'sales2TextBox ' Me.sales2TextBox.Location = New System.Drawing.Point(127, 113) Me.sales2TextBox.Name = "sales2TextBox" Me.sales2TextBox.Size = New System.Drawing.Size(75, 27) Me.sales2TextBox.TabIndex = 4 ' 'percent2TextBox ' Me.percent2TextBox.Location = New System.Drawing.Point(257, 113) Me.percent2TextBox.Name = "percent2TextBox" Me.percent2TextBox.Size = New System.Drawing.Size(55, 27) Me.percent2TextBox.TabIndex = 5 ' 'sales3TextBox ' Me.sales3TextBox.Location = New System.Drawing.Point(127, 158) Me.sales3TextBox.Name = "sales3TextBox" Me.sales3TextBox.Size = New System.Drawing.Size(75, 27) Me.sales3TextBox.TabIndex = 7 ' 'percent3TextBox ' Me.percent3TextBox.Location = New System.Drawing.Point(257, 158) Me.percent3TextBox.Name = "percent3TextBox" Me.percent3TextBox.Size = New System.Drawing.Size(55, 27) Me.percent3TextBox.TabIndex = 8 ' 'MainForm ' Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 20.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(561, 294) Me.Controls.Add(Me.percent3TextBox) Me.Controls.Add(Me.sales3TextBox) Me.Controls.Add(Me.percent2TextBox) Me.Controls.Add(Me.sales2TextBox) Me.Controls.Add(Me.percent1TextBox) Me.Controls.Add(Me.sales1TextBox) Me.Controls.Add(Me.projected3Label) Me.Controls.Add(Me.projected2Label) Me.Controls.Add(Me.projected1Label) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.exitButton) Me.Controls.Add(Me.clearButton) Me.Controls.Add(Me.calcButton) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Font = New System.Drawing.Font("Segoe UI", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Margin = New System.Windows.Forms.Padding(4, 5, 4, 5) Me.Name = "MainForm" Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen Me.Text = "Mason Sales" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents Label1 As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label6 As System.Windows.Forms.Label Friend WithEvents calcButton As System.Windows.Forms.Button Friend WithEvents clearButton As System.Windows.Forms.Button Friend WithEvents exitButton As System.Windows.Forms.Button Friend WithEvents Label7 As System.Windows.Forms.Label Friend WithEvents projected1Label As System.Windows.Forms.Label Friend WithEvents projected2Label As System.Windows.Forms.Label Friend WithEvents projected3Label As System.Windows.Forms.Label Friend WithEvents sales1TextBox As System.Windows.Forms.TextBox Friend WithEvents percent1TextBox As System.Windows.Forms.TextBox Friend WithEvents sales2TextBox As System.Windows.Forms.TextBox Friend WithEvents percent2TextBox As System.Windows.Forms.TextBox Friend WithEvents sales3TextBox As System.Windows.Forms.TextBox Friend WithEvents percent3TextBox As System.Windows.Forms.TextBox End Class

__MACOSX/Mason Solution/Mason Project/._Main Form.Designer.vb

Mason Solution/Mason Project/Main Form.resx

text/microsoft-resx 2.0 System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 True True True True True True True True True True True True True True True True True True True True

__MACOSX/Mason Solution/Mason Project/._Main Form.resx

Mason Solution/Mason Project/Main Form.vb

' Project name: Mason Project ' Project purpose: Displays the projected sales for each of 3 regions ' Created/revised by: <your name> on <current date> Public Class MainForm Private Sub exitButton_Click(sender As Object, e As EventArgs) Handles exitButton.Click Me.Close() End Sub End Class

__MACOSX/Mason Solution/Mason Project/._Main Form.vb

Mason Solution/Mason Project/Mason Project.vbproj

Debug AnyCPU {EE74CCA9-36D9-4D42-85E4-F9BE929D9866} WinExe Mason_Project.My.MyApplication Mason_Project Mason Project 512 WindowsForms v4.5 AnyCPU true full true true bin\Debug\ Mason Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 AnyCPU pdbonly false true true bin\Release\ Mason Project.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On Form Main Form.vb Form True Application.myapp True True Resources.resx True Settings.settings True Main Form.vb VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb

__MACOSX/Mason Solution/Mason Project/._Mason Project.vbproj

Mason Solution/Mason Project/My Project/Application.Designer.vb

__MACOSX/Mason Solution/Mason Project/My Project/._Application.Designer.vb

Mason Solution/Mason Project/My Project/Application.myapp

true Form1 false 0 true 0 0 true

__MACOSX/Mason Solution/Mason Project/My Project/._Application.myapp

Mason Solution/Mason Project/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("Mason Project")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("Mason Project")> <Assembly: AssemblyCopyright("Copyright © 2015")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("78aa8514-0f11-4a28-bd60-91754a7473e7")> ' 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")>

__MACOSX/Mason Solution/Mason Project/My Project/._AssemblyInfo.vb

Mason Solution/Mason Project/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' 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 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("Mason_Project.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(ByVal value As Global.System.Globalization.CultureInfo) resourceCulture = value End Set End Property End Module End Namespace

__MACOSX/Mason Solution/Mason Project/My Project/._Resources.Designer.vb

Mason Solution/Mason Project/My Project/Resources.resx

__MACOSX/Mason Solution/Mason Project/My Project/._Resources.resx

Mason Solution/Mason Project/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.42000 ' ' 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 Namespace My <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) #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 MySettings 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 End Namespace 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.Mason_Project.My.MySettings Get Return Global.Mason_Project.My.MySettings.Default End Get End Property End Module End Namespace

__MACOSX/Mason Solution/Mason Project/My Project/._Settings.Designer.vb

Mason Solution/Mason Project/My Project/Settings.settings

__MACOSX/Mason Solution/Mason Project/My Project/._Settings.settings

__MACOSX/Mason Solution/Mason Project/._My Project

__MACOSX/Mason Solution/._Mason Project

Mason Solution/Mason Solution.sln

Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 14 VisualStudioVersion = 14.0.22823.1 MinimumVisualStudioVersion = 10.0.40219.1 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Mason Project", "Mason Project\Mason Project.vbproj", "{EE74CCA9-36D9-4D42-85E4-F9BE929D9866}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {EE74CCA9-36D9-4D42-85E4-F9BE929D9866}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {EE74CCA9-36D9-4D42-85E4-F9BE929D9866}.Debug|Any CPU.Build.0 = Debug|Any CPU {EE74CCA9-36D9-4D42-85E4-F9BE929D9866}.Release|Any CPU.ActiveCfg = Release|Any CPU {EE74CCA9-36D9-4D42-85E4-F9BE929D9866}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

__MACOSX/Mason Solution/._Mason Solution.sln

__MACOSX/._Mason Solution

Page 170.pdf

INTERMEDIATE

ADVANCED

SWAT THE BUGS

( Memory Locations and Calculations

Prepare a TOE chart ordered by object. Create a Windows Forms application. Use the following names for the solution and project, respectively: Tip Solution and Tip Project. Save the application in the VbReloaded2015 \Chap03 folder. Change the form file's name to Main Form.vb. Build the interface. Write the pseudocode and then code the application. Be sure to include comments and the Option statements. Save the solution and then start and test the application. Close the solution. (1-8, 10)

21. Open the VbReloaded2015 \Chap03 \Mason Solution \Mason Solution (Mason Solution.sln) file. The application should calculate the projected sales for each sales region. Code the application. Display the calculated results with two decimal places. Be sure to include comments and the Option statements. (1-8, 10)

a. Save the solution and then start the application. Test the application using the following valid data:

Region 1 sales and percentage: 150000, 0.15 Region 2 sales and percentage: 175500, 0.12 Region 3 sales and percentage: 100300, 0.11

b. Now, test the application without entering any data. Also test it using letters as the sales and percentage amounts.

c. Close the solution.

22. The River Bend Hotel needs an application that calculates a customer's total bill. Each customer pays a room charge that is based on a per-night rate of $90. For example, if the customer stays two nights, the room charge is $180. Customers also may be billed a room service charge and a telephone charge. In addition, each customer pays an entertainment tax, which is 10% of the room charge only. The application's interface should allow the hotel manager to enter the number of nights, the total charge for room service, and the total charge for using the telephone. It should display the room charge, the entertainment tax, and the total bill. Prepare a TOE chart ordered by object. Create a Windows Forms application. Use the following names for the solution and project, respectively: River Bend Solution and River Bend Project. Save the application in the VbReloaded2015 \Chap03 folder. Change the form file's name to Main Form.vb. Build the interface. Draw the flowcharts and then code the application. Test the application. (1-10)

23. Create an application that allows the user to enter the number of pennies saved in a jar. The application should display the number of dollars, quarters, dimes, nickels, and pennies the user will receive when the pennies are cashed in at a bank. Use the following names for the solution and project, respectively: Pennies Solution and Pennies Project. Save the application in the VbReloaded2015 \Chap03 folder. Change the form file's name to Main Form.vb. Build the interface. Be sure to include a button that will prepare the screen for the next calculation. Code the application and then test it. (1-10)

24. Open the VbReloaded2015\Chap03 \Debug Solution\Debug Solution (Debug Solution.sln) file. Start and then test the application. Correct any errors and then test the application again. ( 4, 11)

rved. May not be copied , scanne d, or d uplicated, in who le or in part. Due to elec tro nic rights, some third party conte nt may be suppressed from the c Book and/o r cChaptcr(s) does not materially affect the overall learning expe rience. Ccngagc Leami ng rese rves the right to remove additional co ntent at any time if subsequent rights restrictions requ ire it