Obsidean_VM/04-SIDEL/06 - E5.007363 - Modifica O.../Source/source/ITC_Communic_ProdRoom.md

2.1 KiB

// Block Type: FC
// Block Name (Original): ITC Communic ProdRoom
// Block Number: 3522
// Original Network Languages: LAD
// Block Comment:
//   Interchange Signals: Communication: Product Room

FUNCTION "ITC_Communic_ProdRoom" : Void
{ S7_Optimized_Access := 'TRUE' }
VERSION : 0.1

VAR_TEMP
  #_16 : Bool; // Auto-generated temporary
  #_200MS : Bool; // Auto-generated temporary
  #_3 : Bool; // Auto-generated temporary
  #_500MS : Bool; // Auto-generated temporary
END_VAR

BEGIN

  // Network 1: BBT Data Send/Receive (Original Language: LAD)

  IF "E5_007161" AND "AUX FALSE" THEN
    "ITC Communic Product Room DI"(ACTIVE := TRUE, ID := W#16#3, INIT := "FirstScan", ISO_on_TCP_LOCAL_CPU_SLOT := 2, ISO_on_TCP_PN_PN := TRUE, ISO_on_TCP_REMOTE_CPU_SLOT := 2, LOCAL_PORT := 1, LOCAL_DEVICE_ID := 72, REMOTE_PORT := 2, REMOTE_IP_1 := 10, REMOTE_IP_2 := 1, REMOTE_IP_3 := 60, REMOTE_IP_4 := 11, REQ := FALSE, TCP_PROTOCOL := FALSE, TIME_ACT_SP := T#200MS, TIME_ALARM_SP := T#500MS, TRCV_DATA := "ITC Communic MainData"."PRODUCT_ROOM_REC_DATA", TRCV_ENABLE := TRUE, TRCV_LEN := 10, TSEND_DATA := "ITC Communic MainData"."PRODUCT_ROOM_SEND_DATA", TSEND_LEN := 10);
  END_IF;

  // Network 2: *** (Original Language: LAD)

  // Network 2 has no logic elements.

  // Network 3: CIP (Original Language: LAD)

  IF "AUX TRUE" THEN
    "HMI_IO_Showing"."Cip_Room_IO_Signal"."_AI0" := "AI_SYRUP_Cip_Phase";
    "HMI_IO_Showing"."Cip_Room_IO_Signal"."_AI1" := "AI_SYRUP_Cip_RemaningTime" * 10;
    "HMI_IO_Showing"."Cip_Room_IO_Signal"."_AI2" := "AI_SYRUP_Cip_TotalTime";
    "HMI_IO_Showing"."Cip_Room_IO_Signal"."_AI3" := "AI_CIP_SetPoint_Temeperature";
    "HMI_IO_Showing"."Cip_Room_IO_Signal"."_AI4" := "AI_CIP_CIP_Total_Time";
  END_IF;

  // Network 4: Syrup Room (Original Language: LAD)

  IF "AUX TRUE" THEN
    "HMI_Refrige_IO_Showing"."Syrup_Room_IO_Signal"."_AI0" := "DI_SYR_TANK_LEVEL";
  END_IF;

  // Network 5: Syrup Room (Original Language: LAD)

  IF "AUX TRUE" THEN
    "HMI_IO_Showing"."Syrup_Room_IO_Signal"."_AI0" := "DI_SYR_COUNTER_LT";
  END_IF;

  // Network 6: *** (Original Language: LAD)

  // Network 6 has no logic elements.

END_FUNCTION