---

Modell_blockiert.JPG

Hallo Leute,

bei meinem Modell läuft nach einiger Zeit der Puffer voll. Wenn dann alle nachgelagerten Stationen voll sind, dann wird der Puffer nie wieder geleert. Ich habe versucht die Methode Ausgang durch die nachgelagert Parallelstation anzusprechen aber dann wurde nur ein BE des Puffers weitergeben. Ziel ist eine vollständige Weitergabe. Über einen Beobachter bin auch nicht zum Ziel gekommen. Ich habe mitterlweile an einigen Stellen gebastelt, sodass die Methoden eventuell zu kompliziert wurden. Vielleicht habt ihr eine Idee. Danke im Voraus.

Methode Ausgang:

is
i:integer
do

if puffer.voll  then
puffer.ausganggesperrt:=false;
puffer.einganggesperrt:=true;

if puffer.einganggesperrt=true and Presse1.anzahlbes < 6 and not Presse1.einganggesperrt=true then 
  --move all 6 parts
for i:=1 to 6 loop
wait(0.001);
Puffer.cont.move(Presse1);
next;
puffer.ausganggesperrt:=true;
puffer.einganggesperrt:=false;
...

Methode Eingang:

is
do
if puffer.leer then
puffer.einganggesperrt:=false;

end;

end;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das Problem ist der Aufuf Ihrer Methode. Wenn der Puffer voll ist, dann erfolgt kein weiterer Aufruf der Eingangssteuerung; wenn Ihre Bedingung zum Umlagern nicht erfüllt ist, wird die Eingangssteuerung ohne Aktion beendet.

Sie könnten in diesem Fall versuchen über eine waituntil Anweisung zu warten, bis eine der Bedingungen zum Umlagern erfüllt ist, in etwa so:

Code:

---

is
i:integer
do

  if puffer.voll  then
    puffer.ausganggesperrt:=false;
    puffer.einganggesperrt:=true;
    --auf Umlagerbedingung warten
  waituntil (Presse1.anzahlbes < 6 and not Presse1.einganggesperrt)  or
    (Presse2.anzahlbes < 6 and not Presse2.einganggesperrt)
    --or usw
    prio 1;

    if Presse1.anzahlbes < 6 and not Presse1.einganggesperrt=true then 
  --move all 6 parts

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP