lpcmanager

Fixed bug in Buzzer moule.

2017-05-22, dgaberscek
385c7f00272b
Parents 492c8efe70c0
Children 4cbb8e61e4b9
Fixed bug in Buzzer moule.
1 files changed, 8 insertions(+), 3 deletions(-)
  • +8 -3
    Pous/pousGOT.xml
    • --- a/Pous/pousGOT.xml Fri May 19 11:07:13 2017 +0200
    +++ b/Pous/pousGOT.xml Mon May 22 09:30:53 2017 +0200
    @@ -88,7 +88,7 @@
    <pou name="Buzzer" pouType="functionBlock">
    <interface>
    <inputVars>
    - <variable name="TRIG">
    + <variable name="INPUT_VALUE">
    <type>
    <BOOL/>
    </type>
    @@ -110,11 +110,16 @@
    <string/>
    </type>
    </variable>
    - <variable name="INPUT_VALUE">
    + <variable name="INPUT_VALUE_OLD">
    <type>
    <string/>
    </type>
    </variable>
    + <variable name="TRIG">
    + <type>
    + <BOOL/>
    + </type>
    + </variable>
    <variable name="INPUT_VALUE_CODE">
    <type>
    <string/>
    @@ -129,7 +134,7 @@
    </interface>
    <body>
    <ST>
    - <xhtml:p><![CDATA[INPUT_VALUE:=BOOL_TO_STRING(TRIG); INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.SetBuzzerValue(', INPUT_VALUE, ')'); pooll0(TRIG := TRIG, CODE := INPUT_VALUE_CODE, ACK => ACK, RESULT => RESULT);]]></xhtml:p>
    + <xhtml:p><![CDATA[IF INPUT_VALUE_OLD = INT_TO_STRING(BOOL_TO_INT(INPUT_VALUE)) THEN TRIG := FALSE; ELSE TRIG :=TRUE; END_IF; INPUT_VALUE_OLD := INT_TO_STRING(BOOL_TO_INT(INPUT_VALUE)); INPUT_VALUE_CODE:=CONCAT('PLCObject.MWProvider.SetBuzzerValue(', INT_TO_STRING(BOOL_TO_INT(INPUT_VALUE)), ')'); pooll0(TRIG := TRIG, CODE := INPUT_VALUE_CODE, ACK => ACK, RESULT => RESULT);]]></xhtml:p>
    </ST>
    </body>
    </pou>