Wie wär's denn damit:
FUNCTION FC 1 : VOID
TITLE =
AUTHOR : Werner54
VERSION : 0.0
VAR_INPUT
EINGANGSVAR : REAL ;
END_VAR
VAR_TEMP
TIMEVAR : TIME ;
OUTTIMEVAR : TIME ;
REALVAR : REAL ;
END_VAR
BEGIN
NETWORK
TITLE =Frequenz bilden (bis max. 500 Hz)
//Taktzeit berechnen
L 2.764800e+004; //Konstante anpassen an
L #EINGANGSVAR; //die Eingangsvariable
/R ;
RND ;
T #TIMEVAR;
//Startmerker negieren (M1.2 bilden)
UN M 1.1;
= M 1.2;
//SFB4 TON_IEC_TC (mit Instanz-DB4)
CALL "TON" , DB 4 (
IN := M 1.2,
PT := #TIMEVAR,
Q := M 1.1,
ET := #OUTTIMEVAR);
//Lange Impulszeiten unterbrechen (M1.1 setzen)
L #TIMEVAR;
L #OUTTIMEVAR;
<D ;
S M 1.1;
//Rechtecksignal formen (M1.0 blinkt)
UN M 1.1;
BEB ; //** BAUSTEINENDE **
UN M 1.0; //KEINE mechanischen
= M 1.0; //Bauteile ansteuern
END_FUNCTION
