From d1545286db2aa29090c4111dffa38e5d126b653a Mon Sep 17 00:00:00 2001
From: Markus Quaritsch <markus.quaritsch@tugraz.at>
Date: Wed, 14 Sep 2016 14:38:47 +0200
Subject: [PATCH] removed check for sum of relative weights - this is done via
the validation mechanism now
---
VECTO/GUI/VehicleForm.vb | 7 -------
1 file changed, 7 deletions(-)
diff --git a/VECTO/GUI/VehicleForm.vb b/VECTO/GUI/VehicleForm.vb
index 58ddeeab12..b75b7ab57c 100644
--- a/VECTO/GUI/VehicleForm.vb
+++ b/VECTO/GUI/VehicleForm.vb
@@ -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)
--
GitLab