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

Download this file

26 lines (25 with data), 2.5 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
{attribute 'hide'}
METHOD PRIVATE Diag : STRING
VAR
    LogClass : UDINT;
// Device Diagnose
LogClass := CmpLog.LogClass.LOG_INFO;
IF WLEN(_Name) <=0 THEN
    Diag := 'Device';
ELSE    
    Diag := TO_STRING(_Name);
END_IF
IF PluggedIntoEoN THEN
    Diag := CONCAT(Diag, '.PLUGGED');
ELSE
    Diag := CONCAT(Diag, '.UNPLUGGED');    
IF _EoNisONLINE THEN
    Diag := CONCAT(Diag, '.ONLINE');
END_IF;    
IF _EoNisOFFLINE THEN
    Diag := CONCAT(Diag, '.OFFLINE');
// log on change
IF Diag <> _Diag THEN
    WriteDeviceLog(UDINT_TO_DWORD(LogClass), '%s', Diag);
END_IF;
_Diag := Diag;