Aufzüge: Lua-Befehl zum ansprechen der Achsen

petzifun · Apr 6th 2019, 9:50 pm

Code

----->> HBF Bahnsteigaufzuege bewegen
----->> Variablen
AufzCounter = 1 -----<< Laufvariable für Aufzüge
----->> Variable für HBF Bahnsteigaufzuege bewegen. Dabei bedeutet
----->> lift = 0 -> Aufzug Kabine unten (abwärts)
----->> lift = 1 -> Tür UG auf
----->> lift = 2 -> Tür UG zu
----->> lift = 3 -> Aufzug Kabine oben (aufwärts)
----->> lift = 4 -> Tür OG auf
----->> lift = 5 -> Tür OG zu
lift = 0 -----<< Status für Fahrstuhl
rndAufzID = 1 -----<< Zufallszahl für Fahrstuhl
AufzID = {5, 6, 113, 114, 115, 116, 117, 118, 119, 120} -----<< In dieser Tabelle die ID(s) der Aufzuege eintragen
AufzZustand = {} -----<< Inhalt in welchem Zustand der Fahrstuhl ist
anzAufzID = #AufzID -----<< Anzahl Aufzüge in der Liste
-----------------------------------------------------------------
-- HBFBahnsteig-Aufzüge in Startposition bringen
-- Fahrstuhl nach oben, untere Tür geschlossen und obere geöffnet
-----------------------------------------------------------------
function HBFBstgAufzuegeReset()
if lift == 0 then
for i = 1, anzAufzID do -- fuer alle Aufzuege in der Liste
EEPStructureAnimateAxis("#"..AufzID[i].."_Aufzug_Bstg 1-2_Str_MS2","Tuer OG", 10 ) -- Tuer OG auf
EEPStructureAnimateAxis("#"..AufzID[i].."_Aufzug_Bstg 1-2_Str_MS2","Tuer UG", -10 ) -- Tuer OG zu
EEPStructureAnimateAxis("#"..AufzID[i].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine", 10 ) -- Aufzug auf
h, position1 = EEPStructureGetAxis("#"..AufzID[i].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine") -- Position abfragen Aufzug-Kabine
if position1 > 99 then -- wenn oben
lift = 4 -- Zustand neu setzen
AufzZustand[i] = lift -- Zustand in Tabelle schreiebn
end
end
end
end
function HBFBstgAufzugAufwaerts(x) -- wird in der EEP Main 1x/Sek aufgerufen
lift = AufzZustand[x] -- Zustand des Aufzug auslesen
if lift == 2 then -- wenn Aufzug unten ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine", 10 ) -- Aufzug aufwärts
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine") -- Position abfragen Aufzug-Kabine
if position1 > 99 then -- wenn oben
lift = 3 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiebn
end
end
end
function HBFBstgAufzugAbwaerts(x) -- wird in der EEP Main 1x/Sek aufgerufen
lift = AufzZustand[x] -- Zustand des Aufzug auslesen
if lift == 5 then -- wenn Aufzug oben ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine", -10 ) -- Aufzug runter
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2","Aufzug-Kabine") -- Position abfragen Aufzug-Kabine
if position1 < 1 then -- wenn unten
lift = 0 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiebn
end
end
end
function HBFBstgAufzugTuerOGAuf(x)
if lift == 3 then -- wenn Aufzug oben ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer OG", 10 ) -- Tür auf
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer OG") -- Position abfragen Tür
if position1 > 99 then -- wenn auf
lift = 4 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiben OG
end
end
end
function HBFBstgAufzugTuerOGZu(x)
if lift == 4 then -- wenn Aufzug oben ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer OG", -10 ) -- Tür zu
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer OG") -- Position abfragen Tür
if position1 < 1 then -- wenn zu
lift = 5 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiben OG
end
end
end
function HBFBstgAufzugTuerUGAuf(x)
if lift == 0 then -- wenn Aufzug unten ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer UG", 10 ) -- Tür auf
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer UG") -- Position abfragen Tür
if position1 > 99 then -- wenn auf
lift = 1 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiben OG
end
end
end
function HBFBstgAufzugTuerUGZu(x)
if lift == 1 then -- wenn Aufzug unten ist
EEPStructureAnimateAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer UG", -10 ) -- Tür zu
h, position1 = EEPStructureGetAxis("#"..AufzID[x].."_Aufzug_Bstg 1-2_Str_MS2", "Tuer UG") -- Position abfragen Tür
if position1 < 1 then -- wenn zu
lift = 2 -- Zustand neu setzen
AufzZustand[x]= lift -- Zustand in Tabelle schreiben OG
--print ("Lift: ", lift, " LiftID : ", rndAufzID," id : ", AufzID[rndAufzID], " UG Zu ")
end
end
end
function HBFBstgAufzugAktivieren(x) -- wird in der EEP Main 1x/Sek aufgerufen
lift = AufzZustand[x]
if lift == 0 then -- Aufzug unten -> Tür UG öffnen
HBFBstgAufzugTuerUGAuf(x)
elseif lift == 1 then -- Aufzug unten -> Tür UG schließen
HBFBstgAufzugTuerUGZu(x)
elseif lift == 2 then -- Tür UG geschlossen -> Aufzug aufwärts (hoch fahren)
HBFBstgAufzugAufwaerts(x)
elseif lift == 3 then -- Aufzug oben -> Tür OG öffnen
HBFBstgAufzugTuerOGAuf(x)
elseif lift == 4 then -- Aufzug oben -> Tür OG schließen
HBFBstgAufzugTuerOGZu(x)
elseif lift == 5 then -- Tür OG geschlossen -> Aufzug abfwärts (runter fahren)
HBFBstgAufzugAbwaerts(x)
end
print ("aktiver Aufzug :", AufzID[x], " Lift : ", lift)
end
HBFBstgAufzuegeReset()
function wait(seconds)
local start = os.time()
repeat until os.time() > start + seconds
end
function EEPMain()
----->> HBF Bahnsteigaufzuege bewegen
----->> BEGIN
AufzCounter = AufzCounter + 1
if AufzCounter % 5 == 1 then -- je Sekunde den aktiven Aufzug wechseln
rndAufzID = math.random(anzAufzID) -- aus der Liste einen zufälligen Aufzug auswählen
HBFBstgAufzugAktivieren(rndAufzID)
end
----->> ENDE
----->> HBF Bahnsteigaufzuege bewegen
return 1
end

Display More

Hallo @All

Irgendwie sehe ich den Fehler nicht.

In EEPMain wird jede Sekunde ein neue Fahrstuhl per Zufall ausgewählt. Function HBFBstgAufzugAktivieren(rndAufzID) ruft den Zustand aus der Tabelle AufzZustand ab und speichert das in der Variablen lift.

Es werden die einzelnen Schritte anschließen abgearbeitet. Nachdem aber lift wieder null ist sollte wieder eins kommen und das tut er nicht.

Seht ihr den Fehler von mir ? Ich bin wahrscheinlich blind vom suchen.

g

Dirk

ArchiStrukt · Apr 6th 2019, 10:09 pm

Hallo Dirk,

da es hier um ein Lua-Skript handelt habe ich deine Frage in den Forumsbereich Signale und Schalttechnik zu EEP (ab 7) verschoben.

Gruß, Patrick

Goetz · Apr 6th 2019, 10:35 pm

Vorab (weil ich den eigentlichen Fehler noch nicht gefunden habe):

Deine Funktion wait() friert dein komplettes Lua Skript bis zum Ablauf der Wartezeit ein! Weil es einfach alles in dieser Schleife festhält.

Wahrscheinlich ist dir das bewusst, aber vielleicht auch nicht?

Ich würde für Wartezeiten zu folgendem Prinzip raten: Setzt ein Flag auf false. Vergleiche bei jedem EEPMain()-Durchlauf einmal den Takt in der Main mit deinem Zielwert. Ist der Zielwert erreicht, dann setz das Flag auf true.

Nachtrag: Sieht aus, als würdest du die Funktion gar nicht nutzen ...

petzifun · Apr 6th 2019, 10:47 pm

Hi Goetz!

Ja ist mir bewusst und sollte es auch als ich sie eingesetzt hatte.

Die ist da mit reingeraten und wird auch nicht benutzt. Ich hatte damit nur verschiedene Pausen versucht.

Im moment ist die irrelevant.

Ich gib für heute auf mit der Suche

Kein Ahnung wo mein Fehler ist

Gute Nacht

**eep_gogo** · Apr 6th 2019, 11:24 pm

Hallo petzifun

wenn ich dich richtig verstanden habe, funktioniert die Weiterschaltung von lift=0 auf lift=1 nicht.

Dann müsste der "Fehler" ja in function HBFBstgAufzugTuerUGAuf(x) liegen.

In Zeile #92 fragst du ja if position1 > 99 then also auf >99.

Ich hatte diesen Effekt auch schon,

es kann sein, dass die Achse nicht ganz auf den Wert 100 kommt. (Klemmt irgendwie )

Probier es mal mit den Werten 98 , 97 oder 96.

Zur Kontrolle kannst du dir ja in Zeile #91 mit print() diesen position1-Wert anzeigen lassen.

Das gleich gilt für deine <1-Werte. Mit <2 oder <3 bist du auf der "sichereren" Seite.

Goetz · Apr 6th 2019, 11:29 pm

Eine weitere Ungereimtheit (aber noch nicht der Grund fürs Fehlverhalten):

Du rufst die Unterfunktionen dann auf, wenn die Variable lift einen bestimmten Wert hat. Damit ist es zumindest redundant in dieser Unterfunktion noch einmal zu prüfen, ob lift diesen Wert hat.

Goetz · Apr 6th 2019, 11:50 pm

Dein math.random(anzAufzID) erzeugt Zufallszahlen von 0 bis zur Anzahl der Tabellenplätze.

Aber Lua kennt keinen Tabellenplatz 0. (Außer, wenn man ihn explizit anlegt.)

Du brauchst Zahlen von 1 bis anzAufzID. Also math.random(1, anzAufzID)

Ob das schon die Fehlerursache ist, kann ich nicht sagen. Ich schreibe deinen Code derzeit noch um, damit ich ihn besser lesen kann.

Goetz · Apr 7th 2019, 12:08 am

überhaupt macht dieser ganze Teil in der EEPMain() nicht das, was du willst:

LUA Source Code

if AufzCounter % 5 == 1 then
rndAufzID = math.random(anzAufzID)
HBFBstgAufzugAktivieren(rndAufzID)
end

Du wählst da jede Sekunde einen anderen Aufzug aus, egal, was der gerade macht.

Und schickst ihm, wenn du Pech hast, mehrfach denselben Befehl, bis die Animation ihr Ziel erreicht hat.

Dabei kommt nichts Gutes raus. Es wäre viel sinnvoller, nach jedem Schritt (Tür auf, Tür zu, Fahrt) eine zufällige Wartezeit vergehen zu lassen, bevor du den nächsten Schritt ausführst. Und ständig reihum alle Aufzüge zu "fragen", ob es etwas neues zu tun gibt.

Goetz · Apr 7th 2019

Der wirkliche Fehler, welcher dein Skript zum Erliegen bringt, ist der, dass die unteren Fahrstuhltüren nicht Tuer UG heißen, sondern Tuer EG. Wegen dieses falschen Namens bewegen sich die Türen nicht. Und weil sie sich nicht bewegen, bekommt position1 nie den Wert den es braucht, damit es weitergeht. Und weil du den Achsennamen vom Modell falsch abgeschrieben hast, findest du auch den Fehler nicht. Weil du ihn nur im Skript suchst. Und im Skript steht kein Hinweis auf den falschen Achsennamen.

Der erste Rückgabewert der Funktion zum Bewegen der Achse ist nur dann true, wenn die Achse tatsächlich existiert. Bei der Funktion zum Auslesen der Achsenposition ist es ebenso. Das ist der Wert, der bei dir in der Variablen h aufgefangen wird. Mit diesem Wert kannst du feststellen, ob du Modell- und Achsennamen richtig geschrieben hast. Bei dir ist h == false. Nach Korrektur des Skripts wird h == true sein.

Also:

Bei den Funktionen HBFBstgAufzuegeReset(), HBFBstgAufzugTuerUGAuf(x) und HBFBstgAufzugTuerUGAuf(x) den falschen Achsennamen Tuer UG gegen den richtigen Tuer EG tauschen und dann läuft dein Skript.

petzifun · Apr 7th 2019, 11:01 am

Hallo Goetz!

Manchmal sieht man den Wald vor lauter Bäumen nicht

Goetz wrote:

Der wirkliche Fehler, welcher dein Skript zum Erliegen bringt, ist der, dass die unteren Fahrstuhltüren nicht Tuer UG heißen, sondern Tuer EG.

Das ist natürlich logisch ... Habe ich nicht erkannt ...

Goetz wrote:

Bei den Funktionen HBFBstgAufzuegeReset(), HBFBstgAufzugTuerUGAuf(x) und HBFBstgAufzugTuerUGAuf(x) den falschen Achsennamen Tuer UG gegen den richtigen Tuer EG tauschen und dann läuft dein Skript.

Das habe ich gemacht und siehe da, es funkt dann auch ... Allerdings wie du oben unter #8 schon angemerkt hast,

ist genau das Verhalten aufgetreten, das es ein Durcheinander gibt. Ich werde das entsprechend ändern.

Den von dir unter #7 gemachten Hinweis habe ich ebenfalls geändert.

Wie würdest du eine Warteschleife programmieren? Die von mir gewählte Variante bring das Script zum vollständigen erliegen. Macht eigentich in EEP keinen

Sinn, da eventuell Zeitkritisch abgefragt werden muss.

Vielen Dank für die Hilfe.

mfg und schönen Sonntag noch

Dirk aka Petzifun

Goetz · Apr 7th 2019, 12:03 pm

petzifun wrote:

Wie würdest du eine Warteschleife programmieren?

Ich versuche gerade, ein Beispielskript für dich auszuarbeiten. Dauert aber, da ich heute zwischendurch anderweitig gefordert bin.

Goetz · Apr 7th 2019, 6:00 pm

Hier hast du ein Beispiel für einen EEP-tauglichen Timer. Er nutzt die Variable, welche in der EEPMain() Funktion ständig hochgezählt wird. Dafür ist die nämlich da. Ich habe diese Variable Takt genannt, weil ich den Namen I unpraktisch finde.

LUA Source Code

Takt = 0
warte = false
Dauer = 20
Ende = 0
function EEPOnSignal_1(status)
if status == 2 then
warte = true
Ende = Takt + Dauer
print("Timer gestartet")
end
end
EEPRegisterSignal(1)
function Wartezeit()
if warte and Ende <= Takt then
print("Wartezeit ist abgelaufen.")
EEPSetSignal(1, 1)
warte = false
else
return
end
end
clearlog() ; print("Timer Demo\n")
function EEPMain()
Takt = Takt + 1
Wartezeit()
return 1
end

Display More

Stell auf einer leeren Anlage ein einzelnes Signal auf und ersetze das Basisskript durch mein Beispiel.

Dann kannst du durch Umschalten des Signals den Timer starten und wirst sehen, dass 4 Sekunden später - nach Ablauf des Timers - das Signal wieder zurückgestellt wird.

Goetz · Apr 8th 2019

petzifun und alle, die sich dafür interessieren.

Hier ist ein Beispielskript für die MS2 Aufzüge aus dem Set V70NMS20003. Es enthält die Immobilien IDs, welche petzifun auf seiner Anlage hat. Die muss man im Bedarfsfall für die eigene Anlage anpassen. Das Skript lässt alle aufgelisteten Fahrstühle zufällig auf und ab fahren. An beiden Endpositionen pausiert der Fahrstuhl eine zufällig definierte Weile (zwischen 20 und 80 Sekunden) bei geöffneten Türen.

LUA Source Code

if EEPVer < 15 then
Warnhinweis = "Diese Demo funktioniert erst ab EEP Version 15."
EEPShowInfoTextTop(1, 0.5 , 0, 2, 30, 1, Warnhinweis)
end
math.randomseed(os.time()) -- Initialisierung des Zufallsgenerators
Takt = 0 -- Zähler in EEPMain() für getaktete Aufgaben
Aufzug = {
LuaNr = {5, 6, 113, 114, 115, 116, 117, 118, 119, 120}
}
Parameter = { -- Aufzugparameter
__index = {
Achse = {"Tuer OG", "Tuer EG", "Aufzug-Kabine"},
Aktion = {{1,-1,0},{3,-2,0},{2,1,100},{2,-1,0},{3,2,0},{1,1,100}},
--[[Erläuterung zu den Aktionen
Diese Dreiergruppen enthalten immer
- den Tabellenindex der Achse,
- die Anzahl Bewegungsschritte für die nächste Animation
- und einen Multiplikator für die Pausenzeit.
Das alles sechs Mal für die sechs Animationsphasen:
1. Tür oben zu
2. nach unten fahren
3. Tür unten auf und 1, 2, 3 oder 4 mal 20 Sekunden warten
4. Tür unten zu
5. nach oben fahren
6. Tür oben auf und 1, 2, 3 oder 4 mal 20 Sekunden warten
]]
Phase = 1,
Pause = 0
},
__call = function(self) -- Aufzugfunktion
local active = 0
for i = 1, #self.Achse do
local ok, Wert = EEPStructureIsAxisAnimate(self.ID, self.Achse[i])
active = active + Wert -- wenn alle Achsen stehen, dann ist active = 0
end
if self.Pause > Takt or active > 0 then
return
else
local p = self.Phase
local Aktion = self.Aktion[p]
local Achse = self.Achse[Aktion[1]]
local Schritt = Aktion[2]
EEPStructureAnimateAxis(self.ID, Achse, Schritt)
self.Pause = Takt + Aktion[3] * math.random(1, 4)
self.Phase = self.Phase % #self.Aktion + 1
EEPStructureSetTagText(self.ID, tostring(self.Phase))
end
end
}
for k, v in ipairs(Aufzug.LuaNr) do -- Verbindung von Aufzugliste und -Parametern
Aufzug[k] = {ID = string.format("#%d",v)}
setmetatable(Aufzug[k], Parameter)
end
Aufzug.Init = function()
for k, v in ipairs(Aufzug) do
local ok, String = EEPStructureGetTagText(v.ID)
v.Phase = tonumber(String) or 1
end
end
clearlog() ; print("Demo: zufällige Bewegung für MS2 Aufzüge")
-- benötigt das Set V70NMS20003 aus dem EEP-Shop
function EEPMain()
Takt = Takt + 1
Aufzug[Takt % #Aufzug + 1]() -- reihum immer ein Aufzug
return 1
end
Aufzug.Init() -- Anfangsposition aufrufen

Display More

So richtig schön ist das Skript noch nicht. Also immer her mit Verbesserungsvorschlägen.

Unter "Kostenfrei" habe ich eine kleine Beispielanlage mit drei automatisch agierenden Aufzügen (und sonst nichts weiter!)

hochgeladen.

Das obige Skript und ebenso die Beispielanlage funktionieren nur mit EEP 15 oder höher. Eine Anpassung an andere Aufzüge oder ganz andere Animationen für Immobilien irgendwelcher Art ist möglich, erfordert aber gute Grundkenntnisse in Lua.

MeckerKopf · Apr 8th 2019, 4:26 pm

Goetz wrote:

Das obige Skript und ebenso die Beispielanlage funktionieren nur mit EEP 15 oder höher. Eine Anpassung an andere Aufzüge oder ganz andere Animationen für Immobilien irgendwelcher Art ist möglich, erfordert aber gute Grundkenntnisse in Lua.

genau das finde ich sehr schade ..... es ist toll das denn usern so für ein moment gehollfen wir .... aber ..... lasst doch in denn skripten ein wennig luft das man diese mal richtig schon auf andere ideen verwenden kann

EmKo · Apr 8th 2019, 5:01 pm

Hallo,

also ich finde da ist ganz viel Luft für alles was sich bewegt drin.

Da ich die Aufzüge nicht habe hab ich es einfach mit drei Lokschuppen versucht.

Die Zeilen 10, 15 und 16 angepasst. und schon gehen die Türen in unterschiedlichen Abständen auf und zu.

Läßt sich also prima fuer alles was sich bewegt verwenden.

Gruß

Michael

petzifun · Apr 9th 2019, 9:07 pm

Goetz wrote:

Hier ist ein Beispielskript für die MS2 Aufzüge aus dem Set V70NMS20003. Es enthält die Immobilien IDs, welche petzifun auf seiner Anlage hat. Die muss man im Bedarfsfall für die eigene Anlage anpassen. Das Skript lässt alle aufgelisteten Fahrstühle zufällig auf und ab fahren. An beiden Endpositionen pausiert der Fahrstuhl eine zufällig definierte Weile (zwischen 20 und 80 Sekunden) bei geöffneten Türen.

Unter "Kostenfrei" habe ich eine kleine Beispielanlage mit drei automatisch agierenden Aufzügen (und sonst nichts weiter!)

Hallo Goetz!

Sehr schönes Script, welches ich eins zu eins übernommen habe und siehe da es klappt so wie ich es mir vorgestellt habe...

Ein Interessante Programmierung... Ist neu für mich ... muss ich mich noch reinfuchsen...

Vielen Dank dafür

lg

Dirk aka Petzifun

Aufzüge: Lua-Befehl zum ansprechen der Achsen

Jump to the most helpful post

11.12.2019 - 11 Jahre AF1 im EEP Online Shop

11.12.2019 - Neues von SP1 im EEP Online Shop

11.12.2019 - Neues von SP1 im EEP Online Shop

Das aktuelle Tagesangebot vom 11.12.2019

Das aktuelle Wochenangebot vom 09.12.2019

06.12.2019 - Neues von AG2 im EEP Online Shop

06.12.2019 - Neues von DL1 im EEP Online Shop

06.12.2019 - Neues von DL1 im EEP Online Shop

05.12.2019 - Neues von PB1 im EEP Online Shop

05.12.2019 - Neues von PB1 im EEP Online Shop

05.12.2019 - Neues von PB1 im EEP Online Shop

Das aktuelle Monatsangebot im Dezember 2019

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

29.11.2019 - Neues von SM2 im EEP Online Shop

Similar Threads

Lua Befehl zum ansprechen der Textfelder