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

Skip to content
Snippets Groups Projects
Commit 4d7adcb6 authored by Markus Quaritsch's avatar Markus Quaritsch
Browse files

enable/disable PTO elements for different vehicle architectures

parent a56aa5a7
No related branches found
No related tags found
No related merge requests found
This diff is collapsed.
This diff is collapsed.
......@@ -540,7 +540,7 @@ Public Class VehicleForm
tpTorqueLimits.BindingContext = BindingContext
End If
lblNotePtoPEV_HEVS.Visible = False
Select Case vehType
Case VectoSimulationJobType.ConventionalVehicle
lblTitle.Text = "Conventional Vehicle"
......@@ -635,6 +635,11 @@ Public Class VehicleForm
'IHPC
tcVehicleComponents.TabPages.Remove(tbIHPC)
'PTO
gbPTODrive.Enabled = False
pnPtoMode1.Enabled = false
pnPtoMode3.Enabled = False
lblNotePtoPEV_HEVS.Visible = True
Case VectoSimulationJobType.BatteryElectricVehicle
lblTitle.Text = "Battery Electric Vehicle"
......@@ -667,6 +672,11 @@ Public Class VehicleForm
'IHPC
tcVehicleComponents.TabPages.Remove(tbIHPC)
'PTO
gbPTODrive.Enabled = False
pnPtoMode1.Enabled = false
pnPtoMode3.Enabled = False
lblNotePtoPEV_HEVS.Visible = true
Case VectoSimulationJobType.IEPC_E
lblTitle.Text = "IEPC-E Vehicle"
......@@ -674,11 +684,26 @@ Public Class VehicleForm
tcVehicleComponents.TabPages.Remove(tpGensetComponents)
tcVehicleComponents.TabPages.Remove(tbIHPC)
'Torque Limits ------------------------------------------------------------
gbEMTorqueLimits.Enabled = False
tcVehicleComponents.TabPages.Remove(tpTorqueLimits)
'PTO
gbPTO.Enabled = False
pnPTO.Enabled = false
Case VectoSimulationJobType.IEPC_S
lblTitle.Text = "IEPC-S Vehicle"
tcVehicleComponents.TabPages.Remove(tpElectricMachine)
tcVehicleComponents.TabPages.Remove(tbIHPC)
'Torque Limits ------------------------------------------------------------
gbEMTorqueLimits.Enabled = False
tcVehicleComponents.TabPages.Remove(tpTorqueLimits)
'PTO
gbPTO.Enabled = False
pnPTO.Enabled = false
Case VectoSimulationJobType.IHPC
lblTitle.Text = "IHPC Vehicle"
......@@ -686,6 +711,13 @@ Public Class VehicleForm
tcVehicleComponents.TabPages.Remove(tpGensetComponents)
tcVehicleComponents.TabPages.Remove(tpIEPC)
gbEMTorqueLimits.Enabled = False
gbPropulsionTorque.Enabled = False
'PTO
gbPTO.Enabled = False
pnPTO.Enabled = false
Case Else
If Not tcVehicleComponents.TabPages.Contains(tpElectricMachine) Then
tcVehicleComponents.TabPages.Insert(2, tpElectricMachine)
......
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