SSレコーダの作り方（３／４）

手順３：ファイル出力

3-1. プログラム追加
プログラムを追加してファイルを作成するプログラムを書いていきます
出力するファイルはこのようになります
TraceTypeからStartRawTimeまでがヘッダ部分で、次の行が各カラムのタイトル行です
カラムのIndex,Date,ClockTime,RowTimeの４項目は必ず必要でその次からがトレースする変数になります
TraceType,Single TriggerType, SamplePeriod,0:0:1:0:0 SampleRate,1 ExternalFileStorage,False MaxSamplesPerFile,4500 MaxDataSetSize,100 TargetDirectory,C:\OMRON\Data\DataTrace\ FilePrefix, SampleTimingType,cyclic TaskName,BaseControl SamplingInterval,1 Triggers,False::: PostTriggerDataRatio,100 StartOnRun,False EnableRealTimeDisplay,False BehaviorWhenMax,Stop TriggerRecordTime,1625835027254000000 StartRawTime,1625835027254000000 Index,Date,ClockTime,RawTime,TraceSampID,Program0.SamplingNo:UINT,Program0.index:UINT,DummyInputBool[0]:BOOL,DummyInputBool[1]:BOOL,DummyInputBool[2]:BOOL,DummyInputBool[3]:BOOL,DummyInputBool[4]:BOOL,DummyInputBool[5]:BOOL,DummyInputBool[6]:BOOL,DummyInputBool[7]:BOOL,DummyInputBool[8]:BOOL,DummyInputBool[9]:BOOL,DummyInputBool[10]:BOOL,DummyInputBool[11]:BOOL,DummyInputBool[12]:BOOL,DummyInputBool[13]:BOOL,DummyInputBool[14]:BOOL,DummyInputBool[15]:BOOL,DummyInputInt16:INT,DummyInputInt32:DINT,DummyInputInt64:LINT,DummyInputReal:REAL,DummyInputLReal:LREAL 0,2021-07-09,12:50:27.25,1625835027254000000,,1,60879,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0.000,0.000

変数テーブルはこんな感じです

０行目：
運転開始時にSysClockStartDTには基準時刻、byteCommaにはASCIIコードの「,」カンマをセット

SysClockStartDT := DT#1970-1-1-0:0:0; byteComma := BYTE#16#2C;

１行目：
メモリカードを挿入したとき、または運転開始時にファイルを格納する'Rec'フォルダを作成します
フォルダがあればErrorフラグがONしますが無視しても問題ありません

２行目：
レコード書き込みフラグ（RecWrite）の立上りでファイル切り替えフラグ（FileChange）をセットしておいて、次の処理以降でファイル名を変更します

３行目：
レコード書き込みフラグ（RecWrite）の立下りレコード終了（RecEnd）をセットして書き込み処理を終了する指示をします

４行目：
ファイル書き込み（WriteRecFile）の記憶回路です
レコード書き込みフラグ（RecWrite）の立上り、またはファイル変更フラグ（FileChange）の立上りでファイルへの書き込みを開始します

５行目：
データトレースのファイルフォーマットに合わせてヘッダ部分のデータを書込みバッファ（WriteBuf[]）にセットします
この部分は変更せずに使います
// ファイルのヘッダ部分作成 WriteBuf[0] := BYTE#16#EF; // BOM付き WriteBuf[1] := BYTE#16#BB; WriteBuf[2] := BYTE#16#BF; Pos := 3; // SYSMAC STUDIOのトレースCSVエクスポートのヘッダ部 Pos := StringToAry('TraceType,Single$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('TriggerType,$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('SamplePeriod,0:0:1:0:0$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('SampleRate,1$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('ExternalFileStorage,False$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('MaxSamplesPerFile,4500$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('MaxDataSetSize,100$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('TargetDirectory,C:\OMRON\Data\DataTrace\$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('FilePrefix,$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('SampleTimingType,cyclic$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('TaskName,BaseControl$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('SamplingInterval,1$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('Triggers,False:::$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('PostTriggerDataRatio,100$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('StartOnRun,False$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('EnableRealTimeDisplay,False$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('BehaviorWhenMax,Stop$r$n', WriteBuf[Pos]) + Pos; Pos := StringToAry('$r$n', WriteBuf[Pos]) + Pos; TriggerRecTime := RecBuffer.Data[RecBuffer.Bottom].RecTime; TriggerRecTimeStr := LINT_TO_STRING(TimeToNanoSec(SUB_DT_DT(TriggerRecTime, SysClockStartDT))); Pos := StringToAry(CONCAT('TriggerRecordTime,', TriggerRecTimeStr, '$r$n'), WriteBuf[Pos]) + Pos; Pos := StringToAry(CONCAT('StartRawTime,', TriggerRecTimeStr, '$r$n'), WriteBuf[Pos]) + Pos;

６行目：
トレースデータの変数名をカラム名として書込みバッファ（WriteBuf[]）にセットします

ここはトレースする変数名にあわせて記述してください記述フォーマットは「変数名:データ型」で、各変数名はカンマで区切ります
// 全カラムのタイトル行 Pos := StringToAry('Index,Date,ClockTime,RawTime,TraceSampID,', WriteBuf[Pos]) + Pos; Pos := StringToAry('Program0.SamplingNo:UINT,Program0.index:UINT,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[0]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[1]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[2]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[3]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[4]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[5]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[6]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[7]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[8]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[9]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[10]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[11]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[12]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[13]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[14]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputBool[15]:BOOL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputInt16:INT,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputInt32:DINT,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputInt64:LINT,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputReal:REAL,', WriteBuf[Pos]) + Pos; Pos := StringToAry('DummyInputLReal:LREAL$r$n', WriteBuf[Pos]) + Pos; // ファイル名作成 IF FileChange THEN FileNo := FileNo + 1; // 保存ファイル数は調整してください // ここでは 200個のファイル名を回しています IF FileNo >= 200 THEN FileNo := 0; END_IF; END_IF; FileName := CONCAT('Rec/Rec', NumToDecString(FileNo, 3, _ZERO), '.csv'); RowCnt := 0;

７行目：
ファイル名は'Rec+'0～199’の連番を付けたファイル名を付けてます
連続でレコードすることも可能なので連番を付けるようにしています
// ファイル名作成 IF FileChange THEN FileNo := FileNo + 1; // 保存ファイル数は調整してください // ここでは 200個のファイル名を回しています IF FileNo >= 200 THEN FileNo := 0; END_IF; END_IF; FileName := CONCAT('Rec/Rec', NumToDecString(FileNo, 3, _ZERO), '.csv'); RowCnt := 0;

８～１１行目：
ファイルを開いてレコードデータの書き込み要求（WriteRequest）をONにしてリングバッファにデータがあれば書込み(Write）を実行します
書き込み中にもリングバッファにデータが入るので書き込み終わって（FWrite.Done）10000レコード未満（FileEnd=OFF）なら再度書込みを実行します

１２行目：
ST1-9：リングバッファのデータ数を見て100レコード以下のデータを書き込むようにします
ST10：リングバッファから1レコード読み出します
ST12-13：RowCntをIndex項目へ

ST15-16：リングバッファのRecTimeの日付部分をDate項目へ
ST17-18：リングバッファのRecTimeの時刻部分をClock項目へ
ST21-24：基準時刻（1970/1/1 0:0:0)からリングバッファのRecTimeまでの経過時間をナノ秒単位の数値をRawTime項目へ
ST26-49：リングバッファで記録したデータを各項目へ書込み（ここをトレースデータに合わせて変更）
ST51-56：書込みレコード件数が10000レコードになったらファイルを切り替えます
ST59：書込みバッファ（WriteBuf）の配列（byte数）が65535なので60000を超えたら一旦FileWriteを実行する
MaxRow := 100; IF RecBuffer.Count <= MaxRow THEN Count := RecBuffer.Count - 1; ELSE Count := MaxRow - 1; END_IF; FOR LoopCnt := 0 TO Count BY 1 DO RingbufGet(RecBuffer, Data); Pos := StringToAry(DINT_TO_STRING(RowCnt), WriteBuf[Pos]) + Pos; WriteBuf[Pos] := byteComma; Pos := Pos + 1; RecTimeStr := DtToString(Data.RecTime); //RecTime Pos := StringToAry(LEFT(RecTimeStr, 10), WriteBuf[Pos]) + Pos; WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(MID(RecTimeStr, 11, 12), WriteBuf[Pos]) + Pos; WriteBuf[Pos] := byteComma; Pos := Pos + 1; RawTime := LINT_TO_STRING(TimeToNanoSec(SUB_DT_DT(Data.RecTime, SysClockStartDT))); Pos := StringToAry(RawTime, WriteBuf[Pos]) + Pos; WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(',', WriteBuf[Pos]) + Pos; Pos := StringToAry(UINT_TO_STRING(Data.SamplingNo), WriteBuf[Pos]) + Pos; //SamplingNo WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(UINT_TO_STRING(Data.Idx), WriteBuf[Pos]) + Pos; //Idx WriteBuf[Pos] := byteComma; Pos := Pos + 1; FOR cnt := 0 TO 15 BY 1 DO //Bool IF Data.B[cnt] THEN WriteBuf[Pos] := BYTE#16#31; Pos := Pos + 1; WriteBuf[Pos] := byteComma; Pos := Pos + 1; ELSE WriteBuf[Pos] := BYTE#16#30; Pos := Pos + 1; WriteBuf[Pos] := byteComma; Pos := Pos + 1; END_IF; END_FOR; Pos := StringToAry(INT_TO_STRING(Data.INT16), WriteBuf[Pos]) + Pos; //INT16 WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(DINT_TO_STRING(Data.INT32), WriteBuf[Pos]) + Pos; //INT32 WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(LINT_TO_STRING(Data.INT64), WriteBuf[Pos]) + Pos; //INT64 WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(RealToFormatString(Data.R, FALSE, TRUE, 5, 3), WriteBuf[Pos]) + Pos; //R WriteBuf[Pos] := byteComma; Pos := Pos + 1; Pos := StringToAry(LrealToFormatString(Data.LR, FALSE, TRUE, 5, 3), WriteBuf[Pos]) + Pos; //LR Pos := StringToAry('$r$n', WriteBuf[Pos]) + Pos; // ファイルの切り替え RowCnt := RowCnt + 1; IF RowCnt > 10000 THEN FileEnd := TRUE; EXIT; END_IF; // 書込みバッファオーバーフロー防止 IF Pos > 60000 THEN EXIT; END_IF; END_FOR; 例えば：
Pos := StringToAry(INT_TO_STRING(Data.INT16), WriteBuf[Pos]) + Pos;
INT_TO_STRING(Data.INT16)をデータ型に合わせて型変換と変数名を変更します

１３行目：
書込みバッファ（WriteBuf）のデータをファイルに書き込みます
１４行目：
書込み完了（FileWrite.Done）でファイル終了（FileEnd）がONならファイルを閉じてます
レコード終了（RecEnd）であれば正常終了（OK）をONにして、ファイル終了（FileEnd）であればファイル切り替え（FileChange）をONにします
１５行目：
各エラーが発生したら異常終了（NG）をONにして終了します

手順４：タスク設定

4-1. タスク設定
大きなファイルを書き込む時には時間がかかるので定周期タスクでファイル書き込みするように20ms程度の定周期タスクを追加します
トレースするデータの量で周期は20ms～50ms程度調整します

4-2. プログラムの割付設定
追加した定周期タスクにファイル書き込みプログラムを割り当てます

次のページは

以上でデータトレースのファイルがメモリカードのRecフォルダに作成できました
次のページでは、テストデータを作ってファイルを作成してSysmacStudioのデータトレースへインポートします

« 前
1
2
3
4
次 »

SSレコーダの作り方 （３／４）

手順３：ファイル出力

3-1. プログラム追加

手順４：タスク設定

4-1. タスク設定

4-2. プログラムの割付設定

次のページは

SSレコーダの作り方（３／４）