Inhaltsverzeichnis
Betriebsystem für Bascom-Anwendung
In Betriebsystem für Bascom wurde ein Unit-Konzept und das "message-queueing" vorgestellt. Nun, wann bringt das jetzt eigentlich was, außer daß es ein 'rumgefummel ist ?
Parallele FOR-Schleifen
Angenommen, es sollen zwei verschiedene FOR-Schleifen "gleichzeitig" abgearbeitet werden. "Gleichzeitig" in Anführungs-Strichen, denn wie jeder gemerkt hat, geht das nicht ganz so einfach. Wir können mit dem Bascom-System aber diese beider Schleifen recht einfach nebeneinander/verschachtelt arbeiten lassen, ohne daß die Schleifen irgendwie voneinander was wissen müssen.
Beispiel:
- Wir haben zwei Units,
Sub UNIT_1 (byval Tag As Word , Byval Cmd As Byte , Byval Param As Word) Sub UNIT_2 (byval Tag As Word , Byval Cmd As Byte , Byval Param As Word)
- es gibt ein Command "CMD_FOR"
Die Aufgabe:
- sagen wir, Unit-1 soll irgendwas 400 mal machen,
- Unit-2 soll auch was tun, aber 500 mal
Sagen wir auch, das "Unit 1 ist grad dran.
- Es setzt Warteschlangen Aufruf auf sich selbst ab
Call msg_enqueue(0, tag , CMD_FOR , 400 ) --exit sub--
Jetzt kommt die andere Unit dran.
- Es setzt Warteschlangen Aufruf auf sich selbst ab
Call msg_enqueue(0, tag , CMD_FOR , 500 ) --exit sub--
DIe Units werden nun durch "msg_dequeue()" nacheinander aufgerufen
Unit-1 ( unit-1-Tag , CMD_FOR , 400) Unit-2 ( unit-1-Tag , CMD_FOR , 500)
Und beide machen im "Select case CMD_FOR:"-Zweig erstmal das, was sie eben zu tun haben, und dann beide:
tempw = Param (Param ist ja 400 bzw. 500, je nach Unit)
decr tempw
if tempw > 0 then
Call msg_enqueue(0, tag , CMD_FOR , tempw )
end if
d.h. beim nächsten mal heissen dann schon die Aufrunfe
Unit-1 ( unit-1-Tag , CMD_FOR , 399) Unit-2 ( unit-1-Tag , CMD_FOR , 499)
Man kann sich vorstellen, wie das weitergeht. Bei Null hören die Units auf, sich selbst aufzurufen und sind fertig.
Der Effekt: Ohne weiters Zutun machen die beiden Units abwechselnd jeweils eine "FOR"-Schritt, und der Anschein der Gleichzeitigkeit ist gegeben, abgesehen davon, daß auch Anfang und Ende der Schleifen sich beliebig überlappen können. Und weiter Units können genauso beliebig da einsteigen.
Anmerkung: Natürlich geschehen keine Wunder, insgesamt wird im Beispiel ja in Summe bis 900 gezählt, und solange dauert das Ganze eben auch. Aber vom Programmieren her ist es bei größeren Projekten sehr angenehm, wenn nicht in der einen Schleife auch immer irgendwie eine andere berücksichtigt werden muß.
Autor
Siehe auch