Hi ihr,
wir haben ein Problem bzgl. FIFO Programmierung in Plant Simulation.
Unser Prof hat uns ein Programm vorgegeben, in dem wir unsere Parameter wie FIFO eintragen müssen. Leider kommen wir hier nicht weiter.
In einer Tabelle tParam haben wir unsere Gassen- und Reihenanzahl vorgegeben. Hier müssen wir auch unsere Strategie von Primitiv auf FIFO umstellen, was wir noch nicht gemacht haben, da das Programm dann nicht funktioniert.
Unsere Frage ist, wie können wir FIFO programmieren oder kann uns jemand einen Tipp geben wie man evtl selber darauf kommen kann.
Code:
--------------------------------------------------------------------
--wird von der Methode mZiel aufgerufen, organisiert die Tabelle
--tPickAuftr als Pickaufgabe für einen einzelnen TM.
/*Hier können verschiedene Strategieen implementiert werden.
Die unten dargestellte Variante realisiert eine einfache Strategie:
Nehme aus dem Sortierer AuftrStapel den ältesten Auftrag, schreibe die Daten
des Auftrags in die Tabelle tPickAuftr und sortiere aufsteigend nach Ziel, also
nach Namen von zugehörigen EinzelPlätze.
*/
is
i,j,iT,f:integer;
ja:boolean;
tTemp:table;
do
tPickAuftr.löschen;
inspect tParam["sWert","Strategie"] --Strategie der Abarbeitung der Aufträge
when "primitiv" then --einfach: 1 Auftrag - auf 1 TM
AuftrStapel.BE(1).attAuftr.kopierebereichNach({"Ziel",1}..{*,*},tPickAuftr,1,1);
AuftrStapel.Be(1).vernichten;
when "Heuristik" then --Heuristik
when "FIFO" then --eine andere Strategie, z.B FIFO mit möglichst vollem TM
end;
if tParam["sWert","Routing"]="S-Shape" then
tPickauftr.sortieren("Ziel","auf");
else --also Sargest-Gap
tPickauftr.sortieren("Untere_Helfte","auf"); --nicht ganz richtig
end;
end;
--------------------------------------------------------------------
Vielen Dank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP