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

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

removing old vb project fiels

parent 56244f0c
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Showing
with 0 additions and 1594 deletions
VECTOAux/VectoAuxiliaries/AdvancedAuxiliaries.vb deleted 100644 → 0
+ 0
− 504
View file @ 56244f0c
' Copyright 2017 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.Runtime.CompilerServices
Imports VectoAuxiliaries.Electrics
Imports VectoAuxiliaries.Pneumatics
Imports VectoAuxiliaries.Hvac
Imports System.Windows.Forms
Imports DownstreamModules
Imports DownstreamModules.Electrics
Imports Electrics
Imports Hvac
Imports Pneumatics
Imports TUGraz.VectoCommon.Utils
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.Electrics
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.HVAC
Imports TUGraz.VectoCore.BusAuxiliaries.DownstreamModules.Impl.Pneumatics
Imports TUGraz.VectoCore.BusAuxiliaries.Interfaces
<Assembly: InternalsVisibleTo("VectoCore")>
''' <summary>
''' Main entry point for the advanced auxiliary module.
''' This class represents slide number 17 titled Calculations of Cycle FC accounting for Smart Auxiliaries.
''' </summary>
''' <remarks></remarks>
Public Class AdvancedAuxiliaries
Implements IAdvancedAuxiliaries
Protected Friend auxConfig As AuxiliaryConfig
'Supporting classes which may generate event messages
Private WithEvents compressorMap As ICompressorMap
Private WithEvents ssmTool As SSMTOOL
Private WithEvents ssmToolModule14 As SSMTOOL
Private WithEvents alternatorMap As IAlternatorMap
Protected Friend WithEvents actuationsMap As IPneumaticActuationsMAP
Private fuelMap As IFuelConsumptionMap
'Classes which compose the model.
Private WithEvents M0 As IM0_NonSmart_AlternatorsSetEfficiency
Private WithEvents M05 As IM0_5_SmartAlternatorSetEfficiency
Private WithEvents M1 As IM1_AverageHVACLoadDemand
Private WithEvents M2 As IM2_AverageElectricalLoadDemand
Private WithEvents M3 As IM3_AveragePneumaticLoadDemand
Private WithEvents M4 As IM4_AirCompressor
Private WithEvents M5 As IM5_SmartAlternatorSetGeneration
Private WithEvents M6 As IM6
Private WithEvents M7 As IM7
Private WithEvents M8 As IM8
Private WithEvents M9 As IM9
Private WithEvents M10 As IM10
Private WithEvents M11 As IM11
Private WithEvents M12 As IM12
Private WithEvents M13 As IM13
Private WithEvents M14 As IM14
Private vectoDirectory As String
Private hvacConstants As HVACConstants
'Event Handler top level bubble.
'Public Sub VectoEventHandler(ByRef sender As Object, message As String, messageType As AdvancedAuxiliaryMessageType) _
' Handles compressorMap.AuxiliaryEvent, alternatorMap.AuxiliaryEvent, ssmTool.Message, ssmToolModule14.Message
' If Signals.AuxiliaryEventReportingLevel <= messageType Then
' RaiseEvent AuxiliaryEvent(sender, message, messageType)
' End If
'End Sub
'Constructor
Public Sub New()
VectoInputs = New VectoInputs()
Signals = New Signals()
End Sub
'Initialise Model
Public Sub Initialise(IAuxPath As String, vectoFilePath As String)
Dim auxPath As String
vectoDirectory = fPATH(vectoFilePath)
auxPath = FilePathUtils.ResolveFilePath(vectoDirectory, IAuxPath)
hvacConstants = New HVACConstants(VectoInputs.FuelDensity)
Signals.CurrentCycleTimeInSeconds = 0
auxConfig = New AuxiliaryConfig(auxPath)
'Pass some signals from config to Signals. ( These are stored in the configuration but shared in the signal distribution around modules )
Signals.SmartElectrics = auxConfig.ElectricalUserInputsConfig.SmartElectrical
Signals.StoredEnergyEfficiency = auxConfig.ElectricalUserInputsConfig.StoredEnergyEfficiency
Signals.SmartPneumatics = auxConfig.PneumaticUserInputsConfig.SmartAirCompression
Signals.PneumaticOverrunUtilisation =
auxConfig.PneumaticAuxillariesConfig.OverrunUtilisationForCompressionFraction
alternatorMap = New CombinedAlternator(
FilePathUtils.ResolveFilePath(vectoDirectory, auxConfig.ElectricalUserInputsConfig.AlternatorMap), Signals)
actuationsMap = New PneumaticActuationsMAP(FilePathUtils.ResolveFilePath(vectoDirectory,
auxConfig.PneumaticUserInputsConfig.
ActuationsMap))
compressorMap = New CompressorMap(FilePathUtils.ResolveFilePath(vectoDirectory,
auxConfig.PneumaticUserInputsConfig.
CompressorMap))
compressorMap.Initialise()
'fuelMap = New cMAP()
'fuelMap.FilePath = FilePathUtils.ResolveFilePath(vectoDirectory, VectoInputs.FuelMap)
'If Not fuelMap.ReadFile() Then
' MessageBox.Show("Unable to read fuel map, aborting.")
' Return
'End If
'fuelMap.Triangulate()
fuelMap = VectoInputs.FuelMap
auxConfig.ElectricalUserInputsConfig.ElectricalConsumers.DoorDutyCycleFraction = GetDoorActuationTimeFraction()
'SSM HVAC
Dim ssmPath As String = FilePathUtils.ResolveFilePath(vectoDirectory, auxConfig.HvacUserInputsConfig.SSMFilePath)
Dim BusDatabase As String = FilePathUtils.ResolveFilePath(vectoDirectory,
auxConfig.HvacUserInputsConfig.BusDatabasePath)
ssmTool = New SSMTOOL(ssmPath, hvacConstants, auxConfig.HvacUserInputsConfig.SSMDisabled)
'This duplicate SSM is being created for use in M14 as its properties will be dynamically changed at that point
'to honour EngineWaste Heat Usage in Fueling calculations.
ssmToolModule14 = New SSMTOOL(ssmPath, hvacConstants, auxConfig.HvacUserInputsConfig.SSMDisabled)
If (ssmTool.Load(ssmPath) = False OrElse ssmToolModule14.Load(ssmPath) = False) Then
Throw New Exception(String.Format("Unable to load the ssmTOOL with file {0}", ssmPath))
End If
M0 = New M00Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
alternatorMap,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI (Of Volt),
Signals,
ssmTool)
Dim M05tmp As IM0_5_SmartAlternatorSetEfficiency = New M0_5Impl(M0,
auxConfig.ElectricalUserInputsConfig.
ElectricalConsumers,
alternatorMap,
auxConfig.ElectricalUserInputsConfig.
ResultCardIdle,
auxConfig.ElectricalUserInputsConfig.
ResultCardTraction,
auxConfig.ElectricalUserInputsConfig.
ResultCardOverrun, Signals)
M05 = M05tmp
M1 = New M01Impl(M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI (Of Volt),
Signals,
ssmTool)
M2 = New M02Impl(auxConfig.ElectricalUserInputsConfig.ElectricalConsumers,
M0,
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency,
auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI (Of Volt), Signals)
M3 = New M03Impl(auxConfig.PneumaticUserInputsConfig,
auxConfig.PneumaticAuxillariesConfig,
actuationsMap,
compressorMap,
VectoInputs.VehicleWeightKG,
VectoInputs.Cycle,
Signals)
M4 = New M04Impl(compressorMap, auxConfig.PneumaticUserInputsConfig.CompressorGearRatio,
auxConfig.PneumaticUserInputsConfig.CompressorGearEfficiency, Signals)
M5 = New M05Impl(M05tmp, auxConfig.ElectricalUserInputsConfig.PowerNetVoltage.SI (Of Volt),
auxConfig.ElectricalUserInputsConfig.AlternatorGearEfficiency)
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"
Public Property Signals As ISignals Implements IAdvancedAuxiliaries.Signals
Public Property VectoInputs As IVectoInputs Implements IAdvancedAuxiliaries.VectoInputs
Public Event AuxiliaryEvent(ByRef sender As Object, message As String, messageType As AdvancedAuxiliaryMessageType) _
Implements IAdvancedAuxiliaries.AuxiliaryEvent
Public Function Configure(filePath As String, vectoFilePath As String) As Boolean _
Implements IAdvancedAuxiliaries.Configure
Try
Dim frmAuxiliaryConfig As New frmAuxiliaryConfig(filePath, vectoFilePath)
frmAuxiliaryConfig.Show()
If frmAuxiliaryConfig.DialogResult <> DialogResult.OK Then
Return True
Else
Return False
End If
Catch ex As Exception
Return False
Return False
End Try
Return True
End Function
Public Function CycleStep(seconds As Second, ByRef message As String) As Boolean _
Implements IAdvancedAuxiliaries.CycleStep
Try
M9.CycleStep(seconds)
M10.CycleStep(seconds)
M11.CycleStep(seconds)
Signals.CurrentCycleTimeInSeconds += seconds.Value()
Catch ex As Exception
MessageBox.Show("Exception: " + ex.Message + " Stack Trace: " + ex.StackTrace)
Return False
End Try
Return True
End Function
Public ReadOnly Property Running As Boolean Implements IAdvancedAuxiliaries.Running
Get
Throw New NotImplementedException
End Get
End Property
Public Function RunStart(ByVal auxFilePath As String, ByVal vectoFilePath As String) As Boolean _
Implements IAdvancedAuxiliaries.RunStart
Try
Initialise(auxFilePath, vectoFilePath)
Catch ex As Exception
Return False
End Try
Return True
End Function
Public Function RunStop(ByRef message As String) As Boolean Implements IAdvancedAuxiliaries.RunStop
Throw New NotImplementedException
End Function
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 IAdvancedAuxiliaries.TotalFuelGRAMS
Get
If Not M13 Is Nothing Then
Return M14.TotalCycleFCGrams
Else
Return 0.SI (Of Kilogram)()
End If
End Get
End Property
Public ReadOnly Property TotalFuelLITRES As Liter Implements IAdvancedAuxiliaries.TotalFuelLITRES
Get
If Not M14 Is Nothing Then
Return M14.TotalCycleFCLitres
Else
Return 0.SI (Of Liter)()
End If
End Get
End Property
Public ReadOnly Property AuxiliaryName As String Implements IAdvancedAuxiliaries.AuxiliaryName
Get
Return "BusAuxiliaries"
End Get
End Property
Public ReadOnly Property AuxiliaryVersion As String Implements IAdvancedAuxiliaries.AuxiliaryVersion
Get
Return "Version 1.0 Beta"
End Get
End Property
#End Region
'Helpers
Private Function GetDoorActuationTimeFraction() As Single
Dim actuationsMap As PneumaticActuationsMAP =
New PneumaticActuationsMAP(FilePathUtils.ResolveFilePath(vectoDirectory,
auxConfig.PneumaticUserInputsConfig.
ActuationsMap))
Dim actuationsKey As ActuationsKey = New ActuationsKey("Park brake + 2 doors", VectoInputs.Cycle)
Dim numActuations As Single = actuationsMap.GetNumActuations(actuationsKey)
Dim secondsPerActuation As Single = auxConfig.ElectricalUserInputsConfig.DoorActuationTimeSecond
Dim doorDutyCycleFraction As Single = (numActuations*secondsPerActuation)/Signals.TotalCycleTimeSeconds
Return doorDutyCycleFraction
End Function
Public Function ValidateAAUXFile(filePath As String, ByRef message As String) As Boolean _
Implements IAdvancedAuxiliaries.ValidateAAUXFile
Dim validResult As Boolean = FilePathUtils.ValidateFilePath(filePath, ".aaux", message)
If Not validResult Then Return False
Return True
End Function
'Diagnostics outputs for testing purposes in Vecto.
'Eventually this can be removed or rendered non effective to reduce calculation load on the model.
Public ReadOnly Property AA_NonSmartAlternatorsEfficiency As Double _
Implements IAdvancedAuxiliaries.AA_NonSmartAlternatorsEfficiency
Get
Return M0.AlternatorsEfficiency
End Get
End Property
Public ReadOnly Property AA_SmartIdleCurrent_Amps As Ampere Implements IAdvancedAuxiliaries.AA_SmartIdleCurrent_Amps
Get
Return M05.SmartIdleCurrent
End Get
End Property
Public ReadOnly Property AA_SmartIdleAlternatorsEfficiency As Double _
Implements IAdvancedAuxiliaries.AA_SmartIdleAlternatorsEfficiency
Get
Return M05.AlternatorsEfficiencyIdleResultCard
End Get
End Property
Public ReadOnly Property AA_SmartTractionCurrent_Amps As Ampere _
Implements IAdvancedAuxiliaries.AA_SmartTractionCurrent_Amps
Get
Return M05.SmartTractionCurrent
End Get
End Property
Public ReadOnly Property AA_SmartTractionAlternatorEfficiency As Double _
Implements IAdvancedAuxiliaries.AA_SmartTractionAlternatorEfficiency
Get
Return M05.AlternatorsEfficiencyTractionOnResultCard
End Get
End Property
Public ReadOnly Property AA_SmartOverrunCurrent_Amps As Ampere _
Implements IAdvancedAuxiliaries.AA_SmartOverrunCurrent_Amps
Get
Return M05.SmartOverrunCurrent
End Get
End Property
Public ReadOnly Property AA_SmartOverrunAlternatorEfficiency As Double _
Implements IAdvancedAuxiliaries.AA_SmartOverrunAlternatorEfficiency
Get
Return M05.AlternatorsEfficiencyOverrunResultCard
End Get
End Property
Public ReadOnly Property AA_CompressorFlowRate_LitrePerSec As NormLiterPerSecond _
Implements IAdvancedAuxiliaries.AA_CompressorFlowRate_LitrePerSec
Get
Return M4.GetFlowRate
End Get
End Property
Public ReadOnly Property AA_OverrunFlag As Boolean Implements IAdvancedAuxiliaries.AA_OverrunFlag
Get
Return M6.OverrunFlag
End Get
End Property
Public ReadOnly Property AA_EngineIdleFlag As Integer? Implements IAdvancedAuxiliaries.AA_EngineIdleFlag
Get
Return _
If _
(
Signals.EngineSpeed <= _Signals.EngineIdleSpeed AndAlso
(Not Signals.ClutchEngaged OrElse Signals.InNeutral), 1, 0)
End Get
End Property
Public ReadOnly Property AA_CompressorFlag As Boolean Implements IAdvancedAuxiliaries.AA_CompressorFlag
Get
Return M8.CompressorFlag
End Get
End Property
Public ReadOnly Property AA_TotalCycleFC_Grams As Kilogram Implements IAdvancedAuxiliaries.AA_TotalCycleFC_Grams
Get
Return M14.TotalCycleFCGrams
End Get
End Property
Public ReadOnly Property AA_TotalCycleFC_Litres As Liter Implements IAdvancedAuxiliaries.AA_TotalCycleFC_Litres
Get
Return M14.TotalCycleFCLitres
End Get
End Property
Public ReadOnly Property AuxiliaryPowerAtCrankWatts As Watt _
Implements IAdvancedAuxiliaries.AuxiliaryPowerAtCrankWatts
Get
Return M8.AuxPowerAtCrankFromElectricalHVACAndPneumaticsAncillaries
End Get
End Property
Public ReadOnly Property AA_AveragePowerDemandCrankHVACMechanicals As Watt _
Implements IAdvancedAuxiliaries.AA_AveragePowerDemandCrankHVACMechanicals
Get
Return M1.AveragePowerDemandAtCrankFromHVACMechanicalsWatts()
End Get
End Property
Public ReadOnly Property AA_AveragePowerDemandCrankHVACElectricals As Watt _
Implements IAdvancedAuxiliaries.AA_AveragePowerDemandCrankHVACElectricals
Get
Return M1.AveragePowerDemandAtCrankFromHVACElectricsWatts()
End Get
End Property
Public ReadOnly Property AA_AveragePowerDemandCrankElectrics As Watt _
Implements IAdvancedAuxiliaries.AA_AveragePowerDemandCrankElectrics
Get
Return M2.GetAveragePowerAtCrankFromElectrics()
End Get
End Property
Public ReadOnly Property AA_AveragePowerDemandCrankPneumatics As Watt _
Implements IAdvancedAuxiliaries.AA_AveragePowerDemandCrankPneumatics
Get
Return M3.GetAveragePowerDemandAtCrankFromPneumatics()
End Get
End Property
Public ReadOnly Property AA_TotalCycleFuelConsumptionCompressorOff As Kilogram _
Implements IAdvancedAuxiliaries.AA_TotalCycleFuelConsumptionCompressorOff
Get
Return M9.TotalCycleFuelConsumptionCompressorOffContinuously
End Get
End Property
Public ReadOnly Property AA_TotalCycleFuelConsumptionCompressorOn As Kilogram _
Implements IAdvancedAuxiliaries.AA_TotalCycleFuelConsumptionCompressorOn
Get
Return M9.TotalCycleFuelConsumptionCompressorOnContinuously
End Get
End Property
End Class
VECTOAux/VectoAuxiliaries/AuxiliaryConfig.vb deleted 100644 → 0
+ 0
− 457
View file @ 56244f0c
This diff is collapsed.
VECTOAux/VectoAuxiliaries/FilePathUtils.vb deleted 100644 → 0
+ 0
− 144
View file @ 56244f0c
' Copyright 2017 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports System.IO
Public Class FilePathUtils
Public Shared Function ValidateFilePath(ByVal filePath As String, ByVal expectedExtension As String,
ByRef message As String) As Boolean
Dim illegalFileNameCharacters As Char() = {"<"c, ">"c, ":"c, """"c, "/"c, "\"c, "|"c, "?"c, "*"c, "~"c}
Dim detectedExtention As String = fileExtentionOnly(filePath)
Dim pathOnly As String = filePathOnly(filePath)
Dim fileNameOnlyWithExtension As String = fileNameOnly(filePath, True)
Dim fileNameOnlyNoExtension As String = fileNameOnly(filePath, False)
'Is this filePath empty
If filePath.Trim.Length = 0 OrElse Right(filePath, 1) = "\" Then
message = "A filename cannot be empty"
Return False
End If
'Extension Expected, but not match
If expectedExtension.Trim.Length > 0 Then
If String.Compare(expectedExtension, detectedExtention, True) <> 0 Then
message = String.Format("The file extension type does not match the expected type of {0}", expectedExtension)
Return False
End If
End If
'Extension Not Expected, but was supplied
If expectedExtension.Trim.Length > 0 Then
If detectedExtention.Length = 0 Then
message = String.Format("No Extension was supplied, but an extension of {0}, this is not required",
detectedExtention)
Return False
End If
End If
'Illegal characters
If Not fileNameLegal(fileNameOnlyWithExtension) Then
message = String.Format("The filenames have one or more illegal characters")
Return False
End If
message = "OK"
Return True
End Function
Public Shared Function fileNameLegal(fileName As String) As Boolean
Dim illegalFileNameCharacters As Char() = {"<"c, ">"c, ":"c, """"c, "/"c, "\"c, "|"c, "?"c, "*"c, "~"c}
'Illegal characters
For Each ch As Char In illegalFileNameCharacters
If fileName.Contains(ch) Then
Return False
End If
Next
Return True
End Function
Public Shared Function ResolveFilePath(vectoPath As String, filename As String) As String
'No Vecto Path supplied
If vectoPath = "" Then Return filename
'This is not relative
If filename.Contains(":\") Then
'Filepath is already absolute
Return filename
Else
Return Path.Combine(vectoPath, filename) 'vectoPath & filename
End If
End Function
''' <summary>
''' File name without the path "C:\temp\TEST.txt" >> "TEST.txt" oder "TEST"
''' </summary>
''' <param name="filePath"></param>
''' <param name="WithExtention"></param>
''' <returns>Return file portion of the path, with or without the extension</returns>
''' <remarks></remarks>
Public Shared Function fileNameOnly(ByVal filePath As String, ByVal WithExtention As Boolean) As String
Dim x As Integer
x = filePath.LastIndexOf("\") + 1
filePath = Microsoft.VisualBasic.Right(filePath, Microsoft.VisualBasic.Len(filePath) - x)
If Not WithExtention Then
x = filePath.LastIndexOf(".")
If x > 0 Then filePath = Microsoft.VisualBasic.Left(filePath, x)
End If
Return filePath
End Function
''' <summary>
''' Extension alone "C:\temp\TEST.txt" >> ".txt"
''' </summary>
''' <param name="filePath"></param>
''' <returns>Extension alone Including the dot IE .EXT</returns>
''' <remarks></remarks>
Public Shared Function fileExtentionOnly(ByVal filePath As String) As String
Dim x As Integer
x = filePath.LastIndexOf(".")
If x = -1 Then
Return ""
Else
Return Microsoft.VisualBasic.Right(filePath, Microsoft.VisualBasic.Len(filePath) - x)
End If
End Function
''' <summary>
''' File Path alone "C:\temp\TEST.txt" >> "C:\temp\"
''' "TEST.txt" >> ""
''' </summary>
''' <param name="filePath"></param>
''' <returns>Filepath without the extension</returns>
''' <remarks></remarks>
Public Shared Function filePathOnly(ByVal filePath As String) As String
Dim x As Integer
If filePath Is Nothing OrElse filePath.Length < 3 OrElse filePath.Substring(1, 2) <> ":\" Then Return ""
x = filePath.LastIndexOf("\")
Return Microsoft.VisualBasic.Left(filePath, x + 1)
End Function
End Class
VECTOAux/VectoAuxiliaries/IAuxiliaryConfig.vb deleted 100644 → 0
+ 0
− 39
View file @ 56244f0c
' Copyright 2017 European Union.
' Licensed under the EUPL (the 'Licence');
'
' * You may not use this work except in compliance with the Licence.
' * You may obtain a copy of the Licence at: http://ec.europa.eu/idabc/eupl
' * Unless required by applicable law or agreed to in writing,
' software distributed under the Licence is distributed on an "AS IS" basis,
' WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
'
' See the LICENSE.txt for the specific language governing permissions and limitations.
Imports TUGraz.VectoCore.BusAuxiliaries.Interfaces
Imports TUGraz.VectoCore.BusAuxiliaries.Interfaces.DownstreamModules.Electrics
Imports TUGraz.VectoCore.BusAuxiliaries.Interfaces.DownstreamModules.HVAC
Imports TUGraz.VectoCore.BusAuxiliaries.Interfaces.DownstreamModules.PneumaticSystem
Public Interface IAuxiliaryConfig
'Vecto
Property VectoInputs As IVectoInputs
'Electrical
property ElectricalUserInputsConfig As IElectricsUserInputsConfig
'Pneumatics
Property PneumaticUserInputsConfig As IPneumaticUserInputsConfig
Property PneumaticAuxillariesConfig As IPneumaticsAuxilliariesConfig
'Hvac
Property HvacUserInputsConfig As IHVACUserInputsConfig
Function ConfigValuesAreTheSameAs(other As AuxiliaryConfig) As Boolean
'Persistance Functions
Function Save(filePath As String) As Boolean
Function Load(filePath As String) As Boolean
End Interface
VECTOAux/VectoAuxiliaries/Images/Delete-32.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Images/Delete-32.png

1.4 KiB

VECTOAux/VectoAuxiliaries/Images/Delete.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Images/Delete.png

1.4 KiB

VECTOAux/VectoAuxiliaries/Images/Delete1.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Images/Delete1.png

1.4 KiB

VECTOAux/VectoAuxiliaries/Images/application-export-icon-small.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Images/application-export-icon-small.png

645 B

VECTOAux/VectoAuxiliaries/My Project/Application.Designer.vb deleted 100644 → 0
+ 0
− 13
View file @ 56244f0c
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
VECTOAux/VectoAuxiliaries/My Project/Application.myapp deleted 100644 → 0
+ 0
− 10
View file @ 56244f0c
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>false</MySubMain>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>1</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>
VECTOAux/VectoAuxiliaries/My Project/AssemblyInfo.vb deleted 100644 → 0
+ 0
− 34
View file @ 56244f0c
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("VectoAuxiliaries")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("VectoAuxiliaries")>
<Assembly: AssemblyCopyright("Copyright © 2014")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("5f94e0a5-9d00-4302-90a4-a73af909bb2c")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>
VECTOAux/VectoAuxiliaries/My Project/Resources.Designer.vb deleted 100644 → 0
+ 0
− 160
View file @ 56244f0c
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VectoAuxiliaries.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Blank() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Blank", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Delete() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Delete", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property desktop() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("desktop", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to EngineStopStart.
'''</summary>
Friend ReadOnly Property DriverModel_EngineStopStart() As String
Get
Return ResourceManager.GetString("DriverModel_EngineStopStart", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property favorites() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("favorites", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property file_history() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("file_history", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Info() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Info", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized string similar to MaxTCSpeed.
'''</summary>
Friend ReadOnly Property MaxTCSpeed() As String
Get
Return ResourceManager.GetString("MaxTCSpeed", resourceCulture)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property new_dir() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("new_dir", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Open_icon() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Open_icon", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
End Module
End Namespace
VECTOAux/VectoAuxiliaries/My Project/Resources.resx deleted 100644 → 0
+ 0
− 151
View file @ 56244f0c
<?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>
<assembly alias="System.Windows.Forms" name="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
<data name="Blank" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Blank.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Delete" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Images\Delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="desktop" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\desktop.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="favorites" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\favorites.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="file_history" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\file-history.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Info" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Info.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="new_dir" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\new_dir.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Open_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Open-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="MaxTCSpeed" xml:space="preserve">
<value>MaxTCSpeed</value>
</data>
<data name="DriverModel_EngineStopStart" xml:space="preserve">
<value>EngineStopStart</value>
</data>
</root>
\ No newline at end of file
VECTOAux/VectoAuxiliaries/My Project/Settings.Designer.vb deleted 100644 → 0
+ 0
− 73
View file @ 56244f0c
'------------------------------------------------------------------------------
' <auto-generated>
' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.42000
'
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "Funktion zum automatischen Speichern von My.Settings"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.VectoAuxiliaries.My.MySettings
Get
Return Global.VectoAuxiliaries.My.MySettings.Default
End Get
End Property
End Module
End Namespace
VECTOAux/VectoAuxiliaries/My Project/Settings.settings deleted 100644 → 0
+ 0
− 9
View file @ 56244f0c
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)"
UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>
\ No newline at end of file
VECTOAux/VectoAuxiliaries/Resources/Blank.bmp deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Resources/Blank.bmp

4.05 KiB

VECTOAux/VectoAuxiliaries/Resources/Image1.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Resources/Image1.png

233 B

VECTOAux/VectoAuxiliaries/Resources/Info.bmp deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Resources/Info.bmp

4.05 KiB

VECTOAux/VectoAuxiliaries/Resources/Open-icon.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Resources/Open-icon.png

786 B

VECTOAux/VectoAuxiliaries/Resources/desktop.png deleted 100644 → 0
+ 0
− 0
View file @ 56244f0c
VECTOAux/VectoAuxiliaries/Resources/desktop.png

642 B

0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment

For further information about the platform and support, please see https://code.europa.eu/info/about