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 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 | VisuElems.g_ClientManager.BeginIteration(); IF pClient^.GlobalData.ClientType = VisuElems.Visu_ClientType.WebVisualization THEN _VisuFbClientTagDataHelper(pClientData := pClient); i := STRING_TO_UINT(_VisuFbClientTagDataHelper.stName); IF i > 0 AND i <= FR_NUM THEN u := i; VisuElems.CURRENTVISU := DEF_VIZU; END_IF END_IF END_WHILE FOR i := 1 TO Freq_Control.FR_NUM DO // check connection to server cTCP_RTU[i].xEnable := FALSE; // reconnect need in next cycle bMBFault[i] := TRUE; tonClientTCP(IN := TON_recon, PT := T_CL_RST); FOR i := 1 TO Freq_Control.FR_NUM DO cTCP_RTU[i](); ClientName=< >.*) TON_recon: BOOL := FALSE; u: UINT := 1; wErr: WORD; cTCP_RTU: ARRAY [1...Freq_Control.FR_NUM] OF OCL.TCP_Client; fD_1: Freq_ONI_M680; fD_2: Freq_ONI_M680; fD_3: Freq_EMD_MINI; fD_4: Freq_TTPT_x_400; fD_5: Freq_EMD_ELHART; fD_6: Freq_EMD_ELHART; fD_7: Freq_ONI_M680; fD_8: Freq_EMD_ELHART; fD_9: Freq_ONI_M680; fD_10: Freq_ESQ_A500; fD_1,fD_2,fD_3,fD_4,fD_5,fD_6,fD_7,fD_8,fD_9,fD_10]; wFreqErr: ARRAY [1...Freq_Control.FR_NUM] OF WORD; bRemote: ARRAY [1...Freq_Control.FR_NUM] OF BOOL; bEnable: ARRAY [1...Freq_Control.FR_NUM] OF BOOL := [ END_VAR FR_NUM: UINT := 10; TCP_PORT: UINT := 502; T_CL_CNC: TIME := T#1000MS; // client connect time DEF_VIZU: STRING := 'Control'; Modbus TCP 192.168.10.70 - ! , . ! ----------------------------------------------------------------------------------------------- | | .| | | | | | | 10 | 21 | 21\2 | M3-D1C | 192.168.10.79 | - | - | 01d: --||-- 2 03d: --||-- 4 05d: --||-- 6 07d: --||-- 8 09d: --||-- 10 11d: --||-- 2 13d: --||-- |