ISaGRAF. Version 3.4


FA_WRITE


:

ID INT : F_WOPEN

IN INT , .

Q BOO : TRUE ok

:

. , . F_WOPEN 4 , . F_EOF. ISaGRAF.

(*FBD *)

(* ST : *)

file_id := F_WOPEN('voltramp.bin');

nb_written := 0;

nb_written := nb_written + ana(FA_WRITE(file_id,vstart));

nb_written := nb_written + ana(FA_WRITE(file_id,vend));

nb_written := nb_written + ana(FA_WRITE(file_id,vinc));

nb_written := nb_written + ana(FA_WRITE(file_id,ana(delta_tim)));

ok := F_CLOSE(file_id);

IF ( nb_written <> 4) THEN

ERROR := ERR_FILE;

END_IF;

(* IL : *)

LD 'voltramp.bin'

F_ROPEN

ST file_id

LD 0

ST nb_written

LD file_id (* vstart *)

FA_WRITE vstart

ANA

ADD nb_written

ST nb_written

LD file_id (* vend *)

FA_WRITE vend

ANA

ADD nb_written

ST nb_written

LD file_id (* vinc *)

FA_WRITE vinc