diff --git a/CombinedAlts/Form1.vb b/CombinedAlts/Form1.vb deleted file mode 100644 index 417db889a3323a93e1e4cf8e5aa40f0ddbc258bb..0000000000000000000000000000000000000000 --- a/CombinedAlts/Form1.vb +++ /dev/null @@ -1,250 +0,0 @@ - -imports System -imports System.Collections.Generic -imports System.Linq -imports System.Text -imports System.IO -imports DocumentFormat.OpenXml -imports DocumentFormat.OpenXml.Spreadsheet -imports SpreadsheetLight - -Public Class Form1 - -Private powerCalculationSheetName = "Power Calculation" -Private combinedAlternatorETAMAPSheetName = "Combined Alternator ETA Map" -Private alt1SheetName = "Alt 1" -Private aLt2SheetName = "Alt 2" -Private alt3SheetName = "Alt 3" -Private aLt4SheetName = "Alt 4" - - -private combinedSheet As SLDocument -Private powerCalculation As SLDocument -Private Alt1 As SLDocument -Private ALt2 As SLDocument -Private Alt3 As SLDocument -Private ALt4 As SLDocument - -Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click - - -ABC("c:\alt.xlsx") - -End Sub - - -public sub calculate() - - - -End Sub - - -Public Sub ABC(excelPath As string) - -Dim fs As FileStream -Dim msFirstPass As MemoryStream -Dim combinedSheet As SLDocument - -'run calculation - - - -Try - - fs = New FileStream(excelPath, FileMode.Open) - - ' msFirstPass = New MemoryStream() - combinedSheet = New SLDocument(excelPath, combinedAlternatorETAMAPSheetName) - powerCalculation = New SLDocument(excelPath, powerCalculationSheetName) - Alt1 = New SLDocument(excelPath, alt1SheetName) - Alt2 = New SLDocument(excelPath, alt2SheetName) - Alt3 = New SLDocument(excelPath, alt3SheetName) - Alt4 = New SLDocument(excelPath, alt4SheetName) - - ValuesAlt1() - - - 'Invoke Macro - ValuesAlt1() - fs.Close - - 'Alt1.SaveAs(excelPath) - - 'Dim cell1 = combinedSheet.GetCells( New SLCellPoint(4,11)) - - 'debug.WriteLine(String.Format("Values are {0}",cell1.NumericValue)) - -Catch ex As Exception - - Console.WriteLine( ex.Message) - -Finally - - - -End Try - - - -End Sub - -Sub ValuesAlt1() - -'This macro builds the base for the calculation of the "Output Matrix" in sheet "Power Calculation". Therefore it collects the values -'out of the user inteface in sheet "Power Calculation" (Input Alt 1) and writes it into the table P4:U19 in sheet "Alt 1". This program -'checks out if the values are increasing or decreasing and splits it into these two cases. - -'If there are changes in row or column number in sheet "Power Calculation", following steps will have to be made: -'Change in Row number: -'1. Change the start value of a (line 25, 70, 113) into the row number of the first amps in the "Input Altenator" table. -'2. Change the start value of the Loop Counter i (line 29, 73, 116) into the same value as a -'3. Change the end value of the Loop Counter i (line 29, 73, 116) into its start value plus 6 -'4. Change value of a in the If-query (line 46, 89, 132 and line 55, 97, 141) into the end value of (3.) plus 1 -'5. Change the end value of the Loop Counter j (line 47, 90, 133) into the end value of (3.) plus 1 -'Change in column: -'1. Change the number (not the letter) in all commands similar to 'Sheets("Power Calculation").'. -' ATTENTION: different numbers for different rpm - - - - Dim i, j, k, l, m, n, a 'Definition of the used variables - -'Calculation for 2000 rpm - j = 5 'Start-values - k = 0 - a = 39 - n = 1 - - 'Increasing values - For i = 39 To 45 'Loop over the rows 5 to 11 in sheet "Power Calculation" - If powerCalculation.GetCells(New SLCellPoint(i, 2)).NumericValue <> 0 Then 'Query whether column B, row i in sheet "Power Calculation" contains a value - If powerCalculation.GetCells(New SLCellPoint(i, 2)).NumericValue > k Then 'Query if the value of row i is greater than the value of row i-1 - alt1.SetCellValue(j, 17,powerCalculation.GetCells(New SLCellPoint(i, 2)).NumericValue) 'Write the value of row i into the table P4:U19 row j in sheet "Alt 1" - j = j + 1 'Counter for row j in table P4:U19 (sheet "Alt 1") - k = powerCalculation.GetCells(New SLCellPoint(i, 2) ).NumericValue 'Compare value for the next iteration cycle - Else: a = j - 1 + a - 5 'Saving row-number with the greatest value of degree of efficiency - End If - Else - For l = j To 11 'Loop to fill empty cells in Q6 to Q8 with the existing values - alt1.SetCellValue(l, 17,Alt1.GetCells(New SLCellPoint(l - j + 5, 17)).NumericValue) - Next - alt1.SetCellValue(13, 17, k ) 'Write last value in the first row of the decreasing valus - End If - Next - - 'Decreasing values - If a < 46 Then 'Query: if a>=11: no decreasing values exist - For j = a To 46 - If powerCalculation.GetCells(New SLCellPoint(j + 1, 2)).NumericValue < k And powerCalculation.GetCells(New SLCellPoint(j + 1, 2)).NumericValue <> 0 Then - alt1.SetCellValue(13 + n, 17, powerCalculation.GetCells(New SLCellPoint(j + 1, 2)).NumericValue) 'Write decreasing values into row 13+n - k = powerCalculation.GetCells(New SLCellPoint(j + 1, 2)).NumericValue 'Compare value for the next iteration cycle - n = n + 1 'Counter for row number - a = a + 1 'Counter - End If - Next - If a < 46 Then - For m = 13 + n To 19 'Loop to fill empty cells in Q13 to Q19 with the existing values - alt1.SetCellValue(m, 17,Alt1.GetCells(New SLCellPoint(m - n, 17)).NumericValue) - Next - End If - Else - For m = 13 To 19 - alt1.SetCellValue(m, 17, 0 ) 'If decreasing values do not exist, fill Q13 to Q19 (sheet "Alt 1") with 0 - Next - End If - - -'Calculation for 4000 rpm - j = 5 - k = 0 - a = 39 - n = 1 - - For i = 39 To 45 - If powerCalculation.GetCells(New SLCellPoint(i, 3)).NumericValue <> 0 Then - If powerCalculation.GetCells(New SLCellPoint(i, 3)).NumericValue > k Then - alt1.SetCellValue(j, 19, powerCalculation.GetCells(New SLCellPoint(i, 3)).NumericValue) - j = j + 1 - k = powerCalculation.GetCells(New SLCellPoint(i, 3)).NumericValue - Else: a = j - 1 + a - 5 - End If - Else - For l = j To 11 - alt1.SetCellValue(l, 19, alt1.GetCells( New SLCellPoint(l - j + 5, 19)).NumericValue) - Next - alt1.SetCellValue(13, 19, k) - End If - Next - - If a < 46 Then - For j = a To 46 - If powerCalculation.GetCells(New SLCellPoint(j + 1, 3)).NumericValue < k And powerCalculation.GetCells(New SLCellPoint(j + 1, 3)).NumericValue <> 0 Then - alt1.SetCellValue(13 + n, 19, powerCalculation.GetCells(New SLCellPoint(j + 1, 3)).NumericValue) - k = powerCalculation.GetCells(New SLCellPoint(j + 1, 3)).NumericValue - n = n + 1 - a = a + 1 - End If - Next - If a < 46 Then - For m = 13 + n To 19 - alt1.SetCellValue(m, 19, alt1.GetCells( New SLCellPoint(m - n, 19)).NumericValue) - Next - End If - Else - For m = 13 To 19 - alt1.SetCellValue(m, 19, 0) - Next - End If - - -'Calculation for 6000 rpm - j = 5 - k = 0 - a = 39 - n = 1 - - For i = 39 To 45 - If powerCalculation.GetCells(New SLCellPoint(i, 4)).NumericValue <> 0 Then - If powerCalculation.GetCells(New SLCellPoint(i, 4)).NumericValue > k Then - alt1.SetCellValue(j, 21, powerCalculation.GetCells(New SLCellPoint(i, 4)).NumericValue) - j = j + 1 - k = powerCalculation.GetCells(New SLCellPoint(i, 4)).NumericValue - Else: a = j - 1 + a - 5 - End If - Else - For l = j To 11 - alt1.SetCellValue(l, 21, alt1.GetCells( New SLCellPoint(l - j + 5, 21)).NumericValue) - Next - alt1.SetCellValue(13, 21, k ) - End If - Next - - If a < 46 Then - For j = a To 46 - If powerCalculation.GetCells(New SLCellPoint(j + 1, 4)).NumericValue < k And powerCalculation.GetCells(New SLCellPoint(j + 1, 4)).NumericValue <> 0 Then - alt1.SetCellValue(13 + n, 21, powerCalculation.GetCells(New SLCellPoint(j + 1, 4)).NumericValue) - k = powerCalculation.GetCells(New SLCellPoint(j + 1, 4)).NumericValue - n = n + 1 - a = a + 1 - End If - Next - If a < 46 Then - For m = 13 + n To 19 - alt1.SetCellValue(m, 21, alt1.GetCells( New SLCellPoint(m - n, 21)).NumericValue) - Next - End If - Else - For m = 13 To 19 - alt1.SetCellValue(m, 21, 0) - Next - End If - - -End Sub - - - - - -End Class diff --git a/CombinedAlts/MAIN.vb b/CombinedAlts/MAIN.vb new file mode 100644 index 0000000000000000000000000000000000000000..560ba73d67ce5aa4cf9517ab016b867f8bd077cf --- /dev/null +++ b/CombinedAlts/MAIN.vb @@ -0,0 +1,12 @@ +Module MAIN + + +Public Sub Main() + + + +End Sub + + + +End Module diff --git a/CombinedAlts/My Project/Application.Designer.vb b/CombinedAlts/My Project/Application.Designer.vb index ab45ff784bae475a68ecfa7f1f9005c591427985..98eea6a30a354b5fc3ed332bc48a7fa6d29311dd 100644 --- a/CombinedAlts/My Project/Application.Designer.vb +++ b/CombinedAlts/My Project/Application.Designer.vb @@ -32,7 +32,7 @@ Namespace My <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ Protected Overrides Sub OnCreateMainForm() - Me.MainForm = Global.VectoAuxiliaries.Form1 + Me.MainForm = Global.VectoAuxiliaries End Sub End Class End Namespace diff --git a/CombinedAlts/CombinedAlts.vbproj b/CombinedAlts/SSMTOOL.vbproj similarity index 92% rename from CombinedAlts/CombinedAlts.vbproj rename to CombinedAlts/SSMTOOL.vbproj index 84a86db0b8409c454fcc3107d15ed8989cad61c8..55c59d5b0fcfc41f27b8bf5597a11ce89b945012 100644 --- a/CombinedAlts/CombinedAlts.vbproj +++ b/CombinedAlts/SSMTOOL.vbproj @@ -8,7 +8,7 @@ <OutputType>WinExe</OutputType> <StartupObject>VectoAuxiliaries.My.MyApplication</StartupObject> <RootNamespace>VectoAuxiliaries</RootNamespace> - <AssemblyName>CombinedAlts</AssemblyName> + <AssemblyName>SSMTOOL</AssemblyName> <FileAlignment>512</FileAlignment> <MyType>WindowsForms</MyType> <TargetFrameworkVersion>v4.0</TargetFrameworkVersion> @@ -24,7 +24,7 @@ <DefineDebug>true</DefineDebug> <DefineTrace>true</DefineTrace> <OutputPath>bin\Debug\</OutputPath> - <DocumentationFile>CombinedAlts.xml</DocumentationFile> + <DocumentationFile>SSMTOOL.xml</DocumentationFile> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> </PropertyGroup> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> @@ -34,7 +34,7 @@ <DefineTrace>true</DefineTrace> <Optimize>true</Optimize> <OutputPath>bin\Release\</OutputPath> - <DocumentationFile>CombinedAlts.xml</DocumentationFile> + <DocumentationFile>SSMTOOL.xml</DocumentationFile> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> </PropertyGroup> <PropertyGroup> @@ -81,12 +81,7 @@ <Import Include="System.Xml.Linq" /> </ItemGroup> <ItemGroup> - <Compile Include="Form1.Designer.vb"> - <DependentUpon>Form1.vb</DependentUpon> - </Compile> - <Compile Include="Form1.vb"> - <SubType>Form</SubType> - </Compile> + <Compile Include="MAIN.vb" /> <Compile Include="My Project\AssemblyInfo.vb" /> <Compile Include="My Project\Application.Designer.vb"> <AutoGen>True</AutoGen> @@ -104,9 +99,6 @@ </Compile> </ItemGroup> <ItemGroup> - <EmbeddedResource Include="Form1.resx"> - <DependentUpon>Form1.vb</DependentUpon> - </EmbeddedResource> <EmbeddedResource Include="My Project\Resources.resx"> <Generator>VbMyResourcesResXFileCodeGenerator</Generator> <LastGenOutput>Resources.Designer.vb</LastGenOutput> diff --git a/HVACTOOL/BusDatabase.csv b/HVACTOOL/BusDatabase.csv new file mode 100644 index 0000000000000000000000000000000000000000..99fd6fd87231ae7921d9ba935f71ca37206cbebe --- /dev/null +++ b/HVACTOOL/BusDatabase.csv @@ -0,0 +1,159 @@ +Bus Model,Type,engine Type,length in m,wide in m,height in m,registered passengers +IVECO - Arway Intercity 10.6m,raised floor,diesel,10.655,2.55,2.275,47 +IVECO - Arway Intercity 12.8m,raised floor,diesel,12.756,2.55,2.275,59 +IVECO - Arway Intercity 12m,raised floor,diesel,11.991,2.55,2.275,55 +IVECO - Bus GX 127,low floor,diesel,9.495,2.33,2.395,60 +IVECO - Citelis 10.5m,low floor,diesel,10.46,2.5,2.344,91 +IVECO - Citelis 10.5m CNG,low floor,gas,10.46,2.5,2.344,91 +IVECO - Citelis 12m,low floor,diesel,11.99,2.5,2.344,97 +IVECO - Citelis 12m CNG,low floor,gas,11.99,2.5,2.344,89 +IVECO - Citelis 12m Hybrid,low floor,hybrid,11.99,2.5,2.344,83 +IVECO - Citelis 18m ,low floor,diesel,17.9,2.5,2.344,155 +IVECO - Citelis 18m CNG,low floor,gas,17.9,2.5,2.344,149 +IVECO - Citelis 18m Hybrid,low floor,hybrid,17.9,2.5,2.344,140 +IVECO - Crossway Intercity 10.6m,raised floor,diesel,10.655,2.55,2.275,47 +IVECO - Crossway Intercity 12.8m,raised floor,diesel,12.76,2.55,2.275,59 +IVECO - Crossway Intercity 12m,raised floor,diesel,11.995,2.55,2.275,55 +IVECO - Crossway LE City 10.8m,semi low floor,diesel,10.79,2.55,2.3,90 +IVECO - Crossway LE City 12.8m,semi low floor,diesel,12.76,2.55,2.3,105 +IVECO - Crossway LE City 12m,semi low floor,diesel,11.995,2.55,2.3,108 +IVECO - Crossway LE Intercity 10.8m,semi low floor,diesel,10.79,2.55,2.3,76 +IVECO - Crossway LE Intercity 12.8m,semi low floor,diesel,12.76,2.55,2.3,91 +IVECO - Crossway LE Intercity 12m,semi low floor,diesel,11.995,2.55,2.3,89 +IVECO - Evasys HD 12.8m,raised floor,diesel,12.76,2.55,2.036,59 +IVECO - Evasys HD 12m,raised floor,diesel,11.995,2.55,2.036,55 +IVECO - Magelys HD 12.2m,raised floor,diesel,12.2,2.55,2.1,48 +IVECO - Magelys HD 12.8m,raised floor,diesel,12.765,2.55,2.1,52 +IVECO - Magelys HDH 13.8m,raised floor,diesel,13.8,2.55,2.1,61 +IVECO - Magelys Pro 12.2m,raised floor,diesel,12.2,2.55,2.1,53 +IVECO - Magelys Pro 12.8m,raised floor,diesel,12.765,2.55,2.1,57 +MAN - Lion's City,low floor,diesel,11.98,2.5,2.3,95 +MAN - Lion's City C ,low floor,diesel,13.68,2.5,2.3,98 +MAN - Lion's City C CNG,low floor,gas,13.68,2.5,2.3,98 +MAN - Lion's City CNG,low floor,gas,11.98,2.5,2.3,95 +MAN - Lion's City G,low floor,diesel,17.98,2.5,2.3,150 +MAN - Lion's City G CNG,low floor,gas,17.98,2.5,2.3,144 +MAN - Lion's City GL,low floor,diesel,18.75,2.5,2.3,165 +MAN - Lion's City GL CNG,low floor,gas,18.75,2.5,2.3,158 +MAN - Lion's City L,low floor,diesel,14.705,2.5,2.3,120 +MAN - Lion's City L CNG,low floor,gas,14.705,2.5,2.3,114 +MAN - Lion's City LE,low floor,diesel,11.857,2.55,2.3,36 +MAN - Lion's City LE Ü,low floor,diesel,11.857,2.55,2.3,40 +MAN - Lion's City Ü,low floor,diesel,11.98,2.5,2.3,95 +MAN - Lion's City Ü CNG,low floor,gas,11.98,2.5,2.3,95 +MAN - Lion's Coach,raised floor,diesel,12,2.55,2.1,49 +MAN - Lion's Coach C,raised floor,diesel,13.26,2.55,2.1,55 +MAN - Lion's Coach L,raised floor,diesel,13.8,2.55,2.1,57 +MAN - Lion's Regio,raised floor,diesel,12.25,2.55,2.2,56 +MAN - Lion's Regio C,raised floor,diesel,13.01,2.55,2.2,60 +MAN - Lion's Regio L,raised floor,diesel,13.9,2.55,2.2,64 +Mercedes-Benz - Citaro,low floor,diesel,11.95,2.55,2.313,106 +Mercedes-Benz - Citaro CNG,low floor,gas,11.95,2.55,2.313,98 +Mercedes-Benz - Citaro D,low floor,diesel,12.105,2.55,2.313,106 +Mercedes-Benz - Citaro G,low floor,diesel,17.94,2.55,2.313,159 +Mercedes-Benz - Citaro G CNG,low floor,gas,17.94,2.55,2.313,153 +Mercedes-Benz - Citaro GÜ,semi low floor,diesel,17.94,2.55,2.313,130 +Mercedes-Benz - Citaro K,low floor,diesel,10.503,2.55,2.313,87 +Mercedes-Benz - Citaro LE,low floor,diesel,12.04,2.55,2.318,101 +Mercedes-Benz - Citaro LE MÜ,low floor,diesel,13.057,2.55,2.318,83 +Mercedes-Benz - Citaro LE Ü,low floor,diesel,12.04,2.55,2.318,83 +Mercedes-Benz - Citaro LÜ,semi low floor,diesel,14.995,2.55,2.313,110 +Mercedes-Benz - Citaro MÜ,semi low floor,diesel,13.008,2.55,2.313,89 +Mercedes-Benz - Citaro Ü,semi low floor,diesel,11.95,2.55,2.313,83 +Mercedes-Benz - Integro,raised floor,diesel,12.14,2.55,2.17,53 +Mercedes-Benz - Integro L,raised floor,diesel,14.92,2.55,2.17,69 +Mercedes-Benz - Integro M,raised floor,diesel,12.98,2.55,2.17,57 +Mercedes-Benz - Tourino,raised floor,diesel,9.35,2.4,2,34 +Mercedes-Benz - Tourismo,raised floor,diesel,12.14,2.55,2.01,51 +Mercedes-Benz - Tourismo L,raised floor,diesel,13.99,2.55,2.01,59 +Mercedes-Benz - Tourismo M,raised floor,diesel,12.96,2.55,2.01,55 +Mercedes-Benz - Tourismo M/2,raised floor,diesel,12.96,2.55,2.01,55 +Mercedes-Benz - Travego,raised floor,diesel,12.18,2.55,2.1,51 +Mercedes-Benz - Travego L,raised floor,diesel,14.03,2.55,2.1,59 +Mercedes-Benz - Travego M,raised floor,diesel,13,2.55,2.1,55 +Neoplan - Cityliner,raised floor,diesel,12.24,2.55,2.066,49 +Neoplan - Cityliner C 13m,raised floor,diesel,12.99,2.55,2.066,53 +Neoplan - Cityliner C 14m,raised floor,diesel,13.99,2.55,2.066,53 +Neoplan - Cityliner L,raised floor,diesel,12.99,2.55,2.066,57 +Neoplan - Starliner C,raised floor,diesel,12.99,2.55,2.005,53 +Neoplan - Starliner L,raised floor,diesel,13.99,2.55,2.005,57 +Neoplan - Tourliner,raised floor,diesel,12,2.55,2.153,49 +Neoplan - Tourliner C,raised floor,diesel,13.26,2.55,2.153,57 +Neoplan - Tourliner L,raised floor,diesel,13.8,2.55,2.153,57 +Scania - Irizar Century 12.9m,raised floor,diesel,12.85,2.55,2.1,57 +Scania - Irizar Century 12m,raised floor,diesel,12,2.55,2.1,53 +Scania - Irizar Century 13.8m,raised floor,diesel,13.72,2.55,2.1,61 +Scania - Irizar Century 15m,raised floor,diesel,15,2.55,2.1,65 +Scania - Irizar i4 10.7m,raised floor,diesel,10.7,2.55,2.1,47 +Scania - Irizar i4 11.48m,raised floor,diesel,11.48,2.55,2.1,51 +Scania - Irizar i4 12.2m,raised floor,diesel,12.2,2.55,2.1,55 +Scania - Irizar i4 12.9m,raised floor,diesel,12.9,2.55,2.1,53 +Scania - Irizar i4 13.64m,raised floor,diesel,13.64,2.55,2.1,63 +Scania - Irizar i4 14.36m,raised floor,diesel,14.36,2.55,2.1,67 +Scania - Irizar i4 15m,raised floor,diesel,15,2.55,2.1,71 +Scania - Irizar PB 12.9m,raised floor,diesel,12.92,2.55,2.1,53 +Scania - Irizar PB 12m,raised floor,diesel,12,2.55,2.1,49 +Scania - Irizar PB 13.9m,raised floor,diesel,13.87,2.55,2.1,57 +Scania - Irizar PB 15m,raised floor,diesel,14.98,2.55,2.1,61 +Scania - Omnicity 12m,low floor,diesel,12,2.55,2.3,106 +Scania - Omnicity 18m,low floor,diesel,18,2.55,2.3,159 +Scania - Omniexpress 12.4m,raised floor,diesel,12.4,2.55,2.2,49 +Scania - Omnilink 12.7m,low floor,diesel,12.7,2.55,2.3,112 +Scania - Omnilink 12m,low floor,diesel,12,2.55,2.3,106 +Scania - Omnilink 13.7m,low floor,diesel,13.7,2.55,2.3,120 +Scania - Omnilink 14.6m,low floor,diesel,14.6,2.55,2.3,130 +Scania - Omnilink 18.1m,low floor,diesel,18.1,2.55,2.3,159 +Scania - Touring 12m,raised floor,diesel,12.09,2.55,2.1,51 +Scania - Touring 13.7m,raised floor,diesel,13.7,2.55,2.1,59 +Setra - S 411 HD,raised floor,diesel,10.16,2.55,2.1,37 +Setra - S 412 UL,raised floor,diesel,10.805,2.55,2.17,45 +Setra - S 415 GT,raised floor,diesel,12.2,2.55,2.01,51 +Setra - S 415 GT-HD,raised floor,diesel,12.2,2.55,2.01,51 +Setra - S 415 H,raised floor,diesel,12.2,2.55,2.01,53 +Setra - S 415 HD,raised floor,diesel,12.2,2.55,2.1,49 +Setra - S 415 HDH,raised floor,diesel,12.3,2.55,2.1,51 +Setra - S 415 NF,low floor,diesel,11.95,2.55,2.313,42 +Setra - S 415 UL,raised floor,diesel,12.2,2.55,2.17,53 +Setra - S 416 GT,raised floor,diesel,13.04,2.55,2.01,55 +Setra - S 416 GT-HD ,raised floor,diesel,13.04,2.55,2.01,55 +Setra - S 416 GT-HD/2,raised floor,diesel,13.04,2.55,2.01,55 +Setra - S 416 H,raised floor,diesel,13.04,2.55,2.01,57 +Setra - S 416 HDH,raised floor,diesel,13.19,2.55,2.1,55 +Setra - S 416 NF,low floor,diesel,13.008,2.55,2.313,48 +Setra - S 416 UL,raised floor,diesel,13.04,2.55,2.17,57 +Setra - S 417 GT-HD,raised floor,diesel,14.05,2.55,2.01,59 +Setra - S 417 HDH,raised floor,diesel,14.05,2.55,2.1,59 +Setra - S 417 UL,raised floor,diesel,14.05,2.55,2.17,61 +Setra - S 419 GT-HD,raised floor,diesel,14.96,2.55,2.01,67 +Setra - S 419 UL,raised floor,diesel,14.98,2.55,2.17,69 +Solaris - Alpino,low floor,diesel,8.6,2.4,2.37,73 +Solaris - Alpino 8.9m LE,semi low floor,diesel,8.95,2.4,2.3,65 +Solaris - InterUrbino 12,raised floor,diesel,11.995,2.55,2.1,56 +Solaris - Urbino 10,low floor,diesel,9.94,2.55,2.37,78 +Solaris - Urbino 12,low floor,diesel,12,2.55,2.37,95 +Solaris - Urbino 12 CNG,low floor,gas,12,2.55,2.37,87 +Solaris - Urbino 12 Hybrid,low floor,hybrid,12,2.55,2.37,81 +Solaris - Urbino 12 LE,semi low floor,diesel,12,2.55,2.3,75 +Solaris - Urbino 12 LE CNG,semi low floor,gas,12,2.55,2.3,70 +Solaris - Urbino 15,low floor,diesel,14.59,2.55,2.37,123 +Solaris - Urbino 15 CNG,low floor,gas,14.59,2.55,2.37,115 +Solaris - Urbino 15 LE,semi low floor,diesel,14.59,2.55,2.3,120 +Solaris - Urbino 15 LE CNG,semi low floor,gas,14.59,2.55,2.3,114 +Solaris - Urbino 18,low floor,diesel,18,2.55,2.37,156 +Solaris - Urbino 18 CNG,low floor,gas,18,2.55,2.37,150 +Solaris - Urbino 18 Hybrid,low floor,hybrid,18,2.55,2.37,142 +Solaris - Urbino 18 LE CNG,semi low floor,gas,18,2.55,2.3,150 +Solaris - Vacanza 12,raised floor,diesel,12,2.55,2.1,49 +Solaris - Vacanza 13,raised floor,diesel,12.9,2.55,2.1,53 +Volvo - 7900 Articulated CNG,low floor,gas,18.084,2.55,2.3,153 +Volvo - 7900 Articulated Diesel,low floor,diesel,18.084,2.55,2.3,159 +Volvo - 7900 CNG,low floor,gas,12.084,2.55,2.3,98 +Volvo - 7900 Diesel,low floor,diesel,12.084,2.55,2.3,101 +Volvo - 7900 Hybrid,low floor,hybrid,12.084,2.55,2.3,92 +Volvo - 8900 Diesel 12.2m,raised floor,diesel,12.202,2.55,2.1,53 +Volvo - 8900 Diesel 12m LE,semi low floor,diesel,12.066,2.55,2.3,83 +Volvo - 8900 Diesel 13.7m LE Boogy,semi low floor,diesel,13.7,2.55,2.3,98 +Volvo - 8900 Diesel 13m,raised floor,diesel,13,2.55,2.1,57 +Volvo - 8900 Diesel 13m LE,semi low floor,diesel,13,2.55,2.3,89 +Volvo - 8900 Diesel 14.7m LE Boogy,semi low floor,diesel,14.766,2.55,2.3,110 +Volvo - 9700 Diesel 12.3m,raised floor,diesel,12.29,2.55,2.1,50 diff --git a/CombinedAlts/Form1.Designer.vb b/HVACTOOL/Form1.Designer.vb similarity index 72% rename from CombinedAlts/Form1.Designer.vb rename to HVACTOOL/Form1.Designer.vb index 6c8e5efdb44e6484a1fe111b1c8650b990a1ec60..96fb1e56a3451382074a3349065b0c1c4dd8bf9e 100644 --- a/CombinedAlts/Form1.Designer.vb +++ b/HVACTOOL/Form1.Designer.vb @@ -22,28 +22,17 @@ Partial Class Form1 'Do not modify it using the code editor. <System.Diagnostics.DebuggerStepThrough()> _ Private Sub InitializeComponent() - Me.Button1 = New System.Windows.Forms.Button() Me.SuspendLayout ' - 'Button1 - ' - Me.Button1.Location = New System.Drawing.Point(25, 34) - Me.Button1.Name = "Button1" - Me.Button1.Size = New System.Drawing.Size(75, 23) - Me.Button1.TabIndex = 0 - Me.Button1.Text = "Button1" - Me.Button1.UseVisualStyleBackColor = true - ' 'Form1 ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(284, 262) - Me.Controls.Add(Me.Button1) Me.Name = "Form1" Me.Text = "Form1" Me.ResumeLayout(false) End Sub - Friend WithEvents Button1 As System.Windows.Forms.Button + End Class diff --git a/CombinedAlts/Form1.resx b/HVACTOOL/Form1.resx similarity index 100% rename from CombinedAlts/Form1.resx rename to HVACTOOL/Form1.resx diff --git a/HVACTOOL/Form1.vb b/HVACTOOL/Form1.vb new file mode 100644 index 0000000000000000000000000000000000000000..7b078a975cb052018bae5e90a8f90711e385e6c6 --- /dev/null +++ b/HVACTOOL/Form1.vb @@ -0,0 +1,6 @@ +Public Class Form1 + +Private Sub Form1_Load( sender As Object, e As EventArgs) Handles MyBase.Load + +End Sub +End Class diff --git a/HVACTOOL/HVACTOOL.vbproj b/HVACTOOL/HVACTOOL.vbproj new file mode 100644 index 0000000000000000000000000000000000000000..04f07d3622bfcb30be7727022ed03996b8ae2eeb --- /dev/null +++ b/HVACTOOL/HVACTOOL.vbproj @@ -0,0 +1,139 @@ +<?xml version="1.0" encoding="utf-8"?> +<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> + <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" /> + <PropertyGroup> + <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration> + <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> + <ProjectGuid>{C34CFD60-2081-4EA3-AC18-6769291FBDBD}</ProjectGuid> + <OutputType>WinExe</OutputType> + <StartupObject>Sub Main</StartupObject> + <RootNamespace>VectoAuxiliaries</RootNamespace> + <AssemblyName>HVACTOOL</AssemblyName> + <FileAlignment>512</FileAlignment> + <MyType>WindowsFormsWithCustomSubMain</MyType> + <TargetFrameworkVersion>v4.0</TargetFrameworkVersion> + <SccProjectName>SAK</SccProjectName> + <SccLocalPath>SAK</SccLocalPath> + <SccAuxPath>SAK</SccAuxPath> + <SccProvider>SAK</SccProvider> + </PropertyGroup> + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> + <PlatformTarget>AnyCPU</PlatformTarget> + <DebugSymbols>true</DebugSymbols> + <DebugType>full</DebugType> + <DefineDebug>true</DefineDebug> + <DefineTrace>true</DefineTrace> + <OutputPath>bin\Debug\</OutputPath> + <DocumentationFile>HVACTOOL.xml</DocumentationFile> + <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> + </PropertyGroup> + <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> + <PlatformTarget>AnyCPU</PlatformTarget> + <DebugType>pdbonly</DebugType> + <DefineDebug>false</DefineDebug> + <DefineTrace>true</DefineTrace> + <Optimize>true</Optimize> + <OutputPath>bin\Release\</OutputPath> + <DocumentationFile>HVACTOOL.xml</DocumentationFile> + <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> + </PropertyGroup> + <PropertyGroup> + <OptionExplicit>On</OptionExplicit> + </PropertyGroup> + <PropertyGroup> + <OptionCompare>Binary</OptionCompare> + </PropertyGroup> + <PropertyGroup> + <OptionStrict>Off</OptionStrict> + </PropertyGroup> + <PropertyGroup> + <OptionInfer>On</OptionInfer> + </PropertyGroup> + <ItemGroup> + <Reference Include="System" /> + <Reference Include="System.Data" /> + <Reference Include="System.Deployment" /> + <Reference Include="System.Drawing" /> + <Reference Include="System.Windows.Forms" /> + <Reference Include="System.Xml" /> + <Reference Include="System.Core" /> + <Reference Include="System.Xml.Linq" /> + <Reference Include="System.Data.DataSetExtensions" /> + </ItemGroup> + <ItemGroup> + <Import Include="Microsoft.VisualBasic" /> + <Import Include="System" /> + <Import Include="System.Collections" /> + <Import Include="System.Collections.Generic" /> + <Import Include="System.Data" /> + <Import Include="System.Drawing" /> + <Import Include="System.Diagnostics" /> + <Import Include="System.Windows.Forms" /> + <Import Include="System.Linq" /> + <Import Include="System.Xml.Linq" /> + </ItemGroup> + <ItemGroup> + <Compile Include="Form1.vb"> + <SubType>Form</SubType> + </Compile> + <Compile Include="Form1.Designer.vb"> + <DependentUpon>Form1.vb</DependentUpon> + <SubType>Form</SubType> + </Compile> + <Compile Include="Module1.vb" /> + <Compile Include="My Project\AssemblyInfo.vb" /> + <Compile Include="My Project\Application.Designer.vb"> + <AutoGen>True</AutoGen> + <DependentUpon>Application.myapp</DependentUpon> + </Compile> + <Compile Include="My Project\Resources.Designer.vb"> + <AutoGen>True</AutoGen> + <DesignTime>True</DesignTime> + <DependentUpon>Resources.resx</DependentUpon> + </Compile> + <Compile Include="My Project\Settings.Designer.vb"> + <AutoGen>True</AutoGen> + <DependentUpon>Settings.settings</DependentUpon> + <DesignTimeSharedInput>True</DesignTimeSharedInput> + </Compile> + </ItemGroup> + <ItemGroup> + <EmbeddedResource Include="Form1.resx"> + <DependentUpon>Form1.vb</DependentUpon> + </EmbeddedResource> + <EmbeddedResource Include="My Project\Resources.resx"> + <Generator>VbMyResourcesResXFileCodeGenerator</Generator> + <LastGenOutput>Resources.Designer.vb</LastGenOutput> + <CustomToolNamespace>My.Resources</CustomToolNamespace> + <SubType>Designer</SubType> + </EmbeddedResource> + </ItemGroup> + <ItemGroup> + <Content Include="BusDatabase.csv"> + <CopyToOutputDirectory>Always</CopyToOutputDirectory> + </Content> + <None Include="My Project\Application.myapp"> + <Generator>MyApplicationCodeGenerator</Generator> + <LastGenOutput>Application.Designer.vb</LastGenOutput> + </None> + <None Include="My Project\Settings.settings"> + <Generator>SettingsSingleFileGenerator</Generator> + <CustomToolNamespace>My</CustomToolNamespace> + <LastGenOutput>Settings.Designer.vb</LastGenOutput> + </None> + </ItemGroup> + <ItemGroup> + <ProjectReference Include="..\VECTOAux\VectoAuxiliaries\VectoAuxiliaries.vbproj"> + <Project>{fdeee460-0b8a-4ef6-8d9e-72f203a50f65}</Project> + <Name>VectoAuxiliaries</Name> + </ProjectReference> + </ItemGroup> + <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" /> + <!-- To modify your build process, add your task inside one of the targets below and uncomment it. + Other similar extension points exist, see Microsoft.Common.targets. + <Target Name="BeforeBuild"> + </Target> + <Target Name="AfterBuild"> + </Target> + --> +</Project> \ No newline at end of file diff --git a/HVACTOOL/Module1.vb b/HVACTOOL/Module1.vb new file mode 100644 index 0000000000000000000000000000000000000000..f704af9f4095b8cebc89c0f383b672c81e810691 --- /dev/null +++ b/HVACTOOL/Module1.vb @@ -0,0 +1,15 @@ + +module Main + + +Sub main() + + Dim frm As New frmHVACTool("BusDatabase.csv") + + frm.ShowDialog + +End Sub + + +End Module + diff --git a/HVACTOOL/My Project/Application.Designer.vb b/HVACTOOL/My Project/Application.Designer.vb new file mode 100644 index 0000000000000000000000000000000000000000..0aecefe6649856e7f2f1917454c1aa12737d11a2 --- /dev/null +++ b/HVACTOOL/My Project/Application.Designer.vb @@ -0,0 +1,13 @@ +'------------------------------------------------------------------------------ +' <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 + diff --git a/HVACTOOL/My Project/Application.myapp b/HVACTOOL/My Project/Application.myapp new file mode 100644 index 0000000000000000000000000000000000000000..ff73056fefd244567703b92a25cd255050be2035 --- /dev/null +++ b/HVACTOOL/My Project/Application.myapp @@ -0,0 +1,10 @@ +<?xml version="1.0" encoding="utf-8"?> +<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"> + <MySubMain>false</MySubMain> + <MainForm>Form1</MainForm> + <SingleInstance>false</SingleInstance> + <ShutdownMode>0</ShutdownMode> + <EnableVisualStyles>true</EnableVisualStyles> + <AuthenticationMode>0</AuthenticationMode> + <SaveMySettingsOnExit>true</SaveMySettingsOnExit> +</MyApplicationData> \ No newline at end of file diff --git a/HVACTOOL/My Project/AssemblyInfo.vb b/HVACTOOL/My Project/AssemblyInfo.vb new file mode 100644 index 0000000000000000000000000000000000000000..194e8b79bb5f7b3e9607997e83b9d8fb7ddcc684 --- /dev/null +++ b/HVACTOOL/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +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("HVACTOOL")> +<Assembly: AssemblyDescription("")> +<Assembly: AssemblyCompany("AEA Group")> +<Assembly: AssemblyProduct("HVACTOOL")> +<Assembly: AssemblyCopyright("Copyright © AEA Group 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("06dd36fb-478c-4c29-be25-29fc937476f7")> + +' 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")> diff --git a/HVACTOOL/My Project/Resources.Designer.vb b/HVACTOOL/My Project/Resources.Designer.vb new file mode 100644 index 0000000000000000000000000000000000000000..88b7755261c42ef2bb625d7e5e360914990afa1b --- /dev/null +++ b/HVACTOOL/My Project/Resources.Designer.vb @@ -0,0 +1,63 @@ +'------------------------------------------------------------------------------ +' <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("VectoAuxiliaries.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 + End Module +End Namespace diff --git a/HVACTOOL/My Project/Resources.resx b/HVACTOOL/My Project/Resources.resx new file mode 100644 index 0000000000000000000000000000000000000000..af7dbebbacef595e3089c01c05671016c21a8304 --- /dev/null +++ b/HVACTOOL/My Project/Resources.resx @@ -0,0 +1,117 @@ +<?xml version="1.0" encoding="utf-8"?> +<root> + <!-- + Microsoft ResX Schema + + Version 2.0 + + The primary goals of this format is to allow a simple XML format + that is mostly human readable. The generation and parsing of the + various data types are done through the TypeConverter classes + associated with the data types. + + Example: + + ... ado.net/XML headers & schema ... + <resheader name="resmimetype">text/microsoft-resx</resheader> + <resheader name="version">2.0</resheader> + <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> + <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader> + <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data> + <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data> + <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> + <value>[base64 mime encoded serialized .NET Framework object]</value> + </data> + <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> + <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> + <comment>This is a comment</comment> + </data> + + There are any number of "resheader" rows that contain simple + name/value pairs. + + Each data row contains a name, and value. The row also contains a + type or mimetype. Type corresponds to a .NET class that support + text/value conversion through the TypeConverter architecture. + Classes that don't support this are serialized and stored with the + mimetype set. + + The mimetype is used for serialized objects, and tells the + ResXResourceReader how to depersist the object. This is currently not + extensible. For a given mimetype the value must be set accordingly: + + Note - application/x-microsoft.net.object.binary.base64 is the format + that the ResXResourceWriter will generate, however the reader can + read any of the formats listed below. + + mimetype: application/x-microsoft.net.object.binary.base64 + value : The object must be serialized with + : System.Serialization.Formatters.Binary.BinaryFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.soap.base64 + value : The object must be serialized with + : System.Runtime.Serialization.Formatters.Soap.SoapFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.bytearray.base64 + value : The object must be serialized into a byte array + : using a System.ComponentModel.TypeConverter + : and then encoded with base64 encoding. + --> + <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> + <xsd:element name="root" msdata:IsDataSet="true"> + <xsd:complexType> + <xsd:choice maxOccurs="unbounded"> + <xsd:element name="metadata"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" /> + <xsd:attribute name="type" type="xsd:string" /> + <xsd:attribute name="mimetype" type="xsd:string" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="assembly"> + <xsd:complexType> + <xsd:attribute name="alias" type="xsd:string" /> + <xsd:attribute name="name" type="xsd:string" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="data"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" /> + <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" /> + <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="resheader"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" use="required" /> + </xsd:complexType> + </xsd:element> + </xsd:choice> + </xsd:complexType> + </xsd:element> + </xsd:schema> + <resheader name="resmimetype"> + <value>text/microsoft-resx</value> + </resheader> + <resheader name="version"> + <value>2.0</value> + </resheader> + <resheader name="reader"> + <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> + <resheader name="writer"> + <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> +</root> \ No newline at end of file diff --git a/HVACTOOL/My Project/Settings.Designer.vb b/HVACTOOL/My Project/Settings.Designer.vb new file mode 100644 index 0000000000000000000000000000000000000000..14e244d9bbf3a3c5dfd44f61f996fe1661a78895 --- /dev/null +++ b/HVACTOOL/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' <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", "12.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.VectoAuxiliaries.My.MySettings + Get + Return Global.VectoAuxiliaries.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/HVACTOOL/My Project/Settings.settings b/HVACTOOL/My Project/Settings.settings new file mode 100644 index 0000000000000000000000000000000000000000..85b890b3c66b9beee248abaddd2ec71f8b1df2b2 --- /dev/null +++ b/HVACTOOL/My Project/Settings.settings @@ -0,0 +1,7 @@ +<?xml version='1.0' encoding='utf-8'?> +<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true"> + <Profiles> + <Profile Name="(Default)" /> + </Profiles> + <Settings /> +</SettingsFile> diff --git a/VECTO.sln b/VECTO.sln index 7cb172468b9f869064ad0338c276566c6efd9eb6..108ce88dc5a4dbdc9a2fa70f2d2e1c0da832f7e1 100644 --- a/VECTO.sln +++ b/VECTO.sln @@ -13,7 +13,7 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution EndProject Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "AdvancedAuxiliaryInterfaces", "AdvancedAuxiliaryInterfaces\AdvancedAuxiliaryInterfaces.vbproj", "{B4B9BD2F-FD8F-4BB8-82FA-E2154D2C7FBD}" EndProject -Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "CombinedAlts", "CombinedAlts\CombinedAlts.vbproj", "{96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}" +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "HVACTOOL", "HVACTOOL\HVACTOOL.vbproj", "{C34CFD60-2081-4EA3-AC18-6769291FBDBD}" EndProject Global GlobalSection(SolutionConfigurationPlatforms) = preSolution @@ -49,12 +49,12 @@ Global {B4B9BD2F-FD8F-4BB8-82FA-E2154D2C7FBD}.Release|Any CPU.ActiveCfg = Release|Any CPU {B4B9BD2F-FD8F-4BB8-82FA-E2154D2C7FBD}.Release|Any CPU.Build.0 = Release|Any CPU {B4B9BD2F-FD8F-4BB8-82FA-E2154D2C7FBD}.Release|x86.ActiveCfg = Release|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Debug|Any CPU.Build.0 = Debug|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Debug|x86.ActiveCfg = Debug|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Release|Any CPU.ActiveCfg = Release|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Release|Any CPU.Build.0 = Release|Any CPU - {96E6EE9F-1C21-4FEB-AED0-EC400AD70F1E}.Release|x86.ActiveCfg = Release|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Debug|Any CPU.Build.0 = Debug|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Debug|x86.ActiveCfg = Debug|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Release|Any CPU.ActiveCfg = Release|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Release|Any CPU.Build.0 = Release|Any CPU + {C34CFD60-2081-4EA3-AC18-6769291FBDBD}.Release|x86.ActiveCfg = Release|Any CPU EndGlobalSection GlobalSection(SolutionProperties) = preSolution HideSolutionNode = FALSE diff --git a/VECTOAux/VectoAuxiliaries/Hvac/BusDatabase.vb b/VECTOAux/VectoAuxiliaries/Hvac/BusDatabase.vb index c1bcaffc3db62327f70b126dc71ca2c7b14a2ce3..a42d7a99cd6fe64cadb67683a592bd9980e1e6dd 100644 --- a/VECTOAux/VectoAuxiliaries/Hvac/BusDatabase.vb +++ b/VECTOAux/VectoAuxiliaries/Hvac/BusDatabase.vb @@ -7,12 +7,25 @@ Public Class BusDatabase Implements IBusDatabase Private buses As New Dictionary(Of String, IBus) + Private selectListBuses As New List(Of IBus) - Public Function GetBuses(busModel As String) As List(Of IBus) Implements IBusDatabase.GetBuses + Public Function GetBuses(busModel As String, optional AsSelectList As Boolean=false) As List(Of IBus) Implements IBusDatabase.GetBuses + If AsSelectList then + selectListBuses = New List(Of IBus) + selectListBuses = buses.Select( Function(x) x.Value).Where( Function(v) v.Model="" OrElse v.Model.ToLower.Contains( busModel.ToLower)).ToList() + selectListBuses.Insert(0, New Bus("<Select>","low floor","gas",1,1,1,2)) + Return selectListBuses + + Else + Return buses.Select( Function(x) x.Value).Where( Function(v) v.Model="" OrElse v.Model.ToLower.Contains( busModel.ToLower)).ToList() + End If + + + End Function Public Function Initialise(filepath As String) As Boolean Implements IBusDatabase.Initialise diff --git a/VECTOAux/VectoAuxiliaries/Hvac/IBusDatabase.vb b/VECTOAux/VectoAuxiliaries/Hvac/IBusDatabase.vb index 47da58653b7cd5bf8b09e7c9e60cfffe7a49a546..189a51ba008b4f3303029128cfb2b476e4a402b9 100644 --- a/VECTOAux/VectoAuxiliaries/Hvac/IBusDatabase.vb +++ b/VECTOAux/VectoAuxiliaries/Hvac/IBusDatabase.vb @@ -3,7 +3,7 @@ Public Interface IBusDatabase - Function GetBuses( busModel as string ) As List(of IBus ) + Function GetBuses( busModel as string, Optional AsSelectList As Boolean=false ) As List(of IBus ) Function Initialise( busFileCSV As String ) As Boolean diff --git a/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.Designer.vb b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.Designer.vb new file mode 100644 index 0000000000000000000000000000000000000000..bfd410b6070008e0be066a61fadf074e48a27b45 --- /dev/null +++ b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.Designer.vb @@ -0,0 +1,89 @@ +<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _ +Partial Class frmHVACTool + 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.TabControl1 = New System.Windows.Forms.TabControl() + Me.tabBusParameters = New System.Windows.Forms.TabPage() + Me.tabTechListInput = New System.Windows.Forms.TabPage() + Me.cboBuses = New System.Windows.Forms.ComboBox() + Me.TabControl1.SuspendLayout + Me.tabBusParameters.SuspendLayout + Me.SuspendLayout + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.tabBusParameters) + Me.TabControl1.Controls.Add(Me.tabTechListInput) + Me.TabControl1.Location = New System.Drawing.Point(53, 37) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(648, 415) + Me.TabControl1.TabIndex = 0 + ' + 'tabBusParameters + ' + Me.tabBusParameters.Controls.Add(Me.cboBuses) + Me.tabBusParameters.Location = New System.Drawing.Point(4, 22) + Me.tabBusParameters.Name = "tabBusParameters" + Me.tabBusParameters.Padding = New System.Windows.Forms.Padding(3) + Me.tabBusParameters.Size = New System.Drawing.Size(640, 389) + Me.tabBusParameters.TabIndex = 0 + Me.tabBusParameters.Text = "INP BusParameters" + Me.tabBusParameters.UseVisualStyleBackColor = true + ' + 'tabTechListInput + ' + Me.tabTechListInput.Location = New System.Drawing.Point(4, 22) + Me.tabTechListInput.Name = "tabTechListInput" + Me.tabTechListInput.Padding = New System.Windows.Forms.Padding(3) + Me.tabTechListInput.Size = New System.Drawing.Size(640, 389) + Me.tabTechListInput.TabIndex = 1 + Me.tabTechListInput.Text = "Tech List Input" + Me.tabTechListInput.UseVisualStyleBackColor = true + ' + 'cboBuses + ' + Me.cboBuses.FormattingEnabled = true + Me.cboBuses.Location = New System.Drawing.Point(34, 30) + Me.cboBuses.Name = "cboBuses" + Me.cboBuses.Size = New System.Drawing.Size(558, 21) + Me.cboBuses.TabIndex = 0 + ' + 'frmHVACTool + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(773, 510) + Me.Controls.Add(Me.TabControl1) + Me.Name = "frmHVACTool" + Me.Text = "frmHVACTool" + Me.TabControl1.ResumeLayout(false) + Me.tabBusParameters.ResumeLayout(false) + Me.ResumeLayout(false) + +End Sub + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents tabBusParameters As System.Windows.Forms.TabPage + Friend WithEvents tabTechListInput As System.Windows.Forms.TabPage + Friend WithEvents cboBuses As System.Windows.Forms.ComboBox +End Class diff --git a/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.resx b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.resx new file mode 100644 index 0000000000000000000000000000000000000000..1af7de150c99c12dd67a509fe57c10d63e4eeb04 --- /dev/null +++ b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.resx @@ -0,0 +1,120 @@ +<?xml version="1.0" encoding="utf-8"?> +<root> + <!-- + Microsoft ResX Schema + + Version 2.0 + + The primary goals of this format is to allow a simple XML format + that is mostly human readable. The generation and parsing of the + various data types are done through the TypeConverter classes + associated with the data types. + + Example: + + ... ado.net/XML headers & schema ... + <resheader name="resmimetype">text/microsoft-resx</resheader> + <resheader name="version">2.0</resheader> + <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader> + <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader> + <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data> + <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data> + <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64"> + <value>[base64 mime encoded serialized .NET Framework object]</value> + </data> + <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64"> + <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value> + <comment>This is a comment</comment> + </data> + + There are any number of "resheader" rows that contain simple + name/value pairs. + + Each data row contains a name, and value. The row also contains a + type or mimetype. Type corresponds to a .NET class that support + text/value conversion through the TypeConverter architecture. + Classes that don't support this are serialized and stored with the + mimetype set. + + The mimetype is used for serialized objects, and tells the + ResXResourceReader how to depersist the object. This is currently not + extensible. For a given mimetype the value must be set accordingly: + + Note - application/x-microsoft.net.object.binary.base64 is the format + that the ResXResourceWriter will generate, however the reader can + read any of the formats listed below. + + mimetype: application/x-microsoft.net.object.binary.base64 + value : The object must be serialized with + : System.Runtime.Serialization.Formatters.Binary.BinaryFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.soap.base64 + value : The object must be serialized with + : System.Runtime.Serialization.Formatters.Soap.SoapFormatter + : and then encoded with base64 encoding. + + mimetype: application/x-microsoft.net.object.bytearray.base64 + value : The object must be serialized into a byte array + : using a System.ComponentModel.TypeConverter + : and then encoded with base64 encoding. + --> + <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata"> + <xsd:import namespace="http://www.w3.org/XML/1998/namespace" /> + <xsd:element name="root" msdata:IsDataSet="true"> + <xsd:complexType> + <xsd:choice maxOccurs="unbounded"> + <xsd:element name="metadata"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" /> + </xsd:sequence> + <xsd:attribute name="name" use="required" type="xsd:string" /> + <xsd:attribute name="type" type="xsd:string" /> + <xsd:attribute name="mimetype" type="xsd:string" /> + <xsd:attribute ref="xml:space" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="assembly"> + <xsd:complexType> + <xsd:attribute name="alias" type="xsd:string" /> + <xsd:attribute name="name" type="xsd:string" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="data"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" /> + <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" /> + <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" /> + <xsd:attribute ref="xml:space" /> + </xsd:complexType> + </xsd:element> + <xsd:element name="resheader"> + <xsd:complexType> + <xsd:sequence> + <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" /> + </xsd:sequence> + <xsd:attribute name="name" type="xsd:string" use="required" /> + </xsd:complexType> + </xsd:element> + </xsd:choice> + </xsd:complexType> + </xsd:element> + </xsd:schema> + <resheader name="resmimetype"> + <value>text/microsoft-resx</value> + </resheader> + <resheader name="version"> + <value>2.0</value> + </resheader> + <resheader name="reader"> + <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> + <resheader name="writer"> + <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value> + </resheader> +</root> \ No newline at end of file diff --git a/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.vb b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.vb new file mode 100644 index 0000000000000000000000000000000000000000..cf2a5169515bc232775f161483da910d10d069ab --- /dev/null +++ b/VECTOAux/VectoAuxiliaries/UI/frmHVACTool.vb @@ -0,0 +1,56 @@ + +Imports System.Windows.Forms +Imports VectoAuxiliaries.Hvac + + + +Public Class frmHVACTool + +Private filePath As string + +Private buses As IBusDatabase + + + +Public Sub new ( filePath As String ) + + ' This call is required by the designer. + InitializeComponent() + + ' Add any initialization after the InitializeComponent() call. + + Me.filePath = filePath + + + Initlialise() + + +End Sub + + +Private Sub Initlialise() + + 'Instantial Buses + buses = New BusDatabase() + If Not buses.Initialise( filePath ) then + MessageBox.Show("Problems initialising the Bus Database, some buses may not appear") + End If + + + + + cboBuses.DataSource=buses.GetBuses(String.Empty,True) + cboBuses.DisplayMember="Model" + + +End Sub + + + + + + +End Class + + + diff --git a/VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj b/VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj index f19f7f4b2689ba87103e8ec6d5b7cab3d09bd125..e2902d1bc7ec7ea5e23cdcbd04028e26cb060d26 100644 --- a/VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj +++ b/VECTOAux/VectoAuxiliaries/VectoAuxiliaries.vbproj @@ -201,6 +201,12 @@ <Compile Include="UI\frmCombinedAlternators.vb"> <SubType>Form</SubType> </Compile> + <Compile Include="UI\frmHVACTool.Designer.vb"> + <DependentUpon>frmHVACTool.vb</DependentUpon> + </Compile> + <Compile Include="UI\frmHVACTool.vb"> + <SubType>Form</SubType> + </Compile> <Compile Include="UI\VECTO_Types.vb" /> </ItemGroup> <ItemGroup> @@ -223,6 +229,9 @@ <EmbeddedResource Include="UI\frmCombinedAlternators.resx"> <DependentUpon>frmCombinedAlternators.vb</DependentUpon> </EmbeddedResource> + <EmbeddedResource Include="UI\frmHVACTool.resx"> + <DependentUpon>frmHVACTool.vb</DependentUpon> + </EmbeddedResource> </ItemGroup> <ItemGroup> <None Include="My Project\Application.myapp">