lib/counter.txt
changeset 276 1679f514f38a
parent 257 90782e241346
child 290 013eab46aebb
--- a/lib/counter.txt	Mon Apr 04 15:22:42 2011 +0100
+++ b/lib/counter.txt	Mon Apr 04 15:26:13 2011 +0100
@@ -18,6 +18,13 @@
  *)
 
 
+
+(******************)
+(*                *)
+(*    C  T  U     *)
+(*                *)
+(******************)
+
 FUNCTION_BLOCK CTU
   VAR_INPUT
     CU : BOOL;
@@ -28,16 +35,96 @@
     Q : BOOL;
     CV : INT;
   END_VAR
- 
-  VAR RRR : REAL; END_VAR
-  RRR := 9.9;
-
-  IF R THEN CV := 0 ;
-  ELSIF CU AND (CV < PV)
-       THEN CV := CV+1;
-  END_IF ;
-  Q := (CV >= PV) ;
-END_FUNCTION_BLOCK
+  IF R THEN CV := 0 ;
+  ELSIF CU AND (CV < PV)
+       THEN CV := CV+1;
+  END_IF ;
+  Q := (CV >= PV) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTU_DINT
+  VAR_INPUT
+    CU : BOOL;
+    R : BOOL;
+    PV : DINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : DINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF CU AND (CV < PV)
+       THEN CV := CV+1;
+  END_IF ;
+  Q := (CV >= PV) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTU_LINT
+  VAR_INPUT
+    CU : BOOL;
+    R : BOOL;
+    PV : LINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : LINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF CU AND (CV < PV)
+       THEN CV := CV+1;
+  END_IF ;
+  Q := (CV >= PV) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTU_UDINT
+  VAR_INPUT
+    CU : BOOL;
+    R : BOOL;
+    PV : UDINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : UDINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF CU AND (CV < PV)
+       THEN CV := CV+1;
+  END_IF ;
+  Q := (CV >= PV) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTU_ULINT
+  VAR_INPUT
+    CU : BOOL;
+    R : BOOL;
+    PV : ULINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : ULINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF CU AND (CV < PV)
+       THEN CV := CV+1;
+  END_IF ;
+  Q := (CV >= PV) ;
+END_FUNCTION_BLOCK
+
+
+
+
+
+
+
+(******************)
+(*                *)
+(*    C  T  D     *)
+(*                *)
+(******************)
 
 
 FUNCTION_BLOCK CTD
@@ -58,6 +145,85 @@
 END_FUNCTION_BLOCK
 
 
+FUNCTION_BLOCK CTD_DINT
+  VAR_INPUT
+    CD : BOOL;
+    LD : BOOL;
+    PV : DINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : DINT;
+  END_VAR
+  IF LD THEN CV := PV ;
+  ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+  END_IF ;
+  Q := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTD_LINT
+  VAR_INPUT
+    CD : BOOL;
+    LD : BOOL;
+    PV : LINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : LINT;
+  END_VAR
+  IF LD THEN CV := PV ;
+  ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+  END_IF ;
+  Q := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTD_UDINT
+  VAR_INPUT
+    CD : BOOL;
+    LD : BOOL;
+    PV : UDINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : UDINT;
+  END_VAR
+  IF LD THEN CV := PV ;
+  ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+  END_IF ;
+  Q := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTD_ULINT
+  VAR_INPUT
+    CD : BOOL;
+    LD : BOOL;
+    PV : ULINT;
+  END_VAR
+  VAR_OUTPUT
+    Q : BOOL;
+    CV : ULINT;
+  END_VAR
+  IF LD THEN CV := PV ;
+  ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+  END_IF ;
+  Q := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+(********************)
+(*                  *)
+(*    C  T  U D     *)
+(*                  *)
+(********************)
+
+
 FUNCTION_BLOCK CTUD
   VAR_INPUT
     CU : BOOL;
@@ -86,3 +252,118 @@
   QD := (CV <= 0) ;
 END_FUNCTION_BLOCK
 
+
+FUNCTION_BLOCK CTUD_DINT
+  VAR_INPUT
+    CU : BOOL;
+    CD : BOOL;
+    R  : BOOL;
+    LD : BOOL;
+    PV : DINT;
+  END_VAR
+  VAR_OUTPUT
+    QU : BOOL;
+    QD : BOOL;
+    CV : DINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF LD THEN CV := PV ;
+  ELSE
+    IF NOT (CU AND CD) THEN
+      IF CU AND (CV < PV)
+      THEN CV := CV+1;
+      ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+      END_IF;
+    END_IF;
+  END_IF ;
+  QU := (CV >= PV) ;
+  QD := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTUD_LINT
+  VAR_INPUT
+    CU : BOOL;
+    CD : BOOL;
+    R  : BOOL;
+    LD : BOOL;
+    PV : LINT;
+  END_VAR
+  VAR_OUTPUT
+    QU : BOOL;
+    QD : BOOL;
+    CV : LINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF LD THEN CV := PV ;
+  ELSE
+    IF NOT (CU AND CD) THEN
+      IF CU AND (CV < PV)
+      THEN CV := CV+1;
+      ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+      END_IF;
+    END_IF;
+  END_IF ;
+  QU := (CV >= PV) ;
+  QD := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTUD_UDINT
+  VAR_INPUT
+    CU : BOOL;
+    CD : BOOL;
+    R  : BOOL;
+    LD : BOOL;
+    PV : UDINT;
+  END_VAR
+  VAR_OUTPUT
+    QU : BOOL;
+    QD : BOOL;
+    CV : UDINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF LD THEN CV := PV ;
+  ELSE
+    IF NOT (CU AND CD) THEN
+      IF CU AND (CV < PV)
+      THEN CV := CV+1;
+      ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+      END_IF;
+    END_IF;
+  END_IF ;
+  QU := (CV >= PV) ;
+  QD := (CV <= 0) ;
+END_FUNCTION_BLOCK
+
+
+FUNCTION_BLOCK CTUD_ULINT
+  VAR_INPUT
+    CU : BOOL;
+    CD : BOOL;
+    R  : BOOL;
+    LD : BOOL;
+    PV : ULINT;
+  END_VAR
+  VAR_OUTPUT
+    QU : BOOL;
+    QD : BOOL;
+    CV : ULINT;
+  END_VAR
+  IF R THEN CV := 0 ;
+  ELSIF LD THEN CV := PV ;
+  ELSE
+    IF NOT (CU AND CD) THEN
+      IF CU AND (CV < PV)
+      THEN CV := CV+1;
+      ELSIF CD AND (CV > 0)
+      THEN CV := CV-1;
+      END_IF;
+    END_IF;
+  END_IF ;
+  QU := (CV >= PV) ;
+  QD := (CV <= 0) ;
+END_FUNCTION_BLOCK