Brauche Hilfe bei GK3-DKW und Schatten-DKW für GBS

Onkelwoody · Nov 12th 2018

Hallo Zusammen,

ich komme nichr witer, seit 2 Stunden suche ich den Fehler und finde ihn nicht. Vielleicht kann mir jemand auf die Sprünge helfen.

Ich habe testweise folgenden Aufbau gebaut:

Nun mein Problem:

Der Verbund Signal 005/ Weiche 006 schaltet korrekt, sowofl im 3d-Fenster als auch im GBS, die Stellungen werden richtig angezeigt und durchfahren:

Der Verbund Signal 011/ Weiche 012 fubktioniert nicht, wie er soll. Die DKW lässt sich in 3d über die Laterne 011 korrekt schalten, die Stellung wird auch von Weiche 012 angezeigt.
Schalte ich nun Weiche 012, werden zwar die Laternenstellungen korrekt übernommen, die DKW wir aber nicht gestellt.

So sieht das Script aus:

clearlog()

-- Alle ID Nummer der DKW-Laternen mit einem Komma getrent zwischen der Geschweiften Klammer Eintragen

-- Alle DKW-WeichenID Nummer mit einem Komma getrent zwischen den inneren Geschweiften Klammer Eintragen.

-- Dann die innere Geschweifte Klammer Kopieren und nach einem Komma wieder einfÃ¼gen, um die nÃ¤chste DKW-Weiche eintragen.

-- Lat_ID,{W1_ID,W3_ID,W2_ID,W4_ID,},Lat_ID,{...........}

DKW_IDs={5,{1,3,2,4},11,{7,9,8,10},0,{0,0,0,0}}

for x in pairs(DKW_IDs) do

local wert=x%2

if wert==1 then

EEPRegisterSignal(DKW_IDs[x])

end

--######################## Die EEPMain ist nur bei einer LUA freien Anlage nÃ¶tig

function EEPMain()

return 1

end

--########################

function EEPOnSignal_5(DKW_Lat_stell)

dkw_LaterneID = 5 --Hier die Laternen ID eintragen

for id, switch_ID in ipairs(DKW_IDs)do

if switch_ID==dkw_LaterneID then

if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links

if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts

if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts

if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links

end

function EEPOnSignal_11(DKW_Lat_stell)

dkw_LaterneID = 11 --Hier die Laternen ID eintragen

for id, switch_ID in ipairs(DKW_IDs)do

if switch_ID==dkw_LaterneID then

if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links

if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts

if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts

if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links

end

function EEPOnSignal_x(DKW_Lat_stell)

dkw_LaterneID = 0 --Hier die Laternen ID eintragen

for id, switch_ID in ipairs(DKW_IDs)do

if switch_ID==dkw_LaterneID then

if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links

if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts

if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts

if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links

end

EEPRegisterSwitch (6)

function EEPOnSwitch_6 (Stellung)

if Stellung == 1 then EEPSetSignal (5,1)

EEPSetSwitch (1, 1)

EEPSetSwitch (2, 1)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 2)

elseif Stellung == 2 then EEPSetSignal (5,2)

EEPSetSwitch (1, 2)

EEPSetSwitch (2, 1)

EEPSetSwitch (3, 1)

EEPSetSwitch (4, 2)

elseif Stellung == 3 then EEPSetSignal (5,3)

EEPSetSwitch (1, 2)

EEPSetSwitch (2, 2)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 1)

elseif Stellung == 4 then EEPSetSignal (5,4)

EEPSetSwitch (1, 1)

EEPSetSwitch (2, 2)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 1)

end

EEPRegisterSwitch (12)

function EEPOnSwitch_12 (Stellung)

if Stellung == 1 then EEPSetSignal (11,1)

EEPSetSwitch (1, 1)

EEPSetSwitch (2, 1)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 2)

elseif Stellung == 2 then EEPSetSignal (11,2)

EEPSetSwitch (1, 2)

EEPSetSwitch (2, 1)

EEPSetSwitch (3, 1)

EEPSetSwitch (4, 2)

elseif Stellung == 3 then EEPSetSignal (11,3)

EEPSetSwitch (1, 2)

EEPSetSwitch (2, 2)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 1)

elseif Stellung == 4 then EEPSetSignal (11,4)

EEPSetSwitch (1, 1)

EEPSetSwitch (2, 2)

EEPSetSwitch (3, 2)

EEPSetSwitch (4, 1)

end

Ich weiß mir keinen Rat mehr, ich fange allerdings auch gerade erst mit LUA an.

Glück Auf

Stefan

Goetz · Nov 12th 2018

Quote from Onkelwoody

ich fange allerdings auch gerade erst mit LUA an.

Dann möchte ich dir gerne ein Anfänger-freundliches DKW Skript anbieten:

Lua

-- ************ Hier die IDs der DKW Laternen und DKW Weichen eintragen ********
-- *************** [Laternen-ID] = {Weichen-IDs von klein nach groß}, **********
DKW_Tabelle = {
    [6] = { 1, 2, 3, 4},
    [12] = { 7, 8, 9, 10},
    }
-- ************ Zuordnungen nicht ändern ***************************************
for Laterne,Weichen in pairs (DKW_Tabelle) do
    _ENV["EEPOnSignal_"..Laterne] = function(Status)     -- Laterne schaltet DKW
        EEPSetSwitch(Weichen[1],({1,2,2,1})[Status])
        EEPSetSwitch(Weichen[2],({1,1,2,2})[Status])
        EEPSetSwitch(Weichen[3],({2,1,1,2})[Status])
        EEPSetSwitch(Weichen[4],({2,2,1,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[1]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[2],2)
        EEPSetSwitch(Weichen[3],({2,1})[Status])
        EEPSetSwitch(Weichen[4],1)
        EEPSetSignal(Laterne,({4,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[2]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[3],1)
        EEPSetSwitch(Weichen[4],({2,1})[Status])
        EEPSetSwitch(Weichen[1],2)
        EEPSetSignal(Laterne,({2,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[3]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[4],2)
        EEPSetSwitch(Weichen[1],({2,1})[Status])
        EEPSetSwitch(Weichen[2],1)
        EEPSetSignal(Laterne,({2,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[4]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[1],1)
        EEPSetSwitch(Weichen[2],({2,1})[Status])
        EEPSetSwitch(Weichen[3],2)
        EEPSetSignal(Laterne,({4,1})[Status])
    end
    EEPRegisterSignal(Laterne)                 -- Registrierung der DKW-Laterne
    EEPRegisterSwitch(Weichen[1])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[2])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[3])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[4])              -- Registrierung einer DKW-Weiche
end
-- ******************** Ende der Zuordnungen ***********************************

Display More

Bei Verwendung dieses Skripts dürfen die Weichen nicht verkoppelt sein!

Die Verkopplung wird durch das Skript vorgenommen.

Für die DKWs auf deiner Anlage musst du nur die Tabelle in den ersten Zeilen anpassen und erweitern. Sonst nichts!

Das macht es für den Anfänger leichter.

Viel Erfolg

Onkelwoody · Nov 12th 2018

Danke erstmal für die schnelle Antwort. Ich hab das natürlich sofort ausprobiert, Weichen entkoppelt und das Script eingefügt.

Irgendwas hab ich dabei falsch gemacht.......Weichen 5/6 gehen jetzt auch nicht mehr.........

Goetz · Nov 12th 2018

Quote from Onkelwoody

... und das Script eingefügt.

Nur eingefügt?

Oder auch die Signal- und Weichennummern angepasst?

Ich habe nämlich oben versehentlich statt der Nummern der Laternen die Nummern der parallelen DKWs eingetragen. Das musst du korrigieren.

Onkelwoody · Nov 12th 2018

Ich habe die Nummern auf 5 bzw. 11 geändert. Wie kann ich das Script aus Notepad++ hier einfügen, so dass es besser lesbar ist?

Goetz · Nov 12th 2018

Quote from Onkelwoody

Ich habe die Nummern auf 5 bzw. 11 geändert.

Dann ist alles korrekt.

Quote from Onkelwoody

Wie kann ich das Script ... hier [besser lesbar] einfügen ..?

Klicke oben in der Leiste auf dieses Symbol: </>

Füge in das Fenster deinen kopierten Code ein.

Klicke auf das Wort "Quellcode" und wähle statt "automatische Erkennung" aus der Liste "Lua" wenn du das Code Highlighting haben möchtest.

Onkelwoody · Nov 12th 2018

Lua

clearlog()
-- Alle ID Nummer der DKW-Laternen mit einem Komma getrent zwischen der Geschweiften Klammer Eintragen
-- Alle DKW-WeichenID Nummer mit einem Komma getrent zwischen den inneren Geschweiften Klammer Eintragen.
-- Dann die innere Geschweifte Klammer Kopieren und nach einem Komma wieder einfügen, um die nächste DKW-Weiche eintragen.

--     Lat_ID,{W1_ID,W3_ID,W2_ID,W4_ID,},Lat_ID,{...........}
DKW_IDs={5,{1,3,2,4},11,{7,9,8,10},0,{0,0,0,0}}

for x in pairs(DKW_IDs) do
    local wert=x%2
    if wert==1 then         
        EEPRegisterSignal(DKW_IDs[x])
    end
end
--########################  Die EEPMain ist nur bei einer LUA freien Anlage nötig
function EEPMain()
    return 1
end
--########################
function EEPOnSignal_5(DKW_Lat_stell)
                                                dkw_LaterneID = 5 --Hier die Laternen ID eintragen
    for id, switch_ID in ipairs(DKW_IDs)do    
        if switch_ID==dkw_LaterneID then    
            if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links
            if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts
            if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts
            if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links
        end
    end
end
function EEPOnSignal_11(DKW_Lat_stell)
                                                dkw_LaterneID = 11 --Hier die Laternen ID eintragen
    for id, switch_ID in ipairs(DKW_IDs)do    
        if switch_ID==dkw_LaterneID then            
            if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links
            if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts
            if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts
            if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links
        end
    end
end
function EEPOnSignal_x(DKW_Lat_stell)
                                                dkw_LaterneID = 0 --Hier die Laternen ID eintragen
    for id, switch_ID in ipairs(DKW_IDs)do    
        if switch_ID==dkw_LaterneID then            
            if DKW_Lat_stell==1 then EEPSetSwitch(DKW_IDs[id+1][2],2);EEPSetSwitch(DKW_IDs[id+1][4],2) end--links nach links
            if DKW_Lat_stell==2 then EEPSetSwitch(DKW_IDs[id+1][2],1);EEPSetSwitch(DKW_IDs[id+1][3],1) end--links nach rechts
            if DKW_Lat_stell==3 then EEPSetSwitch(DKW_IDs[id+1][1],2);EEPSetSwitch(DKW_IDs[id+1][3],2) end--rechts nach rechts
            if DKW_Lat_stell==4 then EEPSetSwitch(DKW_IDs[id+1][1],1);EEPSetSwitch(DKW_IDs[id+1][4],1) end--rechts nach links
        end
    end
end

    - ************ Hier die IDs der DKW Laternen und DKW Weichen eintragen ********
    -- *************** [Laternen-ID] = {Weichen-IDs von klein nach gro࠽, **********
    DKW_Tabelle = {
        [5] = { 1, 2, 3, 4},
        [11] = { 7, 8, 9, 10},
        }
    -- ************ Zuordnungen nicht 寤ern ***************************************
    for Laterne,Weichen in pairs (DKW_Tabelle) do
        _ENV["EEPOnSignal_"..Laterne] = function(Status)     -- Laterne schaltet DKW
            EEPSetSwitch(Weichen[1],({1,2,2,1})[Status])
            EEPSetSwitch(Weichen[2],({1,1,2,2})[Status])
            EEPSetSwitch(Weichen[3],({2,1,1,2})[Status])
            EEPSetSwitch(Weichen[4],({2,2,1,1})[Status])
        end
        _ENV["EEPOnSwitch_"..Weichen[1]] = function(Status)  -- DKW schaltet Laterne
            EEPSetSwitch(Weichen[2],2)
            EEPSetSwitch(Weichen[3],({2,1})[Status])
            EEPSetSwitch(Weichen[4],1)
            EEPSetSignal(Laterne,({4,3})[Status])
        end
        _ENV["EEPOnSwitch_"..Weichen[2]] = function(Status)  -- DKW schaltet Laterne
            EEPSetSwitch(Weichen[3],1)
            EEPSetSwitch(Weichen[4],({2,1})[Status])
            EEPSetSwitch(Weichen[1],2)
            EEPSetSignal(Laterne,({2,3})[Status])
        end
        _ENV["EEPOnSwitch_"..Weichen[3]] = function(Status)  -- DKW schaltet Laterne
            EEPSetSwitch(Weichen[4],2)
            EEPSetSwitch(Weichen[1],({2,1})[Status])
            EEPSetSwitch(Weichen[2],1)
            EEPSetSignal(Laterne,({2,1})[Status])
        end
        _ENV["EEPOnSwitch_"..Weichen[4]] = function(Status)  -- DKW schaltet Laterne
            EEPSetSwitch(Weichen[1],1)
            EEPSetSwitch(Weichen[2],({2,1})[Status])
            EEPSetSwitch(Weichen[3],2)
            EEPSetSignal(Laterne,({4,1})[Status])
        end
        EEPRegisterSignal(Laterne)                 -- Registrierung der DKW-Laterne
        EEPRegisterSwitch(Weichen[1])              -- Registrierung einer DKW-Weiche
        EEPRegisterSwitch(Weichen[2])              -- Registrierung einer DKW-Weiche
        EEPRegisterSwitch(Weichen[3])              -- Registrierung einer DKW-Weiche
        EEPRegisterSwitch(Weichen[4])              -- Registrierung einer DKW-Weiche
    end
    -- ******************** Ende der Zuordnungen ***********************************

Display More

Goetz · Nov 12th 2018

Um Himmels Willen.

Warum hast du denn jetzt beide Skripte untereinander?

Du brauchst nur folgendes Skript (jetzt mit den richtigen Werten und der nötigen EEPMain() Funktion):

Lua

clearlog()

function EEPMain()
    return 1
end

-- ************ Hier die IDs der DKW Laternen und DKW Weichen eintragen ********
-- *************** [Laternen-ID] = {Weichen-IDs von klein nach groß}, **********
DKW_Tabelle = {
    [5] = { 1, 2, 3, 4},
    [11] = { 7, 8, 9, 10},
    }
-- ************ Zuordnungen nicht ändern ***************************************
for Laterne,Weichen in pairs (DKW_Tabelle) do
    _ENV["EEPOnSignal_"..Laterne] = function(Status)     -- Laterne schaltet DKW
        EEPSetSwitch(Weichen[1],({1,2,2,1})[Status])
        EEPSetSwitch(Weichen[2],({1,1,2,2})[Status])
        EEPSetSwitch(Weichen[3],({2,1,1,2})[Status])
        EEPSetSwitch(Weichen[4],({2,2,1,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[1]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[2],2)
        EEPSetSwitch(Weichen[3],({2,1})[Status])
        EEPSetSwitch(Weichen[4],1)
        EEPSetSignal(Laterne,({4,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[2]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[3],1)
        EEPSetSwitch(Weichen[4],({2,1})[Status])
        EEPSetSwitch(Weichen[1],2)
        EEPSetSignal(Laterne,({2,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[3]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[4],2)
        EEPSetSwitch(Weichen[1],({2,1})[Status])
        EEPSetSwitch(Weichen[2],1)
        EEPSetSignal(Laterne,({2,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[4]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[1],1)
        EEPSetSwitch(Weichen[2],({2,1})[Status])
        EEPSetSwitch(Weichen[3],2)
        EEPSetSignal(Laterne,({4,1})[Status])
    end
    EEPRegisterSignal(Laterne)                 -- Registrierung der DKW-Laterne
    EEPRegisterSwitch(Weichen[1])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[2])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[3])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[4])              -- Registrierung einer DKW-Weiche
end
-- ******************** Ende der Zuordnungen ***********************************

Display More

Waldkaterle · Nov 12th 2018

Hallo Götz,

ich war jetzt auch etwas durcheinander mit [6] und [12]. Bin auch ein Lua Anfänger und lerne noch dazu, aber jetzt passt es wieder.

VG Bodo

Onkelwoody · Nov 12th 2018

Jetzt habe ich nur dieses Script drinne, aber das GBS schaltet nach wie vor nur die Schattenweichen, die eigentlichen DKW lassen sich über die Laterne schalte, aber das ging ja ganz zu Anfang auch schon, das GBS schaltet jetzt bei beiden nur noch die Schattenweichen. da war ich schon mal einen Schritt weiter.......

Für heute lasse ich es gut sein, wird Zeit, ins Bett zu gehen.

Vielen Dank erstmal für Deine Mühe.

L.G. Stefan

Goetz · Nov 12th 2018

Quote from Onkelwoody

aber das GBS schaltet nach wie vor nur die Schattenweichen

Ah, das hatte ich nicht bedacht.

Die Schatten-DKW musst du noch per Wenn ... Dann Verknüpfung (in den Objekteigenschaften) direkt mit der Laterne der GK3 DKW verknüpfen.

Achte bitte darauf, alle vier möglichen Stellungen zu verkoppeln.

Und umgekehrt musst du die GK3 Laterne mit der Schatten-DKW verknüpfen, damit ein manuelles Umschalten der GK3 DKW auch im Pult richtig widergespeigelt wird.

Waldkaterle · Nov 12th 2018

Hallo Stefan,

denke mal du musst die Schattenweichen mit den GK3 Weichen verbinden. Dann dürfte es funktionieren.

VG Bodo

Onkelwoody · Nov 13th 2018

So sieht das Ganze jetzt aus. Ergebnis: Wie am Anfang, Weichen 5/6 funktionieren einwandfrei, Weich 11 lässt sich per Laterne schalten, nicht aber per GBS, Da wird nur die Schattenweiche gestellt und das Schaltgeräusch abgespielt.

Lua

clearlog()
function EEPMain()
    return 1
end
-- ************ Hier die IDs der DKW Laternen und DKW Weichen eintragen ********
-- *************** [Laternen-ID] = {Weichen-IDs von klein nach groß}, **********
DKW_Tabelle = {
    [5] = { 1, 2, 3, 4},
    [11] = { 7, 8, 9, 10},
    }
-- ************ Zuordnungen nicht ändern ***************************************
for Laterne,Weichen in pairs (DKW_Tabelle) do
    _ENV["EEPOnSignal_"..Laterne] = function(Status)     -- Laterne schaltet DKW
        EEPSetSwitch(Weichen[1],({1,2,2,1})[Status])
        EEPSetSwitch(Weichen[2],({1,1,2,2})[Status])
        EEPSetSwitch(Weichen[3],({2,1,1,2})[Status])
        EEPSetSwitch(Weichen[4],({2,2,1,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[1]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[2],2)
        EEPSetSwitch(Weichen[3],({2,1})[Status])
        EEPSetSwitch(Weichen[4],1)
        EEPSetSignal(Laterne,({4,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[2]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[3],1)
        EEPSetSwitch(Weichen[4],({2,1})[Status])
        EEPSetSwitch(Weichen[1],2)
        EEPSetSignal(Laterne,({2,3})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[3]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[4],2)
        EEPSetSwitch(Weichen[1],({2,1})[Status])
        EEPSetSwitch(Weichen[2],1)
        EEPSetSignal(Laterne,({2,1})[Status])
    end
    _ENV["EEPOnSwitch_"..Weichen[4]] = function(Status)  -- DKW schaltet Laterne
        EEPSetSwitch(Weichen[1],1)
        EEPSetSwitch(Weichen[2],({2,1})[Status])
        EEPSetSwitch(Weichen[3],2)
        EEPSetSignal(Laterne,({4,1})[Status])
    end
    EEPRegisterSignal(Laterne)                 -- Registrierung der DKW-Laterne
    EEPRegisterSwitch(Weichen[1])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[2])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[3])              -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[4])              -- Registrierung einer DKW-Weiche
end
-- ******************** Ende der Zuordnungen ***********************************

EEPRegisterSwitch (6)
function EEPOnSwitch_6 (Stellung)
    if Stellung == 1 then EEPSetSignal (5,1)
        EEPSetSwitch (1, 1)
        EEPSetSwitch (2, 1)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 2)
    elseif Stellung == 2 then EEPSetSignal (5,2)
        EEPSetSwitch (1, 2)
        EEPSetSwitch (2, 1)
        EEPSetSwitch (3, 1)
        EEPSetSwitch (4, 2)
   elseif Stellung == 3 then EEPSetSignal (5,3)
        EEPSetSwitch (1, 2)
        EEPSetSwitch (2, 2)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 1)
   elseif Stellung == 4 then EEPSetSignal (5,4)
        EEPSetSwitch (1, 1)
        EEPSetSwitch (2, 2)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 1)
    end
end

EEPRegisterSwitch (12)
function EEPOnSwitch_12 (Stellung)
    if Stellung == 1 then EEPSetSignal (11,1)
        EEPSetSwitch (1, 1)
        EEPSetSwitch (2, 1)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 2)
    elseif Stellung == 2 then EEPSetSignal (11,2)
        EEPSetSwitch (1, 2)
        EEPSetSwitch (2, 1)
        EEPSetSwitch (3, 1)
        EEPSetSwitch (4, 2)
   elseif Stellung == 3 then EEPSetSignal (11,3)
        EEPSetSwitch (1, 2)
        EEPSetSwitch (2, 2)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 1)
   elseif Stellung == 4 then EEPSetSignal (11,4)
        EEPSetSwitch (1, 1)
        EEPSetSwitch (2, 2)
        EEPSetSwitch (3, 2)
        EEPSetSwitch (4, 1)
    end
end

Display More

Goetz · Nov 13th 2018

~~Alles nach Zeile 49 ist zu viel und muss raus.~~

~~Das kollidiert mit dem darüber.~~

~~Und hast du in den Objekteigenschaften der Schatten-DKWs die Verknüpfungen eingetragen?~~

Sorry - alles Mist

Die Verknüpfung einer DKW ist nicht mehr so einfach. Da muss ich selbst schauen, was nötig ist ...

Onkelwoody · Nov 13th 2018

Bei den Schatten-DKW könnte ich das bestenfalls bei den Gleiseigenschaften festlegen, der Schalter ist allerdings gesperrt. Bei den Weichen 5/6 funktioniert es ja auch mit dem Skript, unr eben bei Weiche 11/12 nicht.

Goetz · Nov 13th 2018

Okay, hier ist eine Lösung, welche die Schatten-DKW per Lua mit der GK3-DKW koppelt.

Hänge nach Zeile 49 nur folgende Zeilen an:

Lua

EEPRegisterSwitch (6)
function EEPOnSwitch_6 (Stellung)
    EEPSetSignal (5, Stellung, 1)
end

EEPRegisterSwitch (12)
function EEPOnSwitch_12 (Stellung)
    EEPSetSignal (11, Stellung, 1)
end

Erklärung:

Die Weichenlaterne der DK3 DKW bekommt per Lua die selbe Stellung wie die Schatten-DKW.

Die 1 als dritter Parameter sorgt dafür, dass die GK3-DKW wiederum beim Umschalten die Lua Funktion aufruft, welche die zugehörigen Weichen schaltet.

Achtung:

Bei dieser Version bitte nichts direkt verkoppeln!

Nachtrag:

Ich bin dir noch eine Erklärung schuldig, warum mit deinem Skript nur eine der beiden Schatten-DKWs funktioniert hat. Ich musste mich nur erst einmal um den Hund kümmern.

Deine Zeilen 51 bis 74 verknüpfen die Schatten-DKW 6 mit der zugehörigen GK3 DKW. Da werden die Weichen 1 bis 4 angesprochen. Und das ist richtig, weil diese Weichen zur entsprechenden GK3-DKW gehören.

Deine Zeilen 76 bis 99 verknüpfen die Schatten-DKW 12 mit der zugehörigen GK3-DKW. Und hier werden ebenfalls die Weichen 1 bis 4 angesprochen. Das ist falsch, denn die Weichen in der zugehörigen GK3-DKW haben die Nummern 7 bis 10.

Goetz · Nov 13th 2018

Die anzuhängenden Zeilen im vorherigen Beitrag waren nur eine schnelle Notlösung.

Es ist sinnvoller, die Schatten-DKWs mit in die DKW-Tabelle aufzunehmen.

Hier ist das passend umgeschriebene Skript:

Lua

clearlog()
function EEPMain()
    return 1
end
-- ********* Hier die IDs der DKW Laternen und DKW Weichen eintragen **********
--  [Laternen-ID] = {Weichen-IDs von klein nach groß, Schatten-DKW optional}, *
DKW_Tabelle = {
    [ 5] = { 1, 2, 3,  4, Schatten =  6},
    [11] = { 7, 8, 9, 10, Schatten = 12},
    }
-- ************ Zuordnungen nicht ändern **************************************
for Laterne, Weichen in pairs (DKW_Tabelle) do
    if Weichen.Schatten then
        _ENV["EEPOnSwitch_"..Weichen.Schatten] = function(Status)
            EEPSetSignal(Laterne, Status, 1)
        end
        _ENV["EEPOnSignal_"..Laterne] = function(Status)-- Laterne schaltet DKW
            EEPSetSwitch(Weichen[1], ({1, 2, 2, 1})[Status])
            EEPSetSwitch(Weichen[2], ({1, 1, 2, 2})[Status])
            EEPSetSwitch(Weichen[3], ({2, 1, 1, 2})[Status])
            EEPSetSwitch(Weichen[4], ({2, 2, 1, 1})[Status])
            EEPSetSwitch(Weichen.Schatten, Status)      -- Schatten-DKW
        end
        EEPRegisterSwitch(Weichen.Schatten)
    else
        _ENV["EEPOnSignal_"..Laterne] = function(Status)-- Laterne schaltet DKW
            EEPSetSwitch(Weichen[1], ({1, 2, 2, 1})[Status])
            EEPSetSwitch(Weichen[2], ({1, 1, 2, 2})[Status])
            EEPSetSwitch(Weichen[3], ({2, 1, 1, 2})[Status])
            EEPSetSwitch(Weichen[4], ({2, 2, 1, 1})[Status])
        end
    end
    _ENV["EEPOnSwitch_"..Weichen[1]] = function(Status) -- DKW schaltet Laterne
        EEPSetSignal(Laterne, ({4, 3})[Status], 1)
    end
    _ENV["EEPOnSwitch_"..Weichen[2]] = function(Status) -- DKW schaltet Laterne
        EEPSetSignal(Laterne, ({2, 3})[Status], 1)
    end
    _ENV["EEPOnSwitch_"..Weichen[3]] = function(Status) -- DKW schaltet Laterne
        EEPSetSignal(Laterne, ({2 ,1})[Status], 1)
    end
    _ENV["EEPOnSwitch_"..Weichen[4]] = function(Status) -- DKW schaltet Laterne
        EEPSetSignal(Laterne, ({4, 1})[Status], 1)
    end
    EEPRegisterSignal(Laterne)                -- Registrierung der  DKW-Laterne
    EEPRegisterSwitch(Weichen[1])             -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[2])             -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[3])             -- Registrierung einer DKW-Weiche
    EEPRegisterSwitch(Weichen[4])             -- Registrierung einer DKW-Weiche
end
-- ******************** Ende der Zuordnungen ***********************************

Display More

Bei dieser Variante sind nur die individuellen Einträge in der DKW-Tabelle erforderlich. Mehr nicht!

Mit dem unteren Teil des Skripts bin ich noch nicht glücklich. Da steckt für meinen Geschmack noch viel zu viel Umstandskrämerei drin. Aber er arbeitet sauber und erfordert keine User-seitigen Anpassungen.

Im Gegensatz zur Version im vorherigen Posting funktioniert hier die Kopplung in beide Richtungen:
Das Pult schaltet über die Schatten-DKW die GK3-DKW.

Und eine manuelle Umschaltung der GK3-DKW wird per Schatten-DKW ins Pult übertragen.

Onkelwoody · Nov 13th 2018

Quote from Goetz

Nachtrag:

Ich bin dir noch eine Erklärung schuldig, warum mit deinem Skript nur eine der beiden Schatten-DKWs funktioniert hat. Ich musste mich nur erst einmal um den Hund kümmern.

Deine Zeilen 51 bis 74 verknüpfen die Schatten-DKW 6 mit der zugehörigen GK3 DKW. Da werden die Weichen 1 bis 4 angesprochen. Und das ist richtig, weil diese Weichen zur entsprechenden GK3-DKW gehören.

Deine Zeilen 76 bis 99 verknüpfen die Schatten-DKW 12 mit der zugehörigen GK3-DKW. Und hier werden ebenfalls die Weichen 1 bis 4 angesprochen. Das ist falsch, denn die Weichen in der zugehörigen GK3-DKW haben die Nummern 7 bis 10.

Display More

Danke, danke, danke! das war es...... Jetzt klappt alles!

Goetz · Nov 13th 2018

Quote from Onkelwoody

das war es...

Aber es war auch ein gutes Beispiel dafür, warum diese Methode ein schlechter Ansatz ist.

Du musst viel zu viel anpassen und die Stellen, wo du Werte anpassen musst, sind über das gesamte Skript verstreut.

Deshalb habe ich dir gerade eine elegantere Alternative angeboten.

Onkelwoody · Nov 14th 2018

Ich bin hier noch eine Antwort schuldig. Lieber Goetz, ich habe das jetzt mit Deinem Script ausprobieren können, selbstverstädlich funktioniert es einwandfrei. Es ist mir auch gelungen , noch eine DKW hinzu zu fügen, die auf Anhieb perfekt funktionierte.

Vielen, vielen Dank!

L.G. Stefan