michi/Franz_Temperofen
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Deleted Test

Browse Source
This commit is contained in:
Michael Rest
2012-07-13 14:20:53 +02:00
parent 656a6c33b6
commit 409a40994c
7 changed files with 4 additions and 86 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Logical/Communication/collectd/collectd.st
View File

@@ -76,8 +76,9 @@ PROGRAM _CYCLIC
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);
ludUnixTimeUTC := H_TO_NDINT (gudUnixTimeUTC);
ludNextAdr := memcpy (ludNextAdr, ADR (ludUnixTimeUTC), 4);
//SGC is already little endian
//ludUnixTimeUTC := H_TO_NDINT (gudUnixTimeUTC);
ludNextAdr := memcpy (ludNextAdr, ADR (gudUnixTimeUTC), 4);
//INTERVAL
ludNextAdr := memcpy (ludNextAdr, ADR (PT_INTERVAL), 2);
ludNextAdr := memcpy (ludNextAdr, ADR ('$00'), 1);

1
Logical/Package.pkg
View File

@@ -7,6 +7,5 @@
<Object Type="Package" Description="Common Defaults">Common</Object>
<Object Type="Package" Description="Communication">Communication</Object>
<Object Type="Package" Description="Global libraries">Libraries</Object>
<Object Type="Program" Language="IEC" Description="A new program">test</Object>
</Objects>
</Package>

9
Logical/test/IEC.prg
View File

@@ -1,9 +0,0 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.90.21 SP03?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Description="Implementation code">test.st</File>
<File Description="Local data types" Private="true">test.typ</File>
<File Description="Local variables" Private="true">test.var</File>
</Files>
</Program>

38
Logical/test/test.st
View File

@@ -1,38 +0,0 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Program: test
* File: test.st
* Author: michi
* Created: July 13, 2012
********************************************************************
* Implementation of program test
********************************************************************)
PROGRAM _INIT
(* TODO : Add your code here *)
END_PROGRAM
PROGRAM _CYCLIC
//lrValue := 1234.5;
memcpy (ADR (ldValue), ADR (lrValue), 4);
ldValue1 := 0;
ldValue2 := ldValue AND 2#10000000_00000000_00000000_00000000;
ldValue2 := ldValue2 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValue AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
ldValue2 := ldValue2 OR SHR ((ldValue AND 2#00000000_01111111_11111111_11111111), 3);
memcpy (ADR (ldValueB), ADR (lrValue) + 2, 2);
memcpy (ADR (ldValueB) + 2, ADR (lrValue), 2);
ldValue3 := 0;
ldValue4 := ldValue AND 2#10000000_00000000_00000000_00000000;
ldValue4 := ldValue4 OR SHL (INT_TO_DWORD (DWORD_TO_INT (SHR ((ldValueB AND 2#01111111_10000000_00000000_00000000), 23)) + 896), 20);
ldValue4 := ldValue4 OR SHR ((ldValueB AND 2#00000000_01111111_11111111_11111111), 3);
END_PROGRAM

14
Logical/test/test.typ
View File

@@ -1,14 +0,0 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Program: test
* File: test.typ
* Author: michi
* Created: July 13, 2012
********************************************************************
* Local data types of program test
********************************************************************)
TYPE
END_TYPE

19
Logical/test/test.var
View File

@@ -1,19 +0,0 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Program: test
* File: test.var
* Author: michi
* Created: July 13, 2012
********************************************************************
* Local variables of program test
********************************************************************)
VAR
lrValue : REAL := 1234.0;
ldValueB : DWORD;
ldValue : DWORD;
ldValue1 : DWORD;
ldValue2 : DWORD;
ldValue3 : DWORD;
ldValue4 : DWORD;
END_VAR

4
Physical/Config1/PLC1/Cpu.sw
View File

@@ -8,9 +8,7 @@
<Task Name="collectd" Source="Communication.collectd.prg" Memory="UserROM" Language="IEC" Debugging="true" />
</TaskClass>
<TaskClass Name="Cyclic#3" />
<TaskClass Name="Cyclic#4">
<Task Name="test" Source="test.prg" Memory="UserROM" Language="IEC" Debugging="true" />
</TaskClass>
<TaskClass Name="Cyclic#4" />
<DataObjects />
<NcDataObjects />
<VcDataObjects />