eu07/maszyna
16
0
Fork 0
mirror of https://github.com/MaSzyna-EU07/maszyna.git synced 2026-07-22 06:59:18 +02:00
Code Issues 123 Wiki Activity

Przygotowanie do wskaźnika zahamowania EP

Browse Source
This commit is contained in:
Królik Uszasty
2022-01-01 20:51:11 +01:00
parent 5775493b2d
commit aeca0e25ee
2 changed files with 11 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
McZapkie/MOVER.h
View File

@@ -1051,6 +1051,7 @@ public:
bool Battery = false; /*Czy sa zalaczone baterie*/ bool Battery = false; /*Czy sa zalaczone baterie*/
start_t BatteryStart = start_t::manual; start_t BatteryStart = start_t::manual;
bool EpFuse = true; /*Czy sa zalavzone baterie*/ bool EpFuse = true; /*Czy sa zalavzone baterie*/
double EpForce = 0.0; /*Poziom zadanej sily EP*/
bool Signalling = false; /*Czy jest zalaczona sygnalizacja hamowania ostatniego wagonu*/ bool Signalling = false; /*Czy jest zalaczona sygnalizacja hamowania ostatniego wagonu*/
bool Radio = false; /*Czy jest zalaczony radiotelefon*/ bool Radio = false; /*Czy jest zalaczony radiotelefon*/
float NominalBatteryVoltage = 0.f; /*Winger - baterie w elektrykach*/ float NominalBatteryVoltage = 0.f; /*Winger - baterie w elektrykach*/

21
McZapkie/Mover.cpp
View File

@@ -4004,17 +4004,16 @@ bool TMoverParameters::UniversalBrakeButton(int button, int state)
bool TMoverParameters::SwitchEPBrake(int state) bool TMoverParameters::SwitchEPBrake(int state)
{ {
bool OK; bool OK;
double temp;
OK = false; OK = false;
if ((BrakeHandle == TBrakeHandle::St113) && (CabOccupied != 0)) if ((BrakeHandle == TBrakeHandle::St113) && (CabOccupied != 0))
{ {
if (state > 0) if (state > 0)
temp = Handle->GetEP(); // TODO: przetlumaczyc EpForce = Handle->GetEP(); // TODO: przetlumaczyc
else else
temp = 0; EpForce = 0;
Hamulec->SetEPS(temp); Hamulec->SetEPS(EpForce);
SendCtrlToNext("Brake", temp, CabActive); SendCtrlToNext("Brake", EpForce, CabActive);
} }
// OK:=SetFlag(BrakeStatus,((2*State-1)*b_epused)); // OK:=SetFlag(BrakeStatus,((2*State-1)*b_epused));
// SendCtrlToNext('Brake',(state*(2*BrakeCtrlPos-1)),CabActive); // SendCtrlToNext('Brake',(state*(2*BrakeCtrlPos-1)),CabActive);
@@ -4572,25 +4571,25 @@ void TMoverParameters::UpdatePipePressure(double dt)
&& (DirActive != 0) && (DirActive != 0)
&& (EpFuse)) // tu powinien byc jeszcze bezpiecznik EP i baterie - && (EpFuse)) // tu powinien byc jeszcze bezpiecznik EP i baterie -
// temp = (Handle as TFVel6).GetCP // temp = (Handle as TFVel6).GetCP
temp = Handle->GetEP(); EpForce = Handle->GetEP();
else else
temp = 0.0; EpForce = 0.0;
DynamicBrakeEMUStatus = ( DynamicBrakeEMUStatus = (
temp > 0.001 ? EpForce > 0.001 ?
Power110vIsAvailable : Power110vIsAvailable :
true ); true );
double temp1 = temp; double temp1 = EpForce;
if ((DCEMUED_EP_max_Vel > 0.001) && (Vel > DCEMUED_EP_max_Vel) && (DynamicBrakeEMUStatus)) if ((DCEMUED_EP_max_Vel > 0.001) && (Vel > DCEMUED_EP_max_Vel) && (DynamicBrakeEMUStatus))
temp1 = 0; temp1 = 0;
if ((DCEMUED_EP_min_Im > 0.001) && (abs(Im) > DCEMUED_EP_min_Im) && (DynamicBrakeEMUStatus)) if ((DCEMUED_EP_min_Im > 0.001) && (abs(Im) > DCEMUED_EP_min_Im) && (DynamicBrakeEMUStatus))
temp1 = 0; temp1 = 0;
Hamulec->SetEPS(temp1); Hamulec->SetEPS(temp1);
TUHEX_StageActual = temp; TUHEX_StageActual = EpForce;
TUHEX_Active = TUHEX_StageActual > 0; TUHEX_Active = TUHEX_StageActual > 0;
// Ra 2014-11: na tym się wysypuje, ale nie wiem, w jakich warunkach // Ra 2014-11: na tym się wysypuje, ale nie wiem, w jakich warunkach
SendCtrlToNext("Brake", temp, CabActive); SendCtrlToNext("Brake", EpForce, CabActive);
} }
Pipe->Act(); Pipe->Act();