Pulse Generator is a IBinSignal

simatic-ax · Nov 13, 2023 · 90b36da · 90b36da
1 parent 882defb
commit 90b36da
Showing 1 changed file with 21 additions and 21 deletions.
diff --git a/src/PulseGenerator.st b/src/PulseGenerator.st
@@ -2,60 +2,60 @@ USING System.Timer;
 USING Simatic.Ax.IO.Input;
 
 NAMESPACE Simatic.Ax.Generators
+
     {axcode:docs-v0:@simatic-ax/generators:PulseGenerator.md}
     CLASS PulseGenerator
+        IMPLEMENTS IBinSignal
         VAR PUBLIC
-            PulseTime : LTIME := T#1s;  // Pulse duration
-            PauseTime : LTIME := T#1s;  // Pause duration ( PulseTime + PauseTime = Period )
+            PulseTime : LTIME := T#1s; // Pulse duration
+            PauseTime : LTIME := T#1s; // Pause duration ( PulseTime + PauseTime = Period )
         END_VAR
-
         VAR PRIVATE
             _timePulse : OnDelay;
             _timePause : OnDelay;
             _timerIsRunning : BOOL;
             _internalTimerStatus : BOOL;
             _signal : BinSignal;
         END_VAR
-
         /// Execute(): Cyclically called method
+
         METHOD PUBLIC Execute
-
             _timePulse();
             _timePause();
-
             // evaluate pulse signal
-            IF (_timePause.output OR NOT(_timerIsRunning)) THEN
+            IF (_timePause.output OR NOT (_timerIsRunning)) THEN
                 _timePulse(signal := TRUE, duration := PulseTime);
                 _timePause(signal := FALSE);
                 _timerIsRunning := TRUE;
                 _internalTimerStatus := TRUE;
             END_IF;
-
             // evaluate a pause signal
-            IF (_timePulse.output ) THEN 
+            IF (_timePulse.output) THEN
                 _timePause(signal := TRUE, duration := PauseTime);
                 _timePulse(signal := FALSE);
                 _internalTimerStatus := FALSE;
-            END_IF;      
-
+            END_IF;
             _signal.ReadCyclic(signal := _internalTimerStatus);
-
         END_METHOD
-
         /// Returns the clock signal
-        METHOD PUBLIC Clock : BOOL
-            Clock := _signal.Q();         
-        END_METHOD
 
-        /// Returns the rising edge of the clock signal
-        METHOD PUBLIC ClockRis : BOOL
-            ClockRis := _signal.QRis();
+        METHOD PUBLIC Q : BOOL
+            Q := _signal.Q();
         END_METHOD
+        /// Returns the rising edge of the clock signal
 
+        METHOD PUBLIC QRis : BOOL
+            QRis := _signal.QRis();
+        END_METHOD
         /// Returns the falling edge of the clock signal
-        METHOD PUBLIC ClockFal : BOOL
-            ClockFal := _signal.QFal();
+
+        METHOD PUBLIC QFal : BOOL
+            QFal := _signal.QFal();
         END_METHOD
 
+        METHOD PUBLIC QBad : BOOL
+            QBad := FALSE;
+        END_METHOD
     END_CLASS
+
 END_NAMESPACE