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

* Correction calc vehicle speed stability criteria

parent 677ac655
No related branches found
No related tags found
No related merge requests found
...@@ -492,8 +492,7 @@ Public Module main_calculation_call ...@@ -492,8 +492,7 @@ Public Module main_calculation_call
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i)) SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
Else Else
SecCount.AnzSec.Add(0) SecCount.AnzSec.Add(0)
'SecCount.vVeh.Add(0) SecCount.vVeh.Add(0)
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
End If End If
End If End If
...@@ -514,8 +513,7 @@ Public Module main_calculation_call ...@@ -514,8 +513,7 @@ Public Module main_calculation_call
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i)) SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
Else Else
SecCount.AnzSec.Add(0) SecCount.AnzSec.Add(0)
'SecCount.vVeh.Add(0) SecCount.vVeh.Add(0)
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
End If End If
Else Else
For j = i + 1 To ErgValues(tCompErg.SecID).Count - 1 For j = i + 1 To ErgValues(tCompErg.SecID).Count - 1
...@@ -528,8 +526,7 @@ Public Module main_calculation_call ...@@ -528,8 +526,7 @@ Public Module main_calculation_call
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i)) SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
Else Else
SecCount.AnzSec.Add(0) SecCount.AnzSec.Add(0)
'SecCount.vVeh.Add(0) SecCount.vVeh.Add(0)
SecCount.vVeh.Add(ErgValues(tCompErg.v_veh)(i))
End If End If
End If End If
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment