Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS will be completely phased out by mid-2025. To see alternatives please check here

Skip to content
Snippets Groups Projects
Commit 15684261 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

updating imports in vb-aux project

parent 143f3da9
No related branches found
No related tags found
No related merge requests found
Showing
with 57 additions and 32 deletions
......@@ -17,6 +17,8 @@ Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules
Imports System.Windows.Forms
Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl
Imports VectoAuxiliaries.DownstreamModules.Electrics
<Assembly: InternalsVisibleTo("VectoCore")>
......@@ -138,14 +140,14 @@ Public Class AdvancedAuxiliaries
End If
M0 = New M0_NonSmart_AlternatorsSetEfficiency(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
M0 = New M00Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
alternatorMap,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
Signals,
ssmTool)
Dim M05tmp As M0_5_SmartAlternatorSetEfficiency = New M0_5_SmartAlternatorSetEfficiency(M0,
Dim M05tmp As IM0_5_SmartAlternatorSetEfficiency = New M0_5Impl(M0,
auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
alternatorMap,
auxConfig.ElectricalUserInputsConfig.ResultCardIdle,
......@@ -153,7 +155,7 @@ Public Class AdvancedAuxiliaries
auxConfig.ElectricalUserInputsConfig.ResultCardOverrun, Signals)
M05 = M05tmp
M1 = New M1_AverageHVACLoadDemand(M0,
M1 = New M01Impl(M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
......@@ -161,13 +163,13 @@ Public Class AdvancedAuxiliaries
ssmTool)
M2 = New M2_AverageElectricalLoadDemand(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
M2 = New M02Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt), Signals)
M3 = New M3_AveragePneumaticLoadDemand(auxConfig.PneumaticUserInputsConfig,
M3 = New M03Impl(auxConfig.PneumaticUserInputsConfig,
auxConfig.PneumaticAuxillariesConfig,
actuationsMap,
compressorMap,
......@@ -175,19 +177,19 @@ Public Class AdvancedAuxiliaries
VectoInputs.Cycle,
Signals)
M4 = New M4_AirCompressor(compressorMap, auxConfig.PneumaticUserInputsConfig.CompressorGearRatio,
M4 = New M04Impl(compressorMap, auxConfig.PneumaticUserInputsConfig.CompressorGearRatio,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency, Signals)
M5 = New M5__SmartAlternatorSetGeneration(M05tmp, auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
M5 = New M05Impl(M05tmp, auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency)
M6 = New M6(M1, M2, M3, M4, M5, Signals)
M7 = New M7(M5, M6, Signals)
M8 = New M8(M1, M6, M7, Signals)
M9 = New M9(M1, M4, M6, M8, fuelMap, auxConfig.PneumaticAuxillariesConfig, Signals)
M10 = New M10(M3, M9, Signals)
M11 = New M11(M1, M3, M6, M8, fuelMap, Signals)
M12 = New M12(M10, M11, Signals)
M13 = New M13(M10, M11, M12, Signals)
M14 = New M14(M13, ssmToolModule14, hvacConstants, Signals)
M6 = New M06Impl(M1, M2, M3, M4, M5, Signals)
M7 = New M07Impl(M5, M6, Signals)
M8 = New M08Impl(M1, M6, M7, Signals)
M9 = New M09Impl(M1, M4, M6, M8, fuelMap, auxConfig.PneumaticAuxillariesConfig, Signals)
M10 = New M10Impl(M3, M9, Signals)
M11 = New M11Impl(M1, M3, M6, M8, fuelMap, Signals)
M12 = New M12Impl(M10, M11, Signals)
M13 = New M13Impl(M10, M11, M12, Signals)
M14 = New M14Impl(M13, ssmToolModule14, hvacConstants, Signals)
End Sub
#Region "Interface implementation"
......@@ -274,7 +276,15 @@ Public Class AdvancedAuxiliaries
Throw New NotImplementedException
End Function
Public ReadOnly Property TotalFuelGRAMS As Kilogram Implements VectoAuxiliaries.IAdvancedAuxiliaries.TotalFuelGRAMS
Public Sub IAdvancedAuxiliaries_ResetCalculations() Implements IAdvancedAuxiliaries.ResetCalculations
Dim modules As List(Of IAbstractModule) = New List(Of IAbstractModule)() From {
M0, M05, M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12, M13, M14}
For Each moduel As IAbstractModule In modules
moduel.ResetCalculations()
Next
End Sub
Public ReadOnly Property TotalFuelGRAMS As Kilogram Implements VectoAuxiliaries.IAdvancedAuxiliaries.TotalFuelGRAMS
Get
If Not M13 Is Nothing Then
Return M14.TotalCycleFCGrams
......@@ -474,4 +484,5 @@ Public Class AdvancedAuxiliaries
Return M9.TotalCycleFuelConsumptionCompressorOnContinuously
End Get
End Property
End Class
......@@ -18,6 +18,8 @@ Imports System.Windows.Forms
Imports Newtonsoft.Json
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.DownstreamModules.HVAC
<Serializable()>
Public Class AuxiliaryConfig
......
Option Strict On
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
Public Class Table4Row
Public RPM As Double
Public Efficiency As Double
Public Sub New(rpm As Double, eff As Double)
Me.RPM = rpm
Me.Efficiency = eff
End Sub
End Class
'Model based on CombinedALTS_V02_Editable.xlsx
Public Class Alternator
......
......@@ -12,6 +12,7 @@ Imports System.Globalization
Imports System.IO
Imports System.Text
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
Public Class AlternatorMap
......
......@@ -7,6 +7,7 @@ Imports System.Text
Imports System.IO
Imports System.Globalization
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
......
Namespace Electrics
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
'This class is reflective of the stored entries for the combined alternator
'And is used by the Combined Alternator Form and any related classes.
......

Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
'Used by the CombinedAlternator class and any other related classes.
......
Imports System.ComponentModel
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
' Copyright 2017 European Union.
' Licensed under the EUPL (the 'Licence');
......
......@@ -12,6 +12,7 @@
Imports System.Collections.Generic
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
Public Class ElectricalConsumerList
......@@ -184,7 +185,7 @@ Namespace Electrics
End Get
End Property
Public Sub AddConsumer(consumer As IElectricalConsumer) Implements Electrics.IElectricalConsumerList.AddConsumer
Public Sub AddConsumer(consumer As IElectricalConsumer) Implements IElectricalConsumerList.AddConsumer
If Not _items.Contains(consumer) Then
_items.Add(consumer)
......@@ -195,7 +196,7 @@ Namespace Electrics
End If
End Sub
Public Sub RemoveConsumer(consumer As IElectricalConsumer) Implements Electrics.IElectricalConsumerList.RemoveConsumer
Public Sub RemoveConsumer(consumer As IElectricalConsumer) Implements IElectricalConsumerList.RemoveConsumer
If _items.Contains(consumer) Then
......@@ -210,7 +211,7 @@ Namespace Electrics
Public Function GetTotalAverageDemandAmps(excludeOnBase As Boolean) As Ampere _
Implements Electrics.IElectricalConsumerList.GetTotalAverageDemandAmps
Implements IElectricalConsumerList.GetTotalAverageDemandAmps
Dim Amps As Ampere
......
......@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.Electrics
Namespace Electrics
......
......@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.Electrics
Namespace Electrics
......
Namespace Hvac
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
Public Class EnvironmentalCondition
Implements IEnvironmentalCondition
......
Imports System.Globalization
Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
Public Class EnvironmentalConditionsMap
......
......@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports Newtonsoft.Json
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
Public Class HVACConstants
......
......@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
Public Class HVACSteadyStateModel
......
......@@ -9,6 +9,7 @@
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports VectoAuxiliaries.DownstreamModules.HVAC
Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics
......
Imports System.Text
Imports Microsoft.VisualBasic
Imports VectoAuxiliaries.DownstreamModules.HVAC
Imports VectoAuxiliaries.Hvac
Namespace Hvac
......
Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
'Used by SSMHVAC Class
......
Imports System.Text
Imports Microsoft.VisualBasic
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
......
......@@ -5,6 +5,7 @@ Imports System.IO
Imports System.Reflection
Imports System.Text
Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
'Used by frmHVACTool
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment