fbRTrig(CLK:=bLogOn);
sLogDaten := DINT_TO_STRING(BuffRead[0]);
sLogDaten := CONCAT(LogString, '$n');
sLogDaten := CONCAT(LogString, DINT_TO_STRING(BuffRead[1]));
sLogDaten := CONCAT(LogString, '$n');
sLogDaten := CONCAT(LogString, DINT_TO_STRING(BuffRead[2]));
sLogDaten := CONCAT(LogString, '$n');
sLogDaten := CONCAT(LogString, DINT_TO_STRING(BuffRead[3]));
sLogDaten := CONCAT(LogString, '$n');
sLogDaten := CONCAT(LogString, DINT_TO_STRING(BuffRead[4]));
sLogDaten := CONCAT(LogString, '$n');
sLogDaten := CONCAT(LogString, DINT_TO_STRING(BuffRead[5]));
CASE Step OF
1: (* File oeffnen *)
fbRTrig();
IF fbRTrig.Q THEN
fbFileOpen(sNetId:= '',
sPathName:= 'C:/Dokumente und Einstellungen/Cerberus/Desktop/test.txt,
nMode:= FOPEN_MODEWRITE OR FOPEN_MODETEXT,
ePath:= PATH_GENERIC,
bExecute:= TRUE,
tTimeout:= t#3s);
Step := 2;
END_IF
2:
fbFileOpen();
IF NOT fbFileOpen.bBusy THEN
IF fbFileOpen.bError THEN
nErrId := fbFileOpen.nErrId;
bError1 := TRUE;
Step := 50;
ELSE
hFileDatei := fbFileOpen.hFile;
Step := 3;
END_IF
fbFileOpen(bExecute:= FALSE);
END_IF
3: (* File schreiben *)
fbFileWrite(sNetId:= '',
hFile:= hFileDatei,
pWriteBuff:= ADR(sLogDaten),
cbWriteLen:= LEN(sLogDaten),
bExecute:= TRUE,
tTimeout:= t#3s);
Step := 4;
4:
fbFileWrite();
IF NOT fbFileWrite.bBusy THEN
IF fbFileWrite.bError THEN
nErrID := fbFileWrite.nErrId;
bError2 := TRUE;
Step := 50;
ELSE
Step := 5;
END_IF
fbFileWrite(bExecute:= FALSE);
END_IF
5: (* File schliessen *)
fbFileClose(sNetId:= '',
hFile:=hFileDatei,
bExecute:= TRUE,
tTimeout:= t#3s);
Step := 6;
6:
fbFileClose();
IF NOT fbFileClose.bBusy THEN
IF fbFileClose.bError THEN
nErrId := fbFileClose.nErrId;
bError3 := TRUE;
Step := 50;
ELSE
Step := 1;
END_IF
fbFileClose(bExecute:= FALSE);
END_IF
END_CASE