Visual Basic Assignment

ehstudent

san_francisco_segway_tours.zip

Home >Computer Science homework help >Visual Basic Assignment

San Francisco Segway Tours/San Francisco Segway Tours/bin/Debug/San Francisco Segway Tours.exe

San Francisco Segway Tours/San Francisco Segway Tours/bin/Debug/San Francisco Segway Tours.pdb

San Francisco Segway Tours/San Francisco Segway Tours/bin/Debug/San Francisco Segway Tours.vshost.exe

San Francisco Segway Tours/San Francisco Segway Tours/bin/Debug/San Francisco Segway Tours.xml

SanFranciscoSegwayTours 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. Looks up a localized resource of type System.Drawing.Bitmap. A strongly-typed resource class, for looking up localized strings, etc.

San Francisco Segway Tours/San Francisco Segway Tours/My Project/Application.Designer.vb

San Francisco Segway Tours/San Francisco Segway Tours/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>sanfrancisco</MainForm> <SingleInstance>false</SingleInstance> <ShutdownMode>0</ShutdownMode> <EnableVisualStyles>true</EnableVisualStyles> <AuthenticationMode>0</AuthenticationMode> <SaveMySettingsOnExit>true</SaveMySettingsOnExit> </MyApplicationData>

San Francisco Segway Tours/San Francisco Segway Tours/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("San Francisco Segway Tours")> <Assembly: AssemblyDescription("")> <Assembly: AssemblyCompany("")> <Assembly: AssemblyProduct("San Francisco Segway Tours")> <Assembly: AssemblyCopyright("Copyright © 2014")> <Assembly: AssemblyTrademark("")> <Assembly: ComVisible(False)> 'The following GUID is for the ID of the typelib if this project is exposed to COM <Assembly: Guid("20c900d4-aa69-4d3b-9671-f5ec2112e6ba")> ' 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")>

San Francisco Segway Tours/San Francisco Segway Tours/My Project/Resources.Designer.vb

'------------------------------------------------------------------------------ ' <auto-generated> ' This code was generated by a tool. ' Runtime Version:4.0.30319.18444 ' ' 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("San_Francisco_Segway_Tours.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 Segway() As System.Drawing.Bitmap Get Dim obj As Object = ResourceManager.GetObject("Segway", resourceCulture) Return CType(obj,System.Drawing.Bitmap) End Get End Property End Module End Namespace

San Francisco Segway Tours/San Francisco Segway Tours/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\Segway.jpg;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a

San Francisco Segway Tours/San Francisco Segway Tours/My Project/Settings.Designer.vb

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

San Francisco Segway Tours/San Francisco Segway Tours/My Project/Settings.settings

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/DesignTimeResolveAssemblyReferences.cache

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/DesignTimeResolveAssemblyReferencesInput.cache

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San Francisco Segway Tours.exe

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San Francisco Segway Tours.pdb

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San Francisco Segway Tours.vbproj.FileListAbsolute.txt

C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\bin\Debug\San Francisco Segway Tours.exe C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\bin\Debug\San Francisco Segway Tours.pdb C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\bin\Debug\San Francisco Segway Tours.xml C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San_Francisco_Segway_Tours.sanfrancisco.resources C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San_Francisco_Segway_Tours.Resources.resources C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San Francisco Segway Tours.vbproj.GenerateResource.Cache C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San Francisco Segway Tours.exe C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San Francisco Segway Tours.xml C:\Users\MCzarnecki\documents\visual studio 2010\Projects\San Francisco Segway Tours\San Francisco Segway Tours\obj\x86\Debug\San Francisco Segway Tours.pdb

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San Francisco Segway Tours.vbproj.GenerateResource.Cache

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San Francisco Segway Tours.xml

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San_Francisco_Segway_Tours.Resources.resources

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/San_Francisco_Segway_Tours.sanfrancisco.resources

San Francisco Segway Tours/San Francisco Segway Tours/obj/x86/Debug/TempPE/My Project.Resources.Designer.vb.dll

San Francisco Segway Tours/San Francisco Segway Tours/Resources/Segway.jpg

San Francisco Segway Tours/San Francisco Segway Tours/San Francisco Segway Tours.vbproj

Debug x86 2.0 {90B14F9A-34F3-4F68-BF25-44969E0A4C2F} WinExe San_Francisco_Segway_Tours.My.MyApplication San_Francisco_Segway_Tours San Francisco Segway Tours 512 WindowsForms v4.0 Client x86 true full true true bin\Debug\ San Francisco Segway Tours.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 x86 pdbonly false true true bin\Release\ San Francisco Segway Tours.xml 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 On Binary Off On Form Tour.vb Form True Application.myapp True True Resources.resx True Settings.settings True Tour.vb VbMyResourcesResXFileCodeGenerator Resources.Designer.vb My.Resources Designer MyApplicationCodeGenerator Application.Designer.vb SettingsSingleFileGenerator My Settings.Designer.vb

San Francisco Segway Tours/San Francisco Segway Tours/San Francisco Segway Tours.vbproj.user

San Francisco Segway Tours/San Francisco Segway Tours/Tour.Designer.vb

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ Partial Class sanfrancisco 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.PictureBox1 = New System.Windows.Forms.PictureBox() Me.btncalculate = New System.Windows.Forms.Button() Me.lblsegway = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.lbltickets = New System.Windows.Forms.Label() Me.lbldiscount = New System.Windows.Forms.Label() Me.cbchoices = New System.Windows.Forms.ComboBox() Me.txtnumber = New System.Windows.Forms.TextBox() Me.cbdiscount = New System.Windows.Forms.ComboBox() Me.btnclear = New System.Windows.Forms.Button() CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'PictureBox1 ' Me.PictureBox1.Image = Global.San_Francisco_Segway_Tours.My.Resources.Resources.Segway Me.PictureBox1.Location = New System.Drawing.Point(12, 12) Me.PictureBox1.Name = "PictureBox1" Me.PictureBox1.Size = New System.Drawing.Size(173, 141) Me.PictureBox1.SizeMode = System.Windows.Forms.PictureBoxSizeMode.StretchImage Me.PictureBox1.TabIndex = 0 Me.PictureBox1.TabStop = False ' 'btncalculate ' Me.btncalculate.BackColor = System.Drawing.Color.DarkKhaki Me.btncalculate.ForeColor = System.Drawing.SystemColors.ButtonHighlight Me.btncalculate.Location = New System.Drawing.Point(15, 307) Me.btncalculate.Name = "btncalculate" Me.btncalculate.Size = New System.Drawing.Size(156, 33) Me.btncalculate.TabIndex = 1 Me.btncalculate.Text = "Compute Cost" Me.btncalculate.UseVisualStyleBackColor = False ' 'lblsegway ' Me.lblsegway.BackColor = System.Drawing.SystemColors.ButtonShadow Me.lblsegway.Font = New System.Drawing.Font("Microsoft Sans Serif", 18.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lblsegway.ForeColor = System.Drawing.Color.Red Me.lblsegway.Location = New System.Drawing.Point(211, 12) Me.lblsegway.Name = "lblsegway" Me.lblsegway.Size = New System.Drawing.Size(216, 63) Me.lblsegway.TabIndex = 3 Me.lblsegway.Text = " Segway Tour Tickets" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Label2.Location = New System.Drawing.Point(213, 95) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(149, 16) Me.Label2.TabIndex = 4 Me.Label2.Text = "Select Type of Tour:" ' 'lbltickets ' Me.lbltickets.AutoSize = True Me.lbltickets.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lbltickets.Location = New System.Drawing.Point(9, 185) Me.lbltickets.Name = "lbltickets" Me.lbltickets.Size = New System.Drawing.Size(139, 16) Me.lbltickets.TabIndex = 5 Me.lbltickets.Text = "Number of Tickers:" ' 'lbldiscount ' Me.lbldiscount.AutoSize = True Me.lbldiscount.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.lbldiscount.Location = New System.Drawing.Point(12, 224) Me.lbldiscount.Name = "lbldiscount" Me.lbldiscount.Size = New System.Drawing.Size(112, 16) Me.lbldiscount.TabIndex = 6 Me.lbldiscount.Text = "Discount Type:" ' 'cbchoices ' Me.cbchoices.FormattingEnabled = True Me.cbchoices.Items.AddRange(New Object() {"Golden Gate Bridge Tour $79.99", "Waterfront Tour $69.99"}) Me.cbchoices.Location = New System.Drawing.Point(216, 115) Me.cbchoices.Name = "cbchoices" Me.cbchoices.Size = New System.Drawing.Size(211, 21) Me.cbchoices.TabIndex = 9 ' 'txtnumber ' Me.txtnumber.Location = New System.Drawing.Point(216, 180) Me.txtnumber.Name = "txtnumber" Me.txtnumber.Size = New System.Drawing.Size(100, 20) Me.txtnumber.TabIndex = 10 ' 'cbdiscount ' Me.cbdiscount.FormattingEnabled = True Me.cbdiscount.Items.AddRange(New Object() {"AAA Discount 10%", "Militart Discount 15%"}) Me.cbdiscount.Location = New System.Drawing.Point(216, 218) Me.cbdiscount.Name = "cbdiscount" Me.cbdiscount.Size = New System.Drawing.Size(121, 21) Me.cbdiscount.TabIndex = 11 ' 'btnclear ' Me.btnclear.BackColor = System.Drawing.Color.DarkKhaki Me.btnclear.ForeColor = System.Drawing.SystemColors.ButtonHighlight Me.btnclear.Location = New System.Drawing.Point(271, 307) Me.btnclear.Name = "btnclear" Me.btnclear.Size = New System.Drawing.Size(156, 33) Me.btnclear.TabIndex = 12 Me.btnclear.Text = "Clear Form" Me.btnclear.UseVisualStyleBackColor = False ' 'sanfrancisco ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(458, 376) Me.Controls.Add(Me.btnclear) Me.Controls.Add(Me.cbdiscount) Me.Controls.Add(Me.txtnumber) Me.Controls.Add(Me.cbchoices) Me.Controls.Add(Me.lbldiscount) Me.Controls.Add(Me.lbltickets) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.lblsegway) Me.Controls.Add(Me.btncalculate) Me.Controls.Add(Me.PictureBox1) Me.Name = "sanfrancisco" Me.Text = "San Francisco Segway Tour" CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents PictureBox1 As System.Windows.Forms.PictureBox Friend WithEvents btncalculate As System.Windows.Forms.Button Friend WithEvents lblsegway As System.Windows.Forms.Label Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents lbltickets As System.Windows.Forms.Label Friend WithEvents cbchoices As System.Windows.Forms.ComboBox Friend WithEvents lbldiscount As System.Windows.Forms.Label Friend WithEvents txtnumber As System.Windows.Forms.TextBox Friend WithEvents cbdiscount As System.Windows.Forms.ComboBox Friend WithEvents btnclear As System.Windows.Forms.Button End Class

San Francisco Segway Tours/San Francisco Segway Tours/Tour.resx

San Francisco Segway Tours/San Francisco Segway Tours/Tour.vb

Public Class sanfrancisco Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load End Sub Private Sub ComboBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cbchoices.SelectedIndexChanged End Sub End Class

San Francisco Segway Tours/San Francisco Segway Tours.sln

Microsoft Visual Studio Solution File, Format Version 11.00 # Visual Basic Express 2010 Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "San Francisco Segway Tours", "San Francisco Segway Tours\San Francisco Segway Tours.vbproj", "{90B14F9A-34F3-4F68-BF25-44969E0A4C2F}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution Debug|x86 = Debug|x86 Release|x86 = Release|x86 EndGlobalSection GlobalSection(ProjectConfigurationPlatforms) = postSolution {90B14F9A-34F3-4F68-BF25-44969E0A4C2F}.Debug|x86.ActiveCfg = Debug|x86 {90B14F9A-34F3-4F68-BF25-44969E0A4C2F}.Debug|x86.Build.0 = Debug|x86 {90B14F9A-34F3-4F68-BF25-44969E0A4C2F}.Release|x86.ActiveCfg = Release|x86 {90B14F9A-34F3-4F68-BF25-44969E0A4C2F}.Release|x86.Build.0 = Release|x86 EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE EndGlobalSection EndGlobal