Posts by Parry36

Parry36 · 2020-07-11T17:24:32+02:00

Messina ,

wenn du den gesamten Codeschnipsel unterhalb von a_pool in deinem rus Script

eingefügt hast, so wird diese Funktion per Referenz in a_pool getriggert.

Bei den 14 Fahrstrassen mußt du darauf achten, dass die zugehörigen

Ausfahrtsignale mit eingebunden werden.

Den Anmeldekontakt (anmelden(2350), an entsprechender Stelle auf der

Anlage einsetzen.

Die Abmeldung der Funktion erfolgt in den jeweiligen Callback Funktionen

der geschalteten Fahrstrasse.

Da ich die Situation deiner Anlage nicht kenne, ist es sehr schwer etwas dazu

zu sagen.

Eventuell zeigst du mir dein Anlagenscript.

Gruß Dieter

Parry36 · Thursday, 11:04 pm

Messina ,

Messina wrote:

...:413: bad argument #1 to 'for iterator' (table expected, got nil)

Das kommt davon wenn man etwas ganz fix machen will:

die in der for Schleife genutzt Tabelle a_SuedA wird in der Funktion als Local

deklariert, das ist falsch, nimm die Tabelle aus der Funtion heraus.

Eigentlich hat Andreas_Kreuz recht, man sollte keine while Schleifen nutzen,

ich werde sie ersetzen:

LUA Source Code: Korrektur

--Ausfahrt Süd Bhf Köln
local a_SuedA = {{304, 345},{305, 343},{306, 342},{307, 339},{327, 470},{328, 418},
{329, 389},{330, 1773},{331, 1872},{332, 355},{333, 364},{334, 370},
{335, 374},{337, 1932} }
-- schaltet die 14 Ausfahrt-FS, Id´s sind fiktiv! {FS_Id, TrackId}
function a_pool:AusfahrtNord() -- Aufruf im KP, anmelden(2350)
if load_tabData(2350) then -- prüft die Anforderung Id fiktiv
for _, v in pairs(table2rand(a_NordA)) do
if EEPIsRailTrackReserved(v[2]) then
EEPSetSignal(v[1], 2,1 ) -- mit Callback
end
end
end
end
-- Callback Funktionen erzeugen
for _,v in pairs(a_NordA) do
EEPRegisterSignal(v[1])
_ENV["EEPOnSignal_"..v[1]] = function(_status)
if _status > 1 then
del_tabData(2350)
print("FS_", v[1], ", Ausfahrt Nord, geschaltet")
end
end
end

Display More

Zu deinen Fragen wegen der beiden Funktionen, schau bitte in die Scripte

des rus Paketes, dort sind die Funktion deklariert und auch erklärt, übrigens

werden die Funktion in dem Vorlage Script (Template), welches du wahrscheinlich nutzt,

genutzt.

Versuchs halt mal und sage mir wie es funktioniert hat.

Gruß Dieter

Parry36 · Wednesday, 9:39 pm

Hallo Messina , Guy,

Messina wrote:

Verschiedenes ist mir jedoch noch unklar:

1. Wie definiert man einen Fahrweg für einen Zug, der keine besondere Route hat?

Antwort: Du nutzt für diese Fahrstrasse keine Route, sondern nur load_tabData()

für die Aktivierung. Grundsätzlich gilt, jeder Zug muß eine Route haben.

2. Wie definiert man einen zufälligen Fahrweg für einen Zug?

Antwort: Wenn du in deinen Scripten die Funktion fw_random() nutzt, so werden
die Fahrwege per Random, also zufällig geschaltet.

3. Kann man ähnlich, wie bei Kps., einen Fahrweg nach x-tem Durchgang schalten?

Antwort: Selbstverständlich, du kannst dem anmelden()- KP eine Verzögerung oder

auch Durchgänge mitgeben nach denen geschaltet wird.

4. Schaltung, bei der aus diesen 18 Gleisen jeweils ein Zug zufällig ausfährt,

Antwort: Für die Einfahrt hast du bereits die Funktion vorbereitet. Für die Ausfahrt

mußt du eine entsprechend Sonderfunktion in a_pool per Referenz generieren,

die Besetztprüfung kannst du über Merker oder RailTrack vornehmen.

Hier der korrigierte Eintrag:

LUA Source Code: Eintrag

[338] = {trigger = true, -- Einfahrt Nord Bhf
s_text = "angefordert, Dispatching Nord", -- anmelde Text
routen = {a_routenJ, a_routenJa}, -- Routen vergeben
f_wege = { {2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19}, {20} },
on_text = {"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.1",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.2",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.3",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.4",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.5",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.6",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.7",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.8",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.9",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.10",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.11",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.12",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.13",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.14",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.15",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.16",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.17",
"FS_338, geschaltet, Bhf., Einfahrt Nord Gl.18",
"FS_338, geschaltet, Vorbeifahrt auf Hauptstrecke" } },

Display More

Versuchs mal.

Gruß Dieter

PS: Hab mal ein bisschen gespielt, aber nicht getestet.

LUA Source Code: Ausfahrt nicht getestet

-- schaltet die 17 Ausfahrt-FS, Id´s sind fiktiv! {FS_Id, TrackId}
function a_pool:AusfahrtNord() -- Aufruf mit anmelden(2350) im KP
local a_NordA = {{350, 1234},{351, 1235},{352, 1236},{353, 1237},{354, 1238},{355, 1239},
{356, 1240},{357, 1241},{358, 1242},{359, 1243},{360, 1244},{361, 1245},
{362, 1246},{363, 1247},{364, 1248},{365, 1249},{366, 1250} }
local ok = true
if load_tabData(2350) then -- prüft die Anforderung Id fiktiv
while ok do
wahl = a_NordA[ math.random(17)]
if EEPIsRailTrackReserved(wahl[2]) then
EEPSetSignal(wahl[1], 2,1 )
ok = false
end
end
end
end
for _,v in pairs(a_NordA) do
EEPRegisterSignal(v[1])
_ENV["EEPOnSignal_"..v[1]] = function(_status)
if _status > 1 then
del_tabData(2350)
del_tabData(v[1])
end
end
end

Display More

Parry36 · Tuesday, 6:46 pm

PfalzWolf1963 , Wolfgang,

so könnte das in deinem Anlagenscript aussehen:

LUA Source Code: Vorschlag rus Paket

-- Ein Vorschlag zum rus Paket
clearlog()
function EEPMain()
inEEPMain()
return 1
end
-- Script als universelle Grundlage/Vorlage, für eine neue/vorhandene Anlage,
-- wird ständig erweitert, nach dem Prinzip "rundum sorglos" Paket von Parry36,
-- Nutzung gemäß Vorgabe, mit Quellenangabe Parry36, Änderungen an meinem Sourcecode,
-- sowie die Ausgliederung von Teilen, sind nicht erlaubt,
-- in das Anlagen-Script kopieren und los geht´s, inEEPMain() in EEPMain() einbinden, Stand: 07.2020
-- oder im Anlagen-Script nur mit require() einbinden, inEEPMain(), in EEPMain() triggern.
t = 0
math.randomseed(os.time())
require("P36_Tool_Box") -- im LUA Ordner (von meiner Homepage kopieren)
require("Slot_tab_Data") -- im LUA Ordner (von meiner Homepage kopieren)
require("meinSchattenbahnhof") -- und weitere require() Einträge wenn erforderlich
print("\n Zeitstempel: ", P36_time(), ",\n Anlage: Meine neue Anlage")
print(" EEP Version: ", EEPVer, " Lua Version: ", _VERSION, "\n")
sloteinlesen() -- beim Anlagenstart die Daten einlesen
info_tabData() -- Info
-- Routenzusammenfassung in Tabellen, nur als Beispiele
local a_routenG = {"Gueter","Gefahrgut","Kohlen"}
local a_routenP = {"ICE","Personen","Regional","Sonderfahrt"}
local a_routenR = {"Personen","Regional","Wende"}
local a_routenD = {"Personen", "Schnellzug"}
local a_routenI = {"ICE", "Regional", "IC", "Personen"}
-- Tabelle a_znSlot, hier alle Fahrstrassen-Beschreibungen einsetzen
local a_znSlot = {}
--[[
BEISPIEL: für FS_412 (als Vorlage nutzen)
local a_znSlot = {[412] = {trigger = true, -- generieren von Funktionen
s_text = "angefordert, Bhf.Süd aus Ost", -- anmelde Text
routen = {a_routenG, a_routenP}, -- Routen vergeben
f_wege = { {2,3}, {4,5,6}}, -- Fahrwege festlegen
on_text = {"FS_412, geschaltet, Bhf.Süd, Einfahrt Ost Gl.5, Güter", -- EEPOn Texte
"FS_412, geschaltet, Bhf.Süd, Einfahrt Ost Gl.4, Güter", -- für jeden Fahrweg
"FS_412, geschaltet, Bhf.Süd, Einfahrt Ost Gl.3",
"FS_412, geschaltet, Bhf.Süd, Einfahrt Ost Gl.2",
"FS_412, geschaltet, Bhf.Süd, Einfahrt Ost Gl.1" } }, -- <--- auf das Komma achten
}
]]
-- Tabelle a_pool für einzel Fahrwege, die nicht in a_znSlot enthalten sind
-- einschließlich --> eventuelle Sonderfunktionen die in EEPMain() getriggert werden sollen
local a_pool = {}
--[[
-- ein BEISPIEL: FS-Id´s und Referenzen
local a_pool = {88,97,66,54,55,443,123,43,}
z.B. Sonderfunktionen per Referenzübergabe in a_pool
function a_pool:Sonderfunktion()
body ...
end
]]
------------ generieren aller Funktionen in a_znSlot -----------
for k, v in pairs(a_znSlot) do
-- Funktionen nur generieren wenn trigger = true
if v.trigger then
_ENV["FS_"..k] = function() -- Funktions-Namen z.B. FS_412
local hResult, s_route = load_tabData(k) -- Route aus Tabelle laden
if hResult and EEPGetSignal(k) == 1 then -- anmelden prüfen und verriegeln
for n = 1, #v.routen do -- Tabelle routen wird iteriert, als Master
if SelectRoute( s_route, v.routen[n]) then -- Fahrwege als Slaves
EEPSetSignal(k, fw_random(v.f_wege[n]), 1) -- mit Callback aufrufen
end
end
end
end
v.func = _ENV["FS_"..k] -- Referenzübergabe der Funktionen an a_znSlot
EEPRegisterSignal(k) -- Signale registrieren trigger == true
_ENV["EEPOnSignal_"..k] = function(_status) -- Callback generieren
if _status > 1 then
del_tabData(k) -- Anforderung löschen
print(v.on_text[_status -1]) -- Textausgabe
end
end
end
end
-- !!!!!!! inEEPMain(), in --->EEPMain()<---,im Anlagen-Script triggern !!!!!!!
function inEEPMain()
t = t + 1
FS_schalten()
if t%600 == 0 then
info_tabData() -- Info anzeigen alle 2 Min.
end
end
-- in inEEPMain()
function FS_schalten()
for k , v in pairs(table2rand(a_znSlot)) do -- verwürfeln
if not v.func then -- keine Funktion vorgegeben
if load_tabData(k) and EEPGetSignal(k) == 1 then EEPSetSignal(k, 2) end -- verriegeln
elseif type(v.func) == "function" then
v.func()
end
end
for _, v in pairs(table2rand(a_pool)) do
if type(v) == "number" then
if load_tabData(v) and EEPGetSignal(v) == 1 then EEPSetSignal(v, 2) end -- verriegeln
elseif type(v) == "function" then
v()
end
end
end
-- anmelden im KP, z.Beispiel --> anmelden(56) <-- für die FS 56
function anmelden(Fs_Id, Zn)
Zn = Zn or Zugname
local hResult, s_route = EEPGetTrainRoute(Zn)
if hResult then
set_tabData(Fs_Id, s_route )
if not a_znSlot[Fs_Id] then
print("FS_", Fs_Id, ", angefordert, Zug: ", Zn, ",\nRoute: ", s_route)
else
print("FS_", Fs_Id, ", ",a_znSlot[Fs_Id].s_text, "\nZug: ", Zn, ", Route: ", s_route)
end
end
end
-- abmelden im KP, z.Beispiel --> abmelden(56) <-- für die FS 56
-- wenn die FS in a_znSlot generiert wurde, ist keine Abmeldung im KP erforderlich
function abmelden(Fs_Id, Zn)
Zn = Zn or Zugname
del_tabData(Fs_Id)
if not a_znSlot[Fs_Id] then
print("FS_", Fs_Id, ", geschaltet, Zug: ", Zn)
end
end

Display More

Gruß Dieter

Parry36 · Jul 3rd 2020

PfalzWolf1963 , Wolfgang,

es ist schön, dass du dich mit Lua anfreunden konntest, freut mich.

Zu deiner Frage möchte ich dir raten, bei einer neuen Anlage sofort das
"rundum sorglos Paket"

(besteht aus den 3 Dateien: Anlagen Template, mit den eingebundenen

Scripten P36 Toolbox und Slot_tabData)

einzusetzen, da du hier alle Freiheiten nutzen kannst, du mußt nicht sofort

mit dem Beschreiben der FS Funktionen beginnen, sondern kannst einfach

klein anfangen, um es später, wenn du die Funktionen verstanden hast,

successiv erweitern.

Das sollte dich allerdings nicht daran hindern, deine Luakenntnisse mit den weiterführenden

Lehrvideos, weiter zu festigen.

Gruß Dieter

Parry36 · Jun 20th 2020

juemei wrote:

Deine Reaktion gegenüber Dieter war unangemessen, Dieter

Du glaubst doch nicht wirklich, dass ich darauf antworten werde.

DH1, Dieter und ich, kennen uns bereits sehr lange und ich schätze ihn und
seine Arbeiten sehr.

DH1 wrote:

aber mir glaubt ja keiner

aber ich immer, da kannst du sicher sein.

Eigentlich habe ich wenig Lust hier noch irgend etwas zu posten, werde sofort verprügelt,

trotzdem Gruß Dieter

Parry36 · Jun 19th 2020

Man soll´s nicht glauben, sie pfeift, auch in V15.

Danke, Joachim.

Gruß Dieter

Parry36 · Jun 19th 2020

Hallo Ralf, pfq615 ,

ich bin mir sicher, das bereits probiert zu haben, aber man weiß

ja nie, werde das heute abend prüfen.

Gruß Dieter

Parry36 · Jun 19th 2020

DH1 , Dieter,

was meist du was ich bereits angestellt habe,
versuch doch selbst mal diese Funktion auszuführen.

"Rückgabewert ist true, wenn die Funktion erfolgreich ausgeführt wurde, sonst false."

Die "103_Pfeife.wav" sollte bei dir doch vorhanden sein.

Es pfeift nicht, wenn ich die Datei in EEP ausführen will,

hingegen im PC schon.

Gruß Dieter

Parry36 · Jun 19th 2020

Warum pfeift die Pfeife nicht?

Es wird "funktioniert" ausgeprintet, aber es pfeift nicht.

Warum?

LUA Source Code: Pfeife

function test_p() -- Versuch in FS_301 on_func
print("\n******FS_301, Hurra, mein Versuch 301 ist geglückt******\n")
local ok = EEPPlaySound("Sounds/EEXP/103_Pfeife.wav") -- funktioniert nicht
if ok then print("funktioniert") else print("funktioniert nicht") end
end

Gruß Dieter

Parry36 · Jun 16th 2020

Danke marler1957 ,

habe ich verstanden, das sind klare Worte.

Gruß Dieter

Parry36 · Jun 16th 2020

Hallo,

wenn ich das richtig Verstehe, soll das Heißen, dass bereits für EEP 15
kein Support geleistet werden soll?

Gruß Dieter

Parry36 · Jun 4th 2020

Hallo Messina ,

gemäß deinem Fortschritt in der Durchsicht der Lehrvdeos, möchte ich dir
den dringenden Rat geben, in den Lektionen der Videos weiter zu arbeiten.

Es wird in der Folge auch auf die Verwendung der EEPslotspeicher im
Bereich unterhalb der 1000 Marke eingegangen, bei Signal-Id´s oberhalb
von 1000.
Lass es lieber langsam angehen, man lernt dadurch intensiver.

Gruß Dieter

Parry36 · Jun 3rd 2020

Hallo Benny,

deine Empfehlung finde ich garnicht gut.

Leider ist es mir nicht gelungen über die Konversation, die Begründung zu senden,

funktioniert nicht.

Gruß Dieter

Parry36 · May 26th 2020

Lieber Christopher,

das habe ich gelesen, nur wenn man schon den Code von Benny nutzt, so sollte er
auch der originale Code sein.

Im übrigen wird der Zugname nur dann im KP übergeben, wenn er auch als Parameter

in der deklarierten Funktion enthalten ist.

Gruß Dieter

PS: ach ja, habe ich ganz vergessen; Einfach noch ein bisschen Lua lernen.

Parry36 · May 26th 2020

Hier passt etwas vorne und hinten nicht....

Benny´s Code ist hier fehlerhaft, es muß "Zugname" heißen und nicht "zugname".

In der Funktion muß,es heißen : function wege_schalten(weiche_nr, Zugname).

Einfach noch ein bischen lernen.

Gruß Dieter

Parry36 · May 23rd 2020

Wie ich durch eure Antworten sehe, muß ich mich doch etwas
intensiver mit dem Problem befassen.

Vielen Dank rene57 , hardy , volker53 .

Gruß Dieter

Parry36 · May 23rd 2020

Volker, da habe ich keine Ahnung.

Ich habe mal versucht, eine Parallelverbindung auf zubauen

und zwar mit den Weichen, die in animierte Splineobjekte angeboten

werden und in V16 PL2 angepriesen werden.

Habe bisher nur Erfahrungen mit GK3 Material.

Gruß Dieter

Parry36 · May 23rd 2020

Ich habe mal versucht in V16 Pl.2, eine animierte Weichenverbindung für paralelle Gleisverbindungen
im 4,5 m Abstand zu verlegen.
Unmöglich, warum sind die dann in V16 vorhanden?

Oder habe ich etwas übersehen?

Gruß Dieter

Parry36 · May 17th 2020

joke1 , Jörg,

das ist richtig wie du das machst, das Anlagenscript auszulagern.

Du kannst das vollkommen aus dem EEP Script herausnehmen und
nur noch mit require() das Anlagenscript einbinden.

So kannst du zu jeder Zeit mit Notepad++ Änderungen am Script vornehmen.

So habe ich das gemacht:

LUA Source Code: Muster Script

clearlog()
require("\\Anlage_124_Data\\Anlage_124_Data_rus01")
function EEPMain()
inEEPMain()
return 1
end

Gruß Dieter

Posts by Parry36

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua

Warum pfeift die Pfeife nicht?

Warum pfeift die Pfeife nicht?

Warum pfeift die Pfeife nicht?

Warum pfeift die Pfeife nicht?

Warum pfeift die Pfeife nicht?

Updates und Patches der EEP Versionen 12 bis 15

Updates und Patches der EEP Versionen 12 bis 15

Das Grund_ruS_Paket und Signalnummern > 1000

Tabellen in allen Seiten ansprechen

Weichen reagieren nicht auf Lua-Befehl

Weichen reagieren nicht auf Lua-Befehl

animierte Weichen in V 16

animierte Weichen in V 16

animierte Weichen in V 16

Neue Twitch-Sendung "Rundum-Sorglos-Paket" mit EEP und Lua