diff --git a/AuxillaryTestHarness/Dashboard.Designer.vb b/AuxillaryTestHarness/Dashboard.Designer.vb
index 292e23f8040ff3c6cdec0703a5eea3154e179b67..2224b0a5e891d992c2fec47acc95c2bfc979a6b4 100644
--- a/AuxillaryTestHarness/Dashboard.Designer.vb
+++ b/AuxillaryTestHarness/Dashboard.Designer.vb
@@ -62,13 +62,13 @@ Partial Class Dashboard
Me.tabPneumaticConfig = New System.Windows.Forms.TabPage()
Me.tabHVACConfig = New System.Windows.Forms.TabPage()
Me.tabPlayground = New System.Windows.Forms.TabPage()
- Me.bndgsElecConsumables = New System.Windows.Forms.BindingSource(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
- Me.btnStart = New System.Windows.Forms.Button()
- Me.btnBack = New System.Windows.Forms.Button()
- Me.btnForward = New System.Windows.Forms.Button()
- Me.btnFinish = New System.Windows.Forms.Button()
Me.btnCancel = New System.Windows.Forms.Button()
+ Me.btnFinish = New System.Windows.Forms.Button()
+ Me.btnForward = New System.Windows.Forms.Button()
+ Me.btnBack = New System.Windows.Forms.Button()
+ Me.btnStart = New System.Windows.Forms.Button()
+ Me.brcElecConsumers = New System.Windows.Forms.BindingSource(Me.components)
Me.tabMain.SuspendLayout
Me.tabGeneralConfig.SuspendLayout
Me.tabElectricalConfig.SuspendLayout
@@ -76,8 +76,8 @@ Partial Class Dashboard
CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).BeginInit
CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).BeginInit
- CType(Me.bndgsElecConsumables,System.ComponentModel.ISupportInitialize).BeginInit
Me.Panel1.SuspendLayout
+ CType(Me.brcElecConsumers,System.ComponentModel.ISupportInitialize).BeginInit
Me.SuspendLayout
'
'tabMain
@@ -91,7 +91,7 @@ Partial Class Dashboard
Me.tabMain.Location = New System.Drawing.Point(13, 14)
Me.tabMain.Name = "tabMain"
Me.tabMain.SelectedIndex = 0
- Me.tabMain.Size = New System.Drawing.Size(751, 467)
+ Me.tabMain.Size = New System.Drawing.Size(894, 477)
Me.tabMain.TabIndex = 0
Me.tabMain.Tag = ""
'
@@ -104,7 +104,7 @@ Partial Class Dashboard
Me.tabGeneralConfig.Location = New System.Drawing.Point(4, 22)
Me.tabGeneralConfig.Name = "tabGeneralConfig"
Me.tabGeneralConfig.Padding = New System.Windows.Forms.Padding(3)
- Me.tabGeneralConfig.Size = New System.Drawing.Size(743, 441)
+ Me.tabGeneralConfig.Size = New System.Drawing.Size(886, 451)
Me.tabGeneralConfig.TabIndex = 0
Me.tabGeneralConfig.Text = "GeneralConfig"
Me.tabGeneralConfig.UseVisualStyleBackColor = true
@@ -165,7 +165,7 @@ Partial Class Dashboard
Me.tabElectricalConfig.Location = New System.Drawing.Point(4, 22)
Me.tabElectricalConfig.Name = "tabElectricalConfig"
Me.tabElectricalConfig.Padding = New System.Windows.Forms.Padding(3)
- Me.tabElectricalConfig.Size = New System.Drawing.Size(743, 441)
+ Me.tabElectricalConfig.Size = New System.Drawing.Size(886, 451)
Me.tabElectricalConfig.TabIndex = 1
Me.tabElectricalConfig.Text = "ElectricalConfig"
Me.tabElectricalConfig.UseVisualStyleBackColor = true
@@ -189,7 +189,7 @@ Partial Class Dashboard
DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView3.DefaultCellStyle = DataGridViewCellStyle2
- Me.DataGridView3.Location = New System.Drawing.Point(502, 331)
+ Me.DataGridView3.Location = New System.Drawing.Point(613, 353)
Me.DataGridView3.Name = "DataGridView3"
DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
@@ -199,7 +199,7 @@ Partial Class Dashboard
DataGridViewCellStyle3.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle3.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView3.RowHeadersDefaultCellStyle = DataGridViewCellStyle3
- Me.DataGridView3.Size = New System.Drawing.Size(191, 81)
+ Me.DataGridView3.Size = New System.Drawing.Size(218, 81)
Me.DataGridView3.TabIndex = 18
'
'DataGridView2
@@ -221,7 +221,7 @@ Partial Class Dashboard
DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView2.DefaultCellStyle = DataGridViewCellStyle5
- Me.DataGridView2.Location = New System.Drawing.Point(260, 331)
+ Me.DataGridView2.Location = New System.Drawing.Point(324, 353)
Me.DataGridView2.Name = "DataGridView2"
DataGridViewCellStyle6.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle6.BackColor = System.Drawing.SystemColors.Control
@@ -231,7 +231,7 @@ Partial Class Dashboard
DataGridViewCellStyle6.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle6.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView2.RowHeadersDefaultCellStyle = DataGridViewCellStyle6
- Me.DataGridView2.Size = New System.Drawing.Size(191, 81)
+ Me.DataGridView2.Size = New System.Drawing.Size(218, 81)
Me.DataGridView2.TabIndex = 17
'
'DataGridView1
@@ -253,7 +253,7 @@ Partial Class Dashboard
DataGridViewCellStyle8.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle8.WrapMode = System.Windows.Forms.DataGridViewTriState.[False]
Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle8
- Me.DataGridView1.Location = New System.Drawing.Point(33, 328)
+ Me.DataGridView1.Location = New System.Drawing.Point(35, 353)
Me.DataGridView1.Name = "DataGridView1"
DataGridViewCellStyle9.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle9.BackColor = System.Drawing.SystemColors.Control
@@ -263,13 +263,13 @@ Partial Class Dashboard
DataGridViewCellStyle9.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle9.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.DataGridView1.RowHeadersDefaultCellStyle = DataGridViewCellStyle9
- Me.DataGridView1.Size = New System.Drawing.Size(191, 81)
+ Me.DataGridView1.Size = New System.Drawing.Size(218, 81)
Me.DataGridView1.TabIndex = 16
'
'Label9
'
Me.Label9.AutoSize = true
- Me.Label9.Location = New System.Drawing.Point(505, 315)
+ Me.Label9.Location = New System.Drawing.Point(616, 333)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(83, 13)
Me.Label9.TabIndex = 15
@@ -278,7 +278,7 @@ Partial Class Dashboard
'Label8
'
Me.Label8.AutoSize = true
- Me.Label8.Location = New System.Drawing.Point(260, 315)
+ Me.Label8.Location = New System.Drawing.Point(326, 332)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(84, 13)
Me.Label8.TabIndex = 14
@@ -287,7 +287,7 @@ Partial Class Dashboard
'Label7
'
Me.Label7.AutoSize = true
- Me.Label7.Location = New System.Drawing.Point(30, 312)
+ Me.Label7.Location = New System.Drawing.Point(39, 333)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(62, 13)
Me.Label7.TabIndex = 13
@@ -314,6 +314,8 @@ Partial Class Dashboard
'
'gvElectricalConsumables
'
+ Me.gvElectricalConsumables.AllowUserToOrderColumns = true
+ Me.gvElectricalConsumables.AutoGenerateColumns = false
DataGridViewCellStyle10.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle10.BackColor = System.Drawing.SystemColors.Control
DataGridViewCellStyle10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
@@ -323,6 +325,7 @@ Partial Class Dashboard
DataGridViewCellStyle10.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gvElectricalConsumables.ColumnHeadersDefaultCellStyle = DataGridViewCellStyle10
Me.gvElectricalConsumables.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
+ Me.gvElectricalConsumables.DataSource = Me.brcElecConsumers
DataGridViewCellStyle11.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
DataGridViewCellStyle11.BackColor = System.Drawing.SystemColors.Window
DataGridViewCellStyle11.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0,Byte))
@@ -341,7 +344,7 @@ Partial Class Dashboard
DataGridViewCellStyle12.SelectionForeColor = System.Drawing.SystemColors.HighlightText
DataGridViewCellStyle12.WrapMode = System.Windows.Forms.DataGridViewTriState.[True]
Me.gvElectricalConsumables.RowHeadersDefaultCellStyle = DataGridViewCellStyle12
- Me.gvElectricalConsumables.Size = New System.Drawing.Size(659, 127)
+ Me.gvElectricalConsumables.Size = New System.Drawing.Size(803, 149)
Me.gvElectricalConsumables.TabIndex = 10
'
'txtDoorActuationTimeSeconds
@@ -446,26 +449,26 @@ Partial Class Dashboard
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
- Me.Panel1.Size = New System.Drawing.Size(813, 566)
+ Me.Panel1.Size = New System.Drawing.Size(937, 566)
Me.Panel1.TabIndex = 1
'
- 'btnStart
+ 'btnCancel
'
- Me.btnStart.Location = New System.Drawing.Point(320, 511)
- Me.btnStart.Name = "btnStart"
- Me.btnStart.Size = New System.Drawing.Size(75, 23)
- Me.btnStart.TabIndex = 1
- Me.btnStart.Text = "|< Start"
- Me.btnStart.UseVisualStyleBackColor = true
+ Me.btnCancel.Location = New System.Drawing.Point(727, 510)
+ Me.btnCancel.Name = "btnCancel"
+ Me.btnCancel.Size = New System.Drawing.Size(75, 23)
+ Me.btnCancel.TabIndex = 5
+ Me.btnCancel.Text = "Cancel"
+ Me.btnCancel.UseVisualStyleBackColor = true
'
- 'btnBack
+ 'btnFinish
'
- Me.btnBack.Location = New System.Drawing.Point(437, 511)
- Me.btnBack.Name = "btnBack"
- Me.btnBack.Size = New System.Drawing.Size(75, 23)
- Me.btnBack.TabIndex = 2
- Me.btnBack.Text = "<< Back"
- Me.btnBack.UseVisualStyleBackColor = true
+ Me.btnFinish.Location = New System.Drawing.Point(645, 511)
+ Me.btnFinish.Name = "btnFinish"
+ Me.btnFinish.Size = New System.Drawing.Size(75, 23)
+ Me.btnFinish.TabIndex = 4
+ Me.btnFinish.Text = "Finish >|"
+ Me.btnFinish.UseVisualStyleBackColor = true
'
'btnForward
'
@@ -476,29 +479,29 @@ Partial Class Dashboard
Me.btnForward.Text = "Fwd >>"
Me.btnForward.UseVisualStyleBackColor = true
'
- 'btnFinish
+ 'btnBack
'
- Me.btnFinish.Location = New System.Drawing.Point(645, 511)
- Me.btnFinish.Name = "btnFinish"
- Me.btnFinish.Size = New System.Drawing.Size(75, 23)
- Me.btnFinish.TabIndex = 4
- Me.btnFinish.Text = "Finish >|"
- Me.btnFinish.UseVisualStyleBackColor = true
+ Me.btnBack.Location = New System.Drawing.Point(437, 511)
+ Me.btnBack.Name = "btnBack"
+ Me.btnBack.Size = New System.Drawing.Size(75, 23)
+ Me.btnBack.TabIndex = 2
+ Me.btnBack.Text = "<< Back"
+ Me.btnBack.UseVisualStyleBackColor = true
'
- 'btnCancel
+ 'btnStart
'
- Me.btnCancel.Location = New System.Drawing.Point(727, 510)
- Me.btnCancel.Name = "btnCancel"
- Me.btnCancel.Size = New System.Drawing.Size(75, 23)
- Me.btnCancel.TabIndex = 5
- Me.btnCancel.Text = "Cancel"
- Me.btnCancel.UseVisualStyleBackColor = true
+ Me.btnStart.Location = New System.Drawing.Point(320, 511)
+ Me.btnStart.Name = "btnStart"
+ Me.btnStart.Size = New System.Drawing.Size(75, 23)
+ Me.btnStart.TabIndex = 1
+ Me.btnStart.Text = "|< Start"
+ Me.btnStart.UseVisualStyleBackColor = true
'
'Dashboard
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6!, 13!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
- Me.ClientSize = New System.Drawing.Size(813, 566)
+ Me.ClientSize = New System.Drawing.Size(937, 566)
Me.Controls.Add(Me.Panel1)
Me.Name = "Dashboard"
Me.Text = "Dashboard"
@@ -511,8 +514,8 @@ Partial Class Dashboard
CType(Me.DataGridView2,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.DataGridView1,System.ComponentModel.ISupportInitialize).EndInit
CType(Me.gvElectricalConsumables,System.ComponentModel.ISupportInitialize).EndInit
- CType(Me.bndgsElecConsumables,System.ComponentModel.ISupportInitialize).EndInit
Me.Panel1.ResumeLayout(false)
+ CType(Me.brcElecConsumers,System.ComponentModel.ISupportInitialize).EndInit
Me.ResumeLayout(false)
End Sub
@@ -543,11 +546,11 @@ End Sub
Friend WithEvents chkSmartElectricals As System.Windows.Forms.CheckBox
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents gvElectricalConsumables As System.Windows.Forms.DataGridView
- Friend WithEvents bndgsElecConsumables As System.Windows.Forms.BindingSource
Friend WithEvents Panel1 As System.Windows.Forms.Panel
Friend WithEvents btnCancel As System.Windows.Forms.Button
Friend WithEvents btnFinish As System.Windows.Forms.Button
Friend WithEvents btnForward As System.Windows.Forms.Button
Friend WithEvents btnBack As System.Windows.Forms.Button
Friend WithEvents btnStart As System.Windows.Forms.Button
+ Friend WithEvents brcElecConsumers As System.Windows.Forms.BindingSource
End Class
diff --git a/AuxillaryTestHarness/Dashboard.resx b/AuxillaryTestHarness/Dashboard.resx
index 43940a0112c3b41fad27adc337a1cec14c5f8468..332cfeb6850508bf4127de3f33180596101df163 100644
--- a/AuxillaryTestHarness/Dashboard.resx
+++ b/AuxillaryTestHarness/Dashboard.resx
@@ -117,7 +117,10 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
- <metadata name="bndgsElecConsumables.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+ <metadata name="brcElecConsumers.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
+ <metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+ <value>25</value>
+ </metadata>
</root>
\ No newline at end of file
diff --git a/AuxillaryTestHarness/Dashboard.vb b/AuxillaryTestHarness/Dashboard.vb
index 9c925bcb1adfe2a9561d7a0a00ed2a56133bc01e..29a7cda19b54efc32bb17bb1bb567386b5129058 100644
--- a/AuxillaryTestHarness/Dashboard.vb
+++ b/AuxillaryTestHarness/Dashboard.vb
@@ -9,39 +9,147 @@ Private Sub Dashboard_Load( sender As Object, e As EventArgs) Handles MyBase.Lo
cboCycle.SelectedIndex=0
+ SetupControls()
+
CreateBindings()
+
End Sub
Private Sub cboCycle_SelectedIndexChanged( sender As Object, e As EventArgs) Handles cboCycle.SelectedIndexChanged
End Sub
+Private sub SetupControls()
+
+ Dim cIndex As Integer=0
+
+ 'ElectricalConsumerGrid
+ 'Columns
+ cIndex=gvElectricalConsumables.Columns.Add("Category","Category")
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="Category"
+ gvElectricalConsumables.Columns(cIndex).MinimumWidth=150
+ gvElectricalConsumables.Columns(cIndex).ReadOnly=True
+
+ cIndex=gvElectricalConsumables.Columns.Add("ConsumerName","Name")
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="ConsumerName"
+ gvElectricalConsumables.Columns(cIndex).MinimumWidth=300
+ gvElectricalConsumables.Columns(cIndex).ReadOnly=True
+
+ Dim baseVehicle As New DataGridViewCheckBoxColumn(false)
+ baseVehicle.HeaderText="BaseVehicle"
+ cIndex=gvElectricalConsumables.Columns.Add(baseVehicle)
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="BaseVehicle"
+ gvElectricalConsumables.Columns(cIndex).Width=60
+
+ cIndex=gvElectricalConsumables.Columns.Add("NominalConsumptionAmps","Nominal Amps")
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="NominalConsumptionAmps"
+ gvElectricalConsumables.Columns(cIndex).Width=50
+
+ cIndex=gvElectricalConsumables.Columns.Add("PhaseIdle_TractionOn","PhaseIdle\n/TractionOn")
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="PhaseIdle_TractionOn"
+ gvElectricalConsumables.Columns(cIndex).Width=50
+
+
+ cIndex=gvElectricalConsumables.Columns.Add("NumberInActualVehicle","Num in Vehicle")
+ gvElectricalConsumables.Columns(cIndex).DataPropertyName="NumberInActualVehicle"
+ gvElectricalConsumables.Columns(cIndex).Width=50
+
+End Sub
+
Private Sub CreateBindings
- 'auxEnvironment.Vecto Bindings
+ 'AuxEnvironment.Vecto Bindings
txtPowernetVoltage.DataBindings.Add("Text", auxEnvironment.VectoInputs, "PowerNetVoltage")
txtVehicleWeightKG.DataBindings.Add("Text",auxEnvironment.VectoInputs,"VehicleWeightKG")
cboCycle.DataBindings.Add("Text",auxEnvironment.VectoInputs,"Cycle")
- 'Electricals
-
- 'UserInput
+ 'Electricals General
txtAlternatorMapPath.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"AlternatorMap")
txtAlternatorGearEfficiency.DataBindings.Add("Text", auxEnvironment.ElectricalUserInputsConfig,"AlternatorGearEfficiency")
txtDoorActuationTimeSeconds.DataBindings.Add("Text",auxEnvironment.ElectricalUserInputsConfig,"DoorActuationTimeSecond")
chkSmartElectricals.DataBindings.Add("Checked",auxEnvironment.ElectricalUserInputsConfig,"SmartElectrical")
+ 'ConsumablesGrid
+ gvElectricalConsumables.DataSource = auxEnvironment.ElectricalUserInputsConfig.ElectricalConsumers.Items
+
+ 'ResultCards
- 'Dim cIndex As Integer = gvElectricalConsumables.Columns.Add("ConsumerName","ConsumerName")
- 'gvElectricalConsumables.Columns(cIndex).DataPropertyName="Value.ConsumerName"
- 'Dim list As New List(of IElectricalConsumer)
- 'gvElectricalConsumables.DataSource = list
+End Sub
+
+Private Sub gvElectricalConsumables_CellEndEdit( sender As Object, e As DataGridViewCellEventArgs) Handles gvElectricalConsumables.CellEndEdit
End Sub
+
+
+Private Sub gvElectricalConsumables_CellValidating( sender As Object, e As DataGridViewCellValidatingEventArgs) Handles gvElectricalConsumables.CellValidating
+
+
+ Dim column As DataGridViewColumn = gvElectricalConsumables.Columns(e.ColumnIndex)
+ Dim message As String = String.Empty
+
+ If Not column.ReadOnly then
+ e.Cancel = Not IsValidElectricalConsumableEdit(column, e.FormattedValue, message)
+ End If
+
+
+
+
+
+End Sub
+
+
+Private Function IsValidElectricalConsumableEdit( column As DataGridViewColumn, val As String , byref message As string) As Boolean
+
+ dim s As Single
+
+ Dim tip = column.CellType
+
+
+
+ Select Case column.Name
+
+ case "NominalConsumptionAmps"
+ Return true
+
+ case "NumberInActualVehicle"
+ If not IsNumeric(val)
+ MessageBox.Show("This value must be numeric")
+ Return false
+ Else
+ s = Single.Parse(val)
+ End If
+ If s MOD 1 > 0 orelse s<0 then
+ MessageBox.Show("This value must be a positive whole number ( Integer ) ")
+ Return false
+ End If
+
+
+ case "PhaseIdle_TractionOn"
+ If not IsNumeric(val)
+ MessageBox.Show("This value must be numeric")
+ Return false
+ Else
+ s = Single.Parse(val)
+ End If
+ If s < 0 orelse s>1 then
+ MessageBox.Show("This must be a value between 0 and 1 ")
+ Return false
+ End If
+
+
+ End Select
+
+
+
+ Return true
+
+End Function
+
+
End Class
\ No newline at end of file
diff --git a/VECTOAux/VectoAuxiliaries/AuxillaryEnvironment.vb b/VECTOAux/VectoAuxiliaries/AuxillaryEnvironment.vb
index 043e9e7fa1675c80ca1d62632f2e9e7b8fa3525c..3aec62734921e8c2125ba13e9653adefd694ce3b 100644
--- a/VECTOAux/VectoAuxiliaries/AuxillaryEnvironment.vb
+++ b/VECTOAux/VectoAuxiliaries/AuxillaryEnvironment.vb
@@ -13,6 +13,7 @@ Public Class AuxillaryEnvironment
'Electrical
Public property ElectricalUserInputsConfig As IElectricsUserInputsConfig
+
'Pneumatics
Private Property PneumaticUserInputsConfig As IPneumaticUserInputsConfig
Private Property PneumaticAuxillariesConfig As IPneumaticsAuxilliariesConfig
diff --git a/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumer.vb b/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumer.vb
index 287c54a1756578722461da447d9b1a2ea659938e..a614383cff86812dd3732bd69775e7f532e48ffc 100644
--- a/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumer.vb
+++ b/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumer.vb
@@ -37,7 +37,7 @@
Public Function TotalAvgConsumptionInWatts(Optional PhaseIdle_TractionOnBasedOnCycle As Single = 0.0) As Single Implements Electrics.IElectricalConsumer.TotalAvgConsumptionInWatts
Return TotalAvgConumptionAmps(PhaseIdle_TractionOnBasedOnCycle) * PowerNetVoltage
- End Function
+ End Function
Public Sub New(BaseVehicle As Boolean, Category As String, ConsumerName As String, NominalConsumptionAmps As Single, PhaseIdle_TractionOn As Single, PowerNetVoltage As Single, numberInVehicle As Integer)
diff --git a/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumerList.vb b/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumerList.vb
index 2570383a04e19e7ca5aa21c8ecc82f721f8053c6..9f075c712e4363ef79ab5aba20c4c0a0e38ca113 100644
--- a/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumerList.vb
+++ b/VECTOAux/VectoAuxiliaries/Electrics/ElectricalConsumerList.vb
@@ -17,6 +17,9 @@ Public ReadOnly Property Items As List(Of IElectricalConsumer) Implements IElec
End Get
End Property
+
+
+
'Create Empty List
Public Sub New(powernetVoltage As Single,doorDutyCycle_ZeroToOne As single, Optional createDefaultList As Boolean = False)
@@ -31,6 +34,10 @@ _doorDutyCycleZeroToOne = doorDutyCycle_ZeroToOne
End Sub
+
+
+
+
Public Sub SetDefaultConsumerList()
'This populates the default settings as per engineering spreadsheet.