easylinux/SignauxComplexes
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

V6.1

Browse Source
This commit is contained in:
f1iwq2
2023-06-24 13:56:11 +02:00
parent f8e7aad9aa
commit 045587e758
21 changed files with 6450 additions and 837 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
Unitplace.pas
View File

@@ -174,20 +174,6 @@ begin
if (prec<9990) then
begin
inc(it);
//detecteur[detect].adrTrain:=trains[i].adresse;
//event_detecteur(detect,true,trains[i].nom_train);
{
SauvefiltrageDet0:=filtrageDet0;
filtrageDet0:=0;
Affiche(intToSTR(prec)+' 1',clyellow);
event_detecteur(prec,true,NomTrain);
Affiche(intToSTR(prec)+' 0',clyellow);
event_detecteur(prec,false,NomTrain);
Affiche(intToSTR(detect)+' 1',clyellow);
event_detecteur(detect,true,NomTrain);
filtrageDet0:=SauveFiltrageDet0;
}
detecteur[detect].etat:=true;
detecteur[detect].AdrTrain:=trains[i].adresse;
@@ -366,7 +352,7 @@ begin
rouge:=false;
trouve:=true;
roulage:=true;
AdrTrain:=detecteur[AdrDet].AdrTrain;
AdrTrain:=detecteur[AdrDet].AdrTrain;
AdrFeu:=signal_detecteur(AdrDet); // trouve l'adresse du signal correspondant au détecteur
// si il y a un signal sur le détecteur de démarrage du train est il au rouge?