Overblog Suivre ce blog
Editer l'article Administration Créer mon blog

Il est grand temps de revenir un peu sur la partie modélisme et aussi faire rouler les trains . En attendant ,voici la dernière version , j'ai ajouté un tableau sur la droite qui me permet de piloter rapidement un itinéraire (Pour résumer j'envoie un train d'un point A vers B par pilotage direct). Toutes les petites fenetres sont déplacables, j'ai inclus un mode debug. Les dernière modifications m'ont permis d'évoluer dans la programmation en Delphi. 

 

Je reviendrais sur le cablage des détections mais pour le moment j'ai besoin de faire une pause.(j'ai quelques maquettes à monter , des lampadaires à installer....etc....). et en plus il y a un chantier qui m'attend dans la maison.

 

 

Exemple de programmation pour un itinéraire simple

 

Les procédures act_canton_tx(x) , act_Axxx(x) sont des procédures que j'ai développé afin de piloter les cantons , aiguillages. 

 

Voici un exemple de code programme pour piloter un aiguillage:


procedure TFrm_main.Act_A321(etat:integer);
// Aiguille PECO : Necessite une Set/Reset
// 0: Courbe 1: Droit
begin
   case etat of
   0:begin
        if (A321=1) then
        begin
          activation_sortie(3,0,1);
          A321:=0;
          activation_sortie(3,0,0);
        end;
   end;
   1:begin
        if (A321=0) then
        begin
          activation_sortie(3,1,1);
          A321:=1;
          activation_sortie(3,1,0);
        end;
     end;
end;
Et le code pour T1-> T3

 

procedure TFrm_main.Bt_13Click(Sender: TObject);

begin

          Memo1.lines.Add('T1 -> T3');

          Memo1.lines.Add('**********************');

          act_canton_t2(0);     // désactivation T2

          act_canton_t1(1);     // activation T1

          act_canton_t3(1);     // activation T3

          act_A321(0);          // Aiguille A321 en courbe

          act_A334(1);          // Aiguille A321 en droit

          act_sens1(1); // sens Horaire

end;

 

Je vous ferais une video pour illustrer le fonctionnement de mon programme sur le réseau . 

      new tco 13

Tag(s) : #Actualité de mon réseau