True 056592d3-301d-457b-bcca-9d963de9f9ba 36099683-d603-45a6-bde8-5491cc0e0dae PLC_PRG_ResetAllAlarms 6f9dac99-8de1-4efc-8465-68ac443b7d08 a9ed5b7e-75c5-4651-af16-d2c27e98cb94 3b83b776-fb25-43b8-99f2-3c507c9143fc 637915788797781501 None 12 rtCmdReset(CLK:= xCmdReset); 11 5 CASE uiStatus OF 7 10 0: // wait for command 85 xBusy:= FALSE; 17 IF rtCmdReset.Q THEN 109 wsMyLocalUser:= wsUser; 86 xBusy:= TRUE; 40 xError:= FALSE; 19 uiStatus:= 10; 20 END_IF 9 21 22 10: // load complete alarm list 23 eStatusAccessAlarm:= fbAccessAlarm.loadCompleteAlarmlist(); 29 CASE eStatusAccessAlarm OF 30 JCmpEvents.eStateType.busy: 32 ; 46 33 JCmpEvents.eStateType.error: 34 udiErrorCnt:= udiErrorCnt + 1; 39 xError:= TRUE; 44 uiStatus:= 0; 41 42 JCmpEvents.eStateType.done: 43 uiStatus:= 20; 31 END_CASE 24 45 20: // get all alarms 47 eStatusGetAlarms:= fbAccessAlarm.getAlarmlistEntries( 53 astAlarmlistEntries:= astAlarms, 54 diNumberAlarmlistEntries=> diAlarms); 18 58 CASE eStatusGetAlarms OF 60 JCmpEvents.eStateType.busy: 62 ; 63 68 JCmpEvents.eStateType.error: 69 udiErrorCnt:= udiErrorCnt + 1; 70 xError:= TRUE; 67 uiStatus:= 0; 66 64 JCmpEvents.eStateType.done: 65 uiStatus:= 30; 61 END_CASE 72 71 30: // check available alarms and reset them 82 JCmpVisu.SysMemSet(ADR(asAlarmsID[0]), 0, SIZEOF(asAlarmsID)); 74 IF (diAlarms > 0) THEN 75 diIndexID:= 0; 77 FOR diIndex:= 0 TO (diAlarms-1) DO 80 IF (astAlarms[diIndex].xAlarmAcknowledgement = FALSE) THEN 87 asAlarmsID[diIndexID]:= astAlarms[diIndex].sAlarmId; 90 diIndexID:= diIndexID + 1; 88 END_IF 81 END_FOR 92 uiStatus:= 40; 78 ELSE 91 uiStatus:= 0; 76 END_IF 73 94 40: // acknowledge all alarms 95 fbAccessAlarm.acknowledgeVisualAlarm( 96 wsUser:= wsMyLocalUser, 110 asAlarmIds:= asAlarmsID); 59 uiStatus:= 0; 112 111 8 END_CASE 2 PROGRAM PLC_PRG_ResetAllAlarms 14 VAR_INPUT 15 xCmdReset : BOOL; 97 wsUser : WSTRING; 16 END_VAR 35 VAR_OUTPUT 84 xBusy : BOOL; 36 xError : BOOL; 38 udiErrorCnt : UDINT; 37 END_VAR 3 VAR 98 6 uiStatus : UINT; 13 rtCmdReset : R_TRIG; 26 107 wsMyLocalUser : WSTRING; 108 50 // load 25 fbAccessAlarm : JCmpEvents.AccessAlarmlist; 27 eStatusAccessAlarm : JCmpEvents.eStateType; 49 51 // get alarms 48 eStatusGetAlarms : JCmpEvents.eStateType; 52 astAlarms : ARRAY[0..diALARM_LIST_LEN] OF JCmpEvents.stAlarmlistEntryType; 99 diAlarms : DINT; 100 101 // FOR-LOOP 103 diIndex : DINT; 104 105 // alarm IDs 106 asAlarmsID : ARRAY[0..diALARM_LIST_LEN] OF STRING; 89 diIndexID : DINT; 4 END_VAR 1 VAR CONSTANT 55 diALARM_LIST_LEN : DINT:= 99; 56 END_VAR 112 Standard False 36099683-d603-45a6-bde8-5491cc0e0dae CPU SPS-Logik Application -1 CODESYS V3.5 SP17 Patch 3