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

Skip to content
Snippets Groups Projects
Commit d76ac499 authored by Raphael LUZ's avatar Raphael LUZ
Browse files

* Renamed German variables 

* Added Developer Guide (including picture source)
parent 9657ab48
No related branches found
No related tags found
No related merge requests found
Expand all Hide whitespace changes
Inline Side-by-side
Showing
with 270 additions and 249 deletions
Developer Guide/Pics.pptx 0 → 100644
+ 0
− 0
View file @ d76ac499
File added
Developer Guide/VECTO Developer Guide.docx 0 → 100644
+ 0
− 0
View file @ d76ac499
File added
README.md
+ 1
− 0
View file @ d76ac499
......@@ -8,6 +8,7 @@ Before compiling you need to add references to:
### EXECUTE
The following directories/files must be provided in the application folder (e.g. ..\bin\Release):
- User Manual
- Declaration
- User Manual\Release Notes.pdf (provided with the VECTO release)
- vectolic.dll (should be placed there automatically when compiling)
- itextsharp.dll (should be placed there automatically when compiling)
......
VECTO/GUI/F_ENG.vb
+ 2
− 2
View file @ d76ac499
......@@ -548,7 +548,7 @@ Public Class F_ENG
Shiftpoly.SetGenericShiftPoly(FLD0, Me.TbNleerl.Text)
s = New System.Windows.Forms.DataVisualization.Charting.Series
s.Points.DataBindXY(Shiftpoly.gs_nUup, Shiftpoly.gs_Mup)
s.Points.DataBindXY(Shiftpoly.gs_nUup, Shiftpoly.gs_TqUp)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.DarkRed
......@@ -556,7 +556,7 @@ Public Class F_ENG
MyChart.Series.Add(s)
s = New System.Windows.Forms.DataVisualization.Charting.Series
s.Points.DataBindXY(Shiftpoly.gs_nUdown, Shiftpoly.gs_Mdown)
s.Points.DataBindXY(Shiftpoly.gs_nUdown, Shiftpoly.gs_TqDown)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.DarkRed
......
VECTO/GUI/F_VECTO.vb
+ 2
− 2
View file @ d76ac499
......@@ -1047,7 +1047,7 @@ lbDlog:
Shiftpoly.SetGenericShiftPoly(FLD0, ENG0.Nidle)
s = New System.Windows.Forms.DataVisualization.Charting.Series
s.Points.DataBindXY(Shiftpoly.gs_nUup, Shiftpoly.gs_Mup)
s.Points.DataBindXY(Shiftpoly.gs_nUup, Shiftpoly.gs_TqUp)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.DarkRed
......@@ -1055,7 +1055,7 @@ lbDlog:
MyChart.Series.Add(s)
s = New System.Windows.Forms.DataVisualization.Charting.Series
s.Points.DataBindXY(Shiftpoly.gs_nUdown, Shiftpoly.gs_Mdown)
s.Points.DataBindXY(Shiftpoly.gs_nUdown, Shiftpoly.gs_TqDown)
s.ChartType = DataVisualization.Charting.SeriesChartType.FastLine
s.BorderWidth = 2
s.Color = Color.DarkRed
......
VECTO/Input Files/cGBX.vb
+ 23
− 23
View file @ d76ac499
......@@ -393,7 +393,7 @@ Public Class cGBX
End Function
Public Function TCiterationV2(ByVal Gear As Integer, ByVal nUout As Single, ByVal PeOut As Single, ByVal t As Integer, Optional ByVal LastnU As Single? = Nothing, Optional ByVal LastPe As Single? = Nothing) As Boolean
Public Function TCiteration(ByVal Gear As Integer, ByVal nUout As Single, ByVal PeOut As Single, ByVal t As Integer, Optional ByVal LastnU As Single? = Nothing, Optional ByVal LastPe As Single? = Nothing) As Boolean
Dim i As Integer
Dim iDim As Integer
......@@ -1155,8 +1155,8 @@ lbInt:
Private Filepath As String
Public MyGear As Integer
Public gs_Mup As New List(Of Single)
Public gs_Mdown As New List(Of Single)
Public gs_TqUp As New List(Of Single)
Public gs_TqDown As New List(Of Single)
Public gs_nUup As New List(Of Single)
Public gs_nUdown As New List(Of Single)
Private gs_Dup As Integer = -1
......@@ -1194,8 +1194,8 @@ lbInt:
file.ReadLine()
'Clear lists
gs_Mup.Clear()
gs_Mdown.Clear()
gs_TqUp.Clear()
gs_TqDown.Clear()
gs_nUdown.Clear()
gs_nUup.Clear()
gs_Dup = -1
......@@ -1205,8 +1205,8 @@ lbInt:
Do While Not file.EndOfFile
line = file.ReadLine
gs_Dup += 1
gs_Mup.Add(CSng(line(0)))
gs_Mdown.Add(CSng(line(0)))
gs_TqUp.Add(CSng(line(0)))
gs_TqDown.Add(CSng(line(0)))
gs_nUdown.Add(CSng(line(1)))
gs_nUup.Add(CSng(line(2)))
Loop
......@@ -1232,8 +1232,8 @@ lbInt:
Dim Tmax As Single
'Clear lists
gs_Mup.Clear()
gs_Mdown.Clear()
gs_TqUp.Clear()
gs_TqDown.Clear()
gs_nUdown.Clear()
gs_nUup.Clear()
......@@ -1246,62 +1246,62 @@ lbInt:
gs_nUdown.Add(nidle)
gs_nUdown.Add((fld0.Npref + fld0.Nlo) / 2)
gs_Mdown.Add(0)
gs_Mdown.Add(Tmax * nidle / (fld0.Npref + fld0.Nlo - nidle))
gs_Mdown.Add(Tmax)
gs_TqDown.Add(0)
gs_TqDown.Add(Tmax * nidle / (fld0.Npref + fld0.Nlo - nidle))
gs_TqDown.Add(Tmax)
gs_nUup.Add(fld0.Npref)
gs_nUup.Add(fld0.Npref)
gs_nUup.Add(fld0.N95h)
gs_Mup.Add(0)
gs_Mup.Add(Tmax * (fld0.Npref - nidle) / (fld0.N95h - nidle))
gs_Mup.Add(Tmax)
gs_TqUp.Add(0)
gs_TqUp.Add(Tmax * (fld0.Npref - nidle) / (fld0.N95h - nidle))
gs_TqUp.Add(Tmax)
gs_Ddown = 2
gs_Dup = 2
End Sub
Public Function fGSnUdown(ByVal Md As Single) As Single
Public Function fGSnUdown(ByVal Tq As Single) As Single
Dim i As Int32
'Extrapolation for x < x(1)
If gs_Mdown(0) >= Md Then
If gs_TqDown(0) >= Tq Then
i = 1
GoTo lbInt
End If
i = 0
Do While gs_Mdown(i) < Md And i < gs_Ddown
Do While gs_TqDown(i) < Tq And i < gs_Ddown
i += 1
Loop
lbInt:
'Interpolation
Return (Md - gs_Mdown(i - 1)) * (gs_nUdown(i) - gs_nUdown(i - 1)) / (gs_Mdown(i) - gs_Mdown(i - 1)) + gs_nUdown(i - 1)
Return (Tq - gs_TqDown(i - 1)) * (gs_nUdown(i) - gs_nUdown(i - 1)) / (gs_TqDown(i) - gs_TqDown(i - 1)) + gs_nUdown(i - 1)
End Function
Public Function fGSnUup(ByVal Md As Single) As Single
Public Function fGSnUup(ByVal Tq As Single) As Single
Dim i As Int32
'Extrapolation for x < x(1)
If gs_Mup(0) >= Md Then
If gs_TqUp(0) >= Tq Then
i = 1
GoTo lbInt
End If
i = 0
Do While gs_Mup(i) < Md And i < gs_Dup
Do While gs_TqUp(i) < Tq And i < gs_Dup
i += 1
Loop
lbInt:
'Interpolation
Return (Md - gs_Mup(i - 1)) * (gs_nUup(i) - gs_nUup(i - 1)) / (gs_Mup(i) - gs_Mup(i - 1)) + gs_nUup(i - 1)
Return (Tq - gs_TqUp(i - 1)) * (gs_nUup(i) - gs_nUup(i - 1)) / (gs_TqUp(i) - gs_TqUp(i - 1)) + gs_nUup(i - 1)
End Function
......
VECTO/MODcalc/cMOD.vb
+ 4
− 5
View file @ d76ac499
......@@ -27,7 +27,7 @@ Public Class cMOD
Public Psum As List(Of Single)
Public Proll As List(Of Single)
Public Pstg As List(Of Single)
Public Pluft As List(Of Single)
Public Pair As List(Of Single)
Public Pa As List(Of Single)
Public Pbrake As List(Of Single)
Public PauxSum As List(Of Single)
......@@ -80,7 +80,7 @@ Public Class cMOD
Psum = New List(Of Single)
Pstg = New List(Of Single)
Pbrake = New List(Of Single)
Pluft = New List(Of Single)
Pair = New List(Of Single)
Pa = New List(Of Single)
PauxSum = New List(Of Single)
PlossGB = New List(Of Single)
......@@ -132,7 +132,7 @@ Public Class cMOD
Proll = Nothing
Psum = Nothing
Pstg = Nothing
Pluft = Nothing
Pair = Nothing
Pa = Nothing
Pbrake = Nothing
PauxSum = Nothing
......@@ -266,7 +266,6 @@ Public Class cMOD
'Zykluslänge definieren: Gleiche Länge wie Zyklus (nicht reduziert weil keine "Zwischensekunden") |@@| Define Cycle-length: Same length as Cycle (not reduced because no "interim seconds")
tDim = DRI.tDim
'Here the actual cycle is read:
Vh.EngCylceInit()
'Revolutions-setting
......@@ -669,7 +668,7 @@ Public Class cMOD
s.Append(Sepp & .Proll(t))
'Drag
s.Append(Sepp & .Pluft(t))
s.Append(Sepp & .Pair(t))
'Slope ..
s.Append(Sepp & .Pstg(t))
......
VECTO/MODcalc/cPower.vb
+ 230
− 208
View file @ d76ac499
This diff is collapsed.
VECTO/M_MAIN.vb
+ 3
− 3
View file @ d76ac499
......@@ -508,7 +508,7 @@ lbAusg:
End If
'VSUM Output (first Calculation - Initialization & Header)
If Not VSUM.AusgVSUM(iJob * (CyclesDim + 1) + iCycle + 1, fFILE(GenFile, True), fFILE(CurrentCycleFile, True), CyclAbrtedByErr) Then GoTo lbErrInJobLoop
If Not VSUM.WriteVSUM(iJob * (CyclesDim + 1) + iCycle + 1, fFILE(GenFile, True), fFILE(CurrentCycleFile, True), CyclAbrtedByErr) Then GoTo lbErrInJobLoop
'Data Cleanup
MODdata.CleanUp()
......@@ -549,9 +549,9 @@ lbNextJob:
If JobAbortedByErr Then
If CInt(iJob * (CyclesDim + 1) + 1) = CInt((iJob + 1) * (CyclesDim + 1)) Then
VSUM.AusgVSUM(((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(GenFile, True), "-", True)
VSUM.WriteVSUM(((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(GenFile, True), "-", True)
Else
VSUM.AusgVSUM((iJob * (CyclesDim + 1) + 1).ToString & ".." & ((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(GenFile, True), "-", True)
VSUM.WriteVSUM((iJob * (CyclesDim + 1) + 1).ToString & ".." & ((iJob + 1) * (CyclesDim + 1)).ToString, fFILE(GenFile, True), "-", True)
End If
End If
......
VECTO/My Project/AssemblyInfo.vb
+ 2
− 2
View file @ d76ac499
......@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' by entering "*" in them:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.0.1.0")>
<Assembly: AssemblyFileVersion("2.0.1.0")>
<Assembly: AssemblyVersion("2.0.3.0")>
<Assembly: AssemblyFileVersion("2.0.3.0")>
VECTO/VECTO_Global.vb
+ 1
− 1
View file @ d76ac499
......@@ -12,7 +12,7 @@ Imports System.Collections.Generic
Module VECTO_Global
Public Const VECTOvers As String = "2.0.3-beta0"
Public Const VECTOvers As String = "2.0.3-beta1"
Public Const LicSigAppCode As String = "VECTO-Release-0093C61E0A2E4BFA9A7ED7E729C56AE4"
Public MyAppPath As String
Public MyConfPath As String
......
VECTO/VECTO_Types.vb
+ 0
− 1
View file @ d76ac499
......@@ -41,7 +41,6 @@ Public Enum tCalcResult
Err
Abort
Done
Undef
End Enum
Public Enum tJobStatus
......
VECTO/cVSUM.vb
+ 2
− 2
View file @ d76ac499
......@@ -193,7 +193,7 @@ Class cVSUM
'Eair
sum = 0
For t = 0 To t1
sum += MODdata.Pluft(t)
sum += MODdata.Pair(t)
Next
VSUMentries("\\Eair").ValueString = (-sum / 3600)
......@@ -310,7 +310,7 @@ Class cVSUM
End Function
Public Function AusgVSUM(ByVal NrOfRunStr As String, ByVal JobFilename As String, ByVal CycleFilename As String, ByVal AbortedByError As Boolean) As Boolean
Public Function WriteVSUM(ByVal NrOfRunStr As String, ByVal JobFilename As String, ByVal CycleFilename As String, ByVal AbortedByError As Boolean) As Boolean
Dim str As String
Dim MsgSrc As String
Dim dic As Dictionary(Of String, Object)
......
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