Programmieren mir ST

[Malefiz]

Hallo zusammen,

Ich habe eine Frage zu der Programmiersprache.
Bei der zuweisen zweier MB wird der Wert übertragen oder nur ein Pointer ?

[weiss_nix]

Hallo Malefiz,
ich vermute reference by value

[Malefiz]

Dann kann ich mir folgendes Problem nicht erklären.
Im allgemeinen Versuch ich der Reihe jede Minute für 1 Sekunde einen von 20 Ausgängen zu betätigen. Das ganze soll in ST programmiert werden um mich mit der Sprache zu beschäftigen.


MB 10 ist der Ausgang eines Zählers. Der jede Minute um 1 hoch zählt. Zwischen 1 und 20.

Und um jetzt nicht 20 Timer zu gebrauchen wollte ich das so Lösen.

Code: [Auswählen]

[
If MB10=MB11 then.  // MB10 Zähler MB11 Hilfsmerker
    M20:=False;.            // Freigabe Timer 05
    M22:=False;.            // Rücksetzen Ausgang Timer 05
Else
    T05 (
             EN :=NOT M20,.
             RE :=,
             ST :=,
             I1  := T#2000ms,
             I2  :=,
             Q1 > M22,.    // Timerausgang
             QV >
              );
              If M22 = True then   //nach Ablauf des Timers Ausgang
                                                  // zurück setzen und Hilfsmerker gleich
                                                   // setzten
                   M20:= true;
                   Q20:=false;
                   MB11:=MB10
              Else
                   Q20:= True;  // solange Timer 05 nicht abgelaufen ist
                                          // Ausgang setzen
              End_if;
End_if/
/code]

Der erste Durchlauf funktioniert ab den zweiten wird in der Simulation sofort der Wert in MB11 übernommen und die If Bedingungen nicht mehr durchlaufen. Für Q20:= true würde ich bei laufenden Code noch ein Case einbauen.

[Juergen]

Hallo Malefiz,
ich versuche mich auch noch in St und habe deine Aufgabe mal versucht.
Hier mein  Beispiel als Anlage mit 8 Ausgängen, das mit wenig schreibarbeit schnell auf 32 erweiterbar ist. Angefangen mit einer Pausenzeit wird mit einer Testzeit von 10s  immer ein Ausgang für 1 s angesteuert.
Wird Zählerstand 9 Erreicht, wird kein Ausgang mehr zugewiesen und der Zähler zurückgesetzt.
Beachten das die Easy Q5 Bis 16 nicht verwendet, sonden erst bei 17 Weiter macht.

[weiss_nix]

@Malefiz
Wenn du deinen Code etwas kommentieren würdest, wäre es IMHO etwas leichter zu versuchen deine Überlegungen nachzuvollziehen.
Einen Timer innerhalb einer Bedingung zu starten ist aus meiner Sicht problematisch da der Code für Start bzw. Ende möglicherweise nicht durchlaufen wird. Ist in deinem Codeschnipsel die eckige Klammer am Anfang ein Teil einer Indizierung?

Dieser Abschnitt macht für mich auch keinen Sinn

Code: [Auswählen]

If M20 = True then
       M20:= true;

[Malefiz]

Ist falsch abgetippt sollte M22 = True sein

[weiss_nix]

@Malefiz
ich würde es so lösen wollen ...

Code: [Auswählen]

// Blinktimer
T02 (
EN := true,
RE := ,
ST := ,
I1 := T#1s0ms,
I2 := T#5s0ms,
Q1 => ,
QV =>
);

// negative Flanke von T02
M1 := not T02Q1 and M2;
M2 := T02Q1;

// Ausgang[17 + Zähler] ansteuern
Q[17 + MB10] := T02Q1;

// Management der Zählvariable
IF M1 then
MB10 := MB10 + 1;
elsif MB10 > 7 then
MB10 := 0;
end_if;


[weiss_nix]

@Juergen und alle anderen die es interessiert ....
um ein bestimmtes Bit(Bitmuster) in einem Byte, Word, DWord  zu setzen bzw. verschieben bedarf es in ST nicht unbedingt einer UF
[Klugscheisser Modus = EIN]
In ähnlichen Programmiersprachen lassen sich Bitmuster z.B. mit Shiften verschieben
SHL (verschieben richtung höherwertiges Bit) und SHR (verschieben richtung niederwertiges Bit)
da es diese Möglichkeit in EasySoft nicht gibt kann man es auch durch eine Multiplikation mit 2 (ist gleichwertig mit "SHL 1"),
oder eine Division durch 2 (wäre gleichwertig mit "SHR 1") bewerkstelligen.
z.B. würde "MB01 := 1 SHL 1" den Wert 2 ergeben, "MB01 := 128 SHR 7" den Wert 1 ergeben
wenn man den Gedanken weiter verfolgt kommt man zu dem Schluss dass MB01 := 1 * (2 ** 7) eine Verschiebung um 7 Stellen bewirkt
wobei ":= 1" setzen des 1 Bit, verschieben mit "*" oder "/"  und "2**7" die Anzahl der zu verschiebenden Stellen angibt
[Klugscheisser Modus = AUS]
Dieser Beitrag ist gedacht um die Vorteile einer Hochsprachenprogrammierung aufzuzeigen und keinesfalls als Korrektur anderer Programme!

[Juergen]

Hallo weiss_nix,

genau das habe ich in meinem Letzten Beitrag verlinkten Beipiel mit meinem UF gemacht. UF damit ich den in ST, Kop und Fup verweden kann.
Kennwort für meinen UF ist js

Code: [Auswählen]

CASE IA1 OF // Zahlenwerte im IA1 A1 für die Auswertung
1..31:   QA1 := 2**(IA1 -1); // Berechen Zählerwert mit 2 Hoch 0 bis 2 Hoch 30 dem Ausgang Bitweie zuweisen
32:     QA1 :=-2147483648; // Negativen Wert von Bit 32 extra zugewiesen
ELSE
QA1 := 0; //  Wenn keine Bedinnung erfüllt Wert 0
                                                                                       
END_CASE;

[weiss_nix]

@Juergen,
schön gelöst! Ich finde man sollte solche Codeschnipsel zugänglich machen zumal sich mehrere für ST-Programmierung interessieren.

[Juergen]

Hallo weiss_nix,

ich dachte das ich anderer stelle den UF schon vorgestellt habe. Finde den Beitrag nicht mehr.
Kennwort vorsichtshalber wegen dem Fehler, das  Bausteine ohne Kennwort plötzlich eines Bekommen.

[weiss_nix]

@Juergen, ja da muss ich dir zustimmen! Im Bereich UF ist die easySoft V7.11 noch sehr buggy

[Malefiz]

Vielen Dank für eure Unterstützung
Eine abgewandelt Version von weiss_nix hat zum Erfolg geführt

[weiss_nix]

... danke für das positive Feedback