Moin.
Dieses Jahr wird es beim TSL wieder eine Gemeinschaftsanlage geben.
Wieder mit einer Eisenbahn drumherum, wieder mit zwei Kreisen.
Neu ist, daß der Außenkreis mittels LEGO®-MINDSTORMS® digital gesteuert wird.
Da dem Kind im Manne die Freud nicht genommen sein soll, auch mal den Regler
zu bedienen und die Signale und Weichen zu stellen, habe ich mir was besonderes einfallen lassen:

Ein Schaltpult, welches entweder einen digitalen oder manuellen Fahrbetrieb zulässt.

Diese vier RCXe steuern den digitalen Fahrbetrieb. Vier Weichen, zwei Signale und drei Züge sowie den Trafobot. So ist ein Fahrbetrieb unter den normalen Bedingungen, also frei wählbare Anzahl der Motore, möglich.

Trafobot. In dieser Ausführung sind nur die Trafo-Stufen 0, 2, 3, 4 und 5 genutzt.
Es ist aber auch möglich, alle 6 bzw. 13 Stufen zu nutzen.
Der "Monitor" zeigt die vier Fahrtgeschwindigkeiten 1-4 an.
Selbstverständlich ist ein Rangierfahrbetrieb möglich.

Diese vier RCXe sind für den elektrischen Betrieb der Weichen und Signale bei manuellem Fahrbetrieb zuständig. An den Weichenumstellern bzw. Signalstellpulten(Noch mit den alten Sensortasten.) wird ein Kontaktsignal gegeben.
Den Rest erledigt mit exaktester Präzision in o,5 Sekunden der jeweilige RCX.

Weichenumsteller innen.
Zwei in Reihe geschaltete Tastsensore
mit einer Zählschleife gesteuert.

Signalstellpult.
Orange für das Vorsignal.
Rot für das Hauptsignal.
Die Symbolik hilft auch weiter.
Oben keine Durchfahrt.
Unten Durchfahrt.
Die Sensortasten sind beleuchtet
und zeigen so die jeweilige Signalstellung an.

Die Programme sind in NQC geschrieben.

Mein besonderer Dank geht an Mike(MCP) für seine wertvolle Unterstützung,
die so gut war, daß ich ihn bei diesem Projekt nicht benötigt habe. :blink:

Grüße
Technix

---

Hallo Mike
» Sieht beeindruckend aus!
Vielen Dank.

» Ich kann mir zwar nicht vorstellen, wie sowas ganz automatisch
» funktionieren soll :blink:, aber die Techni(x)k heutzutage ist ja schon
» sooo weit fortgeschritten!
Naja, also so ganz automatisch ja nun auch wieder nicht.
Bisl was musste ich den RCXen schon aufbügeln.
Aber im Grunde eigentlich ganz einfach, schau selbst:
Master:
int x;
int y;
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_2,SENSOR_TOUCH);
SetSensor(SENSOR_3,SENSOR_TOUCH);

start a;
start b;
}

task a()
{
x= 0;

while (true)
if (SENSOR_1 == 1)
{
x = x+1;
if (x==1)
{
SetPower(OUT_C,3);
OnFwd(OUT_C);
Wait(25);
while (true)
if (SENSOR_3 == 1)
{
Off(OUT_C);
break;
}
Wait(200);
}

if (x==2)
{
SetPower(OUT_C,3);
OnRev(OUT_C);
Wait(25);
while (true)
if (SENSOR_3 == 1)
{
Off(OUT_C);
break;
}
x=0;
Wait(200);
}
}
}

task b()
{
y=0;

while (true)
if (SENSOR_2 == 1)
{
y = y+1;
if (y==1)
{
SendMessage(1);
SetPower(OUT_B,2);
OnFwd(OUT_B);
OnFor(OUT_B,50);

Wait(200);
}


if (y==2)
{
SendMessage(2);
SetPower(OUT_B,2);
OnRev(OUT_B);
OnFor(OUT_B,50);



y=0;
Wait(200);


}
}
}

Slave:
int x;
task main()
{
SetSensor(SENSOR_1,SENSOR_TOUCH);
SetSensor(SENSOR_3,SENSOR_TOUCH);

start a;
start b;
}

task a()
{

x= 0;

while (true)
if (SENSOR_1 == 1)
{
x = x+1;
if (x==1)
{
SetPower(OUT_C,3);
OnFwd(OUT_C);
Wait(25);
while (true)
if (SENSOR_3 == 1)
{
Off(OUT_C);
break;
}
Wait(200);
}


if (x==2)
{
SetPower(OUT_C,3);
OnRev(OUT_C);
Wait(25);
while (true)
if (SENSOR_3 == 1)
{
Off(OUT_C);
break;
}
x=0;
Wait(200);
}

}
}

task b()
{
while (true)
{
On(OUT_A);
ClearMessage();
while (true)
if (Message() == 1)
{
On(OUT_B);
Off(OUT_A);
break;
}
ClearMessage();
while (true)
if (Message() == 2)
{
Off(OUT_B);
On(OUT_A);
break;

}
}
}


Siehste, sach ich doch, eigentich ganz einfach.
Ginge wohl noch einfacher, aber dann versteht es evtl. gar niemand mehr.

Grüße
Gunther

---

Hi
» Sieht gut aus.
Danke.

» Verstanden hab ich zwar nix,
Was denn nicht? Frag' doch mal.:blink:

» aber vielleicht könnte mir ein
» video dazu helfen...
Das wird es wohl nach dem TSL geben, ja.

Grüße
Technix

---

» Hallo Mike
» » Sieht beeindruckend aus!
» Vielen Dank.
»
» » Ich kann mir zwar nicht vorstellen, wie sowas ganz automatisch
» » funktionieren soll :blink:, aber die Techni(x)k heutzutage ist ja schon
» » sooo weit fortgeschritten!
» Naja, also so ganz automatisch ja nun auch wieder nicht.
» Bisl was musste ich den RCXen schon aufbügeln.
» Aber im Grunde eigentlich ganz einfach, schau selbst:
» Master:
» int x;
» int y;
» task main()
» {
» SetSensor(SENSOR_1,SENSOR_TOUCH);
» SetSensor(SENSOR_2,SENSOR_TOUCH);
» SetSensor(SENSOR_3,SENSOR_TOUCH);
»
» start a;
» start b;
» }
»
» task a()
» {
» x= 0;
»
» while (true)
» if (SENSOR_1 == 1)
» {
» x = x+1;
» if (x==1)
» {
» SetPower(OUT_C,3);
» OnFwd(OUT_C);
» Wait(25);
» while (true)
» if (SENSOR_3 == 1)
» {
» Off(OUT_C);
» break;
» }
» Wait(200);
» }
»
» if (x==2)
» {
» SetPower(OUT_C,3);
» OnRev(OUT_C);
» Wait(25);
» while (true)
» if (SENSOR_3 == 1)
» {
» Off(OUT_C);
» break;
» }
» x=0;
» Wait(200);
» }
» }
» }
»
» task b()
» {
» y=0;
»
» while (true)
» if (SENSOR_2 == 1)
» {
» y = y+1;
» if (y==1)
» {
» SendMessage(1);
» SetPower(OUT_B,2);
» OnFwd(OUT_B);
» OnFor(OUT_B,50);
»
» Wait(200);
» }
»
»
» if (y==2)
» {
» SendMessage(2);
» SetPower(OUT_B,2);
» OnRev(OUT_B);
» OnFor(OUT_B,50);
»
»
»
» y=0;
» Wait(200);
»
»
» }
» }
» }
»
» Slave:
» int x;
» task main()
» {
» SetSensor(SENSOR_1,SENSOR_TOUCH);
» SetSensor(SENSOR_3,SENSOR_TOUCH);
»
» start a;
» start b;
» }
»
» task a()
» {
»
» x= 0;
»
» while (true)
» if (SENSOR_1 == 1)
» {
» x = x+1;
» if (x==1)
» {
» SetPower(OUT_C,3);
» OnFwd(OUT_C);
» Wait(25);
» while (true)
» if (SENSOR_3 == 1)
» {
» Off(OUT_C);
» break;
» }
» Wait(200);
» }
»
»
» if (x==2)
» {
» SetPower(OUT_C,3);
» OnRev(OUT_C);
» Wait(25);
» while (true)
» if (SENSOR_3 == 1)
» {
» Off(OUT_C);
» break;
» }
» x=0;
» Wait(200);
» }
»
» }
» }
»
» task b()
» {
» while (true)
» {
» On(OUT_A);
» ClearMessage();
» while (true)
» if (Message() == 1)
» {
» On(OUT_B);
» Off(OUT_A);
» break;
» }
» ClearMessage();
» while (true)
» if (Message() == 2)
» {
» Off(OUT_B);
» On(OUT_A);
» break;
»
» }
» }
» }
»
»
» Siehste, sach ich doch, eigentich ganz einfach.
» Ginge wohl noch einfacher, aber dann versteht es evtl. gar niemand mehr.
»
» Grüße
» Gunther

Wat?
Nein spass also die Steuerung sieht ja echt Hammer mässig aus, freu mich diese schon live zusehen. Warum wird den nur der innen Kreis so gesteuert?

Liebe grüße Rob

---

Hallo,

sieht ja nach einer Riesentüftelei aus. Die Juroren bei "Jugend forscht" wären stolz auf dich. Neben den sicherlich bemerkenswerten Funktionen sehen die einzelnen Komponenten auf dem Fußballfeld auch schön übersichtlich angeordnet aus. Das Teil wird bestimmt für eine Menge Spaß sorgen.

---

und das als Eisenabhn-Fan

---

Hi
» Wat?
Is NQC'isch. Viel Rechnen.

» Nein spass also die Steuerung sieht ja echt Hammer mässig aus,
Vielen Dank.

» Warum wird den nur der innen Kreis so gesteuert?
Nee, nur der Außenkreis wird so gesteuert.
Warum nur der? Nun, das liegt an meiner Unerfahrenheit,
eine so große Anlage zu digitalisieren bzw. einer teilweisen digitalisierung zu unterziehen.


Grüße
Gunther

---

Hallo Gunter,
Eine sehr schoene Mischanlage zwischen Technik und Elektronik. Diese Anlage ist einen MOC-Beitrag wert.

Sofern man persoenlich an so etwas Interesse haette, kann man die Komponentenbedarfs - und Teileliste, einschliesslich eines Schaltbildes, irgendwie erhalten?

Du solltest einmal anmerken, fuer welche gewaltige Anlage diesmal Deine Technik zustaendig sein soll. Eine Gemeinschaftsanlage von 30 Metern Laenge und mindestens 2 Metern Breite ist ja nun keine Kleinigkeit mehr und diese Technik muss fuer einen praezisen und zuverlaessigen Ablauf verantwortlich zeichnen.

Haettest Du auch einmal ein Signal als Bild verfuegbar, sowie eine Weiche?

Wie koennte man so etwas in einem Haus unterbringen, welches Bestandteil der Anlage sein sollte?

Ein sonniger Gruss an Dich aus Berlin.
Ferdinand

---

Hallo Ferdinand.

» Sofern man persoenlich an so etwas Interesse haette, kann man die
» Komponentenbedarfs - und Teileliste, einschliesslich eines Schaltbildes,
» irgendwie erhalten?
Klar, das sollte kein Problem sein.

» Du solltest einmal anmerken, fuer welche gewaltige Anlage diesmal Deine
» Technik zustaendig sein soll. Eine Gemeinschaftsanlage von 30 Metern
» Laenge und mindestens 2 Metern Breite ist ja nun keine Kleinigkeit mehr
» und diese Technik muss fuer einen praezisen und zuverlaessigen Ablauf
» verantwortlich zeichnen.
An und bei 65 Meter Gleisstrecke, mit einem Bahnhof und einem Rangierbereich,
vier Weichen, zwei Signale und drei Züge. Von der Gleisstrecke her zwar länger aber vom Ablauf her einfacher als die Anlage, die ich letztes Jahr beim TSL gezeigt hatte.

» Haettest Du auch einmal ein Signal als Bild verfuegbar, sowie eine
» Weiche?

Die Signale werden sensorfrei umgestellt, also nach Zeit, in genau 0,5 Sekunden.
Die Weichen sind hingegen mit zwei Sensoren versehen. Umschaltzeit etwa 0,3 Sekunden.

» Wie koennte man so etwas in einem Haus unterbringen, welches Bestandteil
» der Anlage sein sollte?
Man kann die RCXe auch stapeln.
Eigentlich ist eine Unterbringung auf der Anlage aber nicht so gut.
Eher darunter, damit man besser die Programme auf die RCXe aufspeilen kann bzw. die Programme an den RCXen besser wechseln kann, bietet er doch Platz für fünf unterschiedliche Fahrpläne.

Grüße
Gunther

---

Hey eine Frage Kamm mir noch, halten die Züge auch an den Ampeln? Und kann da jeder 9v Zug fahren? Liebe Grüße Rob

---

Hi
» Hey eine Frage Kamm mir noch, halten die Züge auch an den Ampeln? Und kann
» da jeder 9v Zug fahren? Liebe Grüße Rob
Jepp, die Züge halten an den Signalen. Maß man nur entsprechend programmieren.
Manchmal schaltet es auf grün, dann halten sie halt nicht.
Die Gleise werden aus einem Trafo mit Strom versorgt.
Somit ist genau die Anzahl an Motoren möglich,
die man sonst auch betreiben kann.

Grüße
Gunther

---