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

Modified for IWIS Parts

Browse Source 
added SQL Database for Part logging
This commit is contained in:
Michael Rest
2014-12-02 09:41:00 +01:00
parent 2d252734b6
commit c334a3f16b
43 changed files with 1118 additions and 226 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
LastUser.set
View File

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

18
Logical/Axises/PressCtrl/PressCtrl.st
View File

@@ -145,8 +145,18 @@ PROGRAM _CYCLIC
//Wait for Start
//---------------------------
enPressStepHoming_WAIT_START:
IF bSafetyOk AND gMachine.bRequestHoming THEN
enStepPressHoming := enPressStepHoming_MOVE_HOME;
IF bSafetyOk AND gMachine.bRequestHoming THEN
bHome :=TRUE;
lAxisShaft1.Para.usHomeingMode := mcHOME_ABSOLUTE;
enStepPressHoming := enPressStepHoming_REF_PRESS;
END_IF
//Wait for Press Referenced
//---------------------------
enPressStepHoming_REF_PRESS:
IF NOT bHome THEN
enStepPressHoming := enPressStepHoming_MOVE_HOME;
END_IF
//Press up to Home
@@ -224,6 +234,8 @@ PROGRAM _CYCLIC
enStepPress := enPressStep_PRESS_PRESSPOS;
gMAxTrace.bStartSave := 1;
lAxisShaft1.Status.bTorqueLimitReached := FALSE;
rMaxForce := 0;
rMaxTorque := 0;
END_IF
@@ -259,6 +271,8 @@ PROGRAM _CYCLIC
bTransitionCondition := FALSE;
IF udSteptime > udPresstime THEN
enStepPress := enPressStep_PRESS_HOMEPOS;
gPressLog.rForceReached := rMaxForce;
gPressLog.bLog := TRUE;
END_IF
//Press up to Home

7
Logical/Common/GlobalComon.var
View File

@@ -4,10 +4,9 @@ VAR
bBlink1_0 : BOOL;
bBlink2_0 : BOOL;
bBlink5_0 : BOOL;
gdtCurrentTime : DATE_AND_TIME; (*Current Date and Time*)
gDTstrucCurrentTime : DTStructure := (0); (*Current Date and Time as DTStructure*)
gsCurrentTime : STRING[25] := ''; (*Current Date and Time as String*)
gTCurrentTime : TIME := T#0ms; (*Current Time*)
gdtActTime : DATE_AND_TIME; (*Current Date and Time*)
gDTSActTimeUTC : DTStructure := (0); (*Current Date and Time as DTS (ms) UTC !!!*)
gudUnixTimeUTC : UDINT; (*Current Date and Time as Unixts UTC !!!*)
END_VAR
VAR CONSTANT
gAInNull : INT := 0; (*O FOR Analog Input*)

4
Logical/Common/Package.pkg
View File

@@ -1,10 +1,10 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Package xmlns="http://br-automation.co.at/AS/Package">
<Objects>
<Object Type="File">GlobalCommon.typ</Object>
<Object Type="File">GlobalComon.var</Object>
<Object Type="Program" Language="IEC" Description="Current Date_And_Time / DT Struct">get_dt</Object>
<Object Type="Program" Language="IEC" Description="Actual Date_And_Time">get_dt</Object>
<Object Type="Program" Language="IEC" Description="Blinker 0,1 -0,5s">blinker</Object>
</Objects>
</Package>

4
Logical/Common/get_dt/IEC.prg
View File

@@ -1,9 +1,9 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File>get_dtCyclic.ab</File>
<File Private="true">get_dt.var</File>
<File>get_dtInit.ab</File>
<File>get_dtCyclic.ab</File>
</Files>
</Program>

15
Logical/Common/get_dt/get_dt.var
View File

@@ -1,6 +1,13 @@
VAR
sTemp : STRING[10] := '';
lDTStructureGetTime : DTStructureGetTime := (0);
lDTGetTime : DTGetTime := (0);
lTimeStructure : TIMEStructure := (0);
lDTGetTime : DTGetTime;
lUtcDTStructureGetTime : UtcDTStructureGetTime;
END_VAR
(*For unixtimestamp conversion*)
VAR CONSTANT
uiDaysToMonthStart : ARRAY[0..11] OF UINT := [0,31,59,90,120,151,181,212,243,273,304,334];
END_VAR
VAR
udYears : UDINT;
udSwitchYears : UDINT;
udUnixTime : UDINT;
END_VAR

54
Logical/Common/get_dt/get_dtCyclic.ab
View File

@@ -1,44 +1,28 @@
PROGRAM _CYCLIC
(* cyclic program *)
//Retrieve actual Date and Time in different Formats
//as Date and Time
lDTGetTime.enable = true
lDTGetTime FUB DTGetTime()
gdtCurrentTime = lDTGetTime.DT1
gdtActTime = lDTGetTime.DT1
lDTStructureGetTime.enable = true
lDTStructureGetTime FUB DTStructureGetTime ()
lDTStructureGetTime.pDTStructure = adr (gDTstrucCurrentTime)
//as Datetime Structure
lUtcDTStructureGetTime.enable = TRUE
lUtcDTStructureGetTime.pDTStructure = ADR (gDTSActTimeUTC)
lUtcDTStructureGetTime FUB UtcDTStructureGetTime ()
ascDTStructure (adr (gDTstrucCurrentTime), adr (gsCurrentTime), 25)
strcpy (adr (gsCurrentTime), "")
itoa (gDTstrucCurrentTime.year, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), "/")
itoa (gDTstrucCurrentTime.month, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), "/")
itoa (gDTstrucCurrentTime.day, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), " ")
itoa (gDTstrucCurrentTime.hour, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), ":")
itoa (gDTstrucCurrentTime.minute, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), ":")
itoa (gDTstrucCurrentTime.second, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
strcat (adr (gsCurrentTime), ".")
itoa (gDTstrucCurrentTime.millisec, adr (sTemp))
strcat (adr (gsCurrentTime), adr (sTemp))
//as Unix Timestamp
udYears = gDTSActTimeUTC.year - 1970
udSwitchYears = ((gDTSActTimeUTC.year - 1) - 1968) / 4\
- ((gDTSActTimeUTC.year - 1) - 1900) / 100\
+ ((gDTSActTimeUTC.year - 1) - 1600) / 400
lTimeStructure.day = gDTstrucCurrentTime.day
lTimeStructure.hour = gDTstrucCurrentTime.hour
lTimeStructure.minute = gDTstrucCurrentTime.minute
lTimeStructure.second = gDTstrucCurrentTime.second
lTimeStructure.millisec = gDTstrucCurrentTime.millisec
lTimeStructure.microsec = gDTstrucCurrentTime.microsec
gTCurrentTime = TIMEStructure_TO_TIME (adr (lTimeStructure))
udUnixTime = gDTSActTimeUTC.second + 60 * gDTSActTimeUTC.minute + 3600 * gDTSActTimeUTC.hour + \
(uiDaysToMonthStart[gDTSActTimeUTC.month - 1] + gDTSActTimeUTC.day -1 + udYears * 365 + udSwitchYears) * 86400
IF (gDTSActTimeUTC.month > 2) AND (gDTSActTimeUTC.year MOD 4 = 0) AND ((gDTSActTimeUTC.year MOD 100 <> 0) OR (gDTSActTimeUTC.year MOD 400 = 0)) THEN
udUnixTime = udUnixTime + 86400
ENDIF
gudUnixTimeUTC = udUnixTime
END_PROGRAM

1
Logical/Common/get_dt/get_dtInit.ab
View File

@@ -1,4 +1,5 @@
PROGRAM _INIT
(* init program *)
;tSEtSntpClient_0.enalbe = true
END_PROGRAM

202
Logical/Libraries/AsDb/AsDb.fun Normal file
View File

@@ -0,0 +1,202 @@
(********************************************************************
* COPYRIGHT -- Bernecker + Rainer
********************************************************************
* Library: AsDb
* File: AsDb.fun
* Author: B+R
********************************************************************
* Functions and function blocks of library AsDb
********************************************************************)
FUNCTION_BLOCK dbConnect (*connects to an existing database; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
pServerName : UDINT; (*pointer to IP address or host name of the database server, e.g. "sun.galaxy.one"*)
pUserName : UDINT; (*pointer to the user name*)
pPassword : UDINT; (*pointer to the user password*)
pDatabaseName : UDINT; (*pointer to the name of the database*)
databaseSystem : UDINT; (*database system*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbConnectEnc (*connects to an existing database using given encoding; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
pServerName : UDINT; (*pointer to IP address or host name of the database server, e.g. "sun.galaxy.one"*)
pUserName : UDINT; (*pointer to the user name*)
pPassword : UDINT; (*pointer to the user password*)
pDatabaseName : UDINT; (*pointer to the name of the database*)
databaseSystem : UDINT; (*database system*)
pEncoding : UDINT; (*character encoding*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbExecuteSql (*executes an SQL statement; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
pSqlStatement : UDINT; (*pointer to the SQL statement*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbGetAffectedRows (*determines the number of rows affected by an INSERT, UPDATE or DELETE SQL statement; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
affectedRows: UDINT; (*number of affected rows*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbGetColumnCount (*determines the number of columns in the result set of an SELECT SQL statement; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
columnCount : INT; (*number of columns in the result set*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbFetchNextRow (*fetches the next row into the memory; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbGetData (*gets the data of the current row of the given column*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
columnIdx : UDINT; (*the data column index*)
dataType : INT; (*type of the data*)
pData : UDINT; (*pointer to the data buffer*)
dataSize : UDINT; (*size of the data buffer*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
actDataSize : UDINT; (*size of the written data or needed data size*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbDisconnect (*disconnects the connection to the database; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbGetInfo (*gets database information; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
infoType : UINT; (*type of information*)
pServerInfo : UDINT; (*pointer to buffer for the database information*)
serverInfoSize : UDINT; (*size of the buffer*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
actServerInfoSize : UINT; (*current size of database information or needed size*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK
FUNCTION_BLOCK dbGetErrorMessage (*gets the current database error message; asynchronous execution*)
VAR_INPUT
enable : BOOL; (*enables execution*)
connectionIdent : UDINT; (*identifier of the database connection*)
pErrorMessage : UDINT; (*buffer for the database error message*)
errorMessageSize: UDINT; (*size of the buffer*)
END_VAR
VAR_OUTPUT
status : UINT; (*execution status: ERR_OK, ERR_FUB_ENABLE_FALSE, ERR_FUB_BUSY, 0xXXXX = see help*)
dbError : INT; (*error number of the database*)
sqlState : ARRAY [0..5] OF USINT;(*five-character SQLSTATE code*)
nativeError : DINT; (*native error code, specific to the data source*)
actErrorMessageSize : INT; (*current size for the error message of the database or necessary size*)
END_VAR
VAR
_statemachine : UINT; (*internal variable*)
_result : UINT; (*internal variable*)
END_VAR
END_FUNCTION_BLOCK

12
Logical/Libraries/AsDb/AsDb.typ Normal file
View File

@@ -0,0 +1,12 @@
(********************************************************************
* COPYRIGHT -- Bernecker + Rainer
********************************************************************
* Library: AsDb
* File: AsDb.typ
* Author: B+R
********************************************************************
* Data types of library AsDb
********************************************************************)
TYPE
END_TYPE

58
Logical/Libraries/AsDb/AsDb.var Normal file
View File

@@ -0,0 +1,58 @@
(********************************************************************
* COPYRIGHT -- Bernecker + Rainer
********************************************************************
* Library: AsDb
* File: AsDb.var
* Author: B+R
********************************************************************
* Local variables of library AsDb
********************************************************************)
VAR CONSTANT
DB_SYSTEM_SYBASE : UINT := 1; (*Sybase database*)
DB_SYSTEM_MS_SQL : UINT := 2; (*Microsoft SQL database*)
DB_DEFAULT_PORT : UINT := 5000; (*default database port*)
DB_SQL_ERROR : INT := -1; (*SQL error*)
DB_SQL_INVALID_HANDLE : INT := -2; (*invalid SQL database handle*)
DB_SQL_NO_DATA : INT := 100; (*no data available*)
DB_SQL_CHAR : INT := 1; (*character data type of either fixed length or variable length*)
DB_SQL_NUMERIC : INT := 2; (*numeric data type with fixed precision and scale*)
DB_SQL_DECIMAL : INT := 3; (*numeric data type with fixed precision and scale*)
DB_SQL_BIGINT : INT := -25; (*big integer 8 bytes*)
DB_SQL_INTEGER : INT := 4; (*DINT*)
DB_SQL_SMALLINT : INT := 5; (*INT*)
DB_SQL_TINYINT : INT := -6; (*SINT*)
DB_SQL_REAL : INT := 7; (*REAL*)
DB_SQL_DOUBLE : INT := 8; (*LREAL*)
DB_SQL_DATE : INT := 9; (*date, 6 bytes: yy.mm.dd*)
DB_SQL_TIME : INT := 10; (*time of a day without time zone based on a 24-hour clock, 6 bytes: hh:mm:ss*)
DB_SQL_TIMESTAMP : INT := 11; (*DB_SQL_DATE + TIME 12 bytes: yy.mm.dd hh:mm:ss*)
DB_SQL_VARCHAR : INT := 12; (*character data type of either fixed length or variable length*)
DB_SQL_GUID : INT := -11; (*16 byte GUID*)
dbERR_MEMORY : UINT := 34930; (*memory error*)
dbERR_DATABASE : UINT := 34931; (*database returned an error*)
dbERR_INVALID_HANDLE : UINT := 34932; (*invalid handle specified*)
dbERR_INVALID_COLUMN : UINT := 34933; (*invalid column index specified*)
dbERR_UNSUPPORTED_DATABASE : UINT := 34934; (*unsupported database*)
dbERR_BUFFER_SIZE : UINT := 34935; (*buffer too small*)
dbERR_INVALID_SERVERNAME : UINT := 34936; (*invalid server name*)
dbERR_INVALID_USERNAME : UINT := 34937; (*invalid user name*)
dbERR_INVALID_PASSWORD : UINT := 34938; (*invalid password*)
dbERR_INVALID_DATABASE_NAME : UINT := 34939; (*invalid database name*)
dbERR_INVALID_SQL_STATEMENT : UINT := 34940; (*invalid SQL statement*)
dbERR_SQL_EXECUTE_REQUIRED : UINT := 34941; (*dbExecuteSql() must be called before*)
dbERR_INVALID_DATATYPE : UINT := 34942; (*invalid data type*)
dbERR_NULLPOINTER : UINT := 34943; (*null pointer*)
dbERR_NOT_AVAILABLE : UINT := 34944; (*information not available*)
dbERR_UNSUPPORTED_ENCODING : UINT := 34945; (*unsupported encoding specified*)
END_VAR
VAR CONSTANT
DB_ENCODING_ISO_8859_1 : STRING[12] := 'ISO-8859-1'; (*ISO-8859-1 encoding*)
DB_ENCODING_UTF_8 : STRING[12] := 'UTF-8'; (*UTF-8 encoding*)
END_VAR

12
Logical/Libraries/AsDb/Binary.lby Normal file
View File

@@ -0,0 +1,12 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Library Description="The AsDb library supports access to Sybase und MS SQL databases." xmlns="http://br-automation.co.at/AS/Library">
<Files>
<File>AsDb.var</File>
<File>AsDb.typ</File>
<File>AsDb.fun</File>
</Files>
<Dependencies>
<Dependency ObjectName="runtime" />
</Dependencies>
</Library>

288
Logical/Libraries/AsDb/SG4/AsDb.h Normal file
View File

@@ -0,0 +1,288 @@
/* Automation Studio generated header file */
/* Do not edit ! */
#ifndef _ASDB_
#define _ASDB_
#ifdef __cplusplus
extern "C"
{
#endif
#include <bur/plctypes.h>
#include <runtime.h>
#ifndef _IEC_CONST
#define _IEC_CONST _WEAK const
#endif
/* Constants */
#ifdef _REPLACE_CONST
#define DB_ENCODING_UTF_8 "UTF-8"
#define DB_ENCODING_ISO_8859_1 "ISO-8859-1"
#define dbERR_UNSUPPORTED_ENCODING 34945U
#define dbERR_NOT_AVAILABLE 34944U
#define dbERR_NULLPOINTER 34943U
#define dbERR_INVALID_DATATYPE 34942U
#define dbERR_SQL_EXECUTE_REQUIRED 34941U
#define dbERR_INVALID_SQL_STATEMENT 34940U
#define dbERR_INVALID_DATABASE_NAME 34939U
#define dbERR_INVALID_PASSWORD 34938U
#define dbERR_INVALID_USERNAME 34937U
#define dbERR_INVALID_SERVERNAME 34936U
#define dbERR_BUFFER_SIZE 34935U
#define dbERR_UNSUPPORTED_DATABASE 34934U
#define dbERR_INVALID_COLUMN 34933U
#define dbERR_INVALID_HANDLE 34932U
#define dbERR_DATABASE 34931U
#define dbERR_MEMORY 34930U
#define DB_SQL_GUID (-11)
#define DB_SQL_VARCHAR 12
#define DB_SQL_TIMESTAMP 11
#define DB_SQL_TIME 10
#define DB_SQL_DATE 9
#define DB_SQL_DOUBLE 8
#define DB_SQL_REAL 7
#define DB_SQL_TINYINT (-6)
#define DB_SQL_SMALLINT 5
#define DB_SQL_INTEGER 4
#define DB_SQL_BIGINT (-25)
#define DB_SQL_DECIMAL 3
#define DB_SQL_NUMERIC 2
#define DB_SQL_CHAR 1
#define DB_SQL_NO_DATA 100
#define DB_SQL_INVALID_HANDLE (-2)
#define DB_SQL_ERROR (-1)
#define DB_DEFAULT_PORT 5000U
#define DB_SYSTEM_MS_SQL 2U
#define DB_SYSTEM_SYBASE 1U
#else
_IEC_CONST plcstring DB_ENCODING_UTF_8[13] = "UTF-8";
_IEC_CONST plcstring DB_ENCODING_ISO_8859_1[13] = "ISO-8859-1";
_IEC_CONST unsigned short dbERR_UNSUPPORTED_ENCODING = 34945U;
_IEC_CONST unsigned short dbERR_NOT_AVAILABLE = 34944U;
_IEC_CONST unsigned short dbERR_NULLPOINTER = 34943U;
_IEC_CONST unsigned short dbERR_INVALID_DATATYPE = 34942U;
_IEC_CONST unsigned short dbERR_SQL_EXECUTE_REQUIRED = 34941U;
_IEC_CONST unsigned short dbERR_INVALID_SQL_STATEMENT = 34940U;
_IEC_CONST unsigned short dbERR_INVALID_DATABASE_NAME = 34939U;
_IEC_CONST unsigned short dbERR_INVALID_PASSWORD = 34938U;
_IEC_CONST unsigned short dbERR_INVALID_USERNAME = 34937U;
_IEC_CONST unsigned short dbERR_INVALID_SERVERNAME = 34936U;
_IEC_CONST unsigned short dbERR_BUFFER_SIZE = 34935U;
_IEC_CONST unsigned short dbERR_UNSUPPORTED_DATABASE = 34934U;
_IEC_CONST unsigned short dbERR_INVALID_COLUMN = 34933U;
_IEC_CONST unsigned short dbERR_INVALID_HANDLE = 34932U;
_IEC_CONST unsigned short dbERR_DATABASE = 34931U;
_IEC_CONST unsigned short dbERR_MEMORY = 34930U;
_IEC_CONST signed short DB_SQL_GUID = -11;
_IEC_CONST signed short DB_SQL_VARCHAR = 12;
_IEC_CONST signed short DB_SQL_TIMESTAMP = 11;
_IEC_CONST signed short DB_SQL_TIME = 10;
_IEC_CONST signed short DB_SQL_DATE = 9;
_IEC_CONST signed short DB_SQL_DOUBLE = 8;
_IEC_CONST signed short DB_SQL_REAL = 7;
_IEC_CONST signed short DB_SQL_TINYINT = -6;
_IEC_CONST signed short DB_SQL_SMALLINT = 5;
_IEC_CONST signed short DB_SQL_INTEGER = 4;
_IEC_CONST signed short DB_SQL_BIGINT = -25;
_IEC_CONST signed short DB_SQL_DECIMAL = 3;
_IEC_CONST signed short DB_SQL_NUMERIC = 2;
_IEC_CONST signed short DB_SQL_CHAR = 1;
_IEC_CONST signed short DB_SQL_NO_DATA = 100;
_IEC_CONST signed short DB_SQL_INVALID_HANDLE = -2;
_IEC_CONST signed short DB_SQL_ERROR = -1;
_IEC_CONST unsigned short DB_DEFAULT_PORT = 5000U;
_IEC_CONST unsigned short DB_SYSTEM_MS_SQL = 2U;
_IEC_CONST unsigned short DB_SYSTEM_SYBASE = 1U;
#endif
/* Datatypes and datatypes of function blocks */
typedef struct dbConnect
{
/* VAR_INPUT (analog) */
unsigned long pServerName;
unsigned long pUserName;
unsigned long pPassword;
unsigned long pDatabaseName;
unsigned long databaseSystem;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned long connectionIdent;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbConnect_typ;
typedef struct dbConnectEnc
{
/* VAR_INPUT (analog) */
unsigned long pServerName;
unsigned long pUserName;
unsigned long pPassword;
unsigned long pDatabaseName;
unsigned long databaseSystem;
unsigned long pEncoding;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned long connectionIdent;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbConnectEnc_typ;
typedef struct dbExecuteSql
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
unsigned long pSqlStatement;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbExecuteSql_typ;
typedef struct dbGetAffectedRows
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned long affectedRows;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbGetAffectedRows_typ;
typedef struct dbGetColumnCount
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
signed short columnCount;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbGetColumnCount_typ;
typedef struct dbFetchNextRow
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbFetchNextRow_typ;
typedef struct dbGetData
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
unsigned long columnIdx;
signed short dataType;
unsigned long pData;
unsigned long dataSize;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned long actDataSize;
/* VAR_INPUT (digital) */
plcbit enable;
} dbGetData_typ;
typedef struct dbDisconnect
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbDisconnect_typ;
typedef struct dbGetInfo
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
unsigned short infoType;
unsigned long pServerInfo;
unsigned long serverInfoSize;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned short actServerInfoSize;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbGetInfo_typ;
typedef struct dbGetErrorMessage
{
/* VAR_INPUT (analog) */
unsigned long connectionIdent;
unsigned long pErrorMessage;
unsigned long errorMessageSize;
/* VAR_OUTPUT (analog) */
unsigned short status;
signed short dbError;
unsigned char sqlState[6];
signed long nativeError;
signed short actErrorMessageSize;
/* VAR (analog) */
unsigned short _statemachine;
unsigned short _result;
/* VAR_INPUT (digital) */
plcbit enable;
} dbGetErrorMessage_typ;
/* Prototyping of functions and function blocks */
void dbConnect(struct dbConnect* inst);
void dbConnectEnc(struct dbConnectEnc* inst);
void dbExecuteSql(struct dbExecuteSql* inst);
void dbGetAffectedRows(struct dbGetAffectedRows* inst);
void dbGetColumnCount(struct dbGetColumnCount* inst);
void dbFetchNextRow(struct dbFetchNextRow* inst);
void dbGetData(struct dbGetData* inst);
void dbDisconnect(struct dbDisconnect* inst);
void dbGetInfo(struct dbGetInfo* inst);
void dbGetErrorMessage(struct dbGetErrorMessage* inst);
#ifdef __cplusplus
};
#endif
#endif /* _ASDB_ */

3
Logical/Libraries/Package.pkg
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Package xmlns="http://br-automation.co.at/AS/Package">
<Objects>
<Object Type="Library" Language="Binary" Description="This library contains function interfaces for IEC1131-3 operator functions. For the most part, these are mathematical and logical functions.">Operator</Object>
@@ -16,5 +16,6 @@
<Object Type="Library" Language="Binary" Description="This library contains standard function blocks and funtions for IEC 1131-3.">standard</Object>
<Object Type="Library" Language="Binary" Description="The AsArLog library can be used to collect additional error information and for further processing.">AsArLog</Object>
<Object Type="Library" Language="Binary" Description="This library integrates mathematical functions such as angle functions, rounding off, etc. into the program.">AsBrMath</Object>
<Object Type="Library" Language="Binary" Description="The AsDb library supports access to Sybase und MS SQL databases.">AsDb</Object>
</Objects>
</Package>

30
Logical/Logging/GlobalLogger.typ
View File

@@ -1,32 +1,8 @@
TYPE
typBladeLog : STRUCT (*Type for Logging Data to SQL Server*)
typPressLog : STRUCT (*Type for Logging Data to SQL Server*)
bLog : BOOL; (*Trigger Log*)
udProdID : UDINT; (*Unixtimestamp*)
udProdNr : UDINT; (*ArticleNr - Bladetype*)
udLotNr : UDINT; (*LK Nr*)
udType : UDINT := 1; (*1: Grind, 2: Welded, 3: Boxed to Line*)
udCount : USINT := 30; (*Blades*)
uiType : UINT; (*Articletype*)
rForceReached : REAL; (*Force reachte*)
END_STRUCT;
typTransponder : STRUCT (*Type for Transponder handling*)
enTransponderCmd : enTransponderCommand; (*Command for Operating Transponder*)
udTagID : UDINT; (*Unique Transponder ID*)
udProdID : UDINT; (*Unixtimestamp to Write*)
udProdIDRdBack : UDINT; (*Unixtimestamp Read Back*)
udProdNr : UDINT; (*ArticleNr - Bladetype*)
udProdNrRdBack : UDINT; (*ArticleNr - Bladetype*)
udCount : UDINT := 0; (*Blades*)
END_STRUCT;
enTransponderCommand :
( (*Operate Transponder*)
enTransponderIDLE, (*Cyclic Read of Unique ID*)
enTransponderREAD_Data, (*Read All Data*)
enTransponderREAD_Data_Wait, (*Read All Data*)
enTransponderREAD_Data2, (*Read Production Nr*)
enTransponderREAD_Data2_Wait, (*Read Production Nr*)
enTransponderWRITE_Data, (*Write Data ID*)
enTransponderWRITE_Data_Wait, (*Write Data ID*)
enTransponderWRITE_Data2, (*Write Production ID*)
enTransponderWRITE_Data2_Wait (*Write Data ID*)
);
END_TYPE

5
Logical/Logging/GlobalLogger.var
View File

@@ -1,5 +1,4 @@
VAR
gABBLog : typBladeLog;
gBBCLog : typBladeLog;
gTransponder : typTransponder;
gPressLog : typPressLog;
gProducts : ARRAY[0..49] OF STRING[80];
END_VAR

36
Logical/Logging/SQLLogger/CreateProductEntry.ab
View File

@@ -1,16 +1,24 @@
(* SQL Statement for Create a Carrierlog *)
FUNCTION CreateProductEntry
strcpy (pstrInNewSQL, "INSERT INTO prodlog (productnr, lotnr, prodtype, prodcount, unixtimestamp) VALUES (")
itoa (udInProdNr , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ",")
itoa (udInLotNr , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ",")
itoa (udInProdType , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ",")
itoa (udInProdCount , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ",")
itoa (udInUxtimestamp , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ");")
(* SQL Statement for Create a Logentry *)
FUNCTION CreateLogEntry
strcpy (pstrInNewSQL, "INSERT INTO press_log (date, type, force) VALUES ('")
itoa (dtInCurrentTime.year , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, "-")
itoa (dtInCurrentTime.month , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, "-")
itoa (dtInCurrentTime.day , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, " ")
itoa (dtInCurrentTime.hour , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ":")
itoa (dtInCurrentTime.minute , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ":")
itoa (dtInCurrentTime.second , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ".")
itoa (dtInCurrentTime.millisec , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, "',")
itoa (uiInType , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, ",'")
ftoa (rInForceReached , pstrInNewSQL + strlen (pstrInNewSQL))
strcat (pstrInNewSQL, "');")
IF uiInOutSQLNextFree = QUEUE_SIZE THEN
IF uiInOutSQLData = 1 THEN
@@ -23,5 +31,5 @@ FUNCTION CreateProductEntry
ELSE
uiInOutSQLNextFree := uiInOutSQLNextFree + 1
ENDIF
CreateProductEntry := 0
CreateLogEntry := 0
END_FUNCTION

4
Logical/Logging/SQLLogger/IEC.prg
View File

@@ -1,12 +1,12 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Program xmlns="http://br-automation.co.at/AS/Program">
<Files>
<File Description="Cyclic code">SQLLoggerCyclic.st</File>
<File Description="Initialization code">SQLLoggerInit.st</File>
<File Description="Local data types" Private="true">SQLLogger.typ</File>
<File Description="Local variables" Private="true">SQLLogger.var</File>
<File Description="SQL Statement for Create a Carrier Log">CreateProductEntry.ab</File>
<File Description="SQL Statement for Logentry">CreateProductEntry.ab</File>
<File Private="true">SQLLogger.fun</File>
</Files>
</Program>

10
Logical/Logging/SQLLogger/SQLLogger.fun
View File

@@ -1,11 +1,9 @@
FUNCTION CreateProductEntry : BOOL (*SQL Statement for Creating a Carrierlog*)
FUNCTION CreateLogEntry : BOOL (*SQL Statement for Creating a Carrierlog*)
VAR_INPUT
udInProdNr : UDINT; (*Product*)
udInLotNr : UDINT; (*Lotnr*)
udInProdType : UDINT; (*1= Grinded, 2 Spareribs*)
udInProdCount : UDINT; (*Nr of Blades*)
udInUxtimestamp : UDINT; (*UTC Unixtimestamp*)
dtInCurrentTime : DTStructure; (*Current Timestamp*)
uiInType : UINT; (*ProdId*)
rInForceReached : REAL; (*Reached Forse*)
pstrInNewSQL : UDINT; (*Pointer on New SQL*)
END_VAR
VAR_IN_OUT

14
Logical/Logging/SQLLogger/SQLLogger.var
View File

@@ -1,13 +1,3 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Program: SQLProcess
* File: SQLProcess.var
* Author: michi
* Created: November 30, 2011
********************************************************************
* Local variables of program SQLProcess
********************************************************************)
(*Dynamic Vars*)
(*Constants*)
VAR CONSTANT
@@ -31,10 +21,6 @@ VAR
uiSQLData : UINT := 1; (*Pointer on Data*)
uiSQLNextFree : UINT := 1; (*Pointer on Next Free*)
usi : USINT := 0;
usPart : USINT := 0;
usBathNr : USINT := 1; (*BathNr to Store Var/Error of*)
usTWNr : USINT := 1; (*TWNr to Store Error of*)
usCTNr : USINT := 1; (*CTNr to Store Error of*)
usMachModeLatch : USINT := 0; (*Latch for Machine Mode*)
iLogValue : INT := 0;
iAlarmState : INT := 0;

39
Logical/Logging/SQLLogger/SQLLoggerCyclic.st
View File

@@ -1,36 +1,21 @@
PROGRAM _CYCLIC
bDelay := (usDelay > 0);
IF bDelay THEN
usDelay := usDelay - 1;
ELSE
IF gABBLog.bLog THEN
IF gABBLog.udLotNr = 0 THEN
gABBLog.udLotNr := 99;
END_IF
CreateProductEntry (gABBLog.udProdNr,
gABBLog.udLotNr,
gABBLog.udType,
gABBLog.udCount,
gABBLog.udProdID,
ADR (strSQLQueue[uiSQLNextFree]),
uiSQLNextFree,
uiSQLData,
udLostSQL);
gABBLog.bLog := FALSE;
IF gPressLog.bLog THEN
CreateLogEntry (gDTSActTimeUTC,
gPressLog.uiType,
gPressLog.rForceReached,
ADR (strSQLQueue[uiSQLNextFree]),
uiSQLNextFree,
uiSQLData,
udLostSQL);
gPressLog.bLog := FALSE;
END_IF
IF gBBCLog.bLog THEN
CreateProductEntry (gBBCLog.udProdNr,
gBBCLog.udLotNr,
gBBCLog.udType,
gBBCLog.udCount,
gBBCLog.udProdID,
ADR (strSQLQueue[uiSQLNextFree]),
uiSQLNextFree,
uiSQLData,
udLostSQL);
gBBCLog.bLog := FALSE;
END_IF
END_IF
END_IF
CASE Command.enCommand OF
//==========================================

30
Logical/Logging/SQLLogger/SQLLoggerInit.st
View File

@@ -1,21 +1,17 @@
(********************************************************************
* COPYRIGHT --
********************************************************************
* Program: SQLProcess
* File: SQLProcessInit.st
* Author: michi
* Created: November 30, 2011
********************************************************************
* Implementation of program SQLProcess
********************************************************************)
PROGRAM _INIT
bBlockDevel := TRUE;
enStep := enSTEP_STOP;
Command.enCommand := eCMD_OFFLINE;
usDelay := 10;
uiSQLNextFree := 1;
uiSQLData := 1;
bBlockDevel := TRUE;
enStep := enSTEP_STOP;
Command.enCommand := eCMD_OFFLINE;
usDelay := 10;
uiSQLNextFree := 1;
uiSQLData := 1;
strcpy (ADR (gProducts[0]), ADR ('Dummy'));
strcpy (ADR (gProducts[1]), ADR ('AL D68HP-4 Nr3 roh'));
strcpy (ADR (gProducts[2]), ADR ('AL D68HP-4 Nr3 roh getempert'));
strcpy (ADR (gProducts[3]), ADR ('AL D68HP-4 Nr3 Cu'));
strcpy (ADR (gProducts[4]), ADR ('AL D68HP-4 Nr3 Cu getempert'));
END_PROGRAM

2
Logical/VCShared/AlarmGroups/AlarmSystem.alcfg
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<AlarmSystem xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="HistoryLength" Value="1000"/>
<Property Name="SnippetBufferSize" Value="150"/>

2
Logical/VCShared/ControlVersion.cvinfo
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<ComponentVersions xmlns="http://br-automation.co.at/AS/VC/Project">
<ComponentVersion>
<Property Name="ClassId" Value="0x00000500"/>

29
Logical/VCShared/DataSources/DataSource.dso
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<DataSource xmlns="http://br-automation.co.at/AS/VC/Project" Name="DataSource">
<Property Name="AutoRefresh" Value="False"/>
<Property Name="DefaultUpdateTime" Value="200"/>
@@ -286,5 +286,32 @@
</DataPoint>
</Folder>
</Folder>
<Folder Name="Logging">
<Property Name="Description" Value=""/>
<Property Name="FolderType" Value="Package"/>
<DataPoint Name="gProducts">
<Property Name="ConnectedBySharedResource" Value="False"/>
<Property Name="ConnectingVisus" Value="Visualization\Visu"/>
<Property Name="Description" Value=""/>
<Property Name="PLCType" Value="STRING[0..49]"/>
<Property Name="StringLength" Value="80"/>
<Property Name="UpdateTime" Value="Default"/>
<Property Name="UserID" Value="None"/>
<Property Name="VCType" Value="STRING[]"/>
</DataPoint>
<Folder Name="gPressLog">
<Property Name="Description" Value=""/>
<Property Name="FolderType" Value="Struct"/>
<DataPoint Name="uiType">
<Property Name="ConnectedBySharedResource" Value="False"/>
<Property Name="ConnectingVisus" Value="Visualization\Visu"/>
<Property Name="Description" Value=""/>
<Property Name="PLCType" Value="UINT"/>
<Property Name="UpdateTime" Value="Default"/>
<Property Name="UserID" Value="None"/>
<Property Name="VCType" Value="INTEGER"/>
</DataPoint>
</Folder>
</Folder>
</DataPoints>
</DataSource>

2
Logical/VCShared/DataSources/Internal.dso
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<DataSource xmlns="http://br-automation.co.at/AS/VC/Project" Name="Internal">
<Property Name="AutoRefresh" Value="True"/>
<Property Name="DefaultUpdateTime" Value="200"/>

2
Logical/VCShared/Languages.vcr
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Languages xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="Default" Value="de"/>
<Property Name="FallBackLanguage" Value="None"/>

2
Logical/VCShared/Package.vcp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Project xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="EnableEvents" Value="False"/>
<Property Name="SharedTargetResourceRoot" Value=""/>

38
Logical/Visualization/Visu/Layers/globalArea.layer
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Layer xmlns="http://br-automation.co.at/AS/VC/Project" Name="globalArea">
<Property Name="BackColor" Value="15"/>
<Property Name="Description" Value="Header &amp; Navigation"/>
@@ -126,7 +126,7 @@
<Control ClassId="0x0000100D" Name="lineTopArea">
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="EndX" Value="309"/>
<Property Name="EndX" Value="314"/>
<Property Name="EndY" Value="25"/>
<Property Name="StartX" Value="5"/>
<Property Name="StartY" Value="25"/>
@@ -188,6 +188,27 @@
<Property Name="Top" Value="4"/>
<Property Name="Width" Value="80"/>
</Control>
<Control ClassId="0x00001002" Name="cmdConfigPage">
<Property Name="BitmapIndexDatapoint" Value="None"/>
<Property Name="BitmapSource" Value="None"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="EmbVirtualKey" Value="None"/>
<Property Name="Height" Value="25"/>
<Property Name="KeyMatrixOffset" Value="None"/>
<Property Name="Left" Value="63"/>
<Property Name="PressedBitmapSource" Value="Source[embedded].Property[BitmapSource]"/>
<Property Name="PressedTextSource" Value="Source[embedded].Property[TextSource]"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[GlobalAreaButton]"/>
<Property Name="TextGroup" Value="Source[local].TextGroup[Buttons_PageTexts]"/>
<Property Name="TextIndex" Value="3"/>
<Property Name="TextIndexDatapoint" Value="None"/>
<Property Name="TextSimulationValue" Value="0"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="215"/>
<Property Name="VirtualKey" Value="Source[local].VirtualKey[pageConfig]"/>
<Property Name="Width" Value="51"/>
</Control>
</Controls>
<KeyMapping>
<VirtualKey Name="pageAlarm">
@@ -255,5 +276,18 @@
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="pageConfig">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000160">
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Page" Value="Source[local].Page[tmpl11_Config]"/>
<Property Name="Target" Value="Page"/>
</KeyAction>
</KeyActions>
</VirtualKey>
</KeyMapping>
</Layer>

2
Logical/Visualization/Visu/Layers/globalAreaSDM.layer
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Layer xmlns="http://br-automation.co.at/AS/VC/Project" Name="globalAreaSDM">
<Property Name="BackColor" Value="15"/>
<Property Name="Description" Value="Header &amp; Navigation"/>

3
Logical/Visualization/Visu/Package.vcp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Project xmlns="http://br-automation.co.at/AS/VC/Project">
<Property Name="Backlight" Value="False"/>
<Property Name="BacklightIgnoreFirst" Value="False"/>
@@ -151,6 +151,7 @@
<Source File="Pages\tmpl30_AlarmPage.page"/>
<Source File="Pages\tmpl31_AlarmHistoryPage.page"/>
<Source File="Pages\tmpl60_Setup.page"/>
<Source File="Pages\tmpl11_Config.page"/>
<Source File="Layers\msgBox.layer"/>
<Source File="Layers\globalArea.layer"/>
<Source File="Layers\globalAreaSDM.layer"/>

71
Logical/Visualization/Visu/Pages/tmpl10_MainPage.page
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Page xmlns="http://br-automation.co.at/AS/VC/Project" Name="tmpl10_MainPage">
<Property Name="Description" Value="Template main page - basic machine interface"/>
<Property Name="Height" Value="240"/>
@@ -10,7 +10,7 @@
<Layers>
<LayerRef Source="Source[local].Layer[globalArea]">
<Property Name="Description" Value=""/>
<Property Name="EditingMode" Value="Frozen"/>
<Property Name="EditingMode" Value="Normal"/>
<Property Name="Left" Value="0"/>
<Property Name="Name" Value="globalArea"/>
<Property Name="OutlineColor" Value="0"/>
@@ -147,7 +147,7 @@
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="50"/>
<Property Name="Left" Value="30"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxValue" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
@@ -155,16 +155,17 @@
<Property Name="SimulationValue" Value="0"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TeachDatapoint" Value="None"/>
<Property Name="Top" Value="30"/>
<Property Name="Top" Value="28"/>
<Property Name="UnitText" Value="Abbreviation"/>
<Property Name="UnitTextAlignment" Value="Left"/>
<Property Name="UnitTextPosition" Value="Right"/>
<Property Name="UnitTextWidth" Value="0"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[DataSource.Axises.PressCtrl.lAxisShaft1.rActPosition]"/>
<Property Name="ValueMode" Value="Standard"/>
<Property Name="Width" Value="70"/>
<Property Name="Width" Value="57"/>
</Control>
<Control ClassId="0x00001004" Name="labPos">
<Property Name="AlignmentHorizontal" Value="Right"/>
<Property Name="AlignmentVertical" Value="Center"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
@@ -176,32 +177,33 @@
<Property Name="TextGroup" Value="Source[local].TextGroup[Buttons_PageTexts]"/>
<Property Name="TextIndexOffset" Value="2000"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="30"/>
<Property Name="Width" Value="40"/>
<Property Name="Top" Value="28"/>
<Property Name="Width" Value="21"/>
</Control>
<Control ClassId="0x00001007" Name="NumTorque">
<Property Name="AddFractionDigits" Value="1"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="50"/>
<Property Name="Left" Value="30"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxValue" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
<Property Name="MinValue" Value="None"/>
<Property Name="SimulationValue" Value="0"/>
<Property Name="SimulationValue" Value="99"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TeachDatapoint" Value="None"/>
<Property Name="Top" Value="50"/>
<Property Name="Top" Value="48"/>
<Property Name="UnitText" Value="Abbreviation"/>
<Property Name="UnitTextAlignment" Value="Left"/>
<Property Name="UnitTextPosition" Value="Right"/>
<Property Name="UnitTextWidth" Value="0"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[DataSource.Axises.PressCtrl.lAxisShaft1.rActTorque]"/>
<Property Name="ValueMode" Value="Standard"/>
<Property Name="Width" Value="70"/>
<Property Name="Width" Value="57"/>
</Control>
<Control ClassId="0x00001004" Name="labTorque">
<Property Name="AlignmentHorizontal" Value="Right"/>
<Property Name="AlignmentVertical" Value="Center"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
@@ -213,15 +215,15 @@
<Property Name="TextGroup" Value="Source[local].TextGroup[Buttons_PageTexts]"/>
<Property Name="TextIndexOffset" Value="2001"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="50"/>
<Property Name="Width" Value="40"/>
<Property Name="Top" Value="48"/>
<Property Name="Width" Value="21"/>
</Control>
<Control ClassId="0x00001007" Name="NumForce">
<Property Name="AddFractionDigits" Value="1"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="50"/>
<Property Name="Left" Value="30"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxValue" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
@@ -229,16 +231,17 @@
<Property Name="SimulationValue" Value="0"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TeachDatapoint" Value="None"/>
<Property Name="Top" Value="70"/>
<Property Name="Top" Value="68"/>
<Property Name="UnitText" Value="Abbreviation"/>
<Property Name="UnitTextAlignment" Value="Left"/>
<Property Name="UnitTextPosition" Value="Right"/>
<Property Name="UnitTextWidth" Value="0"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[DataSource.Axises.PressCtrl.rForce]"/>
<Property Name="ValueMode" Value="Standard"/>
<Property Name="Width" Value="70"/>
<Property Name="Width" Value="57"/>
</Control>
<Control ClassId="0x00001004" Name="labTorque1">
<Property Name="AlignmentHorizontal" Value="Right"/>
<Property Name="AlignmentVertical" Value="Center"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
@@ -250,8 +253,8 @@
<Property Name="TextGroup" Value="Source[local].TextGroup[Buttons_PageTexts]"/>
<Property Name="TextIndexOffset" Value="2002"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="70"/>
<Property Name="Width" Value="40"/>
<Property Name="Top" Value="68"/>
<Property Name="Width" Value="21"/>
</Control>
<Control ClassId="0x00001011" Name="Trend_1">
<Property Name="ControlID" Value="0"/>
@@ -343,7 +346,7 @@
<Property Name="TextIndexDatapoint" Value="None"/>
<Property Name="TextSimulationValue" Value="0"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="60"/>
<Property Name="Top" Value="90"/>
<Property Name="VirtualKey" Value="Source[local].VirtualKey[%embVirtualKey_6]"/>
<Property Name="Width" Value="70"/>
</Control>
@@ -376,7 +379,7 @@
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="120"/>
<Property Name="Left" Value="88"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxValue" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
@@ -384,21 +387,21 @@
<Property Name="SimulationValue" Value="0"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TeachDatapoint" Value="None"/>
<Property Name="Top" Value="50"/>
<Property Name="Top" Value="48"/>
<Property Name="UnitText" Value="Abbreviation"/>
<Property Name="UnitTextAlignment" Value="Left"/>
<Property Name="UnitTextPosition" Value="Right"/>
<Property Name="UnitTextWidth" Value="0"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[DataSource.Axises.PressCtrl.rMaxTorque]"/>
<Property Name="ValueMode" Value="Standard"/>
<Property Name="Width" Value="70"/>
<Property Name="Width" Value="57"/>
</Control>
<Control ClassId="0x00001007" Name="NumForceMax">
<Property Name="AddFractionDigits" Value="1"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="120"/>
<Property Name="Left" Value="88"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxValue" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
@@ -406,14 +409,14 @@
<Property Name="SimulationValue" Value="0"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TeachDatapoint" Value="None"/>
<Property Name="Top" Value="70"/>
<Property Name="Top" Value="68"/>
<Property Name="UnitText" Value="Abbreviation"/>
<Property Name="UnitTextAlignment" Value="Left"/>
<Property Name="UnitTextPosition" Value="Right"/>
<Property Name="UnitTextWidth" Value="0"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[DataSource.Axises.PressCtrl.rMaxForce]"/>
<Property Name="ValueMode" Value="Standard"/>
<Property Name="Width" Value="70"/>
<Property Name="Width" Value="57"/>
</Control>
<Control ClassId="0x00001002" Name="butHome">
<Property Name="AlignmentHorizontal" Value="Right"/>
@@ -435,10 +438,26 @@
<Property Name="TextIndexDatapoint" Value="None"/>
<Property Name="TextSimulationValue" Value="0"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="90"/>
<Property Name="Top" Value="60"/>
<Property Name="VirtualKey" Value="Source[local].VirtualKey[%embVirtualKey_8]"/>
<Property Name="Width" Value="70"/>
</Control>
<Control ClassId="0x00001004" Name="labPos1">
<Property Name="AlignmentHorizontal" Value="Center"/>
<Property Name="AlignmentVertical" Value="Center"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="20"/>
<Property Name="Left" Value="90"/>
<Property Name="SimulationIndex" Value="0"/>
<Property Name="SimulationValue" Value=""/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TextGroup" Value="Source[local].TextGroup[Buttons_PageTexts]"/>
<Property Name="TextIndexOffset" Value="2003"/>
<Property Name="TextSource" Value="SingleText"/>
<Property Name="Top" Value="30"/>
<Property Name="Width" Value="57"/>
</Control>
</Controls>
<KeyMapping>
<VirtualKey Name="%embVirtualKey_1">

253
Logical/Visualization/Visu/Pages/tmpl11_Config.page Normal file
View File

@@ -0,0 +1,253 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Page xmlns="http://br-automation.co.at/AS/VC/Project" Name="tmpl11_Config">
<Property Name="Description" Value="Template setup page - system configuration"/>
<Property Name="Height" Value="240"/>
<Property Name="Index" Value="0"/>
<Property Name="MoveFocus" Value="Circular"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="Width" Value="320"/>
<Layers>
<LayerRef Source="Source[local].Layer[globalArea]">
<Property Name="Description" Value=""/>
<Property Name="EditingMode" Value="Frozen"/>
<Property Name="Left" Value="0"/>
<Property Name="Name" Value="globalArea1"/>
<Property Name="OutlineColor" Value="0"/>
<Property Name="OutlineDisplayControl" Value="False"/>
<Property Name="OutlineDisplayName" Value="True"/>
<Property Name="OutlineHatched" Value="False"/>
<Property Name="Top" Value="0"/>
<Property Name="VisibilityMode" Value="Normal"/>
<Property Name="Z-Order" Value="0"/>
</LayerRef>
<Layer Name="FrameLayer">
<Property Name="BackColor" Value="9"/>
<Property Name="Description" Value=""/>
<Property Name="EditingMode" Value="Normal"/>
<Property Name="Height" Value="240"/>
<Property Name="Left" Value="0"/>
<Property Name="OutlineColor" Value="0"/>
<Property Name="OutlineDisplayControl" Value="False"/>
<Property Name="OutlineDisplayName" Value="True"/>
<Property Name="OutlineHatched" Value="False"/>
<Property Name="StatusDatapoint" Value="None"/>
<Property Name="Top" Value="0"/>
<Property Name="VisibilityMode" Value="Normal"/>
<Property Name="Width" Value="320"/>
<Property Name="Z-Order" Value="1"/>
<TextGroup>
<TextLayer LanguageId="de"/>
<IndexMap/>
</TextGroup>
<Controls>
<Control ClassId="0x00001018" Name="Dropdown_1">
<Property Name="ButtonsBitmapGroup" Value="None"/>
<Property Name="ButtonsPressedBitmapGroup" Value="None"/>
<Property Name="ControlID" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Height" Value="30"/>
<Property Name="IndexDatapoint" Value="Source[global].Variable[DataSource.Logging.gPressLog.uiType]"/>
<Property Name="Left" Value="20"/>
<Property Name="LeftBitmap" Value="None"/>
<Property Name="LeftTextGroup" Value="None"/>
<Property Name="MaxDatapoint" Value="None"/>
<Property Name="MaxIndex" Value="None"/>
<Property Name="MinDatapoint" Value="None"/>
<Property Name="MinIndex" Value="None"/>
<Property Name="OptionDatapoint" Value="None"/>
<Property Name="RightBitmap" Value="None"/>
<Property Name="RightTextGroup" Value="None"/>
<Property Name="SimulationValue" Value="0"/>
<Property Name="StyleClass" Value="Source[relative:StyleGroup].StyleClass[Default]"/>
<Property Name="TextDatapoint" Value="Source[global].Variable[DataSource.Logging.gProducts]"/>
<Property Name="TextIndexOffset" Value="0"/>
<Property Name="TextSource" Value="MultipleStrings"/>
<Property Name="Top" Value="40"/>
<Property Name="Width" Value="290"/>
</Control>
</Controls>
<KeyMapping>
<VirtualKey Name="pageAlarmHistory">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000160">
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Page" Value="None"/>
<Property Name="Target" Value="Page"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="pageSDM">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000160">
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Page" Value="None"/>
<Property Name="Target" Value="Page"/>
</KeyAction>
</KeyActions>
</VirtualKey>
</KeyMapping>
</Layer>
<Layer Name="Default">
<Property Name="BackColor" Value="9"/>
<Property Name="Description" Value=""/>
<Property Name="EditingMode" Value="Normal"/>
<Property Name="Height" Value="240"/>
<Property Name="Left" Value="0"/>
<Property Name="OutlineColor" Value="0"/>
<Property Name="OutlineDisplayControl" Value="False"/>
<Property Name="OutlineDisplayName" Value="True"/>
<Property Name="OutlineHatched" Value="False"/>
<Property Name="StatusDatapoint" Value="None"/>
<Property Name="Top" Value="0"/>
<Property Name="VisibilityMode" Value="Normal"/>
<Property Name="Width" Value="320"/>
<Property Name="Z-Order" Value="2"/>
<TextGroup>
<TextLayer LanguageId="de"/>
<IndexMap/>
</TextGroup>
<Controls/>
<KeyMapping>
<VirtualKey Name="BrightnessMinus">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="100"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="True"/>
<Property Name="StepValue" Value="-1"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[Internal.Display.Brightness]"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="BrightnessPlus">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="100"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="True"/>
<Property Name="StepValue" Value="1"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[Internal.Display.Brightness]"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="ContrastMinus">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="100"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="True"/>
<Property Name="StepValue" Value="-1"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[Internal.Display.Contrast]"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="ContrastPlus">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="100"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="True"/>
<Property Name="StepValue" Value="1"/>
<Property Name="ValueDatapoint" Value="Source[global].Variable[Internal.Display.Contrast]"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="LanguageDown">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="2"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="False"/>
<Property Name="StepValue" Value="1"/>
<Property Name="ValueDatapoint" Value="None"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="LanguageUp">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000162">
<Property Name="CompletionDatapoint" Value="None"/>
<Property Name="CompletionValue" Value="0"/>
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="MaxValue" Value="2"/>
<Property Name="MinValue" Value="0"/>
<Property Name="Name" Value="Action_0"/>
<Property Name="Repeat" Value="False"/>
<Property Name="StepValue" Value="-1"/>
<Property Name="ValueDatapoint" Value="None"/>
</KeyAction>
</KeyActions>
</VirtualKey>
<VirtualKey Name="TouchCalibration">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
<KeyActions>
<KeyAction ClassId="0x00000164">
<Property Name="Description" Value=""/>
<Property Name="Locking" Value="Never"/>
<Property Name="Name" Value="Action_0"/>
</KeyAction>
</KeyActions>
</VirtualKey>
</KeyMapping>
</Layer>
</Layers>
<MovementOrder>
<MovementEntry Control="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]">
<Property Name="Down" Value="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]"/>
<Property Name="Left" Value="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]"/>
<Property Name="Right" Value="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]"/>
<Property Name="Up" Value="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]"/>
</MovementEntry>
</MovementOrder>
<TabSequence>
<TabSeqItem Index="0" Value="Source[embedded].Layer[FrameLayer].Control[Dropdown_1]"/>
</TabSequence>
</Page>

2
Logical/Visualization/Visu/Pages/tmpl30_AlarmPage.page
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Page xmlns="http://br-automation.co.at/AS/VC/Project" Name="tmpl30_AlarmPage">
<Property Name="Description" Value="Template alarm page - current alarms"/>
<Property Name="Height" Value="240"/>

4
Logical/Visualization/Visu/Pages/tmpl31_AlarmHistoryPage.page
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Page xmlns="http://br-automation.co.at/AS/VC/Project" Name="tmpl31_AlarmHistoryPage">
<Property Name="Description" Value="Template alarm history page - historical alarms"/>
<Property Name="Height" Value="240"/>
@@ -10,7 +10,7 @@
<Layers>
<LayerRef Source="Source[local].Layer[globalArea]">
<Property Name="Description" Value=""/>
<Property Name="EditingMode" Value="Frozen"/>
<Property Name="EditingMode" Value="Normal"/>
<Property Name="Left" Value="0"/>
<Property Name="Name" Value="globalArea"/>
<Property Name="OutlineColor" Value="0"/>

2
Logical/Visualization/Visu/Pages/tmpl60_Setup.page
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Page xmlns="http://br-automation.co.at/AS/VC/Project" Name="tmpl60_Setup">
<Property Name="Description" Value="Template setup page - system configuration"/>
<Property Name="Height" Value="240"/>

2
Logical/Visualization/Visu/Palette.vcr
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<Palette xmlns="http://br-automation.co.at/AS/VC/Project">
<PaletteColor Index="0" Value="#000000"/>
<PaletteColor Index="1" Value="#0000AA"/>

12
Logical/Visualization/Visu/Textgroups/Buttons_PageTexts.txtgrp
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<TextGroup xmlns="http://br-automation.co.at/AS/VC/Project" Name="Buttons_PageTexts">
<Property Name="Description" Value="Texts for elements on pages"/>
<Property Name="Index" Value="14"/>
@@ -22,7 +22,7 @@
<Text ID="90123" Value="yyyy/mm/dd"/>
<Text ID="90125" Value="Zeit und Datum"/>
<Text ID="91312" Value="Alarm"/>
<Text ID="91313" Value="Trend"/>
<Text ID="91313" Value="Conf"/>
<Text ID="91515" Value="SDM"/>
<Text ID="92539" Value="Umgebungstemp."/>
<Text ID="92542" Value="CPU-Temp."/>
@@ -33,17 +33,18 @@
<Text ID="92548" Value="Zeige alles"/>
<Text ID="92549" Value="Zeit [s]"/>
<Text ID="92553" Value=""/>
<Text ID="92557" Value="Position"/>
<Text ID="92557" Value="Pos:"/>
<Text ID="92558" Value="Auf"/>
<Text ID="92559" Value="Ab"/>
<Text ID="92560" Value="Ref."/>
<Text ID="93067" Value="Betriebsart:"/>
<Text ID="95327" Value="Moment"/>
<Text ID="95543" Value="Kraft"/>
<Text ID="95327" Value="M:"/>
<Text ID="95543" Value="F:"/>
<Text ID="95858" Value="Reset"/>
<Text ID="95991" Value="Tipp"/>
<Text ID="95992" Value="Hand"/>
<Text ID="95993" Value="Schritt"/>
<Text ID="96129" Value="Max"/>
</TextLayer>
<IndexMap>
<Index ID="89135" Value="6010"/>
@@ -85,5 +86,6 @@
<Index ID="95991" Value="9"/>
<Index ID="95992" Value="10"/>
<Index ID="95993" Value="11"/>
<Index ID="96129" Value="2003"/>
</IndexMap>
</TextGroup>

6
Logical/Visualization/Visu/VirtualKeys.vcvk
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="UTF-8"?>
<?AutomationStudio Version="4.0.14.207"?>
<?AutomationStudio Version="4.0.16.81 SP"?>
<KeyMapping xmlns="http://br-automation.co.at/AS/VC/Project">
<VirtualKey Name="AlarmAcknowledge">
<Property Name="Description" Value=""/>
@@ -1533,4 +1533,8 @@
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
</VirtualKey>
<VirtualKey Name="pageConfig">
<Property Name="Description" Value=""/>
<Property Name="VirtualKey_LED" Value="False"/>
</VirtualKey>
</KeyMapping>

30
Physical/Config1/4PP065_0351_P74/Cpu.sw
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<SwConfiguration CpuAddress="SL1" xmlns="http://br-automation.co.at/AS/SwConfiguration">
<TaskClass Name="Cyclic#1">
<Task Name="MAxTrace" Source="Axises.MAxTrace.prg" Memory="UserROM" Language="IEC" Debugging="true" />
@@ -9,9 +9,12 @@
<TaskClass Name="Cyclic#2">
<Task Name="PressCtrl" Source="Axises.PressCtrl.prg" Memory="UserROM" Language="IEC" Debugging="true" />
</TaskClass>
<TaskClass Name="Cyclic#3" />
<TaskClass Name="Cyclic#3">
<Task Name="SQLLogger" Source="Logging.SQLLogger.prg" Memory="UserROM" Language="IEC" Debugging="true" />
</TaskClass>
<TaskClass Name="Cyclic#4">
<Task Name="blinker" Source="Common.blinker.prg" Memory="UserROM" Language="IEC" Debugging="true" />
<Task Name="get_dt" Source="Common.get_dt.prg" Memory="UserROM" Language="IEC" Debugging="true" />
</TaskClass>
<DataObjects>
<DataObject Name="Acp10sys" Source="" Memory="UserROM" Language="Binary" />
@@ -62,19 +65,19 @@
<BinaryObject Name="vcnet" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcpkat" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcpdvnc" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="acp10cfg" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="acp10map" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="asfw" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="iomap" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="sysconf" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="arconfig" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="ashwd" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="vccpopup" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcxml" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vccurl" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vccddbox" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcchspot" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="arconfig" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="sysconf" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="iomap" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="asfw" Source="" Memory="SystemROM" Language="Binary" />
<BinaryObject Name="acp10map" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="acp10cfg" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcchtml" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcchspot" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vccddbox" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vccurl" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vcxml" Source="" Memory="UserROM" Language="Binary" />
<BinaryObject Name="vccpopup" Source="" Memory="UserROM" Language="Binary" />
</Binaries>
<Libraries>
<LibraryObject Name="Acp10_MC" Source="Libraries.Acp10_MC.lby" Memory="UserROM" Language="Binary" Debugging="true" />
@@ -93,5 +96,6 @@
<LibraryObject Name="AsArLog" Source="Libraries.AsArLog.lby" Memory="UserROM" Language="Binary" Debugging="true" />
<LibraryObject Name="dataobj" Source="" Memory="UserROM" Language="Binary" Debugging="true" />
<LibraryObject Name="AsBrMath" Source="Libraries.AsBrMath.lby" Memory="UserROM" Language="Binary" Debugging="true" />
<LibraryObject Name="AsDb" Source="Libraries.AsDb.lby" Memory="UserROM" Language="Binary" Debugging="true" />
</Libraries>
</SwConfiguration>

28
Physical/Config1/Hardware.hw
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.16.81 SP?>
<Hardware xmlns="http://br-automation.co.at/AS/Hardware">
<Module Name="4PP065_0351_P74" Type="4PP065.0351-P74" Version="1.0.2.1">
<Connector Name="IF5">
@@ -24,15 +24,27 @@
<Parameter ID="Cyclic1Tolerance" Value="0" />
<Parameter ID="Cyclic2Duration" Value="10000" />
<Parameter ID="Cyclic2Tolerance" Value="10000" />
<Parameter ID="Cyclic3Duration" Value="50000" />
<Parameter ID="Cyclic3Tolerance" Value="50000" />
<Parameter ID="Cyclic4Duration" Value="100000" />
<Parameter ID="Cyclic4Tolerance" Value="100000" />
<Parameter ID="Cyclic5Duration" Value="200000" />
<Parameter ID="Cyclic5Tolerance" Value="200000" />
<Parameter ID="Cyclic6Duration" Value="500000" />
<Parameter ID="Cyclic6Tolerance" Value="500000" />
<Parameter ID="Cyclic7Duration" Value="1000000" />
<Parameter ID="Cyclic7Tolerance" Value="1000000" />
<Parameter ID="Cyclic8Duration" Value="10000" />
<Parameter ID="Cyclic8Tolerance" Value="30000000" />
<Group ID="FileDevice1" />
<Parameter ID="FileDeviceName1" Value="logfiles" Description="Path for Logfiles and Traces on the CF" />
<Parameter ID="FileDevicePath1" Value="c:\logfiles\" />
<Parameter ID="EthernetHostName" Value="br-boerdel" />
<Parameter ID="EthernetDefaultGateway" Value="192.168.100.60" />
<Parameter ID="EthernetDefaultGateway" Value="192.168.100.1" />
<Parameter ID="VcObjectName" Value="Visu" />
<Parameter ID="KeyMappingFile" Value="VC\4PP065_0351_P74.dis" />
</Module>
<Module Name="80VD100PS.C00X-01" Type="80VD100PS.C00X-01" Version="1.0.2.0">
<Module Name="80VD100PS.C00X-01" Type="80VD100PS.C00X-01" Version="1.1.0.0">
<Connection Connector="PLK1" TargetModule="X20BC0083" TargetConnector="PLK2" NodeNumber="2" />
<Parameter ID="SupplyVoltage" Value="24" />
<Parameter ID="ResponseTimeout" Value="40" />
@@ -49,6 +61,9 @@
<Module Name="X20BM11a" Type="X20BM11" Version="1.0.0.0">
<Connection Connector="X2X1" TargetModule="X20BM11" TargetConnector="X2X2" />
</Module>
<Module Name="X20BM11b" Type="X20BM11" Version="1.0.0.0">
<Connection Connector="X2X1" TargetModule="X20BM11a" TargetConnector="X2X2" />
</Module>
<Module Name="X20DI6371" Type="X20DI6371" Version="1.0.1.0">
<Connection Connector="SS1" TargetModule="X20TB12a" TargetConnector="SS" />
<Connection Connector="SL" TargetModule="X20BM11" TargetConnector="SL1" />
@@ -59,6 +74,12 @@
<Connection Connector="SL" TargetModule="X20BM11a" TargetConnector="SL1" />
<Parameter ID="Supervision" Value="off" />
</Module>
<Module Name="X20DS4387" Type="X20DS4387" Version="1.0.4.0">
<Connection Connector="SS1" TargetModule="X20TB12c" TargetConnector="SS" />
<Connection Connector="SL" TargetModule="X20BM11b" TargetConnector="SL1" />
<Parameter ID="DeviceSyncVal01_02" Value="400" />
<Parameter ID="DataSizeIn01" Value="2" />
</Module>
<Module Name="X20PS9400" Type="X20PS9400" Version="1.0.2.0">
<Connection Connector="SS1" TargetModule="X20TB12" TargetConnector="SS" />
<Connection Connector="PS" TargetModule="X20BB80" TargetConnector="PS1" />
@@ -67,4 +88,5 @@
<Module Name="X20TB12" Type="X20TB12" Version="1.0.0.0" />
<Module Name="X20TB12a" Type="X20TB12" Version="1.0.0.0" />
<Module Name="X20TB12b" Type="X20TB12" Version="1.0.0.0" />
<Module Name="X20TB12c" Type="X20TB12" Version="1.0.0.0" />
</Hardware>

2
franz_boerdel.apj
View File

@@ -1,5 +1,5 @@
<?xml version="1.0" encoding="utf-8"?>
<?AutomationStudio Version=4.0.14.207?>
<?AutomationStudio Version=4.0.20.56 SP?>
<Project Description="Bördelpresse" Version="1.00.0" Edition="Standard" EditionComment="Standard" xmlns="http://br-automation.co.at/AS/Project">
<Communication />
<Project StoreRuntimeInProject="true" />

2
michi.set
View File

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