Module 3 question alterations. Now the Module 4 which is the Compressor Map...

Module 3 question alterations. Now the Module 4 which is the  Compressor Map delivers the average calculation, this is calculated at initialisation time and the value loaded into a property of that. The comressor exposes this value via  method. It is this method whic is used to generate the Crank power. So in short module 4 now contains a reference to the comressor being used by this job.

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1617

VECTOAux/AUXUITEST/LaunchPad.Designer.vb

@@ -23,6 +23,7 @@ Partial Class LaunchPad
     <System.Diagnostics.DebuggerStepThrough()> _
     Private Sub InitializeComponent()
         Me.btnHVAC = New System.Windows.Forms.Button()
+        Me.btnCompressor = New System.Windows.Forms.Button()
         Me.SuspendLayout()
         '
         'btnHVAC
@@ -34,11 +35,21 @@ Partial Class LaunchPad
         Me.btnHVAC.Text = "HVAC"
         Me.btnHVAC.UseVisualStyleBackColor = True
         '
+        'btnCompressor
+        '
+        Me.btnCompressor.Location = New System.Drawing.Point(164, 26)
+        Me.btnCompressor.Name = "btnCompressor"
+        Me.btnCompressor.Size = New System.Drawing.Size(106, 46)
+        Me.btnCompressor.TabIndex = 1
+        Me.btnCompressor.Text = "Compressor"
+        Me.btnCompressor.UseVisualStyleBackColor = True
+        '
         'LaunchPad
         '
         Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
         Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
         Me.ClientSize = New System.Drawing.Size(426, 335)
+        Me.Controls.Add(Me.btnCompressor)
         Me.Controls.Add(Me.btnHVAC)
         Me.Name = "LaunchPad"
         Me.Text = "LaunchPad"
@@ -46,4 +57,5 @@ Partial Class LaunchPad
 
     End Sub
     Friend WithEvents btnHVAC As System.Windows.Forms.Button
+    Friend WithEvents btnCompressor As System.Windows.Forms.Button
 End Class

VECTOAux/AUXUITEST/LaunchPad.vb

@@ -6,19 +6,21 @@
         Dim frm As New VectoAuxiliaries.UI.F_HVAC()
 
         frm.Show()
-
-
     End Sub
 
-
-
     Private Sub LaunchPad_Load(sender As Object, e As EventArgs)
 
+    End Sub
 
+    Private Sub LaunchPad_Activated(sender As Object, e As EventArgs)
 
     End Sub
 
-    Private Sub LaunchPad_Activated(sender As Object, e As EventArgs)
+    Private Sub btnCompressor_Click(sender As Object, e As EventArgs) Handles btnCompressor.Click
+
+        Dim frm As New VectoAuxiliaries.UI.F_Compressor()
+
+        frm.Show()
 
     End Sub
 End Class
\ No newline at end of file

VECTOAux/VectoAuxiliaries.sln

@@ -12,21 +12,29 @@ EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU
+		Debug|x86 = Debug|x86
 		Release|Any CPU = Release|Any CPU
+		Release|x86 = Release|x86
 	EndGlobalSection
 	GlobalSection(ProjectConfigurationPlatforms) = postSolution
 		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Release|Any CPU.Build.0 = Release|Any CPU
+		{FDEEE460-0B8A-4EF6-8D9E-72F203A50F65}.Release|x86.ActiveCfg = Release|Any CPU
 		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Release|Any CPU.Build.0 = Release|Any CPU
+		{6F31F8B2-6AB3-4F85-8AC9-D09ADCA6432D}.Release|x86.ActiveCfg = Release|Any CPU
 		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
 		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Debug|x86.ActiveCfg = Debug|Any CPU
 		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Release|Any CPU.ActiveCfg = Release|Any CPU
 		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Release|Any CPU.Build.0 = Release|Any CPU
+		{D72E93A7-3EF3-44BD-9859-70BFA89BF5E1}.Release|x86.ActiveCfg = Release|Any CPU
 	EndGlobalSection
 	GlobalSection(SolutionProperties) = preSolution
 		HideSolutionNode = FALSE

VECTOAux/VectoAuxiliaries/Pneumatics/AirCompressor.vb

 
-
 Namespace Pneumatics
 
-
     Public Class AirCompressor
         Implements IAirCompressor
 
@@ -91,6 +89,10 @@ Namespace Pneumatics
         'Power @ Crank From Pnumatics compressor On  ( B )
         'Power   Delta ( A ) vs ( B )
 
+
+        'Return Average Power Demand Per Compressor Unit Flow Rate
+
+
         ''' <summary>
         ''' Returns the flow rate [litres/second] of compressor for the given engine rpm
         ''' </summary>
@@ -150,6 +152,18 @@ Namespace Pneumatics
             End If
         End Function
 
+
+
+
+
+        Public Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single Implements IAirCompressor.GetAveragePowerDemandPerCompressorUnitFlowRate
+
+            Return _map.GetAveragePowerDemandPerCompressorUnitFlowRate()
+
+        End Function
+
+
+
     End Class
 
 End Namespace
\ No newline at end of file

VECTOAux/VectoAuxiliaries/Pneumatics/AveragePneumaticLoadDemand.vb

@@ -5,7 +5,7 @@ Namespace Pneumatics
     Public Class AveragePneumaticLoadDemand
 
 
-        Private _map As IAirFlowRateMechanicalDemandMap
+        Private _compressor As IAirCompressor
         Private _pneumaticConsumers As List(Of IPneumaticConsumer)
         Private _pulleyGearEfficiency As Single
 
@@ -34,12 +34,17 @@ Namespace Pneumatics
         End Property
 
         'Constructors
-        Public Sub New(iMap As IAirFlowRateMechanicalDemandMap, iTotalCycleTimeSeconds As Integer, iPulleyGearEfficiency As Single, Optional consumers As List(Of IPneumaticConsumer) = Nothing)
+        Public Sub New(iCompressor As IAirCompressor, iTotalCycleTimeSeconds As Integer, iPulleyGearEfficiency As Single, Optional consumers As List(Of IPneumaticConsumer) = Nothing)
 
-            _map = iMap
+            _compressor = iCompressor
             _pulleyGearEfficiency = iPulleyGearEfficiency
             _TotalCycleTimeSeconds = iTotalCycleTimeSeconds
 
+            If iCompressor.Initialise() <> True Then
+                Throw New ArgumentException("This Module requires a valid compressor")
+            End If
+
+
             If Not consumers Is Nothing AndAlso consumers.Count > 0 Then
                 _pneumaticConsumers = consumers
             Else
@@ -52,22 +57,10 @@ Namespace Pneumatics
         'Get Average Power Demand @ Crank From Pneumatics
         Public Function GetAveragePowerDemandAtCrankFromPneumatics() As Single
 
-            Dim flowPowerRatioSum As Single
             Dim averagePowerDemandPerCompressorUnitFlowRate As Single
             Dim effectiveTotalAirRequired As Single
 
-
-            For Each demand As IPneumaticConsumer In _pneumaticConsumers
-                flowPowerRatioSum += demand.VolumePerCycle / _map.GetPower(demand.VolumePerCycle)
-            Next
-
-            If flowPowerRatioSum = 0 OrElse PneumaticConsumers.Count() = 0 Then
-                averagePowerDemandPerCompressorUnitFlowRate = 0
-            Else
-                averagePowerDemandPerCompressorUnitFlowRate = flowPowerRatioSum / PneumaticConsumers.Count()
-            End If
-
-
+            averagePowerDemandPerCompressorUnitFlowRate = _compressor.GetAveragePowerDemandPerCompressorUnitFlowRate
 
             effectiveTotalAirRequired = GetTotalRequiredAirPerCompressorUnitDeliveryRate() / TotalCycleTimeSeconds
 

VECTOAux/VectoAuxiliaries/Pneumatics/CompressorMap.vb

@@ -11,6 +11,11 @@ Namespace Pneumatics
 
         Private ReadOnly filePath As String
 
+        Private _averagePowerDemandPerCompressorUnitFlowRate As Single
+
+
+
+
         ''' <summary>
         ''' Dictionary of values keyed by the rpm valaues in the csv file
         ''' Values are held as a tuple as follows
@@ -21,6 +26,18 @@ Namespace Pneumatics
         ''' <remarks></remarks>
         Private map As Dictionary(Of Integer, CompressorMapValues)
 
+
+        'Returns the AveragePowerDemand ( Power On ) per unit flow rate
+        Public Function AveragePowerDemandPerCompressorUnitFlowRate() As Single Implements ICompressorMap.GetAveragePowerDemandPerCompressorUnitFlowRate
+
+
+
+            Return _averagePowerDemandPerCompressorUnitFlowRate
+
+
+        End Function
+
+
         ''' <summary>
         ''' Creates a new instance of the CompressorMap class
         ''' </summary>
@@ -60,11 +77,22 @@ Namespace Pneumatics
                         End If
                     Next
                 End Using
+
+                'Calculate the Average Power Demand Per Compressor Unit FlowRate
+                Dim powerDividedByFlowRateSum As Single = 0
+                For Each speed As KeyValuePair(Of Integer, CompressorMapValues) In map
+                    powerDividedByFlowRateSum += speed.Value.PowerCompressorOn / speed.Value.FlowRate
+                Next
+                _averagePowerDemandPerCompressorUnitFlowRate = powerDividedByFlowRateSum / map.Count
+
             Else
                 Throw New ArgumentException("supplied input file does not exist")
             End If
 
+            'If we get here then all should be well and we can return a True value of success.
             Return True
+
+
         End Function
 
         ''' <summary>
@@ -150,6 +178,7 @@ Namespace Pneumatics
         ''' Power - Compressor Off
         ''' </summary>
         ''' <remarks></remarks>
+        ''' 
         Private Structure CompressorMapValues
 
             ''' <summary>
@@ -187,6 +216,11 @@ Namespace Pneumatics
 
 
 
-
     End Class
+
+
+
+
+
+
 End Namespace
\ No newline at end of file

VECTOAux/VectoAuxiliaries/Pneumatics/IAirCompressor.vb

@@ -54,5 +54,13 @@
         ''' <returns></returns>
         ''' <remarks></remarks>
         Function GetPowerDifference(ByVal engineRpm As Integer) As Single
+
+        ''' <summary>
+        ''' Returns Average PoweDemand PeCompressor UnitFlowRate 
+        ''' </summary>
+        ''' <returns></returns>
+        ''' <remarks></remarks>
+        Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single
+
     End Interface
 End NameSpace
\ No newline at end of file

VECTOAux/VectoAuxiliaries/Pneumatics/IAirFlowRateMechanicalDemandMap.vb

-
-Namespace Pneumatics
-
-    Public Interface IAirFlowRateMechanicalDemandMap
-
-
-        ''' <summary>
-        ''' Initialises the map with a privately stored field referring to filename and path.
-        ''' </summary>
-        ''' <returns></returns>
-        ''' <remarks></remarks>
-        Function Initialise() As Boolean
-
-        ''' <summary>
-        ''' Gets Power From Map for a given flow rate
-        ''' </summary>
-        ''' <param name="flowRate"></param>
-        ''' <returns></returns>
-        ''' <remarks></remarks>
-        Function GetPower(flowRate As Integer) As Integer
-
-
-    End Interface
-
-End Namespace
-
-
-

VECTOAux/VectoAuxiliaries/Pneumatics/ICompressorMap.vb

@@ -31,5 +31,9 @@ Namespace Pneumatics
         ''' <remarks>Single</remarks>
         Function GetPowerCompressorOff(ByVal rpm As Integer) As Single
 
+        'Returns Average Power Demand Per Compressor Unit FlowRate
+        Function GetAveragePowerDemandPerCompressorUnitFlowRate() As Single
+
+
     End Interface
 End Namespace
\ No newline at end of file

VECTOAux/VectoAuxiliaries/UI/ElectricalConsumers.Designer.vb

+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class ElectricalConsumers
+    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()
+        components = New System.ComponentModel.Container
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Text = "ElectricalConsumers"
+    End Sub
+End Class

VECTOAux/VectoAuxiliaries/UI/ElectricalConsumers.vb

+Public Class ElectricalConsumers
+
+End Class
\ No newline at end of file

VECTOAux/VectoAuxiliaries/UI/F_Alternator.Designer.vb

+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class F_Alternator
+    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()
+        components = New System.ComponentModel.Container
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.Text = "F_Alternator"
+    End Sub
+End Class

VECTOAux/VectoAuxiliaries/UI/F_Alternator.vb

+Public Class F_Alternator
+
+End Class
\ No newline at end of file

VECTOAux/VectoAuxiliaries/UI/F_Compressor.Designer.vb

+
+Namespace UI
+    <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+    Partial Class F_Compressor
+        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.lblPullyEfficiency = New System.Windows.Forms.Label()
+            Me.txtPullyEfficiency = New System.Windows.Forms.TextBox()
+            Me.lblMapFile = New System.Windows.Forms.Label()
+            Me.txtMapFile = New System.Windows.Forms.TextBox()
+            Me.btnBrowseMap = New System.Windows.Forms.Button()
+            Me.btnCancel = New System.Windows.Forms.Button()
+            Me.btnSave = New System.Windows.Forms.Button()
+            Me.lblMapLabel = New System.Windows.Forms.Label()
+            Me.txtMapPath = New System.Windows.Forms.TextBox()
+            Me.btnBrowsePowerMap = New System.Windows.Forms.Button()
+            Me.lblPulleyGearRatio = New System.Windows.Forms.Label()
+            Me.txtPulleyEfficiency = New System.Windows.Forms.TextBox()
+            Me.SuspendLayout()
+            '
+            'lblPullyEfficiency
+            '
+            Me.lblPullyEfficiency.AutoSize = True
+            Me.lblPullyEfficiency.Location = New System.Drawing.Point(6, 63)
+            Me.lblPullyEfficiency.Name = "lblPullyEfficiency"
+            Me.lblPullyEfficiency.Size = New System.Drawing.Size(87, 13)
+            Me.lblPullyEfficiency.TabIndex = 21
+            Me.lblPullyEfficiency.Text = " Pully Efficiency :"
+            '
+            'txtPullyEfficiency
+            '
+            Me.txtPullyEfficiency.Location = New System.Drawing.Point(105, 60)
+            Me.txtPullyEfficiency.Name = "txtPullyEfficiency"
+            Me.txtPullyEfficiency.Size = New System.Drawing.Size(46, 20)
+            Me.txtPullyEfficiency.TabIndex = 20
+            '
+            'lblMapFile
+            '
+            Me.lblMapFile.AutoSize = True
+            Me.lblMapFile.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+            Me.lblMapFile.Location = New System.Drawing.Point(-52, -32)
+            Me.lblMapFile.Name = "lblMapFile"
+            Me.lblMapFile.Size = New System.Drawing.Size(34, 13)
+            Me.lblMapFile.TabIndex = 18
+            Me.lblMapFile.Text = "Map :"
+            '
+            'txtMapFile
+            '
+            Me.txtMapFile.Location = New System.Drawing.Point(-13, -35)
+            Me.txtMapFile.Name = "txtMapFile"
+            Me.txtMapFile.ReadOnly = True
+            Me.txtMapFile.Size = New System.Drawing.Size(530, 20)
+            Me.txtMapFile.TabIndex = 17
+            '
+            'btnBrowseMap
+            '
+            Me.btnBrowseMap.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+            Me.btnBrowseMap.Location = New System.Drawing.Point(523, -35)
+            Me.btnBrowseMap.Name = "btnBrowseMap"
+            Me.btnBrowseMap.Size = New System.Drawing.Size(75, 23)
+            Me.btnBrowseMap.TabIndex = 16
+            Me.btnBrowseMap.Text = "Browse"
+            Me.btnBrowseMap.UseVisualStyleBackColor = True
+            '
+            'btnCancel
+            '
+            Me.btnCancel.Location = New System.Drawing.Point(518, 113)
+            Me.btnCancel.Name = "btnCancel"
+            Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+            Me.btnCancel.TabIndex = 15
+            Me.btnCancel.Text = "Cancel"
+            Me.btnCancel.UseVisualStyleBackColor = True
+            '
+            'btnSave
+            '
+            Me.btnSave.Location = New System.Drawing.Point(431, 113)
+            Me.btnSave.Name = "btnSave"
+            Me.btnSave.Size = New System.Drawing.Size(75, 23)
+            Me.btnSave.TabIndex = 14
+            Me.btnSave.Text = "Save"
+            Me.btnSave.UseVisualStyleBackColor = True
+            '
+            'lblMapLabel
+            '
+            Me.lblMapLabel.AutoSize = True
+            Me.lblMapLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+            Me.lblMapLabel.Location = New System.Drawing.Point(59, 25)
+            Me.lblMapLabel.Name = "lblMapLabel"
+            Me.lblMapLabel.Size = New System.Drawing.Size(34, 13)
+            Me.lblMapLabel.TabIndex = 28
+            Me.lblMapLabel.Text = "Map :"
+            '
+            'txtMapPath
+            '
+            Me.txtMapPath.Location = New System.Drawing.Point(105, 22)
+            Me.txtMapPath.Name = "txtMapPath"
+            Me.txtMapPath.ReadOnly = True
+            Me.txtMapPath.Size = New System.Drawing.Size(397, 20)
+            Me.txtMapPath.TabIndex = 27
+            '
+            'btnBrowsePowerMap
+            '
+            Me.btnBrowsePowerMap.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
+            Me.btnBrowsePowerMap.Location = New System.Drawing.Point(512, 22)
+            Me.btnBrowsePowerMap.Name = "btnBrowsePowerMap"
+            Me.btnBrowsePowerMap.Size = New System.Drawing.Size(75, 23)
+            Me.btnBrowsePowerMap.TabIndex = 26
+            Me.btnBrowsePowerMap.Text = "Browse"
+            Me.btnBrowsePowerMap.UseVisualStyleBackColor = True
+            '
+            'lblPulleyGearRatio
+            '
+            Me.lblPulleyGearRatio.AutoSize = True
+            Me.lblPulleyGearRatio.Location = New System.Drawing.Point(163, 64)
+            Me.lblPulleyGearRatio.Name = "lblPulleyGearRatio"
+            Me.lblPulleyGearRatio.Size = New System.Drawing.Size(81, 13)
+            Me.lblPulleyGearRatio.TabIndex = 30
+            Me.lblPulleyGearRatio.Text = " Pully Efficiency"
+            '
+            'txtPulleyEfficiency
+            '
+            Me.txtPulleyEfficiency.Location = New System.Drawing.Point(250, 61)
+            Me.txtPulleyEfficiency.Name = "txtPulleyEfficiency"
+            Me.txtPulleyEfficiency.Size = New System.Drawing.Size(41, 20)
+            Me.txtPulleyEfficiency.TabIndex = 29
+            '
+            'F_Compressor
+            '
+            Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+            Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+            Me.ClientSize = New System.Drawing.Size(602, 147)
+            Me.Controls.Add(Me.lblPulleyGearRatio)
+            Me.Controls.Add(Me.txtPulleyEfficiency)
+            Me.Controls.Add(Me.lblMapLabel)
+            Me.Controls.Add(Me.txtMapPath)
+            Me.Controls.Add(Me.btnBrowsePowerMap)
+            Me.Controls.Add(Me.lblPullyEfficiency)
+            Me.Controls.Add(Me.txtPullyEfficiency)
+            Me.Controls.Add(Me.lblMapFile)
+            Me.Controls.Add(Me.txtMapFile)
+            Me.Controls.Add(Me.btnBrowseMap)
+            Me.Controls.Add(Me.btnCancel)
+            Me.Controls.Add(Me.btnSave)
+            Me.Name = "F_Compressor"
+            Me.Text = "Pneumatic Compressor"
+            Me.ResumeLayout(False)
+            Me.PerformLayout()
+
+        End Sub
+        Friend WithEvents lblPullyEfficiency As System.Windows.Forms.Label
+        Friend WithEvents txtPullyEfficiency As System.Windows.Forms.TextBox
+        Friend WithEvents lblMapFile As System.Windows.Forms.Label
+        Friend WithEvents txtMapFile As System.Windows.Forms.TextBox
+        Friend WithEvents btnBrowseMap As System.Windows.Forms.Button
+        Friend WithEvents btnCancel As System.Windows.Forms.Button
+        Friend WithEvents btnSave As System.Windows.Forms.Button
+        Friend WithEvents lblMapLabel As System.Windows.Forms.Label
+        Friend WithEvents txtMapPath As System.Windows.Forms.TextBox
+        Friend WithEvents btnBrowsePowerMap As System.Windows.Forms.Button
+        Friend WithEvents lblPulleyGearRatio As System.Windows.Forms.Label
+        Friend WithEvents txtPulleyEfficiency As System.Windows.Forms.TextBox
+    End Class
+End Namespace
+

VECTOAux/VectoAuxiliaries/UI/F_Compressor.resx

+<?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

VECTOAux/VectoAuxiliaries/UI/F_Compressor.vb

+
+Imports VectoAuxiliaries.Hvac
+Imports System.Windows.Forms
+
+Namespace UI
+
+    Public Class F_Compressor
+
+
+    End Class
+
+End Namespace
+

VECTOAux/VectoAuxiliaries/UI/F_HVAC.Designer.vb

@@ -36,6 +36,8 @@
             Me.txtMechanicalDemand = New System.Windows.Forms.TextBox()
             Me.lblElectricalDemand = New System.Windows.Forms.Label()
             Me.txtElectricalDemand = New System.Windows.Forms.TextBox()
+            Me.lblPulleyGearRatio = New System.Windows.Forms.Label()
+            Me.txtPulleyGearRatio = New System.Windows.Forms.TextBox()
             CType(Me.dgMapResults, System.ComponentModel.ISupportInitialize).BeginInit()
             Me.SuspendLayout()
             '
@@ -44,17 +46,17 @@
             Me.dgMapResults.AllowUserToAddRows = False
             Me.dgMapResults.AllowUserToDeleteRows = False
             Me.dgMapResults.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
-            Me.dgMapResults.Location = New System.Drawing.Point(14, 183)
+            Me.dgMapResults.Location = New System.Drawing.Point(14, 164)
             Me.dgMapResults.MultiSelect = False
             Me.dgMapResults.Name = "dgMapResults"
             Me.dgMapResults.ReadOnly = True
             Me.dgMapResults.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
-            Me.dgMapResults.Size = New System.Drawing.Size(650, 218)
+            Me.dgMapResults.Size = New System.Drawing.Size(650, 245)
             Me.dgMapResults.TabIndex = 0
             '
             'btnSave
             '
-            Me.btnSave.Location = New System.Drawing.Point(497, 425)
+            Me.btnSave.Location = New System.Drawing.Point(497, 426)
             Me.btnSave.Name = "btnSave"
             Me.btnSave.Size = New System.Drawing.Size(75, 23)
             Me.btnSave.TabIndex = 1
@@ -63,7 +65,7 @@
             '
             'btnCancel
             '
-            Me.btnCancel.Location = New System.Drawing.Point(584, 425)
+            Me.btnCancel.Location = New System.Drawing.Point(584, 426)
             Me.btnCancel.Name = "btnCancel"
             Me.btnCancel.Size = New System.Drawing.Size(75, 23)
             Me.btnCancel.TabIndex = 2
@@ -100,22 +102,22 @@
             '
             'pnlSearchBar
             '
-            Me.pnlSearchBar.Location = New System.Drawing.Point(16, 114)
+            Me.pnlSearchBar.Location = New System.Drawing.Point(16, 95)
             Me.pnlSearchBar.Name = "pnlSearchBar"
             Me.pnlSearchBar.Size = New System.Drawing.Size(643, 59)
             Me.pnlSearchBar.TabIndex = 6
             '
             'txtPullyEfficiency
             '
-            Me.txtPullyEfficiency.Location = New System.Drawing.Point(107, 60)
+            Me.txtPullyEfficiency.Location = New System.Drawing.Point(102, 53)
             Me.txtPullyEfficiency.Name = "txtPullyEfficiency"
-            Me.txtPullyEfficiency.Size = New System.Drawing.Size(46, 20)
+            Me.txtPullyEfficiency.Size = New System.Drawing.Size(35, 20)
             Me.txtPullyEfficiency.TabIndex = 7
             '
             'lblPullyEfficiency
             '
             Me.lblPullyEfficiency.AutoSize = True
-            Me.lblPullyEfficiency.Location = New System.Drawing.Point(20, 63)
+            Me.lblPullyEfficiency.Location = New System.Drawing.Point(15, 57)
             Me.lblPullyEfficiency.Name = "lblPullyEfficiency"
             Me.lblPullyEfficiency.Size = New System.Drawing.Size(81, 13)
             Me.lblPullyEfficiency.TabIndex = 8
@@ -124,7 +126,7 @@
             'lblMechanicalDemand
             '
             Me.lblMechanicalDemand.AutoSize = True
-            Me.lblMechanicalDemand.Location = New System.Drawing.Point(175, 63)
+            Me.lblMechanicalDemand.Location = New System.Drawing.Point(291, 58)
             Me.lblMechanicalDemand.Name = "lblMechanicalDemand"
             Me.lblMechanicalDemand.Size = New System.Drawing.Size(132, 13)
             Me.lblMechanicalDemand.TabIndex = 9
@@ -132,7 +134,7 @@
             '
             'txtMechanicalDemand
             '
-            Me.txtMechanicalDemand.Location = New System.Drawing.Point(315, 59)
+            Me.txtMechanicalDemand.Location = New System.Drawing.Point(431, 54)
             Me.txtMechanicalDemand.Name = "txtMechanicalDemand"
             Me.txtMechanicalDemand.ReadOnly = True
             Me.txtMechanicalDemand.Size = New System.Drawing.Size(56, 20)
@@ -142,7 +144,7 @@
             'lblElectricalDemand
             '
             Me.lblElectricalDemand.AutoSize = True
-            Me.lblElectricalDemand.Location = New System.Drawing.Point(390, 62)
+            Me.lblElectricalDemand.Location = New System.Drawing.Point(493, 58)
             Me.lblElectricalDemand.Name = "lblElectricalDemand"
             Me.lblElectricalDemand.Size = New System.Drawing.Size(120, 13)
             Me.lblElectricalDemand.TabIndex = 11
@@ -150,18 +152,36 @@
             '
             'txtElectricalDemand
             '
-            Me.txtElectricalDemand.Location = New System.Drawing.Point(516, 59)
+            Me.txtElectricalDemand.Location = New System.Drawing.Point(619, 54)
             Me.txtElectricalDemand.Name = "txtElectricalDemand"
             Me.txtElectricalDemand.ReadOnly = True
             Me.txtElectricalDemand.Size = New System.Drawing.Size(26, 20)
             Me.txtElectricalDemand.TabIndex = 12
             Me.txtElectricalDemand.Text = "0"
             '
+            'lblPulleyGearRatio
+            '
+            Me.lblPulleyGearRatio.AutoSize = True
+            Me.lblPulleyGearRatio.Location = New System.Drawing.Point(139, 57)
+            Me.lblPulleyGearRatio.Name = "lblPulleyGearRatio"
+            Me.lblPulleyGearRatio.Size = New System.Drawing.Size(86, 13)
+            Me.lblPulleyGearRatio.TabIndex = 14
+            Me.lblPulleyGearRatio.Text = " Pully Gear Ratio"
+            '
+            'txtPulleyGearRatio
+            '
+            Me.txtPulleyGearRatio.Location = New System.Drawing.Point(227, 53)
+            Me.txtPulleyGearRatio.Name = "txtPulleyGearRatio"
+            Me.txtPulleyGearRatio.Size = New System.Drawing.Size(39, 20)
+            Me.txtPulleyGearRatio.TabIndex = 13
+            '
             'F_HVAC
             '
             Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
             Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
-            Me.ClientSize = New System.Drawing.Size(674, 460)
+            Me.ClientSize = New System.Drawing.Size(674, 458)
+            Me.Controls.Add(Me.lblPulleyGearRatio)
+            Me.Controls.Add(Me.txtPulleyGearRatio)
             Me.Controls.Add(Me.txtElectricalDemand)
             Me.Controls.Add(Me.lblElectricalDemand)
             Me.Controls.Add(Me.txtMechanicalDemand)
@@ -195,6 +215,8 @@
         Friend WithEvents txtMechanicalDemand As System.Windows.Forms.TextBox
         Friend WithEvents lblElectricalDemand As System.Windows.Forms.Label
         Friend WithEvents txtElectricalDemand As System.Windows.Forms.TextBox
+        Friend WithEvents lblPulleyGearRatio As System.Windows.Forms.Label
+        Friend WithEvents txtPulleyGearRatio As System.Windows.Forms.TextBox
 
     End Class
 

VECTOAux/VectoAuxiliaries/UI/F_PneumaticConsumers.Designer.vb

+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class F_PneumaticConsumers
+    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.SuspendLayout()
+        '
+        'F_PneumaticConsumers
+        '
+        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
+        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
+        Me.ClientSize = New System.Drawing.Size(483, 264)
+        Me.Name = "F_PneumaticConsumers"
+        Me.Text = "F_PneumaticConsumers"
+        Me.ResumeLayout(False)
+
+    End Sub
+End Class

VECTOAux/VectoAuxiliaries/UI/F_PneumaticConsumers.resx

+<?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

VECTOAux/VectoAuxiliaries/UI/F_PneumaticConsumers.vb

+Public Class F_PneumaticConsumers
+
+End Class
\ No newline at end of file