Textsteuerung in ST

[aem]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo zusammen,

bin ziemlich unerfahren im SPS programmieren, also seid bitte nachsichtig wenn ich falsche Begriffe verwende

Ich möchte gerne Ansteuerung zu einem Ventil mit ST realisieren, wobei die Ventilstellung durch die Eingabe eines Textes geändert wird. Dieser Text könnte z.B. über eine automatische Texterkennung aus gesprochenen Worten ermittelt werden.

Die Texte, die zum Öffnen oder Schließen des Ventils führen, müssen die Zeichenfolgen "Ventil" oder "V1" und zusätzlich für das Öffnen des Ventils "öffne" oder "auf" und für das Schließen "schließe" oder "zu" enthalten.

Es soll in einem FB festgestellt werden, ob bei dem vorgegebenen "Eingabetext" das "Ventil" der Wert TRUE (Ventil auf) oder FALSE (Ventil zu) annehmen soll. Dazu muss geprüft werden, ob der eingegebene Text die angegebenen Schlüsselzeichen enthält.

Ich habe erstmal so versucht zu realisieren:

IF (Text1 = 'Ventil' OR Text1 = 'V1') AND (Text2 = 'öffne' OR Text2 = 'auf') THEN Ventil := TRUE; END_IF;
IF (Text1 = 'Ventil' OR Text1 = 'V1') AND (Text3 = 'schließe' OR Text3 = 'zu') THEN Ventil := FALSE; END_IF;


Ich denke, der Code erfüllt nicht so ganz die Angaben der Aufgabenstellung, oder ?

Könnt Ihr mir bitte hier weiterhelfen ?

Vielen Dank im voraus

 

[Heinileini]

Dieser Text könnte z.B. über eine automatische Texterkennung aus gesprochenen Worten ermittelt werden.
...
Ich denke, der Code erfüllt nicht so ganz die Angaben der Aufgabenstellung, oder ?

Doch, doch! Perfekt! Hoffentlich arbeitet die "automatische Texterkennung aus gesprochenen Worten" ebenso perfekt.
Ich würde mal intensiv testen, was für Ergebnisse die TextErkennung zu liefern in der Lage ist ... und wenn's hoffnungsvoll erscheint, ergeben sich wahrscheinlich schon die FussAngeln, die Du im Programm berücksichtigen müsstest.
Spontan würde ich die Vergleiche der Soll- und IstTexte erstmal so erweitern, dass trotz Unterschieden in der Gross-/Kleinschreibung auf Gleichheit erkannt wird.

PS:
Vllt bekommst Du für 'Ventil' 'Wentil' oder 'wenn Thiel' (der Münsteraner TatortKommissar) geliefert. Oder 'doodlebug' (der Spitzname der Engländer für die Wunderwaffe V1) für 'V1'.

 

[aem]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo Heinileini,

Zunächst vielen Dank für Deine schnelle Antwort

Ich habe das Programm getestet und es hat auch so funktioniert, d.h. Wenn der Eingabetext genauso eingegeben wird, wie in der "IF-Anweisung" definiert ist, reagiert das ventil entsprechend richtig. Frage dazu, was Du erwähnt hast mit Gross- / Kleinschreibung! Kann ich es ohne zusätzliche "OR" Schalter (Text1= 'ventil' OR Text1='v1') realisieren ? Gibt es vllt. eine andere Variante ?

 

[Brro87]

Du könntest mit der Function F_ToUCase den String jeweils zuerst auf Grossbuchstaben wandeln und dann erst den Vergleich mit deinen IFs machen.
https://infosys.beckhoff.com/index....ties/html/TcPlcLibUtilities_F_ToUCase.htm&id=

 

[Heinileini]

Als Schweizer geboren zu werden, ist ein grosses Glück. Es ist aber auch schön, als Schweizer zu sterben. Doch was tut man dazwischen.

Auf den deutschen Autobahnen "Zeit sparen"!

 

[aem]

Zuviel Werbung?
-> Hier kostenlos registrieren

Gibt es diese Funktion auch in CoDeSys ? In der Hilfe habe ich sie nicht gefunden

 

[Brro87]

Sorry, habe erst jetzt gemerkt das dies eine Beckhoff eigene Funktion ist. Bei Codesys müsste dies wohl die Funktion StrToUpperA in der StringUtils Library können.
https://help.codesys.com/webapp/j_V...ToUpperA;product=StringUtils;version=3.5.15.0

Diese Funktion benutzt eine Pointer to String bzw. CharBufferPtr (POINTER TO BYTE) als Übergabewert, dieser muss beim Aufruf mit ADR(<String>) übergeben werden.
Beispiel mit deinem Text1 (String): StrToUpperA(pString:= ADR(Text1))

 

[Sps_Anfänger.CR]

Hallo ich hätte eine Frage zu diesem Thema.
Ich hätte das in ST so programmiert und es funktioniert auch, aber ich bin mir sicher das ich es nicht so schreiben soll. Könnten mir jemand eine Tipp geben.
Danke im voraus.
MFG

 

[Heinileini]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ich würde es in dieser Art angehen (ungetestet):

Text1    := ' V1 Ventil ' ;
Text2    := ' auf öffne oeffne ' ;
Text3    := ' zu schließe schliesse ' ;

tiPosBlk := FIND (Eingabetext, ' ') ;
tsTextL  := CONCAT (' ', LEFT (Eingabetext, tiPosBlk) ;
tsTextR  := CONCAT (MID (Eingabetext, 31, tiPosBlk), ' ') ;

tbV1     :=  FIND (Text1, tsTextL) > 0 ;
tbV1Auf  := (FIND (Text2, tsTextR) > 0) AND tbV1 ;
tbV1Zu   := (FIND (Text3, tsTextR) > 0) AND tbV1 ;

Ventil   := (Ventil OR tbV1Auf) AND NOT tbV1Zu ;

PS:
zusätzlich verwendete temporäre Variablen:

VAR
    tiPosBlk : INT ;
    tsTextL  : STRING ;
    tsTextR  : STRING ;
         
    tbV1     : BOOL ;
    tbV1Auf  : BOOL ;
    tbV1Zu   : BOOL ;
END_VAR

 

[Sps_Anfänger.CR]

Danke für deine schnelle Antwort ich hätte es jetzt so Programmiert, aber es funktioniert nicht.

 

[Heinileini]

Danke für deine schnelle Antwort ich hätte es jetzt so Programmiert, aber es funktioniert nicht.

Woran scheitert's? Bei der 31 als LängenAngabe beim MID weiss ich nicht, ob CodeSys das so akzeptiert.
Einen anderen Verdacht habe ich im Moment nicht.

Meldet der Compiler, dass er mit irgendwas nicht zufrieden ist? Was bedeutet "funktioniert nicht"? Tut sich gar nichts? Läuft es, jedoch anders als beabsichtigt?

 

[Sps_Anfänger.CR]

Zuviel Werbung?
-> Hier kostenlos registrieren

Es läuft garnicht wenn ich in das EA Feld zb Ventil auf reinschreibe tut sich nichts

 

[Heinileini]

Es läuft garnicht wenn ich in das EA Feld zb Ventil auf reinschreibe tut sich nichts

Wenn im Eingabefeld lediglich 'Ventil' drinsteht, sollte sich doch auch nichts tun oder habe ich das falsch verstanden?
Und wenn Du 'Ventil auf' in das EA-Feld reinschreibst?

 

[Sps_Anfänger.CR]

Habe es auch noch im TIA Portal probiert und da Funktioniert es leider auch nicht

 

[Sps_Anfänger.CR]

Zuviel Werbung?
-> Hier kostenlos registrieren

Habe ich gemacht ich habe Ventil auf reingeschrieben aber das Ventil öffnet sich dann leider nicht

 

[Heinileini]

Ah ja, Left und Mid sind rot unterstrichen. Anscheinend verkraftet Concat es nicht, wenn dort weitere Funktionen stehen?
In meiner Variante aus #9 fehlt eine Klammer - sehe ich gerade - aber die hattest Du ja schon ergänzt.

tiPosBlk := FIND (Eingabetext, ' ') ;
tsTextL  := CONCAT (' ', LEFT (Eingabetext, tiPosBlk)) ;
tsTextR  := CONCAT (MID (Eingabetext, 31, tiPosBlk), ' ') ;

... ersetzen durch ...

tiPosBlk := FIND (Eingabetext, ' ') ;
tsTextL  := LEFT (Eingabetext, tiPosBlk) ;
tsTextL  := CONCAT (' ', tsTextL) ;
tsTextR  := MID (Eingabetext, 31, tiPosBlk) ;
tsTextR  := CONCAT (tsTextR, ' ') ;

Vielleicht kommen wir so der Sache näher?

 

[Sps_Anfänger.CR]

Nein leider nicht habe es in Codesys und im Tia probiert

 

[Sps_Anfänger.CR]

Zuviel Werbung?
-> Hier kostenlos registrieren

Ok den Fehler habe ich gefunden mit MID aber es funktioniert leider immer noch nicht

 

[Heinileini]

Bitte in TIA beim Mid die Parameter P und L tauschen : P:=tiPosBlk und L:=31.
Bei TIA steht in der Beschreibung, dass der StringInhalt bis zum Ende übernommen wird, wenn bei L zuviele Zeichen parametriert sind.
Genau davon war ich auch ausgegangen, als ich für L den konstanten Wert 31 ausgeguckt hatte. Die CodeSys-Beschreibug die ich habe, schweigt sich zu diesem Thema leider aus ...

Sehr "zuvorkommend" von Dir! Du hattest den Fehler schon gefunden, während ich noch am Tippeln war!

 

[Sps_Anfänger.CR]

Ok danke aber was heißt das jetzt
Weil es funktioniert ja leider immer noch nicht :/
Danke für deine schnellen Antworten