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

V3.62

Browse Source
This commit is contained in:
f1iwq2
2022-02-15 17:41:12 +01:00
parent 864a101dc5
commit e54910f5c0
16 changed files with 215 additions and 276 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
Notice d'utilisation des signaux_complexes_GL_V3.6.pdf → Notice d'utilisation des signaux_complexes_GL_V3.62.pdf
View File

Binary file not shown.

BIN
UnitConfig.dcu
View File

Binary file not shown.

4
UnitConfig.dfm
View File

@@ -1578,7 +1578,7 @@ object FormConfig: TFormConfig
Top = 8
Width = 633
Height = 481
ActivePage = TabSheetSig
ActivePage = TabSheetAig
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
@@ -2886,7 +2886,7 @@ object FormConfig: TFormConfig
Top = 48
Width = 129
Height = 21
ItemHeight = 13
ItemHeight = 0
TabOrder = 1
OnChange = ComboBoxDecChange
end

29
UnitConfig.pas
View File

@@ -1,4 +1,4 @@
unit UnitConfig;
Unit UnitConfig;
interface
@@ -362,13 +362,13 @@ Tempo_Feu_ch='Tempo_Feu';
NOTIF_VERSION_ch='NOTIF_VERSION';
verif_version_ch='verif_version';
Fonte_ch='Fonte';
Raz_signaux_ch='RazSignaux';
// variables de config
// sections de config
section_aig_ch='[section_aig]';
section_sig_ch='[section_sig]';
section_act_ch='[section_act]';
section_branches_ch='[section_branches]';
Raz_signaux_ch='RazSignaux';
var
FormConfig: TFormConfig;
@@ -403,8 +403,7 @@ uses UnitDebug,UnitTCO, UnitSR;
function envoi_CDM(s : string) : boolean;
var temps : integer;
begin
if SocketCDM_connecte=false then begin envoi_CDM:=false;exit;end;
//Affiche('Envoi à CDM rail',clRed);Affiche(s,ClGreen);
if CDM_connecte=false then begin envoi_CDM:=false;exit;end;
if traceTrames then afficheDebug(s,clLime);
Formprinc.ClientSocketCDM.Socket.SendText(s);
// attend l'ack
@@ -502,9 +501,9 @@ begin
Sleep(50);
inc(i);
Application.processMessages;
until (i>10) or SocketCDM_connecte ;
until (i>10) or CDM_connecte ;
//if i>10 then affiche('Timeout',clred);
if not(SocketCDM_connecte) then begin Affiche('Socket CDM non connecté',clOrange);exit;end;
if not(CDM_connecte) then begin Affiche('Socket CDM non connecté',clOrange);exit;end;
// connexion à CDM rail
recuCDM:='';
@@ -683,16 +682,18 @@ begin
end;
end;
//
function TypeElAIg_to_char(adr : integer;c : char) : string;
var s: string;
begin
case c of
'Z',#0 : s:='détecteur '+IntToSTR(adr);
'P' : s:='pointe de l''aiguillage '+IntToSTR(adr);
'S' : s:='position déviée de l''aiguillage '+IntToSTR(adr);
'D' : s:='position droite de l''aiguillage '+IntToSTR(adr);
else s:='Erreur';
if (adr=0) and (c<>'D') and (c<>'S') and (c<>'P') then s:='Buttoir';
if adr<>0 then
begin
if c='P' then s:='pointe de l''aiguillage '+IntToSTR(adr) else
if c='S' then s:='position déviée de l''aiguillage '+IntToSTR(adr) else
if c='D' then s:='position droite de l''aiguillage '+IntToSTR(adr) else
if (c<>'D') and (c<>'S') and (c<>'P') then s:='détecteur '+IntToSTR(adr) else
s:='erreur';
end;
TypeElAIg_to_char:=s;
end;

BIN
UnitConfigTCO.dcu
View File

Binary file not shown.

BIN
UnitPilote.dcu
View File

Binary file not shown.

4
UnitPilote.dfm
View File

@@ -4,7 +4,7 @@ object FormPilote: TFormPilote
BorderStyle = bsDialog
Caption = 'Pilotage'
ClientHeight = 350
ClientWidth = 346
ClientWidth = 331
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@@ -19,7 +19,7 @@ object FormPilote: TFormPilote
TextHeight = 13
object LabelTitrePilote: TLabel
Left = 8
Top = 0
Top = 8
Width = 249
Height = 34
Caption = 'Pilotage du signal'

5
UnitPilote.pas
View File

@@ -1,6 +1,6 @@
unit UnitPilote;
// cet unité utilise stocke l'état du signal de pilotage dans l'index 0 du tableau EtatSignalcplx
// cette unité stocke l'état du signal de pilotage dans l'index 0 du tableau EtatSignalcplx
interface
@@ -9,7 +9,7 @@ uses
Dialogs, ExtCtrls, StdCtrls, UnitPrinc;
type
TFormPilote = class(TForm)
TFormPilote = class(TForm)
LabelTitrePilote: TLabel;
ImagePilote: TImage;
GroupBox1: TGroupBox;
@@ -266,4 +266,5 @@ begin
LabelDec.Caption:=decodeur[d];
end;
end.

BIN
UnitPrinc.dcu
View File

Binary file not shown.

5
UnitPrinc.dfm
View File

@@ -1,6 +1,6 @@
object FormPrinc: TFormPrinc
Left = 24
Top = 203
Left = 15
Top = 195
Width = 1213
Height = 664
Caption = 'Client TCP-IP CDM Rail ou USB - syst'#232'me LENZ'
@@ -1538,7 +1538,6 @@ object FormPrinc: TFormPrinc
Width = 25
Height = 21
TabOrder = 1
OnChange = EditAdrTrainChange
end
object EditVitesse: TEdit
Left = 80

403
UnitPrinc.pas
View File

@@ -3,7 +3,7 @@ Unit UnitPrinc;
programme signaux complexes Graphique Lenz
delphi 7 + activeX Tmscomm + clientSocket
********************************************
13/2/2022 11h00
15/2/2022 10h00
note sur le pilotage des accessoires:
raquette octet sortie
+ 2 = aiguillage droit = sortie 2 de l'adresse d'accessoire
@@ -171,7 +171,6 @@ type
procedure FenRichMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ButtonLocCVClick(Sender: TObject);
procedure EditAdrTrainChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure ComboTrainsChange(Sender: TObject);
private
@@ -311,7 +310,7 @@ var
CDMhd : THandle;
FormPrinc: TFormPrinc;
ack,portCommOuvert,traceTrames,AffMem,AfficheDet,CDM_connecte,SocketCDM_connecte,
ack,portCommOuvert,traceTrames,AffMem,AfficheDet,CDM_connecte,
Raz_Acc_signaux,AvecInit,AvecTCO,terminal,Srvc_Aig,Srvc_Det,Srvc_Act,
Srvc_PosTrain,Srvc_Sig,debugtrames : boolean;
tablo : array of byte; // tableau rx usb
@@ -1863,7 +1862,6 @@ var
begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal CDF: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -1894,7 +1892,6 @@ var
begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
//code_to_aspect(code,aspect,combine);
s:='Signal SR: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -1953,7 +1950,6 @@ begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal LEB: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2025,18 +2021,17 @@ var valeur : integer ;
aspect,combine,code : word;
s : string;
begin
//index:=Index_feu(adresse); // tranforme l'adresse du feu en index tableau
//code:=feux[index].aspect; // aspect du feu;
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal NMRA: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
if traceSign then affiche(s,clOrange);
if Affsignal then afficheDebug(s,clOrange);
// attention: impossible d'envoyer des octets en XpressNet!!
// NMRA ne focntionnera pas..
case aspect of
carre : valeur:=0;
semaphore : valeur:=1;
@@ -2076,7 +2071,6 @@ begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal Unisemaf: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2089,8 +2083,7 @@ begin
//Affiche('Adresse='+intToSTR(Adresse)+' code='+intToSTR(code)+' combine'+intToSTR(combine),clyellow);
if modele=2 then // 2 feux
begin
if aspect=blanc then pilote_acc(adresse,1,feu);
if aspect=blanc_cli then pilote_acc(adresse,1,feu);
if (aspect=blanc) or (aspect=blanc_cli) then pilote_acc(adresse,1,feu);
if aspect=violet then pilote_acc(adresse,2,feu);
end;
@@ -2109,55 +2102,41 @@ begin
if modele=4 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,1,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,1,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,1,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
end;
// 51=carré + blanc
if modele=51 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
blanc : pilote_acc(adresse+2,1,feu);
blanc_cli : pilote_acc(adresse+2,1,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+2,1,feu);
end;
end;
// 52=VJR + blanc + violet
if modele=52 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+1,2,feu);
violet : pilote_acc(adresse+2,1,feu);
blanc : pilote_acc(adresse+1,2,feu);
blanc_cli : pilote_acc(adresse+1,2,feu);
end;
end;
// 71=VJR + ralentissement 30
if modele=71 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
vert,vert_cli : pilote_acc(adresse+1,1,feu);
jaune,jaune_cli : pilote_acc(adresse,1,feu);
semaphore,semaphore_cli: pilote_acc(adresse,2,feu);
end;
if combine=ral_30 then pilote_acc(adresse+1,2,feu);
end;
@@ -2165,191 +2144,151 @@ begin
if modele=72 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=ral_30 then pilote_acc(adresse+2,1,feu); //pilote_acc(adresse+2,2,feu); impossible en lenz
end;
// 73=VJR + carré + ralentissement 60
if modele=73 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=ral_60 then pilote_acc(adresse+2,1,feu);
if combine=ral_60 then pilote_acc(adresse+2,1,feu); //pilote_acc(adresse+2,2,feu); impossible en lenz
end;
// 91=VJR + carré + rappel 30
if modele=91 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=rappel_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_30 then pilote_acc(adresse+2,1,feu);//pilote_acc(adresse+2,2,feu); impossible en lenz
end;
// 92=VJR + carré + rappel 60
if modele=92 then
begin
case aspect of
vert : pilote_acc(adresse,1,feu);
vert_cli : pilote_acc(adresse,1,feu);
jaune : pilote_acc(adresse,2,feu);
jaune_cli : pilote_acc(adresse,2,feu);
semaphore : pilote_acc(adresse+1,1,feu);
semaphore_cli : pilote_acc(adresse+1,1,feu);
carre : pilote_acc(adresse+1,2,feu);
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+2,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+2,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=rappel_60 then pilote_acc(adresse+2,1,feu);
if combine=rappel_60 then pilote_acc(adresse+2,1,feu);//pilote_acc(adresse+2,2,feu); impossible en lenz
end;
// 93=VJR + carré + ral30 + rappel 30
if modele=93 then
begin
if combine=16 then //pas de sig combinée
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=carre then pilote_acc(adresse+1,2,feu);
end;
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_30 then pilote_acc(adresse+2,2,feu);
if (aspect=jaune) and (combine=rappel_30) then pilote_acc(adresse+3,1,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,1,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,1,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,1,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,1,feu);end;
if combine=rappel_30 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_30) then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
end;
// 94=VJR + carré + ral60 + rappel60
if modele=94 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=carre then pilote_acc(adresse+1,2,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,1,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,1,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,1,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=ral_60 then pilote_acc(adresse+2,1,feu);
if combine=rappel_60 then pilote_acc(adresse+2,2,feu);
if (aspect=jaune) and (combine=rappel_60) then pilote_acc(adresse+3,1,feu);
if combine=ral_60 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,1,feu);end;
if combine=rappel_60 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_60) then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
end;
// 95=VJR + carré + ral30 + rappel 60
if modele=95 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=carre then pilote_acc(adresse+1,2,feu);
end;
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_60 then pilote_acc(adresse+2,2,feu);
if (aspect=jaune) and (combine=rappel_60) then pilote_acc(adresse+3,1,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,1,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,1,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,1,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,1,feu);end;
if combine=rappel_60 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_60)
then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,1,feu);end;
end;
// 96=VJR + blanc + carré + ral30 + rappel30
if modele=96 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=carre then pilote_acc(adresse+1,2,feu);
if aspect=blanc then pilote_acc(adresse+3,2,feu);
if aspect=blanc_cli then pilote_acc(adresse+3,2,feu);
end;
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_30 then pilote_acc(adresse+2,2,feu);
if (aspect=jaune) and (combine=rappel_30) then pilote_acc(adresse+3,1,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+3,1,feu);
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,2,feu);end;
if combine=rappel_30 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_30)
then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
end;
// 97=VJR + blanc + carré + ral30 + rappel60
if modele=97 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=carre then pilote_acc(adresse+1,2,feu);
if aspect=blanc then pilote_acc(adresse+3,2,feu);
if aspect=blanc_cli then pilote_acc(adresse+3,2,feu);
end;
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_60 then pilote_acc(adresse+2,2,feu);
if (aspect=jaune) and (combine=rappel_60) then pilote_acc(adresse+3,1,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,2,feu);end;
carre : begin pilote_acc(adresse,2,feu);pilote_acc(adresse+1,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+3,1,feu);
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,2,feu);end;
if combine=rappel_60 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_60)
then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
end;
// 98=VJR + blanc + violet + ral30 + rappel30
if modele=98 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=violet then pilote_acc(adresse+1,2,feu);
if aspect=blanc then pilote_acc(adresse+3,2,feu);
if aspect=blanc_cli then pilote_acc(adresse+3,2,feu);
end;
if (aspect=jaune) and (combine=rappel_30) then pilote_acc(adresse+3,1,feu);
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_30 then pilote_acc(adresse+2,2,feu);
end;
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+1,2,feu);
violet : pilote_acc(adresse+3,1,feu);
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,2,feu);end;
if combine=rappel_30 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_30)
then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
end;
// 99=VJR + blanc + violet + ral30 + rappel60
if modele=99 then
begin
if combine=16 then
begin
if aspect=vert then pilote_acc(adresse,1,feu);
if aspect=vert_cli then pilote_acc(adresse,1,feu);
if aspect=jaune then pilote_acc(adresse,2,feu);
if aspect=jaune_cli then pilote_acc(adresse,2,feu);
if aspect=semaphore then pilote_acc(adresse+1,1,feu);
if aspect=semaphore_cli then pilote_acc(adresse+1,1,feu);
if aspect=violet then pilote_acc(adresse+1,2,feu);
if aspect=blanc then pilote_acc(adresse+3,2,feu);
if aspect=blanc_cli then pilote_acc(adresse+3,2,feu);
end;
if (aspect=jaune) and (combine=rappel_60) then pilote_acc(adresse+3,1,feu);
if combine=ral_30 then pilote_acc(adresse+2,1,feu);
if combine=rappel_60 then pilote_acc(adresse+2,2,feu);
case aspect of
vert,vert_cli : begin pilote_acc(adresse+1,1,feu);pilote_acc(adresse+3,2,feu);end;
jaune,jaune_cli : begin pilote_acc(adresse,1,feu);pilote_acc(adresse+3,2,feu);end;
semaphore,semaphore_cli: begin pilote_acc(adresse,2,feu);pilote_acc(adresse+3,2,feu);end;
blanc,blanc_cli : pilote_acc(adresse+1,2,feu);
violet : pilote_acc(adresse+3,1,feu);
end;
if combine=ral_30 then begin pilote_acc(adresse+2,1,feu);pilote_acc(adresse+3,2,feu);end;
if combine=rappel_60 then begin pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
if ((aspect=jaune) or (aspect=jaune_cli)) and (combine=rappel_60)
then begin pilote_acc(adresse,1,feu);pilote_acc(adresse+2,2,feu);pilote_acc(adresse+3,2,feu);end;
end;
end;
end;
@@ -2369,7 +2308,6 @@ var code,aspect,combine,mode : word;
begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal LDT: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2420,7 +2358,6 @@ var
begin
if (ancien_tablo_signalCplx[adresse]<>EtatSignalCplx[adresse]) then //; && (stop_cmd==FALSE))
begin
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
code:=EtatSignalCplx[adresse];
code_to_aspect(code,aspect,combine);
s:='Signal virtuel: ad'+IntToSTR(adresse)+'='+chaine_signal(code);
@@ -2431,7 +2368,7 @@ end;
(*==========================================================================
envoie les données au décodeur digitalbahn équipé du logiciel "led_signal_10"
adresse=adresse sur le BUS DCC
adresse=adresse sur le bus
codebin=motif de bits représentant l'état des feux L'allumage est fait en
adressant l'une des 14 adresses pour les 14 leds possibles du feu.
Ici on met le bit 1 à 1 (état "vert" du programme hexmanipu
@@ -2458,8 +2395,6 @@ begin
// si ancien état du signal=jaune ou jaune cli
Ancjau:=(TestBit(ancien_tablo_signalCplx[adresse],jaune)) or (TestBit(ancien_tablo_signalCplx[adresse],jaune_cli)) ;
//***ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
// si état demandé du signal=ralentissement ou rappel
ralrap:=(TestBit(code,ral_30)) or (TestBit(code,ral_60)) or
(TestBit(code,rappel_30)) or (TestBit(code,rappel_60)) ;
@@ -2484,7 +2419,6 @@ begin
sleep(40);
pilote_ACC(adresse+Combine,2,feu) ;
end;
ancien_tablo_signalCplx[adresse]:=EtatSignalCplx[adresse];
end;
end;
@@ -2521,34 +2455,34 @@ begin
7 : envoi_SR(Adr);
end;
// vérifier si on quitte le rouge
if Option_demarrage then
// Gestion démarrage temporisé des trains si on quitte le rouge : ne fonctionne qu'avec CDM rail connecté
if Option_demarrage and cdm_connecte then
begin
a:=ancien_tablo_signalCplx[adr];
b:=EtatSignalCplx[adr];
if ((a=semaphore_F) or (a=carre_F) or (a=violet_F)) and ((b<>semaphore_F) and (b<>carre_F) and (b<>violet_F)) then
if not(Diffusion) then Affiche('On quitte le rouge du signal '+intToSTR(adr),clyellow);
// y a t il un train en face du signal
if cdm_connecte then
begin
det:=feux[i].Adr_det1;
if det<>0 then
a:=ancien_tablo_signalCplx[adr];
b:=EtatSignalCplx[adr];
if ((a=semaphore_F) or (a=carre_F) or (a=violet_F)) and ((b<>semaphore_F) and (b<>carre_F) and (b<>violet_F)) then
begin
// test si train sur le détecteur det
if detecteur[det].etat then
if not(Diffusion) then Affiche('On quitte le rouge du signal '+intToSTR(adr),clyellow);
// y a t il un train en face du signal
det:=feux[i].Adr_det1;
if det<>0 then
begin
detecteur[det].tempo:=20; // armer la tempo à 2s
// arreter le train
s:=detecteur[det].train;
Affiche('et son détecteur '+IntToSTR(det)+'=1 tempo démarrage '+s,clYellow);
s:=chaine_CDM_vitesseST(1,s); // 0%
envoi_cdm(s);
// test si train sur le détecteur det
if detecteur[det].etat then
begin
detecteur[det].tempo:=20; // armer la tempo à 2s
// arreter le train
s:=detecteur[det].train;
detecteur[det].train:=s;
//Affiche('et son détecteur '+IntToSTR(det)+'=1 tempo démarrage ; train '+s,clYellow);
s:=chaine_CDM_vitesseST(0,s); // 0%
envoi_cdm(s);
end;
end;
end;
end;
end;
ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr]; //***
ancien_tablo_signalCplx[adr]:=EtatSignalCplx[adr];
// allume les signaux du feu dans la fenêtre de droite
Dessine_feu_mx(Feux[i].Img.Canvas,0,0,1,1,adr,1);
@@ -5231,7 +5165,7 @@ end;
procedure Event_Aig(adresse,pos : integer);
var s: string;
faire_event,inv : boolean;
prov,i,index : integer;
prov,index : integer;
begin
// vérifier que l'évènement accessoire vient bien d'un aiguillage et pas d'un feu qu'on pilote (et que cdm renvoie)
index:=index_aig(adresse);
@@ -5332,6 +5266,7 @@ begin
sleep(50);
s:=chaine_CDM_Acc(adresse,0);
envoi_CDM(s);
event_aig(adresse,octet);
exit;
end;
@@ -5673,7 +5608,24 @@ end;
procedure deconnecte_CDM;
begin
Formprinc.ClientSocketCDM.close;
if Cdm_connecte then
begin
with formprinc do
begin
CDM_connecte:=False;
ClientSocketCDM.close;
LabelTitre.caption:=Titre;
caption:=AF;
MenuConnecterUSB.enabled:=true;
DeConnecterUSB.enabled:=true;
ConnecterCDMRail.enabled:=true;
comboTrains.clear;
ntrains:=0;
end;
Affiche('CDM rail déconnecté',Cyan);
AfficheDebug('CDM rail déconnecté',Cyan);
end;
end;
{$J+}
@@ -5708,7 +5660,7 @@ var i,j : integer;
begin
if NumPort<>0 then
begin
With Formprinc.MSCommUSBLenz do
With Formprinc.MSCommUSBLenz do // MSComm est le composant OCX TMSComm32
begin
i:=pos(':',portCom);
j:=pos(',',PortCom);
@@ -5897,6 +5849,7 @@ begin
if (ProcessRunning(s)) then
begin
// CDM déja lancé;
Affiche('CDM déjà lancé',clOrange);
Lance_CDM:=true;
if CDM_connecte then exit;
deconnecte_USB;
@@ -6129,8 +6082,6 @@ begin
// Initialisation des images des signaux
NbreImagePLigne:=Formprinc.ScrollBox1.Width div (largImg+5);
if not(diffusion) then LireunfichierdeCV1.enabled:=true;
// ajoute les images des feux dynamiquement
for i:=1 to NbreFeux do
begin
@@ -6414,11 +6365,10 @@ begin
dec(detecteur[i].tempo);
if detecteur[i].tempo=0 then
begin
//Affiche('tempo 0 Detecteur '+intToSTR(i),clyellow);
s:=detecteur[i].train;
Affiche('Tempo 0 timer train '+s,clOrange);
//Affiche('Tempo 0 timer train '+s+' det '+intToSTR(i),clOrange);
s:=chaine_CDM_vitesseST(100,s); // 100%
envoi(s);
envoi_cdm(s);
end;
end;
end;
@@ -6485,8 +6435,11 @@ var s : string;
begin
s:='Erreur '+IntToSTR(ErrorCode)+' socket IP Xpressnet';
case ErrorCode of
10053 : s:=s+': Connexion avortée - Timeout';
10054 : s:=s+': Connexion avortée par tiers';
10053 : begin
s:=s+': Connexion avortée - Timeout';
deconnecte_cdm;
end;
10054 : s:=s+': Connexion avortée par un tiers';
10060 : s:=s+': Timeout';
10061 : s:=s+': Connexion refusée';
10065 : s:=s+': Port non connecté';
@@ -6511,7 +6464,7 @@ begin
end;
if errorcode<>10061 then affiche(s,ClOrange);
afficheDebug(s,ClOrange);
CDM_connecte:=false;
deconnecte_cdm;
if (portCommOuvert=false) and (parSocketLenz=false) then LabelTitre.caption:=titre;
caption:=AF;
ErrorCode:=0;
@@ -6739,7 +6692,7 @@ begin
LabelTitre.caption:=titre+' '+s;
Affiche(s,clYellow);
AfficheDebug(s,clYellow);
SocketCDM_connecte:=True;
CDM_connecte:=True;
MenuConnecterUSB.enabled:=false;
DeConnecterUSB.enabled:=false;
ConnecterCDMRail.enabled:=false;
@@ -6999,7 +6952,7 @@ begin
if (train='_NONE') then train:=detecteur[Adr].train;
Event_detecteur(Adr,etat=1,train);
//AfficheDebug(IntToSTR(adr)+' '+IntToSTR(etat),clyellow);
//Affiche(IntToSTR(adr)+' '+IntToSTR(etat)+' '+train,clyellow);
if AfficheDet then Affiche('Rétro Détecteur '+intToSTR(adr)+'='+IntToStr(etat),clYellow);
end ;
@@ -7137,15 +7090,7 @@ end;
procedure TFormPrinc.ClientSocketCDMDisconnect(Sender: TObject; Socket: TCustomWinSocket);
begin
LabelTitre.caption:=Titre;
Affiche('CDM rail déconnecté',Cyan);
AfficheDebug('CDM rail déconnecté',Cyan);
caption:=AF;
CDM_connecte:=False;
SocketCDM_connecte:=false;
MenuConnecterUSB.enabled:=true;
DeConnecterUSB.enabled:=true;
ConnecterCDMRail.enabled:=true;
deconnecte_cdm;
end;
procedure TFormPrinc.Codificationdesfeux1Click(Sender: TObject);
@@ -7581,6 +7526,7 @@ begin
if verif_coherence then affiche('La configuration est cohérente',clLime);
end;
// cliqué gauche dans la fenetre Fenrich
procedure TFormPrinc.FenRichMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var lc : integer;
@@ -7608,8 +7554,6 @@ begin
ShellExecute(0,'open',Pchar(s),nil,nil,sw_shownormal);
end;
end;
end;
procedure TFormPrinc.ButtonLocCVClick(Sender: TObject);
@@ -7618,13 +7562,6 @@ begin
else begin groupBox2.Visible:=false;groupBox3.Visible:=true;end;
end;
procedure TFormPrinc.EditAdrTrainChange(Sender: TObject);
var i : integer;
s : string;
begin
end;
procedure TFormPrinc.Button1Click(Sender: TObject);
begin

BIN
UnitSimule.dcu
View File

Binary file not shown.

BIN
UnitTCO.dcu
View File

Binary file not shown.

BIN
verif_version.dcu
View File

Binary file not shown.

2
verif_version.pas
View File

@@ -23,7 +23,7 @@ var
Lance_verif : integer;
verifVersion,notificationVersion : boolean;
Const Version='3.62'; // sert à la comparaison de la version publiée
Const Version='3.63'; // sert à la comparaison de la version publiée
SousVersion=' '; // en cas d'absence de sous version mettre un espace
implementation

1
versions.txt
View File

@@ -80,6 +80,7 @@ version 3.6 : Am
Changement des vitesses courantes des trains.
version 3.61 : Correction de la non présentation de certains signaux s'ils sont séparés par plus d'un détecteur.
version 3.62 : Correction présence trains 3 cantons avant signaux et 1 canton après signaux.
version 3.63 : Gestion améliorée du décodeur Unisemaf