VB2

I have 8 weeks of this Visual Basic course. This assignment is just the first week. I am willing to pay 20$ for this first assignment. I need it by Thursday night around 9 PM EST.

 

If you’re work is good I will continue to use you for the entire 8 week course. 

 

Note: The 4th part is a little 10 question quiz, you can just put those answers in a small .txt file.

 

Thanks!

  

Chapter 7/~$Chap 7 x

Chapter 7/Passing Solution.zip

laPassing Solution/Passing Project/App.config

laPassing Solution/Passing Project/bin/Debug/Passing Project.exe

laPassing Solution/Passing Project/bin/Debug/Passing Project.exe.config

laPassing Solution/Passing Project/bin/Debug/Passing Project.pdb

laPassing Solution/Passing Project/bin/Debug/Passing Project.vshost.exe

laPassing Solution/Passing Project/bin/Debug/Passing Project.vshost.exe.config

laPassing Solution/Passing Project/bin/Debug/Passing Project.vshost.exe.manifest

laPassing Solution/Passing Project/bin/Debug/Passing Project.xml

PassingProject

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.

laPassing Solution/Passing Project/Main Form.Designer.vb

_
Partial Class frmMain
Inherits System.Windows.Forms.Form
‘Form overrides dispose to clean up the component list.
_
Protected 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.
_
Private Sub InitializeComponent()
Me.btnExit = New System.Windows.Forms.Button()
Me.btnDisplay = New System.Windows.Forms.Button()
Me.lblName = New System.Windows.Forms.Label()
Me.SuspendLayout()
‘
‘btnExit
‘
Me.btnExit.Location = New System.Drawing.Point(135, 69)
Me.btnExit.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnExit.Name = “btnExit”
Me.btnExit.Size = New System.Drawing.Size(114, 31)
Me.btnExit.TabIndex = 1
Me.btnExit.Text = “E&xit”
‘
‘btnDisplay
‘
Me.btnDisplay.Location = New System.Drawing.Point(17, 69)
Me.btnDisplay.Margin = New System.Windows.Forms.Padding(2, 3, 2, 3)
Me.btnDisplay.Name = “btnDisplay”
Me.btnDisplay.Size = New System.Drawing.Size(114, 31)
Me.btnDisplay.TabIndex = 0
Me.btnDisplay.Text = “&Display Name”
‘
‘lblName
‘
Me.lblName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.lblName.Location = New System.Drawing.Point(17, 25)
Me.lblName.Margin = New System.Windows.Forms.Padding(2, 0, 2, 0)
Me.lblName.Name = “lblName”
Me.lblName.Size = New System.Drawing.Size(232, 31)
Me.lblName.TabIndex = 2
Me.lblName.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
‘
‘frmMain
‘
Me.AutoScaleDimensions = New System.Drawing.SizeF(8.0!, 20.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(268, 124)
Me.Controls.Add(Me.btnExit)
Me.Controls.Add(Me.btnDisplay)
Me.Controls.Add(Me.lblName)
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(3, 4, 3, 4)
Me.MaximizeBox = False
Me.Name = “frmMain”
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = “Passing Variables”
Me.ResumeLayout(False)
End Sub
Friend WithEvents btnExit As System.Windows.Forms.Button
Friend WithEvents btnDisplay As System.Windows.Forms.Button
Friend WithEvents lblName As System.Windows.Forms.Label
End Class

laPassing Solution/Passing 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

laPassing Solution/Passing Project/Main Form.vb

‘ Name: Passing Project
‘ Purpose: Demonstrates passing variables by value and by reference
‘ Programmer: on
Option Explicit On
Option Strict On
Option Infer Off
Public Class frmMain
Private Sub GetName(ByVal strNameEntry As String)
strNameEntry = InputBox(“Enter your name:”, “Name”)
End Sub
Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click
Dim strMyName As String = String.Empty
Call GetName(strMyName)
lblName.Text = strMyName
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class

laPassing Solution/Passing Project/My Project/Application.Designer.vb

‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On

Namespace My

‘NOTE: This file is auto-generated; do not modify it directly. To make changes,
‘ or if you encounter build errors in this file, go to the Project Designer
‘ (go to Project Properties or double-click the My Project node in
‘ Solution Explorer), and make changes on the Application tab.
‘
Partial Friend Class MyApplication

_
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub

_
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.Passing_Project.frmMain
End Sub
End Class
End Namespace

laPassing Solution/Passing Project/My Project/Application.myapp

true
frmMain
false
0
true
0
true

laPassing Solution/Passing 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







‘The following GUID is for the ID of the typelib if this project is exposed to COM

‘ 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:
‘

laPassing Solution/Passing Project/My Project/Resources.Designer.vb

‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
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.
”’

”’ A strongly-typed resource class, for looking up localized strings, etc.
”’

_
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
”’

”’ Returns the cached ResourceManager instance used by this class.
”’

_
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(“Passing_Project.Resources”, GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
”’

”’ Overrides the current thread’s CurrentUICulture property for all
”’ resource lookups using this strongly typed resource class.
”’

_
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

laPassing Solution/Passing 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

laPassing Solution/Passing Project/My Project/Settings.Designer.vb

‘——————————————————————————
‘
‘ This code was generated by a tool.
‘ Runtime Version:4.0.30319.18010
‘
‘ Changes to this file may cause incorrect behavior and will be lost if
‘ the code is regenerated.
‘
‘——————————————————————————
Option Strict On
Option Explicit On

Namespace My
_
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
_
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

_
Friend Module MySettingsProperty

_
Friend ReadOnly Property Settings() As Global.Passing_Project.My.MySettings
Get
Return Global.Passing_Project.My.MySettings.Default
End Get
End Property
End Module
End Namespace

laPassing Solution/Passing Project/My Project/Settings.settings

laPassing Solution/Passing Project/obj/Debug/DesignTimeResolveAssemblyReferences.cache

laPassing Solution/Passing Project/obj/Debug/DesignTimeResolveAssemblyReferencesInput.cache

laPassing Solution/Passing Project/obj/Debug/Passing Project.exe

laPassing Solution/Passing Project/obj/Debug/Passing Project.pdb

laPassing Solution/Passing Project/obj/Debug/Passing Project.vbproj.FileListAbsolute.txt

C:\Users\droeb_000\Dropbox\Classes\_CST-171\Instructor_Solution_Files_128507792X_394672\VB2012\Chap07\laPassing Solution\Passing Project\bin\Debug\Passing Project.exe.config
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\bin\Debug\Passing Project.exe.config
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\bin\Debug\Passing Project.exe
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\bin\Debug\Passing Project.pdb
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\bin\Debug\Passing Project.xml
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing_Project.frmMain.resources
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing_Project.Resources.resources
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing Project.vbproj.GenerateResource.Cache
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing Project.exe
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing Project.xml
C:\Users\droeb_000\Dropbox\Classes\_CST-271\Student_Data_Files\VB2012\Chap07\laPassing Solution\Passing Project\obj\Debug\Passing Project.pdb

laPassing Solution/Passing Project/obj/Debug/Passing Project.vbproj.GenerateResource.Cache

laPassing Solution/Passing Project/obj/Debug/Passing Project.xml

PassingProject

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.

laPassing Solution/Passing Project/obj/Debug/Passing_Project.frmMain.resources

laPassing Solution/Passing Project/obj/Debug/Passing_Project.Resources.resources

laPassing Solution/Passing Project/obj/Debug/TempPE/My Project.Resources.Designer.vb.dll

laPassing Solution/Passing Project/Passing Project.vbproj

Debug
AnyCPU
{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}
WinExe
Passing_Project.My.MyApplication
Passing_Project
Passing Project
512
WindowsForms
v4.5

AnyCPU
true
full
true
true
bin\Debug\
Passing Project.xml
42016,41999,42017,42018,42019,42032,42036,42020,42021,42022

AnyCPU
pdbonly
false
true
true
bin\Release\
Passing 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

laPassing Solution/Passing Solution.sln

Microsoft Visual Studio Solution File, Format Version 12.00
# Visual Studio 2012
Project(“{F184B08F-C81C-45F6-A57F-5ABD9991F28F}”) = “Passing Project”, “Passing Project\Passing Project.vbproj”, “{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}”
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|Any CPU = Debug|Any CPU
Release|Any CPU = Release|Any CPU
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}.Debug|Any CPU.Build.0 = Debug|Any CPU
{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}.Release|Any CPU.ActiveCfg = Release|Any CPU
{41ACE0D3-F586-46CD-BE3E-2737EB18E1F8}.Release|Any CPU.Build.0 = Release|Any CPU
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

laPassing Solution/Passing Solution.v11.suo