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 d1545286 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

removed check for sum of relative weights - this is done via the validation mechanism now

parent 90063317
No related branches found
No related tags found
No related merge requests found
......@@ -440,11 +440,9 @@ Public Class VehicleForm
veh.VehicleCategory = CType(CbCat.SelectedValue, VehicleCategory) 'CType(CbCat.SelectedIndex, tVehCat)
Dim axleShareCheck As Double
For Each entry As ListViewItem In LvRRC.Items
Dim a0 = New Vehicle.Axle
a0.Share = entry.SubItems(AxleTbl.RelativeLoad).Text.ToDouble(0)
axleShareCheck += a0.Share
a0.TwinTire = (entry.SubItems(AxleTbl.TwinTyres).Text = "yes")
a0.RRC = entry.SubItems(AxleTbl.RRC).Text.ToDouble(0)
a0.FzISO = entry.SubItems(AxleTbl.FzISO).Text.ToDouble(0)
......@@ -457,11 +455,6 @@ Public Class VehicleForm
veh.PTOLossMap.Init(GetPath(file), tbPTOLossMap.Text)
veh.PTOCycle.Init(GetPath(file), tbPTOCycle.Text)
If Not Cfg.DeclMode AndAlso Math.Abs(axleShareCheck - 1) > 0.000001 Then
MsgBox("Relative axle loads must sum up to 1.0. Current value: " & axleShareCheck, MsgBoxStyle.Critical)
Return False
End If
veh.MassMax = TbMassMass.Text.ToDouble()
veh.MassExtra = TbMassExtra.Text.ToDouble(0)
veh.AxleConfiguration = CType(CbAxleConfig.SelectedValue, AxleConfiguration)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment