Lab 7 of 7: Object-Oriented Application Coding

VB-CourseListTest-Shell.zip

Home >Information Systems homework help >Lab 7 of 7: Object-Oriented Application Coding

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest.sln

Microsoft Visual Studio Solution File, Format Version 11.00 # Visual Basic Express 2010 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VB-CourseListTest", "VB-CourseListTest\VB-CourseListTest.vbproj", "{B87F0874-5B9F-4D15-AD90-42480718366E}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|x86 = Debug|x86 Release|x86 = Release|x86 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {B87F0874-5B9F-4D15-AD90-42480718366E}.Debug|x86.ActiveCfg = Debug|x86 {B87F0874-5B9F-4D15-AD90-42480718366E}.Debug|x86.Build.0 = Debug|x86 {B87F0874-5B9F-4D15-AD90-42480718366E}.Release|x86.ActiveCfg = Release|x86 {B87F0874-5B9F-4D15-AD90-42480718366E}.Release|x86.Build.0 = Release|x86 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest.suo

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/bin/Debug/VB-CourseListTest.vshost.exe

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/bin/Debug/VB-CourseListTest.vshost.exe.manifest

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/bin/Release/VB-CourseListTest.exe

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/bin/Release/VB-CourseListTest.pdb

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/bin/Release/VB-CourseListTest.xml

VB-CourseListTest 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.

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/Course.vb

Public Class Course Public Sub New(ByVal id As String, ByVal title As String, ByVal creditHours As Integer, ByVal description As String, ByVal prerequisiteCourse As String) Me.CourseID = id Me.CourseTitle = title Me.CreditHours = creditHours Me.Description = description Me.PrerequisiteCourse = prerequisiteCourse End Sub Public CourseID As String Public CourseTitle As String Public CreditHours As Integer Public Description As String Public PrerequisiteCourse As String End Class

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/CourseList.vb

Public Class CourseList Dim CourseArray As Course() = { New Course("CIS 400", "OO Analysis & Design", 4, "Important class", "CIS 110"), New Course("CIS 150A", "VB.NET Programming", 4, "Good Introduction to programming", "CIS 100"), New Course("CIS 150B", "C# Programming with labs", 4, "Follow-up to CIS 100", "CIS 100") } Public Function GetCourseByCourseID(ByVal id As String) As Course ' TODO - Add your code here End Function End Class

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/CourseListTest.vb

Public Class CourseListTest Public Shared Sub Main() GetCourseByCourseIDTestWhenCourseExists() GetCourseByCourseIDTestWhenCourseDoesNotExist() End Sub Public Shared Sub GetCourseByCourseIDTestWhenCourseExists() Dim myCourseList As New CourseList() Dim myCourse As Course = myCourseList.GetCourseByCourseID("CIS 400") If myCourse.CourseID <> "CIS 400" Then System.Console.WriteLine("ERROR - GetCourseByCourseIDTestWhenCourseExists(): Returned CourseID Not equal (CIS 400)") End If End Sub Public Shared Sub GetCourseByCourseIDTestWhenCourseDoesNotExist() Dim myCourseList As New CourseList() Dim myCourse As Course = myCourseList.GetCourseByCourseID("CIS 101") If myCourse IsNot Nothing Then System.Console.WriteLine("ERROR - GetCourseByCourseIDTestWhenCourseDoesNotExist(): should have returned null") End If End Sub End Class

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/My Project/Application.Designer.vb

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/My Project/Application.myapp

false false 0 true 0 2 true

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/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("VB-CourseListTest")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("Microsoft")> <Assembly: AssemblyProduct("VB-CourseListTest")> <Assembly: AssemblyCopyright("Copyright © Microsoft 2011")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("da4c30ab-70dc-4ef2-9afb-15606a69c5f1")> ' 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")>

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/My Project/Resources.Designer.vb

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

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/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

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/My Project/Settings.Designer.vb

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

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/My Project/Settings.settings

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/DesignTimeResolveAssemblyReferencesInput.cache

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/GenerateResource.read.1.tlog

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/GenerateResource.write.1.tlog

^C:\USERS\OSAMA A. MORAD\APPDATA\LOCAL\TEMPORARY PROJECTS\VB-COURSELISTTEST\MY PROJECT\RESOURCES.RESX ^C:\ONLINE CLASSES\2 DEVRY COURSES\DEV\2011\CIS 339 - TAKE 2\ME\DELIVERY WEEK7 CONTENT\PRACTICES\WEEK7 ILAB SHELLS\VB-COURSELISTTEST-SHELL\VB-COURSELISTTEST\VB-COURSELISTTEST\MY PROJECT\RESOURCES.RESX C:\ONLINE CLASSES\2 DEVRY COURSES\DEV\2011\CIS 339 - TAKE 2\ME\DELIVERY WEEK7 CONTENT\PRACTICES\WEEK7 ILAB SHELLS\VB-COURSELISTTEST-SHELL\VB-COURSELISTTEST\VB-COURSELISTTEST\OBJ\X86\RELEASE\VB_COURSELISTTEST.RESOURCES.RESOURCES

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/TempPE/My Project.Resources.Designer.vb.dll

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/VB_CourseListTest.Resources.resources

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/VB-CourseListTest.exe

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/VB-CourseListTest.pdb

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/VB-CourseListTest.vbproj.FileListAbsolute.txt

C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\bin\Release\VB-CourseListTest.exe C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\bin\Release\VB-CourseListTest.pdb C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\bin\Release\VB-CourseListTest.xml C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\ResolveAssemblyReference.cache C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\VB_CourseListTest.Resources.resources C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\GenerateResource.read.1.tlog C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\GenerateResource.write.1.tlog C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.exe C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.xml C:\Users\Osama A. Morad\AppData\Local\Temporary Projects\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.pdb C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.exe C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.xml C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\VB-CourseListTest.pdb C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\bin\Release\VB-CourseListTest.exe C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\bin\Release\VB-CourseListTest.pdb C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\bin\Release\VB-CourseListTest.xml C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\ResolveAssemblyReference.cache C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\VB_CourseListTest.Resources.resources C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\GenerateResource.read.1.tlog C:\Online Classes\2 DeVry Courses\Dev\2011\CIS 339 - Take 2\Me\Delivery Week7 Content\Practices\Week7 iLab Shells\VB-CourseListTest-Shell\VB-CourseListTest\VB-CourseListTest\obj\x86\Release\GenerateResource.write.1.tlog

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/obj/x86/Release/VB-CourseListTest.xml

VB-CourseListTest-Shell/VB-CourseListTest/VB-CourseListTest/VB-CourseListTest.vbproj

Debug x86 {B87F0874-5B9F-4D15-AD90-42480718366E} Exe VB_CourseListTest.CourseListTest VB_CourseListTest VB-CourseListTest 512 Console v4.0 Client x86 true full true true bin\Debug\ VB-CourseListTest.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 x86 pdbonly false true true bin\Release\ VB-CourseListTest.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On True Application.myapp True True Resources.resx True Settings.settings True VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb