Code development platform for open source projects from the European Union institutions

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 ...@@ -17,6 +17,8 @@ Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.DownstreamModules Imports VectoAuxiliaries.DownstreamModules
Imports System.Windows.Forms Imports System.Windows.Forms
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl
Imports VectoAuxiliaries.DownstreamModules.Electrics
<Assembly: InternalsVisibleTo("VectoCore")> <Assembly: InternalsVisibleTo("VectoCore")>
...@@ -138,14 +140,14 @@ Public Class AdvancedAuxiliaries ...@@ -138,14 +140,14 @@ Public Class AdvancedAuxiliaries
End If End If
M0 = New M0_NonSmart_AlternatorsSetEfficiency(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers, M0 = New M00Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
alternatorMap, alternatorMap,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt), auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
Signals, Signals,
ssmTool) 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, auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
alternatorMap, alternatorMap,
auxConfig.ElectricalUserInputsConfig.ResultCardIdle, auxConfig.ElectricalUserInputsConfig.ResultCardIdle,
...@@ -153,7 +155,7 @@ Public Class AdvancedAuxiliaries ...@@ -153,7 +155,7 @@ Public Class AdvancedAuxiliaries
auxConfig.ElectricalUserInputsConfig.ResultCardOverrun, Signals) auxConfig.ElectricalUserInputsConfig.ResultCardOverrun, Signals)
M05 = M05tmp M05 = M05tmp
M1 = New M1_AverageHVACLoadDemand(M0, M1 = New M01Impl(M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency, auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency, auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt), auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt),
...@@ -161,13 +163,13 @@ Public Class AdvancedAuxiliaries ...@@ -161,13 +163,13 @@ Public Class AdvancedAuxiliaries
ssmTool) ssmTool)
M2 = New M2_AverageElectricalLoadDemand(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers, M2 = New M02Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
M0, M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency, auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt), Signals) auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI(Of Volt), Signals)
M3 = New M3_AveragePneumaticLoadDemand(auxConfig.PneumaticUserInputsConfig, M3 = New M03Impl(auxConfig.PneumaticUserInputsConfig,
auxConfig.PneumaticAuxillariesConfig, auxConfig.PneumaticAuxillariesConfig,
actuationsMap, actuationsMap,
compressorMap, compressorMap,
...@@ -175,19 +177,19 @@ Public Class AdvancedAuxiliaries ...@@ -175,19 +177,19 @@ Public Class AdvancedAuxiliaries
VectoInputs.Cycle, VectoInputs.Cycle,
Signals) Signals)
M4 = New M4_AirCompressor(compressorMap, auxConfig.PneumaticUserInputsConfig.CompressorGearRatio, M4 = New M04Impl(compressorMap, auxConfig.PneumaticUserInputsConfig.CompressorGearRatio,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency, Signals) 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) auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency)
M6 = New M6(M1, M2, M3, M4, M5, Signals) M6 = New M06Impl(M1, M2, M3, M4, M5, Signals)
M7 = New M7(M5, M6, Signals) M7 = New M07Impl(M5, M6, Signals)
M8 = New M8(M1, M6, M7, Signals) M8 = New M08Impl(M1, M6, M7, Signals)
M9 = New M9(M1, M4, M6, M8, fuelMap, auxConfig.PneumaticAuxillariesConfig, Signals) M9 = New M09Impl(M1, M4, M6, M8, fuelMap, auxConfig.PneumaticAuxillariesConfig, Signals)
M10 = New M10(M3, M9, Signals) M10 = New M10Impl(M3, M9, Signals)
M11 = New M11(M1, M3, M6, M8, fuelMap, Signals) M11 = New M11Impl(M1, M3, M6, M8, fuelMap, Signals)
M12 = New M12(M10, M11, Signals) M12 = New M12Impl(M10, M11, Signals)
M13 = New M13(M10, M11, M12, Signals) M13 = New M13Impl(M10, M11, M12, Signals)
M14 = New M14(M13, ssmToolModule14, hvacConstants, Signals) M14 = New M14Impl(M13, ssmToolModule14, hvacConstants, Signals)
End Sub End Sub
#Region "Interface implementation" #Region "Interface implementation"
...@@ -274,7 +276,15 @@ Public Class AdvancedAuxiliaries ...@@ -274,7 +276,15 @@ Public Class AdvancedAuxiliaries
Throw New NotImplementedException Throw New NotImplementedException
End Function 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 Get
If Not M13 Is Nothing Then If Not M13 Is Nothing Then
Return M14.TotalCycleFCGrams Return M14.TotalCycleFCGrams
...@@ -474,4 +484,5 @@ Public Class AdvancedAuxiliaries ...@@ -474,4 +484,5 @@ Public Class AdvancedAuxiliaries
Return M9.TotalCycleFuelConsumptionCompressorOnContinuously Return M9.TotalCycleFuelConsumptionCompressorOnContinuously
End Get End Get
End Property End Property
End Class End Class
...@@ -18,6 +18,8 @@ Imports System.Windows.Forms ...@@ -18,6 +18,8 @@ Imports System.Windows.Forms
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries Imports VectoAuxiliaries
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.DownstreamModules.HVAC
<Serializable()> <Serializable()>
Public Class AuxiliaryConfig Public Class AuxiliaryConfig
......
Option Strict On Option Strict On
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace 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 'Model based on CombinedALTS_V02_Editable.xlsx
Public Class Alternator Public Class Alternator
......
...@@ -12,6 +12,7 @@ Imports System.Globalization ...@@ -12,6 +12,7 @@ Imports System.Globalization
Imports System.IO Imports System.IO
Imports System.Text Imports System.Text
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics Namespace Electrics
Public Class AlternatorMap Public Class AlternatorMap
......
...@@ -7,6 +7,7 @@ Imports System.Text ...@@ -7,6 +7,7 @@ Imports System.Text
Imports System.IO Imports System.IO
Imports System.Globalization Imports System.Globalization
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics Namespace Electrics
......
Namespace Electrics Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics
'This class is reflective of the stored entries for the combined alternator 'This class is reflective of the stored entries for the combined alternator
'And is used by the Combined Alternator Form and any related classes. 'And is used by the Combined Alternator Form and any related classes.
......
 
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics Namespace Electrics
'Used by the CombinedAlternator class and any other related classes. 'Used by the CombinedAlternator class and any other related classes.
......
Imports System.ComponentModel Imports System.ComponentModel
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
' Copyright 2017 European Union. ' Copyright 2017 European Union.
' Licensed under the EUPL (the 'Licence'); ' Licensed under the EUPL (the 'Licence');
......
...@@ -12,6 +12,7 @@ ...@@ -12,6 +12,7 @@
Imports System.Collections.Generic Imports System.Collections.Generic
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Namespace Electrics Namespace Electrics
Public Class ElectricalConsumerList Public Class ElectricalConsumerList
...@@ -184,7 +185,7 @@ Namespace Electrics ...@@ -184,7 +185,7 @@ Namespace Electrics
End Get End Get
End Property 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 If Not _items.Contains(consumer) Then
_items.Add(consumer) _items.Add(consumer)
...@@ -195,7 +196,7 @@ Namespace Electrics ...@@ -195,7 +196,7 @@ Namespace Electrics
End If End If
End Sub 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 If _items.Contains(consumer) Then
...@@ -210,7 +211,7 @@ Namespace Electrics ...@@ -210,7 +211,7 @@ Namespace Electrics
Public Function GetTotalAverageDemandAmps(excludeOnBase As Boolean) As Ampere _ Public Function GetTotalAverageDemandAmps(excludeOnBase As Boolean) As Ampere _
Implements Electrics.IElectricalConsumerList.GetTotalAverageDemandAmps Implements IElectricalConsumerList.GetTotalAverageDemandAmps
Dim Amps As Ampere Dim Amps As Ampere
......
...@@ -10,6 +10,7 @@ ...@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Namespace Electrics Namespace Electrics
......
...@@ -10,6 +10,7 @@ ...@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.Electrics
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Namespace Electrics Namespace Electrics
......
Namespace Hvac Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac
Public Class EnvironmentalCondition Public Class EnvironmentalCondition
Implements IEnvironmentalCondition Implements IEnvironmentalCondition
......
Imports System.Globalization Imports System.Globalization
Imports System.IO Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
Public Class EnvironmentalConditionsMap Public Class EnvironmentalConditionsMap
......
...@@ -10,6 +10,7 @@ ...@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
Public Class HVACConstants Public Class HVACConstants
......
...@@ -10,6 +10,7 @@ ...@@ -10,6 +10,7 @@
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.IO Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
Public Class HVACSteadyStateModel Public Class HVACSteadyStateModel
......
...@@ -9,6 +9,7 @@ ...@@ -9,6 +9,7 @@
' '
' See the LICENSE.txt for the specific language governing permissions and limitations. ' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports VectoAuxiliaries.DownstreamModules.HVAC
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Imports VectoAuxiliaries.Electrics Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics Imports VectoAuxiliaries.Pneumatics
......
Imports System.Text Imports System.Text
Imports Microsoft.VisualBasic Imports Microsoft.VisualBasic
Imports VectoAuxiliaries.DownstreamModules.HVAC
Imports VectoAuxiliaries.Hvac Imports VectoAuxiliaries.Hvac
Namespace Hvac Namespace Hvac
......
Imports System.IO Imports System.IO
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
'Used by SSMHVAC Class 'Used by SSMHVAC Class
......
Imports System.Text Imports System.Text
Imports Microsoft.VisualBasic Imports Microsoft.VisualBasic
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
......
...@@ -5,6 +5,7 @@ Imports System.IO ...@@ -5,6 +5,7 @@ Imports System.IO
Imports System.Reflection Imports System.Reflection
Imports System.Text Imports System.Text
Imports TUGraz.VectoCommon.Utils Imports TUGraz.VectoCommon.Utils
Imports VectoAuxiliaries.DownstreamModules.HVAC
Namespace Hvac Namespace Hvac
'Used by frmHVACTool '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