Code development platform for open source projects from the European Union institutions :large_blue_circle: EU Login authentication by SMS has been phased out. 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
Branches
Tags
No related merge requests found
...@@ -802,42 +802,42 @@ Public Module main_calculation_call ...@@ -802,42 +802,42 @@ Public Module main_calculation_call
' Ceck if enough sections are detected ' Ceck if enough sections are detected
If anzHS1 < Crt.segruns_min_head_HS Or anzHS2 < Crt.segruns_min_head_HS Then 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 End If
' Set to equal Values '' Set to equal Values
If anzHS1 <> anzHS2 Then 'If anzHS1 <> anzHS2 Then
anz = 0 ' anz = 0
If anzHS1 > anzHS2 Then ' If anzHS1 > anzHS2 Then
For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0 ' For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then ' If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
If ErgValuesComp(tCompErg.HeadID)(i) = 1 Then ' If ErgValuesComp(tCompErg.HeadID)(i) = 1 Then
If ErgValuesComp(tCompErg.used)(i) = 1 Then ' If ErgValuesComp(tCompErg.used)(i) = 1 Then
If anz >= anzHS2 Then ' If anz >= anzHS2 Then
ErgValuesComp(tCompErg.used)(i) = 0 ' ErgValuesComp(tCompErg.used)(i) = 0
Else ' Else
anz += 1 ' anz += 1
End If ' End If
End If ' End If
End If ' End If
End If ' End If
Next i ' Next i
Else ' Else
For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0 ' For i = 0 To ErgValuesComp(tCompErg.SecID).Count - 1.0
If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then ' If ErgValuesComp(tCompErg.RunID)(i) = IDHS Then
If ErgValuesComp(tCompErg.HeadID)(i) = 2 Then ' If ErgValuesComp(tCompErg.HeadID)(i) = 2 Then
If ErgValuesComp(tCompErg.used)(i) = 1 Then ' If ErgValuesComp(tCompErg.used)(i) = 1 Then
If anz >= anzHS1 Then ' If anz >= anzHS1 Then
ErgValuesComp(tCompErg.used)(i) = 0 ' ErgValuesComp(tCompErg.used)(i) = 0
Else ' Else
anz += 1 ' anz += 1
End If ' End If
End If ' End If
End If ' End If
End If ' End If
Next i ' Next i
End If ' End If
End If 'End If
End Sub End Sub
' Evaluate the Valid sections ' Evaluate the Valid sections
......
...@@ -13,7 +13,7 @@ Module declaration_public ...@@ -13,7 +13,7 @@ Module declaration_public
' Description of the form ' Description of the form
Public Const AppName As String = "Air Drag" ' Name of the programm 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 AppVers As String = "2.0.6-beta7" ' Version of the Programm
Public AppDate As String ' Date of the compilation of the programm Public AppDate As String ' Date of the compilation of the programm
' Control variables ' Control variables
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment