diff --git a/VECTOAux/VectoAuxiliaries/AuxiliaryConfig.vb b/VECTOAux/VectoAuxiliaries/AuxiliaryConfig.vb index 57febaf15e3f7da88dca2f59c9928a2e12b96bb6..8caf34e802b6223e7c2fc1ced366fe4c7edbda6d 100644 --- a/VECTOAux/VectoAuxiliaries/AuxiliaryConfig.vb +++ b/VECTOAux/VectoAuxiliaries/AuxiliaryConfig.vb @@ -80,33 +80,20 @@ Public Class AuxiliaryConfig 'Set Default Values Private Sub setDefaults() - '.CycleDurationMinutes=51.9, - VectoInputs = New VectoInputs With {.Cycle = "Urban", .VehicleWeightKG = 16500, .PowerNetVoltage = 28.3, .FuelMap = "testFuelGoodMap.vmap"} + Signals = New Signals With {.EngineSpeed = 2000, .TotalCycleTimeSeconds = 3114, .ClutchEngaged = False} - 'Pneumatics + 'Pneumatics set deault values PneumaticUserInputsConfig = New PneumaticUserInputsConfig(True) PneumaticAuxillariesConfig = New PneumaticsAuxilliariesConfig(True) - 'testAlternatorMap.aalt - ElectricalUserInputsConfig = New ElectricsUserInputsConfig() With {.DoorActuationTimeSecond = 4, - .StoredEnergyEfficiency = 0.935, - .AlternatorGearEfficiency = 0.92, - .PowerNetVoltage = VectoInputs.PowerNetVoltage, - .ResultCardIdle = New ResultCard(New List(Of SmartResult)), - .ResultCardOverrun = New ResultCard(New List(Of SmartResult)), - .ResultCardTraction = New ResultCard(New List(Of SmartResult)), - .SmartElectrical = False, - .AlternatorMap = String.Empty - } + 'Electrical set deault values + ElectricalUserInputsConfig = New ElectricsUserInputsConfig(True, VectoInputs) + ElectricalUserInputsConfig.ElectricalConsumers = New ElectricalConsumerList(28.3, 0.096, True) + 'HVAC set deault values HvacUserInputsConfig = New HVACUserInputsConfig(String.Empty, String.Empty, False) - - Signals = New Signals With {.EngineSpeed = 2000, .TotalCycleTimeSeconds = 3114, .ClutchEngaged = False} - - ElectricalUserInputsConfig.ElectricalConsumers = New ElectricalConsumerList(28.3, 0.096, True) - End Sub Private Function GetDoorActuationTimeFraction() As Single diff --git a/VECTOAux/VectoAuxiliaries/Electrics/ElectricsUserInputsConfig.vb b/VECTOAux/VectoAuxiliaries/Electrics/ElectricsUserInputsConfig.vb index a37264be5efff2be9139ee8cf5763d0346af8b88..bb348cbc7f0f8623069489e8907206bdbfb6b63d 100644 --- a/VECTOAux/VectoAuxiliaries/Electrics/ElectricsUserInputsConfig.vb +++ b/VECTOAux/VectoAuxiliaries/Electrics/ElectricsUserInputsConfig.vb @@ -15,7 +15,6 @@ Namespace Electrics Public Class ElectricsUserInputsConfig Implements IElectricsUserInputsConfig - Public Property PowerNetVoltage As Single Implements IElectricsUserInputsConfig.PowerNetVoltage Public Property AlternatorMap As String Implements IElectricsUserInputsConfig.AlternatorMap Public Property AlternatorGearEfficiency As Single Implements IElectricsUserInputsConfig.AlternatorGearEfficiency @@ -29,7 +28,25 @@ Implements IElectricsUserInputsConfig Public Property SmartElectrical As Boolean Implements IElectricsUserInputsConfig.SmartElectrical + Public Sub New(Optional setToDefaults As Boolean = False, Optional vectoInputs As VectoInputs = Nothing) + + If setToDefaults Then SetPropertiesToDefaults(vectoInputs) + + End Sub + + Public Sub SetPropertiesToDefaults(vectoInputs As VectoInputs) + + DoorActuationTimeSecond = 4 + StoredEnergyEfficiency = 0.935 + AlternatorGearEfficiency = 0.92 + PowerNetVoltage = vectoInputs.PowerNetVoltage + ResultCardIdle = New ResultCard(New List(Of SmartResult)) + ResultCardOverrun = New ResultCard(New List(Of SmartResult)) + ResultCardTraction = New ResultCard(New List(Of SmartResult)) + SmartElectrical = False + AlternatorMap = String.Empty + End Sub End Class End Namespace