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

Skip to content
Snippets Groups Projects
Commit 6f3ea0d1 authored by Terry Burns's avatar Terry Burns
Browse files

Continous Updates 

git-tfs-id: [http://tfs00.element.root.com:8080/tfs/TFSCollection]$/VECTO;C1611
parent 124995a8
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
VECTOAux/VectoAuxiliaries/Hvac/HVACMap.vaux
+ 17
− 33
View file @ 6f3ea0d1
Region,CountryCode,Season,MechD,ElecD
1,45,1,50,10
1,45,2,50,11
1,45,3,50,12
1,45,4,50,13
2,45,1,50,14
2,45,2,50,15
2,45,3,50,16
2,45,4,50,17
3,45,1,50,18
3,45,2,50,19
3,45,3,50,10
3,45,4,50,11
4,45,1,50,12
4,45,2,50,13
4,45,3,50,14
4,45,4,50,15
1,44,1,50,20
1,44,2,50,21
1,44,3,50,22
1,44,4,50,23
2,44,1,50,24
2,44,2,50,25
2,44,3,50,26
2,44,4,50,27
3,44,1,50,28
3,44,2,50,29
3,44,3,50,20
3,44,4,50,21
4,44,1,50,22
4,44,2,50,23
4,44,3,50,24
4,44,4,50,25
\ No newline at end of file
Region,Season,MechD,ElecD
1,1,50,10
1,2,50,11
1,3,50,12
1,4,50,13
2,1,50,14
2,2,50,15
2,3,50,16
2,4,50,17
3,1,50,18
3,2,50,19
3,3,50,10
3,4,50,11
4,1,50,12
4,2,50,13
4,3,50,14
4,4,50,15
\ No newline at end of file
VECTOAux/VectoAuxiliaries/Hvac/HVACMap.vb
+ 74
− 37
View file @ 6f3ea0d1
......@@ -29,8 +29,22 @@ Namespace Hvac
#End Region
'constants for .vaux headers
Private Const REGIONheader As String = "Region"
Private Const SEASONheader As String = "Season"
Private Const MECHDheader As String = "MechD"
Private Const ELECDheader As String = "ElecD"
'Private Fields
Public Property _mapHeaders As Dictionary(Of String, HVACMapParameter)
Private _mapDimensions As Integer
Private _mapPath As String
Private _mechanicalDemandLookupKW As Single
Private _electricalDemandLookupKW As Single
Private _map As List(Of String())
' Public Property _mapHeaders As Dictionary(Of String, HVACMapParameter)
Private _mapHeaders As Dictionary(Of String, HVACMapParameter)
Public Property MapHeaders As Dictionary(Of String, HVACMapParameter) Implements IHVACMap.MapHeaders
Get
Return Me._mapHeaders
......@@ -40,12 +54,6 @@ Namespace Hvac
End Set
End Property
Private _map As List(Of String())
Private _mapDimensions As Integer
Private _mapPath As String
Private _mechanicalDemandLookupKW As Single
Private _electricalDemandLookupKW As Single
'Constructor
''' <summary>
......@@ -109,6 +117,7 @@ Namespace Hvac
Return True
End Function
Private Function validateMap() As Boolean
'Lets make sure we have header and also data.
......@@ -139,10 +148,13 @@ Namespace Hvac
Return True
End Function
Public Sub InitialiseMapHeaders()
Private Sub InitialiseMapHeaders()
'Region, CountryCode, Season, MechD, ElecD
Dim region As New HVACMapParameter With {.Key = "Region",
'Not all properties in the HVACMapParameter POCO are initialised here
'As some can only be populated dynamically such as OrdinalPosition.
'Region
Dim region As New HVACMapParameter With {.Key = REGIONheader,
.Description = "Region Code",
.Max = 0,
.Min = 0,
......@@ -150,20 +162,10 @@ Namespace Hvac
.Notes = "",
.SystemType = GetType(Integer),
.SearchControlType = GetType(System.Windows.Forms.ComboBox)}
MapHeaders.Add(REGIONheader, region)
MapHeaders.Add("Region", region)
Dim countryCode As New HVACMapParameter With {.Key = "CountryCode",
.Description = "Country Code",
.Max = 0,
.Min = 0,
.Name = "Country Code",
.Notes = "",
.SystemType = GetType(Integer),
.SearchControlType = GetType(System.Windows.Forms.ComboBox)}
MapHeaders.Add("CountryCode", countryCode)
Dim season As New HVACMapParameter With {.Key = "Season",
'Season
Dim season As New HVACMapParameter With {.Key = SEASONheader,
.Description = "Season Code",
.Max = 0,
.Min = 0,
......@@ -171,10 +173,19 @@ Namespace Hvac
.Notes = "",
.SystemType = GetType(Integer),
.SearchControlType = GetType(System.Windows.Forms.ComboBox)}
MapHeaders.Add("Season", season)
Dim mechD As New HVACMapParameter With {.Key = "MechD",
MapHeaders.Add(SEASONheader, season)
'*************************************************************************************************
' Author.
'
' Add more inputs here - Ensure that these match exactly with the headers in the .vaux file.
'
' This could be done dynamically with a loadable configuration file, but takes more time
'
'************************************************************************************************
'MechD
Dim mechD As New HVACMapParameter With {.Key = MECHDheader,
.Description = "MechD",
.Max = 0,
.Min = 0,
......@@ -182,10 +193,11 @@ Namespace Hvac
.Notes = "",
.SystemType = GetType(Integer),
.IsOutput = True}
MapHeaders.Add(MECHDheader, mechD)
MapHeaders.Add("MechD", mechD)
Dim elecD As New HVACMapParameter With {.Key = "ElecD",
'ElecD
Dim elecD As New HVACMapParameter With {.Key = ELECDheader,
.Description = "ElecD",
.Max = 0,
.Min = 0,
......@@ -193,14 +205,12 @@ Namespace Hvac
.Notes = "",
.SystemType = GetType(Integer),
.IsOutput = True}
MapHeaders.Add("ElecD", elecD)
MapHeaders.Add(ELECDheader, elecD)
End Sub
'Map Enquiry Methods
'Public Map Enquiry Methods
Public Function GetMapHeaders() As Dictionary(Of String, HVACMapParameter) Implements IHVACMap.GetMapHeaders
Return MapHeaders
......@@ -260,15 +270,42 @@ Namespace Hvac
Return results
End Function
Public Function GetMechanicalDemand(region As Integer, season As Integer) As Integer Implements IHVACMap.GetMechanicalDemand
Return 1
End Function
Dim search As String() = {region.ToString(), season.ToString(), "", ""}
If (GetMapSubSet(search).Count <> 1) Then
Throw New Exception("Not Exactly one result returned for these inputs.")
End If
'get mechanical demand
Dim resultStr As String = GetMapSubSet(search).First()(_mapHeaders(MECHDheader).OrdinalPosition)
Dim resultInt As Integer = Integer.Parse(resultStr)
Return resultInt
End Function
Public Function GetElectricalDemand(region As Integer, season As Integer) As Integer Implements IHVACMap.GetElectricalDemand
Return 1
Dim search As String() = {region.ToString(), season.ToString(), "", ""}
If (GetMapSubSet(search).Count <> 1) Then
Throw New Exception("Not Exactly one result returned for these inputs.")
End If
'get electrical demand
Dim resultStr As String = GetMapSubSet(search).First()(_mapHeaders(ELECDheader).OrdinalPosition)
Dim resultInt As Integer = Integer.Parse(resultStr)
Return resultInt
End Function
End Class
End Namespace
\ No newline at end of file
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