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

supp fichiers temporaires

Browse Source
This commit is contained in:
f1iwq2
2020-01-20 21:17:24 +01:00
parent 3ae1f0abe7
commit e8bc712ae2
7 changed files with 0 additions and 7081 deletions
Download Patch File Download Diff File Expand all files Collapse all files

120
UnitDebug.~dfm
View File

@@ -1,120 +0,0 @@
object FormDebug: TFormDebug
Left = 402
Top = 33
BorderStyle = bsSingle
Caption = 'FormDebug'
ClientHeight = 639
ClientWidth = 759
Color = clWhite
TransparentColorValue = clTeal
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 456
Top = 52
Width = 108
Height = 13
Caption = 'Niveau du Debug (0-3)'
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
end
object Label2: TLabel
Left = 448
Top = 12
Width = 131
Height = 18
Caption = 'Fen'#234'tre de d'#233'bug'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'Arial'
Font.Style = [fsBold, fsItalic]
ParentFont = False
end
object Label3: TLabel
Left = 456
Top = 84
Width = 265
Height = 209
AutoSize = False
Caption = 'Label3'
Color = clGray
Font.Charset = ANSI_CHARSET
Font.Color = clWindow
Font.Height = -16
Font.Name = 'Arial Narrow'
Font.Style = []
ParentColor = False
ParentFont = False
WordWrap = True
end
object EditNivDebug: TEdit
Left = 576
Top = 52
Width = 73
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = 'EditNivDebug'
OnKeyPress = EditNivDebugKeyPress
end
object MemoEvtDet: TMemo
Left = 456
Top = 308
Width = 209
Height = 281
Color = clBlack
Font.Charset = DEFAULT_CHARSET
Font.Color = clYellow
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'Tableau des '#233'v'#232'nements d'#233'tecteurs')
ParentFont = False
TabOrder = 1
end
object ButtonEcrLog: TButton
Left = 456
Top = 596
Width = 97
Height = 25
Caption = 'Ecrire le log'
TabOrder = 2
OnClick = ButtonEcrLogClick
end
object RichEditDebug: TRichEdit
Left = 0
Top = 0
Width = 433
Height = 633
Color = clMaroon
Lines.Strings = (
'RichEditDebug')
TabOrder = 3
end
object SaveDialog: TSaveDialog
Left = 616
Top = 16
end
end

91
UnitDebug.~pas
View File

@@ -1,91 +0,0 @@
unit UnitDebug;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls ,UnitPrinc, ComCtrls;
type
TFormDebug = class(TForm)
EditNivDebug: TEdit;
Label1: TLabel;
MemoEvtDet: TMemo;
Label2: TLabel;
SaveDialog: TSaveDialog;
ButtonEcrLog: TButton;
Label3: TLabel;
RichEditDebug: TRichEdit;
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure ButtonEcrLogClick(Sender: TObject);
procedure EditNivDebugKeyPress(Sender: TObject; var Key: Char);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
FormDebug: TFormDebug;
implementation
{$R *.dfm}
procedure TFormDebug.FormClose(Sender: TObject; var Action: TCloseAction);
begin
//Action := TCloseAction.caNone;
//DebugOuv:=False;
//NivDebug:=0;
end;
procedure TFormDebug.FormCreate(Sender: TObject);
var s: string;
begin
EditNivDebug.Text:='0';
s:='Cette fenêtre permet d''afficher des informations sur le ';
s:=s+'comportement du programme. Positionner le niveau de 1 à 3 pour';
s:=s+' afficher des informations plus ou moins détaillées.';
Label3.caption:=s;
end;
procedure TFormDebug.ButtonEcrLogClick(Sender: TObject);
var s : string;
i : integer;
fte : textFile;
begin
s:=GetCurrentDir;
SaveDialog.InitialDir:=s;
if SaveDialog.Execute then
begin
s:=SaveDialog.FileName;
assignFile(fte,s);
rewrite(fte);
writeln(fte,s);
with RichEdit1 do
for i:=1 to Lines.Count do
begin
writeln(fte,Lines[i]);
end;
closefile(fte);
end;
end;
procedure TFormDebug.EditNivDebugKeyPress(Sender: TObject; var Key: Char);
var i,e : integer;
begin
if ord(Key) = VK_RETURN then
begin
Key := #0; // prevent beeping
val(EditNivDebug.text,i,e);
if e=0 then
begin
if (i>=0) and (i<=3) then NivDebug:=i
else EditNivDebug.text:='3';
end
else EditNivDebug.text:='0';
end;
end;
end.

1037
UnitPrinc.~dfm
View File

File diff suppressed because it is too large Load Diff

5522
UnitPrinc.~pas
View File

File diff suppressed because it is too large Load Diff

41
client-GL.~cfg
View File

@@ -1,41 +0,0 @@
/******************************************
/ fichier de configuration de client-GL.log
/ gily - f1iwq - 2018
/******************************************
/ ce programme permet de commander les signaux complexes avec ou sans
/ CDM rail. Il a trois modes de fonctionnement:
/
/ Mode 1 = sans CDM rail. Le programme ne gère que la centrale LENZ ou compatible.
/ Il faut connecter le PC en USB ou par éthernet à la centrale (nécessite l'interface LI100 ETH)
/
/ Mode 2 = Avec CDM rail, ce programme doit être connecté au réseau par l'interface
/ ethernet ; CDM est connecté par USB, et dans ce cas,
/ mettre 0 dans le numéro de port COM (inutilisé) ainsi que la variable avec ou sans initialisation
/ des aiguillages à 0.
/
/ Mode 3 = Avec CDM Rail, ce programme connecté au réseau par l'interface Ethernet et CDM
/ Rail est connecté au réseau par l'USB.
/
/
/ Taille de la fonte de la fenêtre
16
/
/ Adresse IP V4 du PC sur lequel s'execute CDM : port
127.0.0.1:9999
/
/ Adresse IP V4 de l'interface LI-USB Ethernet : port
/ par défaut le port est 5550
/ ne pas connecter le port ou mettre 0 si on travaille avec l'interface USB
192.168.1.23:5550
/
/ port COM de l'adresse USB de l'interface LI100
/ attention de 1 à 9 - Si le port de l'interface USB LI100 >9, il faut le changer
/ manuellement dans le gestionnaire des périphériques
/ mettre 0 si inutilisée ou si CDM est utilisé en parallèle de ce programme (car CDM utilise la liaison USB)
/ Le programme ne tentera pas de se connecter à la centrale si CDM rail est détécté (
/
3
/
/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage selon le tableau ci après
1
/

112
config.~cfg
View File

@@ -1,112 +0,0 @@
/******************************************
/ fichier de configuration de signaux complexes
/ cap de bouheyre avec signaux - 2018
/****************************************
/ Sans Log=0 / Avec Log=1 : génère un fichier log
Log=0
/ Affichage du débug du calcul des routes, et enregistrement dans le log si la variable précédente est à 1
TraceDet=0
/ si 1 envoie un 0 après le pilotage des décodeurs LEB
RazSignaux=0
/
/ modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S)
/ adresse d'aiguillage[B],P=élément vers pointe D=élément vers Droit, S=élément vers dévié
/ B pour adresse d'aiguillage déja utilisée
/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse [TRI,TJS,TJD]+branche de connexion (P S ou D)
/ Exemples : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
/ sur Droit relié au détecteur 518
/ sur Dévié, relié à l'aiguillage 3 en pointe
/ Voir la documentation des signaux complexes pour une description complete
/ S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
1,P2P,D3P,S1BS
1B,P553,D16P,S1S
2,P1P,D4P,S2BS
2B,P521,D16D,S2S
3,P1D,D522,S5BP
4,P2D,D554,S6BP
5,P9P,S15P,D5BS
5B,P3S,S5D,D545
6,P10P,S546,D6BS
6B,P4S,D545,S6D
7,P15S,D566,S565
8,P20P,D566,S565
9,P5P,D530,S17P
10,P6P,D530,S18P
13,P17S,D563,S564
14,P18S,D563,S564
15,P5S,D546,S7P
16,P1BD,S16BS,D2BD
16B,P0,S16S,D557
17,P9S,D531,S13P
18,P10S,D562,S14P
20,P8P,D547,S0
21,P25P,S537,D23S
22,P24P,S561,D25S
23,P569,S21D,D538
24,P22P,S26P,D513
25,P21P,S22D,D570
26,P24S,S515,D514
28,P30P,S29P,D570
29,P28S,D516,S31P
30,P28P,D32S,S539
31TRI,27,P28S,D518,S0,S2-517
32,P571,D538,S30D
0
//
/ modélisation du réseau par branche
/ 1 ligne par branche - le sens de parcours de la description n'a pas d'importance.
/ Chaque ligne (branche) doit comporter au moins un détecteur et au moins aiguillage
/ @ détecteur A=@aiguillage
/ chaque ligne doit commencer par un aiguillage et se terminer par un aiguillage
/ Terminer par les brances par 0
/ Exemple : 519 est un détecteur - A2 est l'aiguillage 2 - A1B est l'aiguillage 1bis
/
/ rouge - jaune
A20,547,561,A22,A24,A26,515,518,A31,A29,A28,A30,539,522,A3,A1,A2,A4,A6B,545,A5B,A3
A26,514,517,A31
A26,515,518,A31
A24,513,516,A29
/grande boucle extérieure départ de couche rouge: de 569 à 569
A23,538,A32,571,553,A1B,A16,A2B,521,569,A23
/ grande boucle intérieure
A21,A25,570,A28
A4,554,537,A21
/ couche jaune
A10,530,A9,A5,A15,546,A6
A18,562,531,A17
A14,563,A13
A14,564,A13
/
A7,565,A8
A7,566,A8
A16B,557,0
0
/
/ liste des signaux
/ la liste doit être terminée par une adresse à 0
/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux (carré) / 5=5 feux (carré + blanc)
/ 7=7 feux (carré+blanc + ralentissement / 9=9 feux (blanc ou violet + rappel ralentissement)
/ type de décodeur : 0=feu virtuel 1=digital Bahn 2=CDF 3=LDT 4=LEB
/ l'énumération des détecteurs ne nécessite pas de parenthèses si il est seul, mais il faut des parenthèses si
/ le signal concerne plusieurs voies (donc détecteurs)
/ Notation de chaque ligne:
/ adresse de base du signal, forme, réserve, type de décodeur [, (détecteur,..detecteur , élément suivant ..) ,
/ avec ou sans demande de verrouillage du feu au carré (0 ou 1)]
161,4,0,4,(538,A32),0
169,9,0,4,(539,A30),0,
177,9,0,4,(569,A23),0
185,4,0,4,(570,A25),0
193,4,0,4,(516,A29),0
201,2,0,4,(517,31TRI,518,31TRI),0
209,9,0,4,(561,547),0
217,2,0,4,(514,A26,515,A26),0
225,9,0,4,(516,A29),0
233,4,0,4,(547,A20),0
1001,3,0,0,(537,554),0
1003,3,0,0,(553,A1B),0
1005,3,0,0,(571,553),0
1007,3,0,0,(554,A4),0
1009,3,0,0,(522,539),0
1011,3,0,0,(521,569),0
1013,3,0,0,(565,A7),0
0

158
config.~~cfg
View File

@@ -1,158 +0,0 @@
/******************************************
/ fichier de configuration de comm_lenz
/ gily - f1iwq - 2018
/******************************************
/ ce programme permet de commander les signaux complexes avec ou sans
/ CDM rail. Avec CDM rail, ce programme doit être connecté au réseau par l'interface
/ ethernet (nécessite l'interface LI100 ETH) ; CDM est connecté par USB, et dans ce cas,
/ mettre 0 dans le numéro de port COM (inutilisé) ainsi que la variable avec ou sans initialisation
/ des aiguillages à 0.
/
/ Adresse IP V4 de l'interface LI-USB Ethernet : port
/ ne pas connecter le port ou mettre 0 si on travaille avec l'interface USB
192.168.1.23:5550
/
/ port COM de l'adresse USB de l'interface LI100
/ attention de 1 à 9 - Si le port de l'interface USB LI100 >9, il faut le changer
/ manuellement dans le gestionnaire des périphériques
/ mettre 0 si inutilisée ou si CDM est utilisé en parallèle de ce programme (car CDM utilise la liaison USB)
/4
4
/
/ dernière adresse d'aiguillages du réseau. Si 0, 80 sera utilisé.
32
/ Avec (1) ou sans (0) initialisation des aiguillages au démarrage selon le tableau ci après
1
/ Valeurs des initialisations des aiguillages au démarrage -----------------------------------------------
/ @ aiguillage, position 1=dévié 2=droit, temporisation de manoeuvre en 1/10eme de seconde ,
/ 0=pilotage normal 1=pilotage inversé
/ une position différente de 1 ou 2 sera à 1. Une temporisation de 0 sera à 5.
/ la liste doit être terminée par 0,0,0
1,2,3,0
2,2,3,0
3,2,3,0
4,1,3,0
5,1,3,0
6,1,3,0
7,1,3,0
8,2,3,0
9,2,3,0
10,2,3,0
11,2,3,0
12,1,3,0
13,1,3,0
14,1,3,0
15,1,3,0
16,1,4,0
17,1,3,0
18,2,4,0
19,1,4,0
20,2,4,0
21,2,3,0
22,2,3,0
23,1,3,0
24,1,3,0
25,1,3,0
26,2,3,0
27,2,3,0
28,2,3,0
29,2,3,0
30,2,3,0
31,1,3,0
32,1,3,0
0,0,0,0
/
/ liste des adresses des signaux et leur forme, pour affichage de l'image correspondante ,
/ avec ou sans bouton de commande pour le feu blanc, type de décodeur.
/ la liste doit être terminée par une adresse à 0
/ adresse de base du signal, forme, avec ou sans bouton de commande du feu blanc, type de décodeur
/ forme : 2=2 feux(carré violet/blanc) / 3=3 feux / 4=4 feux / 5=5 feux (carré + blanc ou violet)
/ 7=7 feux (blanc ou violet + ralentissement / 9=9 feux (blanc ou violet + rappel ralentissement)
/ type de décodeur : 1=digital Bahn 2=CDF 3=LDT
/
176,7,0,1
190,7,0,1
204,9,0,1
218,7,0,1
232,2,1,1
260,9,1,1
274,3,0,1
288,7,0,1
302,9,0,1
316,7,1,1
330,7,0,1
344,9,0,1
358,9,0,1
392,3,0,1
420,7,0,1
448,7,0,1
462,9,0,1
476,9,0,1
600,7,0,1
0,0
/
/ modélisation des aiguillages : détermine les éléments connectés aux 3 branches des aiguilles (Pointe, Droit, Dévié (S)
/ adresse d'aiguillage,P=élément vers pointe D=élément vers Droit, S=élément vers dévié.
/ Elément = détecteur (valeur uniquement numérique) ou aiguillage (adresse+branche de connexion (P S ou D)
/ Exemple : 1,P518,D523,S3P signifie : définition de l'aiguillage @1 : sur pointe relié au détecteur 518
/ sur Droit relié au détecteur 518
/ sur Dévié, relié à l'aiguillage 3 en pointe
/ Pour une TJD : 26TJD,D[28S,529],S[28D,530]
/ D[ ] : éléments connectés à la TJD en position D (droite), le 1er est l'adresse de la 2eme TJD et sa position
/ S[ ] : éléments connectés à la TJD en position S (déviée) , le 2eme est l'élément extérieur à la TJD
/
/ S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
1,P518,D523,S3P
2,P12S,S5S,D519
3,P1S,S5D,D4P
4,P3D,S514,D6S
5,P515,S2S,D3S
6,P516,S4D,D0
7,P527,S520,D519
8,P527,S522,D521
9,P526,S515,D513
10,P19P,S528,D29P
11,P18P,D30D,S525
12,P517,D20S,S2P
17,P525,D535,S528
18,P11P,S517,D23P
19,P10P,S518,D22P
20,P520,D21P,S12D
21,P20D,S28D,D28D
22,P19D,S538,D537
23,P18D,S534,D538
24,P538,S533,D32S
25,P31S,D529,S27P
26TJD,D[28S,529],S[28D,530]
27,P25S,D530,S537
28TJD,D[26S,21S],S[26D,21D]
29,P10D,S30S,D513
30,P524,S29D,D11D
31,P534,S25P,D0
32,P22S,S24D,D0
0
//
/ modélisation du réseau par branche
/ 1 ligne par branche - le sens de parcours de la branche est arbitraire.
/ Chaque ligne (branche) doit commmencer et finir par un détecteur
/ @ détecteur A=@aiguillage
/ Terminer par 0
/ Exemple : 519 est un détecteur - A2 est l'aiguillage 2
/
519,A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519
527,A7,520,A20,A12,517
518,A1,A3,A4,514,522,A8,527
523,526,A9,513,A29,A10,A19,518,A1,523
526,A9,515,A5,A2,A12,517
517,A18,A11,525,A17,528,A10,A19,518
525,A17,535,533,A24,538,A23,A18,A11,A30,524
520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18,A11,A30,524
520,A20,A21,A28,A26,529,A25,A31,534,A23,A18,A11,A30,524
513,A29,A10,A19,A22,537,A27,A25,A31,534
513,A29,A10,A19,A22,A32,A24,538
0