Initial commit

.gitattributes

@@ -0,0 +1,2 @@
+# Auto detect text files and perform LF normalization
+* text=auto

Desinstall.bat

@@ -0,0 +1,11 @@
+@echo off
+echo ce script est a executer en mode  
+echo administrateur (exécuter en tant qu'administrateur)
+
+echo enregistrement du composant TMScomm32
+regsvr32 -u mscomm32.ocx
+
+echo enregistrement de la licence du composant
+regedit -u vbctrls.reg
+
+pause

Signaux_complexes_GL.cfg

@@ -0,0 +1,42 @@
+-$A8
+-$B-
+-$C+
+-$D+
+-$E-
+-$F-
+-$G+
+-$H+
+-$I+
+-$J-
+-$K-
+-$L+
+-$M-
+-$N+
+-$O-
+-$P+
+-$Q-
+-$R-
+-$S-
+-$T-
+-$U-
+-$V+
+-$W-
+-$X+
+-$YD
+-$Z1
+-cg
+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+-H+
+-W+
+-M
+-$M16384,1048576
+-K$00400000
+-LE"c:\program files\borland\delphi7\Projects\Bpl"
+-LN"c:\program files\borland\delphi7\Projects\Bpl"
+-U"c:\program files\borland\delphi7\Lib\Debug"
+-O"c:\program files\borland\delphi7\Lib\Debug"
+-I"c:\program files\borland\delphi7\Lib\Debug"
+-R"c:\program files\borland\delphi7\Lib\Debug"
+-w-UNSAFE_TYPE
+-w-UNSAFE_CODE
+-w-UNSAFE_CAST

Signaux_complexes_GL.dof

@@ -0,0 +1,138 @@
+[FileVersion]
+Version=7.0
+[Compiler]
+A=8
+B=0
+C=1
+D=1
+E=0
+F=0
+G=1
+H=1
+I=1
+J=0
+K=0
+L=1
+M=0
+N=1
+O=0
+P=1
+Q=0
+R=0
+S=0
+T=0
+U=0
+V=1
+W=0
+X=1
+Y=1
+Z=1
+ShowHints=1
+ShowWarnings=1
+UnitAliases=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+NamespacePrefix=
+SymbolDeprecated=1
+SymbolLibrary=1
+SymbolPlatform=1
+UnitLibrary=1
+UnitPlatform=1
+UnitDeprecated=1
+HResultCompat=1
+HidingMember=1
+HiddenVirtual=1
+Garbage=1
+BoundsError=1
+ZeroNilCompat=1
+StringConstTruncated=1
+ForLoopVarVarPar=1
+TypedConstVarPar=1
+AsgToTypedConst=1
+CaseLabelRange=1
+ForVariable=1
+ConstructingAbstract=1
+ComparisonFalse=1
+ComparisonTrue=1
+ComparingSignedUnsigned=1
+CombiningSignedUnsigned=1
+UnsupportedConstruct=1
+FileOpen=1
+FileOpenUnitSrc=1
+BadGlobalSymbol=1
+DuplicateConstructorDestructor=1
+InvalidDirective=1
+PackageNoLink=1
+PackageThreadVar=1
+ImplicitImport=1
+HPPEMITIgnored=1
+NoRetVal=1
+UseBeforeDef=1
+ForLoopVarUndef=1
+UnitNameMismatch=1
+NoCFGFileFound=1
+MessageDirective=1
+ImplicitVariants=1
+UnicodeToLocale=1
+LocaleToUnicode=1
+ImagebaseMultiple=1
+SuspiciousTypecast=1
+PrivatePropAccessor=1
+UnsafeType=0
+UnsafeCode=0
+UnsafeCast=0
+[Linker]
+MapFile=0
+OutputObjs=0
+ConsoleApp=1
+DebugInfo=0
+RemoteSymbols=0
+MinStackSize=16384
+MaxStackSize=1048576
+ImageBase=4194304
+ExeDescription=
+[Directories]
+OutputDir=
+UnitOutputDir=
+PackageDLLOutputDir=
+PackageDCPOutputDir=
+SearchPath=$(DELPHI)\Lib\Debug
+Packages=vcl;rtl;vclx;VclSmp;vclshlctrls
+Conditionals=
+DebugSourceDirs=
+UsePackages=0
+[Parameters]
+RunParams=
+HostApplication=
+Launcher=
+UseLauncher=0
+DebugCWD=
+[Version Info]
+IncludeVerInfo=1
+AutoIncBuild=1
+MajorVer=1
+MinorVer=0
+Release=0
+Build=2
+Debug=0
+PreRelease=0
+Special=0
+Private=0
+DLL=0
+Locale=1036
+CodePage=1252
+[Version Info Keys]
+CompanyName=
+FileDescription=
+FileVersion=1.0.0.2
+InternalName=
+LegalCopyright=
+LegalTrademarks=
+OriginalFilename=
+ProductName=
+ProductVersion=1.0.0.0
+Comments=
+[HistoryLists\hlUnitAliases]
+Count=1
+Item0=WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
+[HistoryLists\hlSearchPath]
+Count=1
+Item0=$(DELPHI)\Lib\Debug

Signaux_complexes_GL.dpr

@@ -0,0 +1,14 @@
+program Signaux_complexes_GL;
+
+uses
+  Forms,
+  UnitPrinc in 'UnitPrinc.pas' {FormPrinc},
+  UnitDebug in 'UnitDebug.pas' {FormDebug};
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  Application.CreateForm(TFormPrinc, FormPrinc);
+  Application.Run;
+end.

UnitDebug.dfm

@@ -0,0 +1,120 @@
+object FormDebug: TFormDebug
+  Left = 404
+  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 = 448
+    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 = 452
+    Top = 300
+    Width = 181
+    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 MemoDebug: TMemo
+    Left = 0
+    Top = 0
+    Width = 433
+    Height = 625
+    Lines.Strings = (
+      'MemoDebug')
+    ScrollBars = ssVertical
+    TabOrder = 3
+  end
+  object SaveDialog: TSaveDialog
+    Left = 616
+    Top = 16
+  end
+end

UnitDebug.pas

@@ -0,0 +1,93 @@
+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;
+    MemoDebug: TMemo;
+    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;
+  MemoDebug.color:=$33;
+  MemoDebug.clear;
+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 MemoDebug 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.

UnitDebug.~dfm

@@ -0,0 +1,120 @@
+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

UnitDebug.~pas

@@ -0,0 +1,91 @@
+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.

VBCTRLS.REG

@@ -0,0 +1,16 @@
+REGEDIT
+HKEY_CLASSES_ROOT\Licenses = Licensing: Copying the keys may be a violation of established copyrights.
+
+// The 16 bit and 32-bit OCX Professional license follows:
+HKEY_CLASSES_ROOT\Licenses\DB4C0D00-400B-101B-A3C9-08002B2F49FB = mgkgtgnnmnmninigthkgogggvmkhinjggnvm
+							
+// The 32 bit OCX Professional license follows:
+HKEY_CLASSES_ROOT\Licenses\7BC20EDC-4A42-101B-A3C9-08002B2F49FB = gifblihbhiiihbciocfbkifbqcfcdiebbiqh
+
+// spin32 DB key
+// anibtn DB key
+// gauge  7B key
+// grid   DB key
+// keysta DB key
+// msoutl DB key
+// threed DB key

client-GL.cfg

@@ -0,0 +1,81 @@
+/******************************************
+/ 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
+0
+/
+/ 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,2,3,0
+5,1,3,0
+6,2,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,1,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
+/
+

client-GL.~cfg

@@ -0,0 +1,41 @@
+/******************************************
+/ 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
+/

config.cfg

@@ -0,0 +1,112 @@
+/******************************************
+/ 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

config.~cfg

@@ -0,0 +1,112 @@
+/******************************************
+/ 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

config.~~cfg

@@ -0,0 +1,158 @@
+/******************************************
+/ 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
+
+
+
+
+

configgily.cfg

@@ -0,0 +1,109 @@
+/******************************************
+/ fichier de configuration de signaux_complexes
+/ gily - f1iwq - 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
+/ 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,P=élément vers pointe D=élément vers Droit, S=élément vers dévié.
+/ [60 ou 30 dans le cas d'un aiguillage en position déviée qui doit être fanchie à 30 ou 60]
+/ 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,D530,S529,P28
+/ P désigne l'autre adresse de la TJD
+/ Aiguillage triple
+/
+/ S'il n'y a pas de détecteur connecté à une branche d'aiguillage, mettre 0.
+1,P518,S3P,D523,30
+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,60
+10,P19P,S528,D29P,30
+11,P18P,D30D,S525
+12,P517,D20S,S2P
+17,P525,D535,S528
+18,P11P,S517,D23P
+19,P10P,S531,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,D530,S529,P28
+28TJD,D21D,S21S,P26
+27,P25S,D530,S537
+29,P10D,S30S,D513,60
+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 aiguillage
+/ Une ligne qui finit par un 0 signifie un heurtoir
+/ @ détecteur A=@aiguillage
+/ Terminer par 0
+/ Exemple : 519 est un détecteur  - A2 est l'aiguillage 2
+/
+A2,A12,517,A18,A11,A30,524,521,A8,527,A7,519,A2
+A7,520,A20,A12
+A1,A3,A4,514,522,A8
+A1,523,526,A9,513,A29,A10,A19,531,518,A1
+A9,515,A5
+A11,525,A17,528,A10
+A17,535,533,A24,538,A23
+A7,520,A20,A21,A28,A26,530,A27,A25,A31,534,A23,A18
+A26,529,A25
+A22,537,A27
+A22,A32,A24
+A6,516,0
+A31,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
+/ 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 4=LEB
+/ Notation de chaque ligne:
+/ adresse de base du signal, forme, avec ou sans bouton de commande du feu blanc, type de décodeur [, détecteur (det2, det3, ...) , élément suivant ,
+/ avec ou sans demande de verrouillage du feu au carré]
+176,7,0,1,(520,A20),1
+190,7,0,1,(523,526),1
+204,9,0,1,(527,A7),1
+218,7,0,1,(525,A17),1
+232,2,1,1,(516,A6),1
+260,9,1,1,(518,A1),1
+274,3,0,1,(524,521),1
+288,7,0,1,(522,A8),1
+302,9,0,1,(526,A9),1
+316,7,1,1,(515,A5),1
+330,7,0,1,(519,A2),1
+344,9,0,1,(528,A10),1
+358,9,0,1,(517,A18),1
+392,3,0,1,(535,533),1
+420,7,0,1,(529,A25,530,A27,537,A27),1
+448,7,0,1,(533,A24),1
+462,9,0,1,(513,A29),1
+476,9,0,1,(538,A23),1
+497,9,0,4,(531,A19),1
+600,7,0,1,(521,A8),1
+0
+/
+
+
+

install.bat

@@ -0,0 +1,22 @@
+@echo off
+echo ce script est a executer en mode  
+echo administrateur (exécuter en tant qu'administrateur)
+
+echo enregistrement du composant TMScomm32
+regsvr32 %~dp0mscomm32.ocx
+
+rem détermine si OS 32 ou 64 bits
+Set _os_bitness=64
+IF %PROCESSOR_ARCHITECTURE% == x86 (
+  IF NOT DEFINED PROCESSOR_ARCHITEW6432 Set _os_bitness=32
+  )
+Echo systeme %_os_bitness% bits
+
+echo copie du composant mscomm32 dans windows
+if %_os_bitness%==64 copy %~dp0mscomm32.ocx c:\windows\sysWOW64
+if %_os_bitness%==32 copy %~dp0mscomm32.ocx c:\windows\system32
+
+echo enregistrement de la licence du composant
+regedit -s %~dp0vbctrls.reg
+
+pause

install2.bat

@@ -0,0 +1,22 @@
+@echo off
+echo ce script est a executer en mode  
+echo administrateur (exécuter en tant qu'administrateur)
+
+echo enregistrement du composant TMScomm32
+regsvr32 mscomm32.ocx
+
+rem détermine si OS 32 ou 64 bits
+Set _os_bitness=64
+IF %PROCESSOR_ARCHITECTURE% == x86 (
+  IF NOT DEFINED PROCESSOR_ARCHITEW6432 Set _os_bitness=32
+  )
+Echo systeme %_os_bitness% bits
+
+echo copie du composant mscomm32 dans windows
+if %_os_bitness%==64 copy mscomm32.ocx c:\windows\sysWOW64
+if %_os_bitness%==32 copy mscomm32.ocx c:\windows\system32
+
+echo enregistrement de la licence du composant
+regedit -s vbctrls.reg
+
+pause