(* @NESTEDCOMMENTS := 'Yes' *)
(* @PATH := '' *)
(* @SYMFILEFLAGS := '2048' *)
___________________________________________________________________________

PROGRAM baue_datenarray
(* in dem Programm wird den Messwerten aus "Uebergabe" der Index zugeordnet,
	
VAR_IN_OUT
	dataarray: ARRAY[0..maxdata,0..anzMess] OF STRING(20);

END_VAR

VAR_OUTPUT
	ready: BOOL;

END_VAR

VAR
	mess1: 	Uebergabe;
	mess2:  Uebergabe;
	mess3: 	Uebergabe;
	mess4: 	Uebergabe;
	mess5:  Uebergabe;
	mess6:  Uebergabe;
	mess7:  Uebergabe;
	mess8: 	Uebergabe;
	mess9: 	Uebergabe;

END_VAR

VAR_INPUT
	reset1: BOOL;
END_VAR

(* @END_DECLARATION := '0' *)
_________________________________________________________________________________

(*Reihnfolge 	(Systemzeit:=0,MessP_Gleich:=1, MessSpannung:=2, MessStrom:=3, Wirkleistung:=4,Scheinleistung:=5, CosinusPhi:=6, Einstrahlung:=7,Wirkenergie_Bezug:=8, Wirkenegie_Lieferung)*)

mess1		(Messwert:=0,	 indize:= 0,	reset:=reset1, normwerte:= dataarray,	convert=> );
mess2		(Messwert:=1,	 indize:= 1,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess3		(Messwert:=2,	 indize:= 2,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess4		(Messwert:=3,	 indize:= 3,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess5		(Messwert:=4,	 indize:= 4,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess6		(Messwert:=5,	 indize:= 5,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess7		(Messwert:=6,	 indize:= 6,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess8		(Messwert:=7,	 indize:= 7,	reset:=reset1,	normwerte:= dataarray,	convert=> );
mess9		(Messwert:=8,	 indize:= 8,	reset:=reset1,	normwerte:= dataarray,	convert=> );


ready := mess9.convert;		(* dataarray ist voll beschrieben und kann jetzt konvertiert werden *)

(* wenn in der Visualisierung Abbruch bettigt wird, werden die bis dahin in dataarray vorhandenen
    Messwerte direkt konvertiert und auf den Ftp_Server geschrieben*)
IF Abbruch=TRUE THEN
ready:=TRUE;
END_IF
END_PROGRAM
