[r525]: / branches / h-hermsen / mqttsparkplugb / SparkplugB / Function Blocks / FB_Device / FB_Device / Diag / svnobj  Maximize  Restore  History

Download this file

28 lines (27 with data), 2.7 kB 

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
{attribute 'hide'}
METHOD PRIVATE Diag : STRING
VAR
    LogClass : UDINT;
// Device Diagnose
LogClass := CmpLog.LogClass.LOG_INFO;
Diag     := TO_STRING(_Name);
IF PluggedIntoEoN THEN
    Diag := CONCAT(Diag, '.PLUGGED');
ELSE
    Diag := CONCAT(Diag, '.UNPLUGGED');    
END_IF
IF _EoNisONLINE THEN
    Diag := CONCAT(Diag, '.ONLINE');
END_IF;    
IF _EoNisOFFLINE THEN
    Diag := CONCAT(Diag, '.OFFLINE');
//IF _Client.xError THEN
//	Diag := CONCAT(Diag,'.ER= ');
//	Diag := CONCAT(Diag,  );
//    LogClass   := CmpLog.LogClass.LOG_ERROR;
//END_IF
// log on change
IF Diag <> _Diag THEN
    WriteDeviceLog(UDINT_TO_DWORD(LogClass), '%s', Diag);
END_IF;
_Diag := Diag;