Mittelwertbildung

[LEFT]L 8                                //Startadresse des Arrays
SLD 3                              //Pointererzeugen
LAR1                               //und ins Adressregister laden
L 7                                //Anzahl der Schiebevorgänge laden
nex1: T #iLoopCounter
L DID [AR1,P#4.0]                  //Startadresse + 1 DW
T DID [AR1,P#0.0]                  //in Startadresse schreiben
+AR1 P#4.0                         //und das AR1 um 4.0 erhöhen = neue Startadresse
L #iLoopCounter                    //Schleifenzähler laden
LOOP nex1                          //um ihn zu dekrementieren und zurückzuspringen[/LEFT]
 
[LEFT]L #rInput                          //und den aktuellen Wert
T #aRealArray[7]                   //ins Real-ARRAY schubsen[/LEFT]

FUNCTION_BLOCK "FB_Mittelwertbildung"
TITLE =Mittelwertberechnung/ Integrationsbaustein
AUTHOR : 'F.J.'
VERSION : 1.0


VAR_INPUT
  Eingangswert : REAL ;    //Zu Glätender Istwert
  Speichertakt : BOOL ;    //Abfragetakt des Eingangswert
  SPS_Start : BOOL ;    //Start der Berechnung
  Zyklen : INT ;    //Ringspeichergröße (Zyklen x Speichertakt = Integrationszeit)
END_VAR
VAR_OUTPUT
  Zeigernummer : WORD  := W#16#10;    
  Endwert : REAL ;    //Geglaeteter Wert
END_VAR
VAR
  Messwert_500 : REAL ;    
  .
  .
  .
  .   
  Messwert_1 : REAL ;    
  Store_Mitteln : INT ;    
  Store_Mitteln_1 : REAL ;    
  Store_Nullen : INT ;    
  DB_wurde_Genullt : BOOL ;    
  Mittelwert : BOOL ;    
  FP_Takt : BOOL ;    
END_VAR
VAR_TEMP
  Impuls_Takt : BOOL ;    
  Zeiger_Speichern : DWORD ;    
  Zeiger_Mitteln : DWORD ;    
  Zeiger_Nullen : DWORD ;    
  Loops_Nullen : INT ;    
  Loops_Mitteln : INT ;    
END_VAR
BEGIN
NETWORK
TITLE =Reseten

      U     #SPS_Start; 
      SPB   strt; 

      L     0.000000e+000; 
      T     #Endwert; 

      L     16; 
      T     #Store_Mitteln; 
      T     #Store_Nullen; 
      T     #Zeigernummer; 
NETWORK
TITLE =DB Werte Nullen wenn keine abfrage

      U     #DB_wurde_Genullt; 
      BEB   ; 

      L     #Zyklen; 
NEXT: T     #Loops_Nullen; 
      L     #Store_Nullen; 
      L     4; 
      +I    ; 
      T     #Store_Nullen; 

      L     #Store_Nullen; 
      SLW   3; 
      T     #Zeiger_Nullen; 

      L     0.000000e+000; 
      T     DID [#Zeiger_Nullen]; 

      L     #Loops_Nullen; 
      LOOP  NEXT; 
      S     #DB_wurde_Genullt; 
      BE    ; 

strt: NOP   0; 
      R     #DB_wurde_Genullt; 
NETWORK
TITLE =Abtasttakt
//im zeitintervall von x sekunden (arbeitstakt) wird ein neuer wert aufgenommen.
      U     #Speichertakt; 
      UN    #FP_Takt; 
      =     #Impuls_Takt; 

      U     #Speichertakt; 
      =     #FP_Takt; 

      U     #Impuls_Takt; 
      R     #Mittelwert; 
      SPBN  arbt; 
NETWORK
TITLE =Speicherzeiger prüfen wenn Speicherende erreicht
//wenn speicherzeiger grösser als 2012 (500 Messwerte) dann auf 16 
//setzen (zeiger für messwertNr.1) 
      L     #Zeigernummer; 
      L     4; 
      +I    ; 
      T     #Zeigernummer; 

      L     #Zyklen; 
      L     4; 
      *I    ; 
      L     12; 
      +I    ; 
      L     #Zeigernummer; 
      TAK   ; 
      >I    ; 
      SPBN  NULL; 

      L     16; 
      T     #Zeigernummer; 

NULL: NOP   0; 

NETWORK
TITLE =Eingangswert abspeichern

      L     #Zeigernummer; 
      SLW   3; 
      T     #Zeiger_Speichern; 
      L     #Eingangswert; 
      T     DID [#Zeiger_Speichern]; 

NETWORK
TITLE =Mittelwert aus DB errechnen

arbt: NOP   0; 
      U     #Mittelwert; 
      SPB   aus; 

      L     0.000000e+000; 
      T     #Store_Mitteln_1; 

      L     16; 
      T     #Store_Mitteln; 


      L     #Zyklen; 
Next: T     #Loops_Mitteln; 

      L     #Store_Mitteln; 
      L     4; 
      +I    ; 
      T     #Store_Mitteln; 

      L     #Store_Mitteln; 
      SLW   3; 
      T     #Zeiger_Mitteln; 
      L     DID [#Zeiger_Mitteln]; 
      L     #Store_Mitteln_1; 
      +R    ; 
      T     #Store_Mitteln_1; 

      L     #Loops_Mitteln; 
      LOOP  Next; 

      L     #Zyklen; 
      ITD   ; 
      DTR   ; 
      L     #Store_Mitteln_1; 
      TAK   ; 
      /R    ; 
      T     #Endwert; 

      S     #Mittelwert; 
aus:  NOP   0; 
      BE    ; 
END_FUNCTION_BLOCK

*
      LAR1  P##aRealArray               //Startadresse des Arrays ins Adressregister laden