The Industrial Raspberry Pi Forum

Code: Select all

{
	CHANNEL RevolutionPiChannel
		TCP
			ADDRESS := deine IP vom PI;
			PORT    := 1534;
		END_TCP
	END_CHANNEL
}

CONFIGURATION RevolutionPi
	RESOURCE RevolutionPiResource ON RevolutionPi { ON_CHANNEL := RevolutionPiChannel }
		{ INCLUDE_GLOBALS Variablen}
		{IO} TASK DefaultTask(INTERVAL := TIME#20ms, PRIORITY := 38229);
     PROGRAM Programm WITH DefaultTask :
		"Programm Name";
	END_RESOURCE
END_CONFIGURATION

Code: Select all

FUNCTION_BLOCK RC_Glied
VAR_INPUT
	On : BOOL := FALSE; // Einschalten
	Off: BOOL := FALSE; // Ausschalten
	oldstate  : BOOL; // Alter Status
	I1		  : BOOL; // Eingang 1
	I2		  : BOOL; // Eingang 2
	I3		  : BOOL; // Eingang 3
END_VAR

VAR_OUTPUT
	Q_On :BOOL; // Ausgang 1 Einschalten
	Q_Off:BOOL; // Ausgang 2 Ausschalten
	Q_newstate : BOOL; // neuer Status
	
END_VAR
VAR
END_VAR
Q_On  := On or oldstate; // Schalte Ausgang an, wenn schalter auf an oder alter status auf an
// Schalte ausgang aus, wenn Wartung, winterbetrieb, hauptstrom_ok falsch schalter aus gedrückt   
Q_Off := (I1 OR I2 OR I3 OR Off ); 

Q_newstate := oldstate; // alter status auf neuen kopieren
IF ( Q_on ) THEN // wenn an, dann setze neuen status auf an => anlage läuft
  Q_newstate := true;
ELSE
  Q_Off := TRUE;
  return;
END_IF;

IF ( Q_off ) THEN  // Wenn aus, dann setze status auf stop, und schalte anlage auf aus
  Q_newstate := false;
  Q_On       := false;
END_IF;
END_FUNCTION_BLOCK

Code: Select all

FUNCTION_BLOCK Load_Save_Retain_Data { vNameAlignment := "center"; width := 500; bgColor := "lightblue"; }

  VAR_INPUT
  	WRITE : BOOL; // Zum Schreiben in die Persisten.csv / USV Anschluss oder anderen Schaltkontakt
  	READ  : BOOL; 
  	
  END_VAR


  
  VAR_OUTPUT
  	loadRetainRC : UDINT;
  	saveRetainRC : UDINT;
  	init          : BOOL;
  	term          : BOOL;
  	nrNonLoaded   : INT;
  END_VAR
  
  VAR
    loadRetainENO : BOOL;
    saveRetainENO : BOOL;
  END_VAR
  
  	RTSCycleInfo   ( Init => init, Term => term ); // RTSLoader abfragen ob start und ende
  	LoadRetainData ( EN := init, fileName := 'Persistent.csv', nrNonLoaded => nrNonLoaded, RC => loadRetainRC, ENO => loadRetainENO );
  	SaveRetainData ( EN := term, fileName := 'Persistent.csv', RC => saveRetainRC, ENO => saveRetainENO );
  	
  	if (READ) THEN // Wenn gelesen werden soll !!
  		LoadRetainData ( EN := init, fileName := 'Persistent.csv', nrNonLoaded => nrNonLoaded, RC => loadRetainRC, ENO => loadRetainENO );
  	END_IF;
   	if (WRITE) THEN // Wenn geschrieben werden soll dann schreiben !!
  		SaveRetainData ( EN := true, fileName := 'Persistent.csv', RC => saveRetainRC, ENO => saveRetainENO );
  	END_IF;

END_FUNCTION_BLOCK