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

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 ...@@ -440,11 +440,9 @@ Public Class VehicleForm
veh.VehicleCategory = CType(CbCat.SelectedValue, VehicleCategory) 'CType(CbCat.SelectedIndex, tVehCat) veh.VehicleCategory = CType(CbCat.SelectedValue, VehicleCategory) 'CType(CbCat.SelectedIndex, tVehCat)
Dim axleShareCheck As Double
For Each entry As ListViewItem In LvRRC.Items For Each entry As ListViewItem In LvRRC.Items
Dim a0 = New Vehicle.Axle Dim a0 = New Vehicle.Axle
a0.Share = entry.SubItems(AxleTbl.RelativeLoad).Text.ToDouble(0) a0.Share = entry.SubItems(AxleTbl.RelativeLoad).Text.ToDouble(0)
axleShareCheck += a0.Share
a0.TwinTire = (entry.SubItems(AxleTbl.TwinTyres).Text = "yes") a0.TwinTire = (entry.SubItems(AxleTbl.TwinTyres).Text = "yes")
a0.RRC = entry.SubItems(AxleTbl.RRC).Text.ToDouble(0) a0.RRC = entry.SubItems(AxleTbl.RRC).Text.ToDouble(0)
a0.FzISO = entry.SubItems(AxleTbl.FzISO).Text.ToDouble(0) a0.FzISO = entry.SubItems(AxleTbl.FzISO).Text.ToDouble(0)
...@@ -457,11 +455,6 @@ Public Class VehicleForm ...@@ -457,11 +455,6 @@ Public Class VehicleForm
veh.PTOLossMap.Init(GetPath(file), tbPTOLossMap.Text) veh.PTOLossMap.Init(GetPath(file), tbPTOLossMap.Text)
veh.PTOCycle.Init(GetPath(file), tbPTOCycle.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.MassMax = TbMassMass.Text.ToDouble()
veh.MassExtra = TbMassExtra.Text.ToDouble(0) veh.MassExtra = TbMassExtra.Text.ToDouble(0)
veh.AxleConfiguration = CType(CbAxleConfig.SelectedValue, AxleConfiguration) 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