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

V1.0.1

Browse Source 
V1.0.1
This commit is contained in:
f1iwq2
2020-01-22 17:57:32 +01:00
parent 6646acab1b
commit 6917dbea90
2 changed files with 37 additions and 32 deletions
Download Patch File Download Diff File Expand all files Collapse all files

69
UnitPrinc.pas
View File

@@ -121,7 +121,7 @@ type
// L'oeilleton est cablé sur la sortie 4, il est géré directement par le décodeur. **/
// code des aspects des signaux
const
AF='Client TCP-IP CDM Rail ou USB - système LENZ - Version 1.0';
AF='Client TCP-IP CDM Rail ou USB - système LENZ - Version 1.01';
carre =0 ; carre_F=1;
semaphore =1 ; semaphore_F=2;
semaphore_cli =2 ; semaphore_cli_F=4;
@@ -189,7 +189,7 @@ TMA = (valide,devalide);
//Tparcours = record
// adresse : integer ;
// BType : char;
// end;
// end;
var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
AvecInitAiguillages,tempsCli,combine,NbreFeux,pasreponse,AdrDevie,precedent ,
@@ -197,7 +197,7 @@ var ancien_tablo_signalCplx,EtatsignalCplx : array[0..MaxAcc] of word;
Nbre_recu_cdm,NivDebug,Tempo_chgt_feux : integer;
dem_calcul_zone,Hors_tension2,traceSign,TraceZone,Ferme,ParUSB,parSocket,ackCdm,
NackCDM : boolean;
clignotant,test_leb,nack,Maj_feux_cours,avecMSCom : boolean;
clignotant,nack,Maj_feux_cours,avecMSCom : boolean;
N_event_det : integer; // index du dernier évènement (de 1 à 20)
event_det : array[1..20] of integer;
branche : array [1..100] of string;
@@ -533,7 +533,7 @@ begin
Parent:=Formprinc.ScrollBox1; // dire que l'image est dans la scrollBox1
Top:=(HtImg+espY+20)*((rang-1) div NbreImagePLigne); // détermine les dimensions
Left:=10+ (LargImg+5)*((rang-1) mod (NbreImagePLigne));
s:='Signal @'+IntToSTR(Feux[rang].adresse)+' Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+
s:='Decodeur='+intToSTR(feux[rang].Decodeur)+' Adresse détecteur associé='+intToSTR(feux[rang].Adr_det1)+
' Adresse élement suivant='+intToSTR(feux[rang].Adr_el_suiv1);
if feux[rang].Btype_suiv1=2 then s:=s+' (aig)';
if feux[rang].Btype_suiv1=5 then s:=s+' (aig bis)';
@@ -975,7 +975,6 @@ procedure envoi_directionCDF(adr : integer;code : integer);
begin
if (EtatSignalCplx[adr]<>code) then
begin
dessine_feu(adr);
if traceSign then Affiche('signal directionnel CDF: '+IntToSTR(adr)+' '+intToSTR(code),ClOrange);
case code of
@@ -1017,7 +1016,6 @@ begin
code:=feux[index].aspect; // aspect du feu;
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
dessine_feu(adresse);
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
aspect:=code_to_aspect(code);
if traceSign then affiche('Signal CDF: '+intToSTR(adresse)+' '+intToSTR(code),clOrange);
@@ -1060,7 +1058,6 @@ begin
if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE))
begin
dessine_feu(adr);
ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr];
codebin:=EtatSignalCplx[adr];
aspect:=code_to_aspect(codebin);
@@ -1102,6 +1099,7 @@ begin
if ((Combine=rappel_60) and (aspect=jaune)) then envoi5_LEB($10);
if ((Combine=rappel_60) and (aspect=jaune_cli)) then envoi5_LEB($11);
if ((Combine=ral_60) and (aspect=jaune_cli)) then envoi5_LEB($12);
dessine_feu(adr);
end;
end;
@@ -1180,7 +1178,6 @@ begin
if (ancien_tablo_signalCplx[adr]<>EtatSignalCplx[adr]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr];
dessine_feu(adr);
//if (tempo_ACC>0) then sleep(100); // les commandes entre 2 feux successives doivent être séparées au minimum de 100 ms
if traceSign then affiche('Signal LDT: '+IntToSTR(adr)+' '+intToSTR(mode)+' '+intTOSTR(codebin),clOrange);
if (aspect=semaphore) or (aspect=vert) or (aspect=carre) or (aspect=jaune) then mode:=1 else mode:=2;
@@ -1226,7 +1223,6 @@ begin
code:=etatsignalcplx[adresse];
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
dessine_feu(adresse);
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
aspect:=code_to_aspect(code); // transforme le motif de bits en numéro "code des aspects des signaux"
if (tracesign) then Affiche('Signal virtuel: '+intToSTR(adresse)+' Etat '+etatSign[aspect],clyellow);
@@ -1250,10 +1246,10 @@ begin
// affiche(s,ClYellow);
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
dessine_feu(adresse);
codebin:=EtatSignalCplx[adresse];
aspect:=code_to_aspect(codebin); // transforme le motifs de bits en numéro "code des aspects des signaux"
combineLoc:=combine; // copier dans variable locale
//dessine_feu(adresse);
if traceSign then
begin
s:='Signal bahn: ad'+IntToSTR(adresse)+'='+etatSign[aspect];
@@ -1279,6 +1275,7 @@ begin
begin
Sleep(40);
pilote_acc(adresse+semaphore,2,feu) ;
// dessine_feu(adresse);
end;
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
@@ -1294,6 +1291,7 @@ begin
sleep(40);
pilote_ACC(adresse+CombineLoc,2,feu) ;
end;
dessine_feu(adresse);
end;
end;
@@ -4469,9 +4467,7 @@ begin
end;
if (valeur and $3)=$1 then
begin
aiguillage[adraig].position:=1; // état aiguillage bas
aiguillage[adraig].position:=1; // état aiguillage bas
end;
if trace then begin s:='accessoire '+intToSTR(adraig)+'=1';Affiche(s,clYellow);end;
end;
@@ -4540,7 +4536,6 @@ var chaineInt,msg : string;
decode_chaine_retro:=chaineint;
end;
// procédure appellée après réception sur le port USB ou socket
// procédure appellée après réception sur le port USB ou socket
procedure interprete_reponse(chaine : string);
var chaineInt,msg : string;
@@ -4663,11 +4658,15 @@ begin
InputMode:=comInputModeBinary;
end;
//portCommOuvert:=false;
try
try
Formprinc.MSComm1.portopen:=true;
except
portCommOuvert:=false;
end;
end
else
begin
end;
portCommOuvert:=false;
Affiche('Port Com nul dans le fichier de configuration',clyellow);
end;
if portCommOuvert then affiche('port COM'+intToSTR(NumPort)+' ouvert',clGreen) else
@@ -4728,8 +4727,8 @@ begin
s:=chaine_CDM_Acc(23,2);
envoi_CDM(s);
s:=chaine_CDM_Acc(23,0);
envoi_CDM(s);
end;
envoi_CDM(s);
end;
end
else
begin
@@ -4779,8 +4778,6 @@ begin
FormDebug.Caption:=AF+' debug';
FormDebug.Show;
DebugOuv:=True;
if IsWow64Process then s:='OS 64 Bits'
if IsWow64Process then s:='OS 64 Bits'
else s:='OS 32 Bits';
@@ -4789,20 +4786,27 @@ begin
NivDebug:=0;
// lecture fichier de configuration
ferme:=false;
CDM_connecte:=false;
ferme:=false;
CDM_connecte:=false;
Nbre_recu_cdm:=0;
connecte_USB;
AffMem:=true;
// Initialisation de la comm socket LENZ
if AdresseIP<>'0' then
pasreponse:=0;
ClientSocketLenz.port:=port;
lit_config;
Nbre_recu_cdm:=0;
AffMem:=true;
connecte_CDM;
if CDM_connecte then // si CDM est connecté, on n'ouvre pas de liaison vers la centrale
begin
// sinon ouvrir socket vers la centrale
avecMScom:=false;
// Initialisation de la comm socket LENZ
if AdresseIP<>'0' then
begin
ClientSocketLenz.port:=port;
ClientSocketLenz.Address:=AdresseIP;
ClientSocketLenz.Open;
avecMSCom:=false;
end;
end
else
AvecMsCom:=True;
@@ -4812,7 +4816,7 @@ begin
// Initialisation des images des signaux
NbreImagePLigne:=Formprinc.ScrollBox1.Width div (largImg+5);
// ajoute une image dynamiquement
// ajoute une image dynamiquement
for i:=1 to NbreFeux do
begin
cree_image(i); // et initialisation tableaux signaux
@@ -4846,7 +4850,6 @@ begin
//maj_feu(201);
//etat_signal_suivant(201,1);
//Aiguille_deviee(462);
//i:=detecteur_suivant(23,false,538,false); // donne l'élément suivant de AdrPrec à AdrFonc et dans Bis si c'est un aig bis
//i:=detecteur_suivant(23,false,538,false); // donne l'élément suivant de AdrPrec à AdrFonc et dans Bis si c'est un aig bis
// i:=etat_signal_suivant(462,2);
//NivDebug:=3;
@@ -5094,6 +5097,8 @@ begin
begin
if Tempo_init>0 then dec(Tempo_init);
if Tempo_init=1 then
begin
Affiche('Positionnement des feux',clYellow);
if not(ferme) then envoi_signauxCplx; // initialisation des feux
if not(ferme) and (AvecInitAiguillages=1) then init_aiguillages else // initialisation des aiguillages
if not(ferme) then demande_etat_acc; // demande l'état des accessoires (position des aiguillages)