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 357e39c3 authored by Martin Dippold's avatar Martin Dippold
Browse files

* New version number 

* Uneven numbers of datasets per heading in HS test now allowed
parent c880113e
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
CSE/Calculation/main_calculation_call.vb
+ 34
− 34
View file @ 357e39c3
......@@ -802,42 +802,42 @@ Public Module main_calculation_call
' Ceck if enough sections are detected
If anzHS1 < Crt.segruns_min_head_HS Or anzHS2 < Crt.segruns_min_head_HS Then
Throw New Exception(format("Number of valid high speed datasets({0}) too low!", anzHS1))
Throw New Exception(format("Number of valid high speed datasets too low! HeadDir1: {0}; HeadDir2: {1}.", anzHS1, anzHS2))
End If
' Set to equal Values
If anzHS1 <> anzHS2 Then
anz = 0
If anzHS1 > anzHS2 Then
For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
If ErgValuesComp(tCompErg.HeadID)(i) = 1 Then
If ErgValuesComp(tCompErg.used)(i) = 1 Then
If anz >= anzHS2 Then
ErgValuesComp(tCompErg.used)(i) = 0
Else
anz += 1
End If
End If
End If
End If
Next i
Else
For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
If ErgValuesComp(tCompErg.HeadID)(i) = 2 Then
If ErgValuesComp(tCompErg.used)(i) = 1 Then
If anz >= anzHS1 Then
ErgValuesComp(tCompErg.used)(i) = 0
Else
anz += 1
End If
End If
End If
End If
Next i
End If
End If
'' Set to equal Values
'If anzHS1 <> anzHS2 Then
' anz = 0
' If anzHS1 > anzHS2 Then
' For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
' If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
' If ErgValuesComp(tCompErg.HeadID)(i) = 1 Then
' If ErgValuesComp(tCompErg.used)(i) = 1 Then
' If anz >= anzHS2 Then
' ErgValuesComp(tCompErg.used)(i) = 0
' Else
' anz += 1
' End If
' End If
' End If
' End If
' Next i
' Else
' For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
' If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
' If ErgValuesComp(tCompErg.HeadID)(i) = 2 Then
' If ErgValuesComp(tCompErg.used)(i) = 1 Then
' If anz >= anzHS1 Then
' ErgValuesComp(tCompErg.used)(i) = 0
' Else
' anz += 1
' End If
' End If
' End If
' End If
' Next i
' End If
'End If
End Sub
' Evaluate the Valid sections
......
CSE/declaration_public.vb
+ 2
− 2
View file @ 357e39c3
......@@ -12,8 +12,8 @@
Module declaration_public
' Description of the form
Public Const AppName As String = "Air Drag" ' Name of the programm
Public Const AppVers As String = "2.0.6-beta6" ' Version of the Programm
Public Const AppName As String = "Air Drag" ' Name of the programm
Public Const AppVers As String = "2.0.6-beta7" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm
' Control variables
......
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