visual basic

baloushlab7.zip

Home >Computer Science homework help >visual basic

BaloushLab7/~$b 7 USE CASE DEFINITION.docx

BaloushLab7/~$b 7 sub Reguirements Doc.docx

BaloushLab7/BaloushLab7.sln

Microsoft Visual Studio Solution File, Format Version 12.00 # Visual Studio 2012 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BaloushLab7", "BaloushLab7\BaloushLab7.vbproj", "{E178B6D8-EA07-4E02-AE50-F91B877D3125}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|Any CPU = Debug|Any CPU Release|Any CPU = Release|Any CPU EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {E178B6D8-EA07-4E02-AE50-F91B877D3125}.Debug|Any CPU.ActiveCfg = Debug|Any CPU {E178B6D8-EA07-4E02-AE50-F91B877D3125}.Debug|Any CPU.Build.0 = Debug|Any CPU {E178B6D8-EA07-4E02-AE50-F91B877D3125}.Release|Any CPU.ActiveCfg = Release|Any CPU {E178B6D8-EA07-4E02-AE50-F91B877D3125}.Release|Any CPU.Build.0 = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

BaloushLab7/BaloushLab7.v11.suo

BaloushLab7/BaloushLab7/App.config

BaloushLab7/BaloushLab7/BaloushLab7.vbproj

Debug AnyCPU {E178B6D8-EA07-4E02-AE50-F91B877D3125} WinExe BaloushLab7.My.MyApplication BaloushLab7 BaloushLab7 512 WindowsForms v4.5 AnyCPU true full true true bin\Debug\ BaloushLab7.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 AnyCPU pdbonly false true true bin\Release\ BaloushLab7.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On Form Form1.vb Form True Application.myapp True True Resources.resx True Settings.settings True Form1.vb VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.exe

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.exe.config

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.pdb

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.vshost.exe

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.vshost.exe.config

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.vshost.exe.manifest

BaloushLab7/BaloushLab7/bin/Debug/BaloushLab7.xml

BaloushLab7 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.

BaloushLab7/BaloushLab7/Form1.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class frmMain 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.cboJobs = New System.Windows.Forms.ComboBox() Me.lblChoose = New System.Windows.Forms.Label() Me.lblHourlyPay = New System.Windows.Forms.Label() Me.lblAnuallyPay = New System.Windows.Forms.Label() Me.lstFiveYearsRate = New System.Windows.Forms.ListBox() Me.btnClear = New System.Windows.Forms.Button() Me.SuspendLayout() ' 'cboJobs ' Me.cboJobs.FormattingEnabled = True Me.cboJobs.Items.AddRange(New Object() {"Computer Programmers", "Computer System Analysts", "Computer and Information Systems Managers", "Computer Software Engineers"}) Me.cboJobs.Location = New System.Drawing.Point(82, 49) Me.cboJobs.Name = "cboJobs" Me.cboJobs.Size = New System.Drawing.Size(121, 21) Me.cboJobs.TabIndex = 0 ' 'lblChoose ' Me.lblChoose.AutoSize = True Me.lblChoose.Location = New System.Drawing.Point(89, 24) Me.lblChoose.Name = "lblChoose" Me.lblChoose.Size = New System.Drawing.Size(107, 13) Me.lblChoose.TabIndex = 1 Me.lblChoose.Text = "Please Choose a Job" ' 'lblHourlyPay ' Me.lblHourlyPay.AutoSize = True Me.lblHourlyPay.Location = New System.Drawing.Point(31, 76) Me.lblHourlyPay.Name = "lblHourlyPay" Me.lblHourlyPay.Size = New System.Drawing.Size(39, 13) Me.lblHourlyPay.TabIndex = 2 Me.lblHourlyPay.Text = "Label1" ' 'lblAnuallyPay ' Me.lblAnuallyPay.AutoSize = True Me.lblAnuallyPay.Location = New System.Drawing.Point(34, 93) Me.lblAnuallyPay.Name = "lblAnuallyPay" Me.lblAnuallyPay.Size = New System.Drawing.Size(39, 13) Me.lblAnuallyPay.TabIndex = 3 Me.lblAnuallyPay.Text = "Label1" ' 'lstFiveYearsRate ' Me.lstFiveYearsRate.FormattingEnabled = True Me.lstFiveYearsRate.Location = New System.Drawing.Point(37, 119) Me.lstFiveYearsRate.Name = "lstFiveYearsRate" Me.lstFiveYearsRate.Size = New System.Drawing.Size(213, 95) Me.lstFiveYearsRate.TabIndex = 4 ' 'btnClear ' Me.btnClear.Location = New System.Drawing.Point(102, 220) Me.btnClear.Name = "btnClear" Me.btnClear.Size = New System.Drawing.Size(75, 23) Me.btnClear.TabIndex = 5 Me.btnClear.Text = "Clear" Me.btnClear.UseVisualStyleBackColor = True ' 'frmMain ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 261) Me.Controls.Add(Me.btnClear) Me.Controls.Add(Me.lstFiveYearsRate) Me.Controls.Add(Me.lblAnuallyPay) Me.Controls.Add(Me.lblHourlyPay) Me.Controls.Add(Me.lblChoose) Me.Controls.Add(Me.cboJobs) Me.Name = "frmMain" Me.Text = "Form1" Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents cboJobs As System.Windows.Forms.ComboBox Friend WithEvents lblChoose As System.Windows.Forms.Label Friend WithEvents lblHourlyPay As System.Windows.Forms.Label Friend WithEvents lblAnuallyPay As System.Windows.Forms.Label Friend WithEvents lstFiveYearsRate As System.Windows.Forms.ListBox Friend WithEvents btnClear As System.Windows.Forms.Button End Class

BaloushLab7/BaloushLab7/Form1.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

BaloushLab7/BaloushLab7/Form1.vb

Public Class frmMain Const cdecCPHourlyRate As Decimal = 37.28D Const cdecCSAHourlyRate As Decimal = 39.76D Const cdecCISMHourlyRate As Decimal = 61.37D Const cdecSEHourlyRate As Decimal = 52.13D Dim decCPYearlyRate As Decimal = 82690 Dim decCSAYearlyRate As Decimal = 87320 Dim decCISMYearlyRate As Decimal = 136280 Dim decSEYearlyRate As Decimal = 110650 Dim decRaisePercentage As Decimal = 0.03 Dim decYearlyIcreasedPay As Decimal Dim decYearlyRate As Decimal Dim intMaxNumberOfYears As Integer = 5 Dim intNumberOfYears As Integer = 1 Private Sub lstFiveYearsRate_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Private Sub cboJobs_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJobs.SelectedIndexChanged Dim intJobChoice As Integer intJobChoice = Me.cboJobs.SelectedIndex lstFiveYearsRate.Items.Clear() Select Case intJobChoice Case 0 ComputerProgrammers() Case 1 ComputerSystemAnalysts() Case 2 ComputerInformationSystemManagers() Case 3 ComputerSoftwareEngineers() End Select End Sub Private Sub ComputerProgrammers() lblHourlyPay.Text = "The Hourly pay = " & cdecCPHourlyRate lblAnuallyPay.Text = " The Annualy Pay = " & decCPYearlyRate lstFiveYearsRate.Items.Clear() decYearlyRate = decCPYearlyRate Do Until intNumberOfYears > intMaxNumberOfYears decYearlyIcreasedPay = decYearlyRate * (1 + decRaisePercentage) lstFiveYearsRate.Items.Add(decYearlyIcreasedPay.ToString("C")) decYearlyRate = decYearlyIcreasedPay intNumberOfYears += 1 Loop End Sub Private Sub ComputerSystemAnalysts() lblHourlyPay.Text = "The Hourly pay = " & cdecCSAHourlyRate lblAnuallyPay.Text = " The Annualy Pay = " & decCSAYearlyRate lstFiveYearsRate.Items.Clear() decYearlyRate = decCSAYearlyRate Do Until intNumberOfYears > intMaxNumberOfYears decYearlyIcreasedPay = decYearlyRate * (1 + decRaisePercentage) lstFiveYearsRate.Items.Add(decYearlyIcreasedPay.ToString("C")) decYearlyRate = decYearlyIcreasedPay intNumberOfYears += 1 Loop End Sub Private Sub ComputerInformationSystemManagers() lblHourlyPay.Text = "The Hourly pay = " & cdecCISMHourlyRate lblAnuallyPay.Text = " The Annualy Pay = " & decCISMYearlyRate lstFiveYearsRate.Items.Clear() decYearlyRate = decCISMYearlyRate Do Until intNumberOfYears > intMaxNumberOfYears decYearlyIcreasedPay = decYearlyRate * (1 + decRaisePercentage) lstFiveYearsRate.Items.Add(decYearlyIcreasedPay.ToString("C")) decYearlyRate = decYearlyIcreasedPay intNumberOfYears += 1 Loop End Sub Private Sub ComputerSoftwareEngineers() lblHourlyPay.Text = "The Hourly pay = " & cdecSEHourlyRate lblAnuallyPay.Text = " The Annualy Pay = " & decSEYearlyRate lstFiveYearsRate.Items.Clear() decYearlyRate = decSEYearlyRate Do Until intNumberOfYears > intMaxNumberOfYears decYearlyIcreasedPay = decYearlyRate * (1 + decRaisePercentage) lstFiveYearsRate.Items.Add(decYearlyIcreasedPay.ToString("C")) decYearlyRate = decYearlyIcreasedPay intNumberOfYears += 1 Loop End Sub Private Sub btnClear_Click(sender As Object, e As EventArgs) Handles btnClear.Click lstFiveYearsRate.Items.Clear() lblAnuallyPay.Text = "" lblHourlyPay.Text = "" End Sub End Class

BaloushLab7/BaloushLab7/My Project/Application.Designer.vb

BaloushLab7/BaloushLab7/My Project/Application.myapp

<?xml version="1.0" encoding="utf-16"?> <MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> <MySubMain>true</MySubMain> <MainForm>frmMain</MainForm> <SingleInstance>false</SingleInstance> <ShutdownMode>0</ShutdownMode> <EnableVisualStyles>true</EnableVisualStyles> <AuthenticationMode>0</AuthenticationMode> <SaveMySettingsOnExit>true</SaveMySettingsOnExit> </MyApplicationData>

BaloushLab7/BaloushLab7/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("BaloushLab7")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("Hewlett-Packard")> <Assembly: AssemblyProduct("BaloushLab7")> <Assembly: AssemblyCopyright("Copyright © Hewlett-Packard 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("8b5f61de-6396-4269-9b60-89dae67f403e")> ' 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")>

BaloushLab7/BaloushLab7/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.34014 ' ' 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("BaloushLab7.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

BaloushLab7/BaloushLab7/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

BaloushLab7/BaloushLab7/My Project/Settings.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.34014 ' ' 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.BaloushLab7.My.MySettings Get Return Global.BaloushLab7.My.MySettings.Default End Get End Property End Module End Namespace

BaloushLab7/BaloushLab7/My Project/Settings.settings

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.exe

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.frmMain.resources

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.pdb

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.Resources.resources

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.vbproj.FileListAbsolute.txt

C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\bin\Debug\BaloushLab7.exe.config C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\bin\Debug\BaloushLab7.exe C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\bin\Debug\BaloushLab7.pdb C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\bin\Debug\BaloushLab7.xml C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.frmMain.resources C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.Resources.resources C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.vbproj.GenerateResource.Cache C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.exe C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.xml C:\Users\Taym\Desktop\Student Live\BaloushLab7\BaloushLab7\obj\Debug\BaloushLab7.pdb

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.vbproj.GenerateResource.Cache

BaloushLab7/BaloushLab7/obj/Debug/BaloushLab7.xml

BaloushLab7/BaloushLab7/obj/Debug/DesignTimeResolveAssemblyReferences.cache

BaloushLab7/BaloushLab7/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache

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

BaloushLab7/Lab 7 Event+Planning+document.doc

EVENT PLANNING DOCUMENT

Program Name: Calculate the Payment	Developer: Shahad Baloush	Object Frm1	Date 11/04/2015
Object	Event Trigger	Event Processing
cboJobs	choose	Checks to see what is the name of the job See the payment for the choosing job monthly and annually. Checks how much the payment will be in 5 years if 3% is increase each year Display the pay monthly and annually and the payment during 5 years.
btnClear	Tap or click	Clear the display.

BaloushLab7/Lab 7 USE CASE DEFINITION.docx

USE CASE DEFINITION

1. The windows application open with one text box in which the user can choose the name of the job. The user will have the pay monthly and annually and the pay during 5 years if it increase 3% each year. The program will have a Clear button.

2. The user select one of the jobs name.

3. The program calculate and display the pay monthly and annually and the pay during 5 years if it increase 3% each year

4. The user can repeat steps 2 to 5 or click the clear button to clear the result.

5. The user can click the close button at the top right to close the application.

BaloushLab7/lab 7 sub Reguirements Doc.docx

REQUIREMENTS DOCUMENT

Date Submitted: November 4, 2015

Application Title: Calculate the Payment

Purpose: This application calculate the payment monthly and annually and the pay during 5 years if it increase 3% each year

Program Procedures: the user should choose the name of the job. The application will display the pay monthly and annually and the payment during 5 years if it increase 3% each year.

Algorithms, Processing, and Condition:

1- The user must be able to should choose the name of the job

3- The application will display the pay monthly and annually and the payment during 5 years.

4- The user should be able to clear the numbers and the name of the job.

Notes and Restriction:

. None

Comments:. None