Hi,
mit dieser Methode sollte es funktionieren :
is
obj : object;
bildn :integer;
do
obj:=einzelstation;
bildn:=-9999;
repeat
waituntil obj.bildnr/=bildn prio 1;
inspect obj.bildnr
when 1 then print "Ampel grün";
when 2 then print "Ampel gelb";
when 3 then print "Ampel rot";
else
print "keine bildzuordnung"
end;
bildn:=obj.bildnr;
until false;
end;
obj ist die station die Du beobachtest (könnte man auch als variable uebergeben);
in der init-Methode (Methode umbenannt auf INIT) wird diese Methode zum Simulationsstart folgendermaßen aufgerufen.
<<< ref(m0).neueaufrufkette >>>
ich habs hier mit den Bildnr´s (integer) programmiert, mit den Bildnamen (string) geht´s genauso;
anstatt print "Ampel .... kannst Du Deine eigenen Anweisungen
einfuegen.
Gruß
------------------
DER SIMULATOR
[Diese Nachricht wurde von Simulator am 03. Feb. 2005 editiert.]