Obsidean_VM/Modifiche fatte 9.3136 SIPA Polonia.md at f4a4888955294a7ca31b50cef327ee13fa5cd448

3.2 KiB

Raw Blame History

19/04/2024

SIPA 9.3136 Polonia:

PLC: 10.137.48.131
HMI: 10.137.48.132
Divider: 10.137.48.133

Abilitato PUT/GET:

!Pasted image 20240419134025.png

Modificato tipo di DB a non ottimizzate: DB5000 a DB5013:

Manuale Zenon:

Modificata FC5500 - FC Any To Dint on Alarm - in vece di OUT -> InOut

Creata una logica piu aggiornata a S7-1500:

#t_Address := #InVar; // Open the ANY pointer so we can work
IF #t_Any_UDT.Source_DataType = 16#01 THEN // Work only with bools
    #t_Byte := DWORD_TO_INT(SHR(IN := #t_Any_UDT.Source_Byte_Pointer, N := 3)); // Get the byte
    #t_Bit := DWORD_TO_BYTE(#t_Any_UDT.Source_Byte_Pointer) AND 15;     // Get the bit
    #Alarm := PEEK_BOOL(area := #cDB, dbNumber := #t_Any_UDT.Source_DB_Number, byteOffset := #t_Byte, bitOffset := #t_Bit);  // Ask the state of the bit
    
    IF #Alarm THEN
        // First we calculate the max magnitude we need, the number of 0 to use to pack all numbers so DB[XXX] + Byte[BBB] + Bits[b] => XXXBBb 
        IF #t_Byte = 0 THEN
            #t_Magnitude_Byte := 1; // In case Byte is 0 LN(0) is undefined so we use 1 to get the space for the byte
        ELSE
            #t_Magnitude_Byte := #t_Byte;
        END_IF;
        #t_Magnitude := REAL_TO_DINT(EXP(LN(10) * TRUNC(LN(WORD_TO_INT(#t_Any_UDT.Source_DB_Number)) / LN(10)) + TRUNC(LN(WORD_TO_INT(#t_Magnitude_Byte)) / LN(10))));
        #Value := WORD_TO_DINT(#t_Any_UDT.Source_DB_Number) * #t_Magnitude + #t_Byte * 10 + #t_Bit;
    END_IF;
END_IF;

Esempio di chiamata:

      CALL  "FC Any To Dint on Alarm"
         Address   :="DB Pack Alarm".A471_39_4
         Num_Alarm :=#T_Warning_Zone

Se questo bit "DB Pack Alarm".A471_39_4 e true ritorna 471394 su #T_Warning_Zone

Prima della modifica: !

Dopo la modifica della FC5500 !

Modifica ed attiva la sezione 1 come indicato nei pdf di Alex:

SECT1 : M31 - M45 SECT2: M46 - M53 SECT3: M71 - M81 ( rimasto uguale )

21/06/2024

Aggiornato il software per gestire gli V1, V3 , V13, V19, V18 e V24, V17, V23:

Section 1: il conteggio V1 farlo sulla fotocellula: FA-SA1
- V3 : Lo scarto sulla fotocellula: SPO-SA1
Section 2: il conteggio V1 farlo sulla fotocellula: B1-DI1
Section 3: il conteggio V1 farlo sulla fotocellula: B1-M73 - (non tutti i pack saranno contati perché è un accumulo)

Usata FB1001 da Jamaica e creata nuova FB1000 per il conteggio delle ore e minutti.

FC5002 - N40:

Create queste chiamate per ogni time da calcolare.

      L     #T_StopsAlarm_Zone
      L     DINT#0
      <>D
      =     #Start

      CALL  "FB TimeElapsed SIPA SV", "DB TimerCounter Alarm S1"
         Enable  :=#Start
         Seconds :=
         Minutes :=#Data.N7.V19
         Hour    :=#Data.N7.V13

Create queste chiamate per ogni Vx

"DB Section N7.V1 S1"("Count Sensor":="FA-SA1",
                      "Section Running Auto":="DB TT Run".TT_Run.HMI_IN_SW_ManAuto,
                      "Reset Counter":=FALSE,
                   di_pcs_tot=>#Data.N7.V1);

3.2 KiB Raw Blame History