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

Initial Commit

Browse Source 
- running on PP45
This commit is contained in:
Michael Rest
2010-08-08 10:56:15 +02:00
commit e0fa261c9a
943 changed files with 50277 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Administrator.set Normal file
View File

@@ -0,0 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.80.31 SP01?>
<ProjectSettings xmlns="http://br-automation.co.at/AS/ProjectSettings">
<Print Footer="%cPage: %p" Header="%lProject: %n%c%x" />
</ProjectSettings>

3
Diagnosis/HomeSPS/PLC1/au.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=au
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=142 Type=79 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

22
Diagnosis/HomeSPS/PLC1/c_munin.PVM Normal file
View File

@@ -0,0 +1,22 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=c_munin
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=200 Type=100 Scope=60 Force=60 Index=3 ASCIIString=0
name type force value level type len format place expand specs
lbSend BOOL 0 " FALSE" 0 1 1 2 1 0
ludPortID UDINT 0 " 0" 0 7 1 10 1 0
lusServerState USINT 0 " 6" 0 5 1 10 1 0
ludClientID UDINT 0 " 0" 0 7 1 10 1 0
lusState USINT 0 " 6" 0 5 1 10 1 0
strReceived STRING[254] 0 " ''" 0 9 1 1 1 0
strServerCmd STRING[254] 0 " ''" 0 9 1 1 1 0
strReply STRING[254] 0 " ''" 0 9 1 1 1 0
lTcpRecv TcpRecv 0 " *" 0 100 1 0 1 1
enable BOOL 0 " FALSE" 1 1 1 2 0 0
ident UDINT 0 " 0" 1 7 1 10 0 0
pData UDINT 0 " 13065770" 1 7 1 10 0 0
datamax UDINT 0 " 255" 1 7 1 10 0 0
flags UDINT 0 " 1" 1 7 1 10 0 0
status UINT 0 " 65534" 1 6 1 10 0 0
recvlen UDINT 0 " 0" 1 7 1 10 0 0
i_state UINT 0 " 0" 1 6 1 10 0 0
i_result UINT 0 " 0" 1 6 1 10 0 0
i_tmp UDINT 0 " 0" 1 7 1 10 0 0

53
Diagnosis/HomeSPS/PLC1/c_munin.PVM.dock Normal file
View File

@@ -0,0 +1,53 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=c_munin
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=11 ASCIIString=0
name type force value level type len format place expand specs
lbSend BOOL 0 " *" 0 1 1 2 1 0
ludPortID UDINT 0 " *" 0 7 1 10 1 0
lusServerState USINT 0 " *" 0 5 1 10 1 0
ludClosePortID UDINT 0 " *" 0 7 1 10 1 0
lbClose BOOL 0 " *" 0 1 1 2 1 0
ludClientID UDINT 0 " *" 0 7 1 10 1 0
lusState USINT 0 " *" 0 5 1 10 1 0
strReceived STRING[254] 0 " *" 0 9 255 1 1 0
strServerCmd STRING[254] 0 " *" 0 9 255 1 1 0
strReply STRING[254] 0 " *" 0 9 255 1 1 0
lusConfigToSend USINT 0 " *" 0 5 1 10 1 0
lusSent_ConfigIdx USINT 0 " 0" 0 5 1 10 1 0
strValue STRING[254][0..24] 0 " *" 0 9 255 1 1 1
strValue[0] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[1] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[2] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[3] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[4] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[5] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[6] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[7] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[8] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[9] STRING[254] 0 " ''" 1 9 255 1 1 0
strValue[10] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[11] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[12] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[13] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[14] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[15] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[16] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[17] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[18] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[19] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[20] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[21] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[22] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[23] STRING[254] 0 " *" 1 9 255 1 1 0
strValue[24] STRING[254] 0 " *" 1 9 255 1 1 0
gbPump BOOL 0 " *" 0 1 1 2 0 0
iAITempAussen INT 0 " *" 0 3 1 10 0 0
iAITempMBad INT 0 " *" 0 3 1 10 0 0
iAITempMGang INT 0 " *" 0 3 1 10 0 0
iAITempMKuch INT 0 " *" 0 3 1 10 0 0
iAITempMWZ INT 0 " *" 0 3 1 10 0 0
A9 Temp4Module 0 " *" 0 100 1 0 0 0
bModuleOk BOOL 0 " *" 1 1 1 2 0 0
iTemp INT[0..3] 0 " *" 1 3 4 0 0 0
iTemp[1] INT 0 " 0" 2 3 1 10 0 0
iTemp[2] INT 0 " 0" 2 3 1 10 0 0
iTemp[3] INT 0 " 0" 2 3 1 10 0 0

3
Diagnosis/HomeSPS/PLC1/door.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=door
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

BIN
Diagnosis/HomeSPS/PLC1/door.tc Normal file
View File

Binary file not shown.

BIN
Diagnosis/HomeSPS/PLC1/door.td Normal file
View File

Binary file not shown.

85
Diagnosis/HomeSPS/PLC1/g_timctr.PVM Normal file
View File

@@ -0,0 +1,85 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=g_timctr
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=40 ASCIIString=0
name type force value level type len format place expand specs
act_DT DATE_AND_TIME 0 " DT#2106-02-06-06:28:15" 0 11 1 1 0 0
A6 DO12Module 0 " *" 0 100 1 0 0 1
bModuleOk BOOL 0 " FALSE" 1 1 1 2 0 0
DOu BOOL[0..11] 0 " *" 1 1 12 0 0 0
DOu[0] BOOL 0 " *" 2 1 1 2 0 0
DOu[1] BOOL 0 " *" 2 1 1 2 0 0
DOu[2] BOOL 0 " *" 2 1 1 2 0 0
DOu[3] BOOL 0 " *" 2 1 1 2 0 0
DOu[4] BOOL 0 " *" 2 1 1 2 0 0
DOu[5] BOOL 0 " *" 2 1 1 2 0 0
DOu[6] BOOL 0 " *" 2 1 1 2 0 0
DOu[7] BOOL 0 " *" 2 1 1 2 0 0
DOu[8] BOOL 0 " *" 2 1 1 2 0 0
DOu[9] BOOL 0 " *" 2 1 1 2 0 0
DOu[10] BOOL 0 " *" 2 1 1 2 0 0
DOu[11] BOOL 0 " *" 2 1 1 2 0 0
DOuStat BOOL[0..11] 0 " *" 1 1 12 0 0 0
DOuStat[0] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[1] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[2] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[3] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[4] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[5] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[6] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[7] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[8] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[9] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[10] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[11] BOOL 0 " *" 2 1 1 2 0 0
offDT DTStructure[0..9] 0 " *" 0 100 10 0 1 1
offDT[0] DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " 0" 2 5 1 10 0 0
day USINT 0 " 0" 2 5 1 10 0 0
wday USINT 0 " 0" 2 5 1 10 0 0
hour USINT 0 " 23" 2 5 1 10 0 0
minute USINT 0 " 59" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
offDT[1] DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " 0" 2 5 1 10 0 0
day USINT 0 " 0" 2 5 1 10 0 0
wday USINT 0 " 0" 2 5 1 10 0 0
hour USINT 0 " 22" 2 5 1 10 0 0
minute USINT 0 " 59" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
onDT DTStructure[0..9] 0 " *" 0 100 10 0 1 1
onDT[0] DTStructure 0 " *" 1 100 1 0 0 1
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " 0" 2 5 1 10 0 0
day USINT 0 " 0" 2 5 1 10 0 0
wday USINT 0 " 0" 2 5 1 10 0 0
hour USINT 0 " 6" 2 5 1 10 0 0
minute USINT 0 " 0" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
onDT[1] DTStructure 0 " *" 1 100 1 0 0 1
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " 0" 2 5 1 10 0 0
day USINT 0 " 0" 2 5 1 10 0 0
wday USINT 0 " 0" 2 5 1 10 0 0
hour USINT 0 " 19" 2 5 1 10 0 0
minute USINT 0 " 0" 2 5 1 10 0 0
second USINT 0 " *" 2 5 1 10 0 0
millisec UINT 0 " *" 2 6 1 10 0 0
microsec UINT 0 " *" 2 6 1 10 0 0
bOn BOOL[0..9] 0 " *" 0 1 10 0 0 0
bOn[0] BOOL 0 " *" 1 1 1 2 0 0
bOn[1] BOOL 0 " *" 1 1 1 2 0 0
bOn[2] BOOL 0 " *" 1 1 1 2 0 0
bOn[3] BOOL 0 " *" 1 1 1 2 0 0
bOn[4] BOOL 0 " *" 1 1 1 2 0 0
bOn[5] BOOL 0 " *" 1 1 1 2 0 0
bOn[6] BOOL 0 " *" 1 1 1 2 0 0
bOn[7] BOOL 0 " *" 1 1 1 2 0 0
bOn[8] BOOL 0 " *" 1 1 1 2 0 0
bOn[9] BOOL 0 " *" 1 1 1 2 0 0

94
Diagnosis/HomeSPS/PLC1/g_timctr.PVM.dock Normal file
View File

@@ -0,0 +1,94 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=g_timctr
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=70 ASCIIString=0
name type force value level type len format place expand specs
act_DTstruct DTStructure 0 " *" 0 100 1 0 0 0
year UINT 0 " 0" 1 6 1 10 0 0
month USINT 0 " *" 1 5 1 10 0 0
day USINT 0 " *" 1 5 1 10 0 0
wday USINT 0 " *" 1 5 1 10 0 0
hour USINT 0 " *" 1 5 1 10 0 0
minute USINT 0 " *" 1 5 1 10 0 0
second USINT 0 " *" 1 5 1 10 0 0
millisec UINT 0 " 0" 1 6 1 10 0 0
microsec UINT 0 " 0" 1 6 1 10 0 0
A6 DO12Module 0 " *" 0 100 1 0 0 0
bModuleOk BOOL 0 " *" 1 1 1 2 0 0
DOu BOOL[0..11] 0 " *" 1 1 12 0 0 0
DOu[0] BOOL 0 " *" 2 1 1 2 0 0
DOu[1] BOOL 0 " *" 2 1 1 2 0 0
DOu[2] BOOL 0 " *" 2 1 1 2 0 0
DOu[3] BOOL 0 " *" 2 1 1 2 0 0
DOu[4] BOOL 0 " *" 2 1 1 2 0 0
DOu[5] BOOL 0 " *" 2 1 1 2 0 0
DOu[6] BOOL 0 " *" 2 1 1 2 0 0
DOu[7] BOOL 0 " *" 2 1 1 2 0 0
DOu[8] BOOL 0 " *" 2 1 1 2 0 0
DOu[9] BOOL 0 " *" 2 1 1 2 0 0
DOu[10] BOOL 0 " *" 2 1 1 2 0 0
DOu[11] BOOL 0 " *" 2 1 1 2 0 0
DOuStat BOOL[0..11] 0 " *" 1 1 12 0 0 0
DOuStat[0] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[1] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[2] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[3] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[4] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[5] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[6] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[7] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[8] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[9] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[10] BOOL 0 " *" 2 1 1 2 0 0
DOuStat[11] BOOL 0 " *" 2 1 1 2 0 0
offDT DTStructure[0..9] 0 " *" 0 100 10 0 1 1
offDT[0] DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " *" 2 5 1 10 0 0
day USINT 0 " *" 2 5 1 10 0 0
wday USINT 0 " *" 2 5 1 10 0 0
hour USINT 0 " *" 2 5 1 10 0 0
minute USINT 0 " *" 2 5 1 10 0 0
second USINT 0 " *" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
offDT[1] DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " *" 2 5 1 10 0 0
day USINT 0 " *" 2 5 1 10 0 0
wday USINT 0 " *" 2 5 1 10 0 0
hour USINT 0 " *" 2 5 1 10 0 0
minute USINT 0 " *" 2 5 1 10 0 0
second USINT 0 " *" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
onDT DTStructure[0..9] 0 " *" 0 100 10 0 1 1
onDT[0] DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " *" 2 5 1 10 0 0
day USINT 0 " *" 2 5 1 10 0 0
wday USINT 0 " *" 2 5 1 10 0 0
hour USINT 0 " *" 2 5 1 10 0 0
minute USINT 0 " *" 2 5 1 10 0 0
second USINT 0 " *" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
onDT[1] DTStructure 0 " *" 1 100 1 0 0 1
year UINT 0 " 0" 2 6 1 10 0 0
month USINT 0 " 0" 2 5 1 10 0 0
day USINT 0 " 0" 2 5 1 10 0 0
wday USINT 0 " 0" 2 5 1 10 0 0
hour USINT 0 " 15" 2 5 1 10 0 0
minute USINT 0 " 20" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
bOn BOOL[0..9] 0 " *" 0 1 10 0 0 1
bOn[0] BOOL 0 " TRUE" 1 1 1 2 0 0
bOn[1] BOOL 0 " *" 1 1 1 2 0 0
bOn[2] BOOL 0 " *" 1 1 1 2 0 0
bOn[3] BOOL 0 " *" 1 1 1 2 0 0
bOn[4] BOOL 0 " *" 1 1 1 2 0 0
bOn[5] BOOL 0 " *" 1 1 1 2 0 0
bOn[6] BOOL 0 " *" 1 1 1 2 0 0
bOn[7] BOOL 0 " *" 1 1 1 2 0 0
bOn[8] BOOL 0 " *" 1 1 1 2 0 0
bOn[9] BOOL 0 " *" 1 1 1 2 0 0

3
Diagnosis/HomeSPS/PLC1/gcont.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=gcont
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

13
Diagnosis/HomeSPS/PLC1/getactdt.PVM Normal file
View File

@@ -0,0 +1,13 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=getactdt
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=200 Type=100 Scope=60 Force=60 Index=10 ASCIIString=0
name type force value level type len format place expand specs
RTCtime_struct RTCtime_typ 0 " *" 0 100 1 0 0 1
year UINT 0 " 2008" 1 6 1 10 0 0
month USINT 0 " 6" 1 5 1 10 0 0
day USINT 0 " 19" 1 5 1 10 0 0
reserve USINT 0 " 4" 1 5 1 10 0 0
hour USINT 0 " 18" 1 5 1 10 0 0
minute USINT 0 " 40" 1 5 1 10 0 0
second USINT 0 " 9" 1 5 1 10 0 0
millisec UINT 0 " 310" 1 6 1 10 0 0
microsec UINT 0 " 0" 1 6 1 10 0 0

13
Diagnosis/HomeSPS/PLC1/heat.PVM.dock Normal file
View File

@@ -0,0 +1,13 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=heat
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=7 ASCIIString=0
name type force value level type len format place expand specs
QPump BOOL 0 " FALSE" 0 1 1 2 1 0
iAITempAussen INT 1 " 51" 0 3 1 10 0 0
iAITempMWZ INT 1 " 219" 0 3 1 10 0 0
iAITempMBad INT 1 " 248" 0 3 1 10 0 0
iAITempMGang INT 1 " 232" 0 3 1 10 0 0
iAITempMKuch INT 1 " 228" 0 3 1 10 0 0
ldiQPumpStarts DINT 0 " 0" 0 4 1 10 1 0
ldiQPumpRuntimeHour DINT 0 " 0" 0 4 1 10 1 0
ldiQPumpRuntimeMS DINT 0 " 0" 0 4 1 10 1 0
gbPump BOOL 0 " FALSE" 0 1 1 2 0 0

3
Diagnosis/HomeSPS/PLC1/m_au.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_au
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/m_au.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_au
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

4
Diagnosis/HomeSPS/PLC1/m_az.PVM Normal file
View File

@@ -0,0 +1,4 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_az
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs
Q_Light BOOL 0 " TRUE" 0 1 1 2 1 0

4
Diagnosis/HomeSPS/PLC1/m_az.PVM.dock Normal file
View File

@@ -0,0 +1,4 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_az
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=1 ASCIIString=0
name type force value level type len format place expand specs
Q_Light BOOL 0 " TRUE" 0 1 1 2 1 0

3
Diagnosis/HomeSPS/PLC1/m_gz.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_gz
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/m_gz.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_gz
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/m_kih.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_kih
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/m_kti.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_kti
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/m_main.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_main
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

7
Diagnosis/HomeSPS/PLC1/m_main.PVM.dock Normal file
View File

@@ -0,0 +1,7 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_main
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=2 ASCIIString=0
name type force value level type len format place expand specs
A2 DI12Module 0 " *" 0 100 1 0 0 1
DIn BOOL[0..11] 0 " *" 1 1 12 0 0 1
DIn[7] BOOL 0 " *" 2 1 1 2 0 0
DIn[8] BOOL 0 " *" 2 1 1 2 0 0

3
Diagnosis/HomeSPS/PLC1/m_sz.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_sz
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

BIN
Diagnosis/HomeSPS/PLC1/profiler.pc Normal file
View File

Binary file not shown.

1
Diagnosis/HomeSPS/PLC1/profiler.set Normal file
View File

@@ -0,0 +1 @@
\\\Diagnosis\HomeSPS\PLC1\profiler.pc

18
Diagnosis/HomeSPS/PLC1/suntim.PVM.dock Normal file
View File

@@ -0,0 +1,18 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=suntim
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=142 Type=79 Scope=71 Force=40 Index=8 ASCIIString=0
name type force value level type len format place expand specs
lsun_time sun_time 0 " *" 0 100 1 0 1 1
tstrOuSun_rise TIMEStructure 0 " *" 1 100 1 0 0 1
day SINT 0 " 0" 2 2 1 10 0 0
hour USINT 0 " 7" 2 5 1 10 0 0
minute USINT 0 " 31" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
tstrOuSun_set TIMEStructure 0 " *" 1 100 1 0 0 1
day SINT 0 " 0" 2 2 1 10 0 0
hour USINT 0 " 16" 2 5 1 10 0 0
minute USINT 0 " 27" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0

10
Diagnosis/HomeSPS/PLC1/tcontr.PVM Normal file
View File

@@ -0,0 +1,10 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=tcontr
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=2 ASCIIString=0
name type force value level type len format place expand specs
QTemp BOOL 0 " FALSE" 0 1 1 2 1 0
A8 Temp4Module 0 " *" 0 100 1 0 0 1
iTemp INT[0..3] 0 " *" 1 3 4 0 0 1
iTemp[0] INT 0 " 233" 2 3 1 10 0 0
iTemp[1] INT 0 " 228" 2 3 1 10 0 0
iTemp[2] INT 0 " 237" 2 3 1 10 0 0
iTemp[3] INT 0 " 32767" 2 3 1 10 0 0

10
Diagnosis/HomeSPS/PLC1/tcontr.PVM.dock Normal file
View File

@@ -0,0 +1,10 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=tcontr
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=2 ASCIIString=0
name type force value level type len format place expand specs
QTemp BOOL 0 " FALSE" 0 1 1 2 1 0
A8 Temp4Module 0 " *" 0 100 1 0 0 1
iTemp INT[0..3] 0 " *" 1 3 4 0 0 1
iTemp[0] INT 1 " 245" 2 3 1 10 0 0
iTemp[1] INT 1 " 249" 2 3 1 10 0 0
iTemp[2] INT 1 " 250" 2 3 1 10 0 0
iTemp[3] INT 1 " 32767" 2 3 1 10 0 0

BIN
Diagnosis/HomeSPS/PLC1/tcontr.tc Normal file
View File

Binary file not shown.

3
Diagnosis/HomeSPS/PLC1/th2.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=th2
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/th2.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=th2
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=116 Type=142 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/w_bad.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=w_bad
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/w_main.PVM Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=w_main
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/HomeSPS/PLC1/w_main.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=w_main
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

4
Diagnosis/HomeSPS/PLC1/w_wz1.PVM.dock Normal file
View File

@@ -0,0 +1,4 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=w_wz1
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs
Q_Light BOOL 0 " FALSE" 0 1 1 2 1 0

8
Diagnosis/PP45/PLC1/c_munin.PVM Normal file
View File

@@ -0,0 +1,8 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=c_munin
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=200 Type=100 Scope=60 Force=60 Index=3 ASCIIString=0
name type force value level type len format place expand specs
iAITempAussen INT 0 " 0" 0 3 1 10 0 0
iAITempMBad INT 0 " 0" 0 3 1 10 0 0
iAITempMGang INT 0 " 0" 0 3 1 10 0 0
iAITempMKuch INT 0 " 0" 0 3 1 10 0 0
iAITempMWZ INT 0 " 0" 0 3 1 10 0 0

19
Diagnosis/PP45/PLC1/c_munin.PVM.dock Normal file
View File

@@ -0,0 +1,19 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=c_munin
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=200 Type=100 Scope=60 Force=60 Index=14 ASCIIString=0
name type force value level type len format place expand specs
iAITempAussen INT 1 " 25" 0 3 1 10 0 0
iAITempMBad INT 1 " 262" 0 3 1 10 0 0
iAITempMGang INT 1 " 246" 0 3 1 10 0 0
iAITempMKuch INT 1 " 240" 0 3 1 10 0 0
iAITempMWZ INT 1 " 226" 0 3 1 10 0 0
lbClose BOOL 0 " FALSE" 0 1 1 2 1 0
lusServerState USINT 0 " 2" 0 5 1 10 1 0
lusState USINT 0 " 6" 0 5 1 10 1 0
lusValuesToSend USINT 0 " 0" 0 5 1 10 1 0
strClientIP STRING[15] 0 " '0'" 0 9 16 1 1 0
strClientIPConnected STRING[15] 0 " '192.168.11.18'" 0 9 16 1 1 0
strHostname STRING[254] 0 " 'bur.rosstein.de$L'" 0 9 255 1 1 0
strList STRING[254] 0 " 'tempratures$L'" 0 9 255 1 1 0
strReceived STRING[254] 0 " ''" 0 9 255 1 1 0
strReply STRING[254] 0 " '#munin node at bur$L'" 0 9 255 1 1 0
strServerCmd STRING[254] 0 " ''" 0 9 255 1 1 0

3
Diagnosis/PP45/PLC1/gcont.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=gcont
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=115 Type=104 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/PP45/PLC1/heat.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=heat
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=109 Type=131 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

4
Diagnosis/PP45/PLC1/m_OG.PVM.dock Normal file
View File

@@ -0,0 +1,4 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_OG
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=115 Type=104 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs
Q_Light BOOL 0 " TRUE" 0 1 1 2 1 0

3
Diagnosis/PP45/PLC1/m_main.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_main
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=115 Type=104 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

3
Diagnosis/PP45/PLC1/m_wz.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=m_wz
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=115 Type=104 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

4
Diagnosis/PP45/PLC1/th1.PVM.dock Normal file
View File

@@ -0,0 +1,4 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=th1
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=151 Type=99 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs
Q_Light BOOL 0 " TRUE" 0 1 1 2 1 0

3
Diagnosis/PP45/PLC1/visualizat.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=visualizat
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=109 Type=131 Scope=71 Force=40 Index=0 ASCIIString=0
name type force value level type len format place expand specs

6
Diagnosis/Simu/PLC1/c_test.PVM.dock Normal file
View File

@@ -0,0 +1,6 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=c_test
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=2 ASCIIString=0
name type force value level type len format place expand specs
uiMueStart UINT 0 " 1" 0 6 1 10 1 0
uiMueStop UINT 0 " 2" 0 6 1 10 1 0
uiMueDiff UINT 0 " 1" 0 6 1 10 1 0

3
Diagnosis/Simu/PLC1/getactdt.PVM.dock Normal file
View File

@@ -0,0 +1,3 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=getactdt
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=0 ASCIIString=0
name type force value level type len format place expand specs

52
Diagnosis/Simu/PLC1/suntim.PVM.dock Normal file
View File

@@ -0,0 +1,52 @@
WATCH Ver=2.00 PLCName=PLC1 CPUName=CPU TaskName=suntim
Position X=0 Y=0 Width=0 Height=0 TabWidth Name=100 Type=0 Scope=0 Force=0 Index=16 ASCIIString=0
name type force value level type len format place expand specs
lsun_time sun_time 0 " *" 0 100 1 0 1 1
rInLatitude REAL 0 " 47.766" 1 8 1 10 0 0
rInLongitude REAL 0 " 11.55" 1 8 1 10 0 0
dtstrInActDT DTStructure 0 " *" 1 100 1 0 0 0
year UINT 0 " *" 2 6 1 10 0 0
month USINT 0 " *" 2 5 1 10 0 0
day USINT 0 " *" 2 5 1 10 0 0
wday USINT 0 " *" 2 5 1 10 0 0
hour USINT 0 " *" 2 5 1 10 0 0
minute USINT 0 " *" 2 5 1 10 0 0
second USINT 0 " *" 2 5 1 10 0 0
millisec UINT 0 " *" 2 6 1 10 0 0
microsec UINT 0 " *" 2 6 1 10 0 0
tstrOuSun_rise TIMEStructure 0 " *" 1 100 1 0 0 1
day SINT 0 " 0" 2 2 1 10 0 0
hour USINT 0 " 6" 2 5 1 10 0 0
minute USINT 0 " 29" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
tstrOuSun_set TIMEStructure 0 " *" 1 100 1 0 0 1
day SINT 0 " 0" 2 2 1 10 0 0
hour USINT 0 " 15" 2 5 1 10 0 0
minute USINT 0 " 30" 2 5 1 10 0 0
second USINT 0 " 0" 2 5 1 10 0 0
millisec UINT 0 " 0" 2 6 1 10 0 0
microsec UINT 0 " 0" 2 6 1 10 0 0
uiDayOfYear UINT 0 " 322" 1 6 1 10 0 0
us USINT 0 " 10" 1 5 1 10 0 0
rDK REAL 0 " *" 1 8 1 10 0 0
rDelta REAL 0 " *" 1 8 1 10 0 0
rh REAL 0 " *" 1 8 1 10 0 0
rB REAL 0 " *" 1 8 1 10 0 0
rOffset REAL 0 " *" 1 8 1 10 0 0
rl15 REAL 0 " *" 1 8 1 10 0 0
rSun_rise REAL 0 " *" 1 8 1 10 0 0
rSun_set REAL 0 " *" 1 8 1 10 0 0
usLastDay USINT 0 " *" 1 5 1 10 0 0
tOuSun_rise REAL 0 " *" 1 8 1 10 0 0
tOuSun_set REAL 0 " *" 1 8 1 10 0 0
uiDayOfYear UINT 0 " *" 1 6 1 10 0 0
ui UINT 0 " *" 1 6 1 10 0 0
rDK REAL 0 " *" 1 8 1 10 0 0
rDelta REAL 0 " *" 1 8 1 10 0 0
rh REAL 0 " *" 1 8 1 10 0 0
rB REAL 0 " *" 1 8 1 10 0 0
rOffset REAL 0 " *" 1 8 1 10 0 0
rl15 REAL 0 " *" 1 8 1 10 0 0
usLastDay USINT 0 " *" 1 5 1 10 0 0

16
Logical/Apartment/Package.pkg Normal file
View File

@@ -0,0 +1,16 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Package xmlns="http://br-automation.co.at/AS/Package">
<Objects>
<Object Type="Program" Language="IEC">w_main</Object>
<Object Type="Program" Language="IEC" Description="Wasti Bad Spiegel">w_bad</Object>
<Object Type="Program" Language="IEC" Description="Wasti Wohnzimmer Bar">w_wz1</Object>
<Object Type="Program" Language="IEC" Description="Wasti Gang">w_gang</Object>
<Object Type="Program" Language="IEC" Description="Wasti Kuch 1">w_kuch1</Object>
<Object Type="Program" Language="IEC" Description="Wasti Kuch Eckbank">w_eck</Object>
<Object Type="Program" Language="IEC" Description="Wasti Speis">w_speis</Object>
<Object Type="Program" Language="IEC" Description="Wasti Klo">w_klo</Object>
<Object Type="Program" Language="IEC" Description="Wasti Wohnzimmer Sued">w_wz2</Object>
<Object Type="Program" Language="IEC" Description="Wasti Schlafzimme">w_sz</Object>
</Objects>
</Package>

9
Logical/Apartment/w_bad/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_bad.var</File>
<File>w_badInit.ab</File>
<File>w_badCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_bad/w_bad.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_bad/w_badCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A2.DIn[3] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[8] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_bad/w_badInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = true
iStairFunction = 1200 ; sec
END_PROGRAM

9
Logical/Apartment/w_eck/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_eck.var</File>
<File>w_eckInit.ab</File>
<File>w_eckCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_eck/w_eck.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_eck/w_eckCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[1] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[4] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_eck/w_eckInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 240 ; sec
END_PROGRAM

9
Logical/Apartment/w_gang/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_gang.var</File>
<File>w_gangInit.ab</File>
<File>w_gangCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_gang/w_gang.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_gang/w_gangCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[4] or (A1.DIn[6] and not A1.DIn[5]) ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[6] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_gang/w_gangInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

9
Logical/Apartment/w_klo/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_klo.var</File>
<File>w_kloInit.ab</File>
<File>w_kloCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_klo/w_klo.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_klo/w_kloCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[7] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[1] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_klo/w_kloInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = True
iStairFunction = 240 ; sec
END_PROGRAM

9
Logical/Apartment/w_kuch1/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_kuch1.var</File>
<File>w_kuch1Init.ab</File>
<File>w_kuch1Cyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_kuch1/w_kuch1.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_kuch1/w_kuch1Cyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[0] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[3] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_kuch1/w_kuch1Init.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

9
Logical/Apartment/w_main/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_main.var</File>
<File>w_mainInit.ab</File>
<File>w_mainCyclic.ab</File>
</Files>
</Program>

4
Logical/Apartment/w_main/w_main.var Normal file
View File

@@ -0,0 +1,4 @@
VAR RETAIN
IN_CentralOff :BOOL;
TONCentralOff :TON;
END_VAR

13
Logical/Apartment/w_main/w_mainCyclic.ab Normal file
View File

@@ -0,0 +1,13 @@
PROGRAM _CYCLIC
(* cyclic program *)
IN_CentralOff = A1.DIn[5] or A2.DIn[3]
;central off
TONCentralOff.IN = IN_CentralOff
TONCentralOff.PT = T#400ms
TONCentralOff FUB TON()
bW_CentralOff = TONCentralOff.Q
END_PROGRAM

4
Logical/Apartment/w_main/w_mainInit.ab Normal file
View File

@@ -0,0 +1,4 @@
PROGRAM _INIT
(* init program *)
END_PROGRAM

9
Logical/Apartment/w_speis/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_speis.var</File>
<File>w_speisInit.ab</File>
<File>w_speisCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_speis/w_speis.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_speis/w_speisCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[2] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[5] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_speis/w_speisInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = True
iStairFunction = 240 ; sec
END_PROGRAM

9
Logical/Apartment/w_sz/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_sz.var</File>
<File>w_szInit.ab</File>
<File>w_szCyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_sz/w_sz.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_sz/w_szCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A2.DIn[2] or A1.DIn[9] or A1.DIn[8] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[9] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_sz/w_szInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

9
Logical/Apartment/w_wz1/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_wz1.var</File>
<File>w_wz1Init.ab</File>
<File>w_wz1Cyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_wz1/w_wz1.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_wz1/w_wz1Cyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[10] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[10] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_wz1/w_wz1Init.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

9
Logical/Apartment/w_wz2/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">w_wz2.var</File>
<File>w_wz2Init.ab</File>
<File>w_wz2Cyclic.ab</File>
</Files>
</Program>

11
Logical/Apartment/w_wz2/w_wz2.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Apartment/w_wz2/w_wz2Cyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A1.DIn[11] or A2.DIn[4] ;Toggle On / Off
INKeyOn = False
INKeyOff = bW_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A4.DOu[0] = Q_Light
END_PROGRAM

7
Logical/Apartment/w_wz2/w_wz2Init.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

7
Logical/Aussen/Package.pkg Normal file
View File

@@ -0,0 +1,7 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Package xmlns="http://br-automation.co.at/AS/Package">
<Objects>
<Object Type="Program" Language="IEC" Description="EG Aussen Süd">au</Object>
</Objects>
</Package>

9
Logical/Aussen/au/IEC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">au.var</File>
<File>auInit.ab</File>
<File>auCyclic.ab</File>
</Files>
</Program>

11
Logical/Aussen/au/au.var Normal file
View File

@@ -0,0 +1,11 @@
VAR RETAIN
INKeyOn :BOOL;
INKeyOff :BOOL;
lStairFunction :BOOL;
RT_OnOff :R_TRIG;
INKeyOnOff :BOOL;
Q_Light :BOOL;
xms :DINT;
iStairFunction :INT;
ims :DINT; (* s *)
END_VAR

39
Logical/Aussen/au/auCyclic.ab Normal file
View File

@@ -0,0 +1,39 @@
PROGRAM _CYCLIC
(* cyclic program *)
;Mapping DI on local VAR
INKeyOnOff = A7.DIn[2];Toggle On / Off
INKeyOn = False
INKeyOff = bM_CentralOff
;Build RT
RT_OnOff.CLK = INKeyOnOff
RT_OnOff FUB R_TRIG()
if RT_OnOff.Q then
Q_Light = not Q_Light
endif
if INKeyOn then
Q_Light = True
endif
if INKeyOff then
Q_Light = False
endif
if Q_Light and lStairFunction then
ims = ims + xms
else
ims = 0
endif
if ims > (dint (iStairFunction) * 1000) then
Q_Light = False
endif
;Map local Out to DO
A6.DOu[6] = Q_Light
END_PROGRAM

7
Logical/Aussen/au/auInit.ab Normal file
View File

@@ -0,0 +1,7 @@
PROGRAM _INIT
(* init program *)
xms = 100 ; 100ms Task
lStairFunction = False
iStairFunction = 120 ; sec
END_PROGRAM

9
Logical/Communication/Package.pkg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.27 SP04?>
<Package xmlns="http://br-automation.co.at/AS/Package">
<Objects>
<Object Type="Program" Language="IEC" Description="Simple Webserver">hawk</Object>
<Object Type="Program" Language="ANSIC">c_hawk</Object>
<Object Type="Program" Language="ANSIC">c_munin</Object>
</Objects>
</Package>

8
Logical/Communication/c_hawk/ANSIC.prg Normal file
View File

@@ -0,0 +1,8 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">c_hawk.var</File>
<File>hawk.c</File>
</Files>
</Program>

21
Logical/Communication/c_hawk/c_hawk.var Normal file
View File

@@ -0,0 +1,21 @@
VAR RETAIN
lTcpRecv :TcpRecv;
lTcpClose :TcpClose;
lTcpServer :TcpServer;
lTcpOpen :TcpOpen;
lusServerState :USINT;
lusState :USINT;
lTcpSend :TcpSend;
ludPortID :UDINT;
strReceived :STRING[254];
strClientIP :STRING[15];
strClientIPConnected :STRING[15];
ludClosePortID :UDINT;
ludClientID :UDINT;
ludClientPort :UDINT;
strRequest :STRING[254];
ludSendlen :ARRAY [0..24] OF UDINT;
lbSend :BOOL;
strHTTP :ARRAY [0..24] OF STRING[254];
lusSendID :USINT;
END_VAR

227
Logical/Communication/c_hawk/hawk.c Normal file
View File

@@ -0,0 +1,227 @@
#ifdef _DEFAULT_INCLUDES
#include <AsDefault.h>
#endif
/* Include C-plc extenstions*/
#include <bur/plc.h>
#include <string.h>
#include <astcp.h>
/* Local Vars */
/* FUB Instances */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL TcpOpen_typ lTcpOpen;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL TcpServer_typ lTcpServer;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL TcpClose_typ lTcpClose;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL TcpRecv_typ lTcpRecv;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL TcpSend_typ lTcpSend;
#endif /* "#endif" due to conversion */
/* other Vars*/
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcstring strClientIP[16];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcstring strClientIPConnected[16];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcstring strRequest[255];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcstring strReceived[255];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcstring strHTTP[25][255];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL USINT lusServerState;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL USINT lusState;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL USINT lusSendID;;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL plcbit lbSend;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL UDINT ludSendlen[25];
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL UDINT ludPortID;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL UDINT ludClosePortID;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL UDINT ludClientID;
#endif /* "#endif" due to conversion */
#if _OLD_DECLARATION /* due to conversion */
_LOCAL UDINT ludClientPort;
#endif /* "#endif" due to conversion */
/*constants*/
#define false 0
#define usINIT 0
#define usOPEN 1
#define usOPENED 2
#define usCONNECTED 3
#define usCLOSE 4
#define usCLOSEall 5
#define usCLOSED 6
#define usMAXPortID 9
/*const USINT usINIT = 0;*/
/* Deklaration der globalen Variablen */
/* INIT Sub */
void _INIT object_Init (void)
{
lusServerState = usOPEN;
lusState = usCLOSED;
strcpy (strClientIP, "0");
strcpy (strHTTP[0], "HTTP/1.0 200 OK\r\n");
ludSendlen [0] = 17;
strcpy (strHTTP[1], "Date: Fri, 31 Dec 1999 23:59:59 GMT\r\n");
ludSendlen [1] = 37;
strcpy (strHTTP[2], "Content-Type: text/html\r\n");
ludSendlen [2] = 25;
strcpy (strHTTP[3], "Content-Length: 115\r\n");
ludSendlen [3] = 21;
strcpy (strHTTP[4], "\r\n");
ludSendlen [4] = 2;
strcpy (strHTTP[5], "<html>\r\n");
ludSendlen [5] = 8;
strcpy (strHTTP[6], "<body>\r\n");
ludSendlen [6] = 8;
strcpy (strHTTP[7], "<h1>Hallo</h1>\r\n");
ludSendlen [7] = 16;
strcpy (strHTTP[8], "</body>\r\n");
ludSendlen [8] = 9;
strcpy (strHTTP[9], "</html>\r\n");
ludSendlen [9] = 9;
strcpy (strHTTP[20], "HTTP/1.0 404 Not Found\n");
}
/* Die Haupt-Routine des C-Objekts */
void _CYCLIC object_cycle( void )
{
/*open listener socket*/
lTcpOpen.enable = (lusServerState == usOPEN);
lTcpOpen.port = 80;
lTcpOpen.options = 0;
TcpOpen (&lTcpOpen);
if (lTcpOpen.status ==0)
{
ludPortID = lTcpOpen.ident;
lusServerState = usOPENED;
}
else if (lTcpOpen.status == tcpERR_ALREADY_EXIST)
{
ludClosePortID = lTcpOpen.ident;
lusServerState = usCLOSE;
}
else if (lTcpOpen.status == tcpERR_NOMORE_IDENTS)
{
ludClosePortID = 1;
lusServerState = usCLOSE;
}
/*open to server*/
lTcpServer.enable = (lusServerState == usOPENED);
lTcpServer.ident = ludPortID;
lTcpServer.backlog = 1;
lTcpServer.pIpAddr = (UDINT) &strClientIPConnected[0];
TcpServer (&lTcpServer);
if (lTcpServer.status == 0)
{
lusState = usCONNECTED;
ludClientID = lTcpServer.identclnt;
ludClientPort = lTcpServer.portclnt;
}
else if (lTcpServer.status == tcpERR_INVALID)
{
ludClosePortID = ludPortID;
}
/*Close Sockets*/
lTcpClose.enable = (lusState == usCLOSE) || (lusServerState == usCLOSE) || (lusServerState == usCLOSEall);
lTcpClose.ident = ludClosePortID;
lTcpClose.how = (tcpSHUT_RD || tcpSHUT_WR);
TcpClose (&lTcpClose);
if ((lTcpClose.status == 0) || (lTcpClose.status == tcpERR_INVALID_IDENT))
{
if (lusServerState == usCLOSEall)
{
ludClosePortID = ludClosePortID + 1;
if (ludClosePortID > usMAXPortID)
{
lusServerState = usCLOSED;
}
}
else if (lusState == usCLOSE)
{
lusState = usCLOSED;
}
else
{
lusServerState = usCLOSED;
}
}
lTcpRecv.enable = (lusState == usCONNECTED);
lTcpRecv.ident = ludClientID;
lTcpRecv.pData = (UDINT) (&strRequest);
lTcpRecv.datamax = 255;
lTcpRecv.flags = 0;
TcpRecv (&lTcpRecv);
if ((lTcpRecv.status == 0) && (lTcpRecv.recvlen > 0))
{
strcpy (strReceived, strRequest);
}
if (lusState == usCONNECTED)
{
lTcpSend.enable = lbSend;
lTcpSend.ident = ludClientID;
lTcpSend.pData = (UDINT) &strHTTP[lusSendID];
lTcpSend.datalen = ludSendlen[lusSendID];
lTcpSend.flags = 0;
TcpSend (&lTcpSend);
if (lTcpSend.status == 0)
{
lusSendID = lusSendID + 1;
if ((lusSendID > 9) && (lbSend != false))
{
lbSend = false;
lusSendID = 0;
lusState = usCLOSE;
ludClosePortID = ludClientID;
}
}
}
}

9
Logical/Communication/c_munin/ANSIC.prg Normal file
View File

@@ -0,0 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=3.0.71.20 SP02?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Private="true">c_munin.var</File>
<File Description="Local variables" Private="true">c_munin_states.var</File>
<File>munin.c</File>
</Files>
</Program>

44
Logical/Communication/c_munin/c_munin.var Normal file
View File

@@ -0,0 +1,44 @@
VAR
diTemp1 : DINT := 145;
diTemp2 : DINT := 27;
lbClose : BOOL := FALSE;
lbSend : BOOL := FALSE;
lbSend_Config : BOOL := FALSE;
lbSend_Config1 : BOOL := FALSE;
lbSend_Values : BOOL := FALSE;
lbWaitRecv : BOOL := FALSE;
lbSetLinger : BOOL := FALSE;
lb1 : DINT := 0;
lb2 : DINT := 0;
lTcpClose : TcpClose := (0);
lTcpIoctl : TcpIoctl := (0);
lTcpOpen : TcpOpen := (0);
lTcpRecv : TcpRecv := (0);
lTcpSend : TcpSend := (0);
lTcpServer : TcpServer := (0);
ltcpLINGER : tcpLINGER_typ := (0);
ludClientID : UDINT;
ludClientPort : UDINT;
ludClosePortID : UDINT;
ludPortID : UDINT;
ludSendlen : ARRAY[0..24] OF UDINT;
lusSendID : USINT;
lusSent_ConfigIdx : USINT := 0;
lusConfigToSend : USINT := 0;
lusSent_ValueIdx : USINT := 0;
lusValuesToSend : USINT := 0;
lusServerState : USINT;
lusState : USINT;
strClientIP : STRING[15];
strClientIPConnected : STRING[15];
strConfig : ARRAY[0..24] OF STRING[254];
strConfTemp : ARRAY[0..24] OF STRING[254];
strHostname : STRING[254];
strList : STRING[254];
strReceived : STRING[254];
strReply : STRING[254];
strServerCmd : STRING[254];
strTemp : STRING[20];
strValue : ARRAY[0..24] OF STRING[254];
usi : USINT := 0;
END_VAR

18
Logical/Communication/c_munin/c_munin_states.var Normal file
View File

@@ -0,0 +1,18 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Package: c_munin
* File: c_munin_states.var
* Author: Administrator
* Created: October 23, 2008
*******************************************************************)
VAR CONSTANT
usINIT : USINT := 0;
usOPEN : USINT := 1;
usOPENED : USINT := 2;
usCONNECTED : USINT := 3;
usCLOSE : USINT := 4;
usCLOSEall : USINT := 5;
usCLOSED : USINT := 6;
usMAXPortID : USINT := 12;
END_VAR

Some files were not shown because too many files have changed in this diff Show More