40 lines
853 B
HTML
40 lines
853 B
HTML
<h2>Code</h2>
|
|
<pre><code>
|
|
CONFIGURATION DefaultCfg
|
|
VAR_GLOBAL
|
|
Start_Stop AT %IX0.0: BOOL; (* This is a comment *)
|
|
END_VAR
|
|
TASK NewTask (INTERVAL := T#20ms);
|
|
PROGRAM Main WITH NewTask : PLC_PRG;
|
|
END_CONFIGURATION
|
|
|
|
PROGRAM demo
|
|
VAR_EXTERNAL
|
|
Start_Stop: BOOL;
|
|
StringVar: STRING[250] := "Test String"
|
|
END_VAR
|
|
VAR
|
|
a : REAL; // Another comment
|
|
todTest: TIME_OF_DAY := TOD#12:55;
|
|
END_VAR
|
|
a := csq(12.5);
|
|
IF a > REAL#100 - 16#FAC0 + 2#1001_0110 THEN
|
|
Start_Stop := TRUE;
|
|
END_IF
|
|
END_PROGRAM;
|
|
|
|
FUNCTION_BLOCK PRIVATE MyName EXTENDS AnotherName
|
|
|
|
END_FUNCTION_BLOCK
|
|
|
|
/* Get a square of the circle */
|
|
FUNCTION csq : REAL
|
|
VAR_INPUT
|
|
r: REAL;
|
|
END_VAR
|
|
VAR CONSTANT
|
|
c_pi: REAL := 3.14;
|
|
END_VAR
|
|
csq := ABS(c_pi * (r * 2));
|
|
END_FUNCTION
|
|
</code></pre> |