Sub Save_Data()
'
'*************************
' データ保存
'*************************
'
Set_FileName
'
Open File_dat$ For Output As #1
Print #1, "ファイル,日付,時間,プログラム,サンプリング時間(msec),";
Print #1, "サンプリング数,測定時間(sec),";
Print #1, "開始時間(sec),終了時間(sec),";
Print #1, "開始(time),終了(time),";
Print #1, "１ストロークの時間(sec),１ストロークの距離 (m),１ストロークの角度 (deg),";
Print #1, "最低速度 (m/s),平均速度 (m/s),最高速度 (m/s),速度変動率,";
Print #1, "最小トルクch0 (Nm),平均トルクch0 (Nm),最大トルクch0 (Nm),トルク変動率ch0,";
Print #1, "最小トルクch1 (Nm),平均トルクch1 (Nm),最大トルクch1 (Nm),トルク変動率ch1,";
Print #1, "最小出力ch0 (W),平均出力ch0 (W),最大出力ch0 (W),エネルギ変動率ch1,";
Print #1, "最小出力ch1 (W),平均出力ch1 (W),最大出力ch1 (W),エネルギ変動率ch1,";
Print #1, "最大回転角速度(deg/sec),最小回転角速度(deg/sec),回転速度幅(deg/sec),";
Print #1, "最大回転角度(deg),最小回転角(deg),回転角幅(deg),";
Print #1, "最大位置(mm),最小位置(mm),位置幅(mm),";
Print #1, "ノート"
'
For i = 1 To DataNoc
  Print #1, File_org$ & "," & Date$ & "," & Time$ & "," & Program$ & "," & Str$(SampClk) & ",";
  Print #1, Str$(DataNum) & "," & Str$(SampTime) & ",";
  Print #1, Str$(OpSample(i)) & "," & Str$(OpSample(i + 1)) & ",";
  Print #1, Str$(OpTime(i)) & "," & Str$(OpTime(i + 1)) & ",";
  Print #1, Str$(St_time(i)) & "," & Str$(St_distance(i)) & ","; Str$(St_angle(i)) & ",";
  Print #1, Str$(Speed_minc(i)) & "," & Str$(Speed_avc(i)) & "," & Str$(Speed_maxc(i)) & "," & Str$(dSpeedc(i)) & ",";
  Print #1, Str$(Tq_minc(i, 0)) & "," & Str$(Tq_avc(i, 0)) & "," & Tq_maxc(i, 0) & "," & dTqc(i, 0) & ",";
  Print #1, Str$(Tq_minc(i, 1)) & "," & Str$(Tq_avc(i, 1)) & "," & Tq_maxc(i, 1) & "," & dTqc(i, 1) & ",";
  Print #1, Str$(Power_minc(i, 0)) & "," & Str$(Power_avc(i, 0)) & "," & Str$(Power_maxc(i, 0)) & "," & Str$(dPowerc(i, 0)) & ",";
  Print #1, Str$(Power_minc(i, 1)) & "," & Str$(Power_avc(i, 1)) & "," & Str$(Power_maxc(i, 1)) & "," & Str$(dPowerc(i, 1)) & ",";
  Print #1, Str$(Beta_deg_maxc(i)) & "," & Str$(Beta_deg_minc(i)) & "," & Str$(dBeta_degc(i)) & ",";
  Print #1, Str$(Alpha_deg_maxc(i)) & "," & Str$(Alpha_deg_minc(i)) & "," & Str$(dAlpha_degc(i)) & ",";
  Print #1, Str$(y_maxc(i) * 1000) & "," & Str$(y_minc(i) * 1000) & "," & Str$(dyc(i) * 1000) & ",";
  Print #1, Note$
Next i
Close #1
'
Open File_csv$ For Output As #1
Print #1, "i, Time(i),";
Print #1, "Encoder(0), Encoder(1),";
Print #1, "Volt(0), Volt(1),";
Print #1, "Torque(0), Torque(1),";
Print #1, "Angle_deg(0), Angle_deg(1),";
Print #1, "Distance(0), Distance(1), Distance_av,";
Print #1, "Speed(0), Speed(1), Speed_av,";
Print #1, "Power(0), Power(1),";
Print #1, "Beta_deg, Alpha_deg,";
Print #1, "x, y"
'
Print #1, "time, sec,";
Print #1, "pulse, pulse,";
Print #1, "V, V,";
Print #1, "Nm, Nm,";
Print #1, "deg, deg,";
Print #1, "m, m, m,";
Print #1, "m/s, m/s, m/s,";
Print #1, "W, W,";
Print #1, "deg/s, deg,";
Print #1, "m, m"
'
For i = 1 To DataNum
  Print #1, Str$(i) & "," & Str$(SampClk / 1000 * i) & ",";
  Print #1, Str$(Encoder(0, i)) & "," & Str$(Encoder(1, i)) & ",";
  Print #1, Str$(Volt(0, i)) & "," & Str$(Volt(1, i)) & ",";
  Print #1, Str$(Tq(0, i)) & "," & Str$(Tq(1, i)) & ",";
  Print #1, Str$(Angle_deg(0, i)) & "," & Str$(Angle_deg(1, i)) & ",";
  Print #1, Str$(Distance(0, i)) & "," & Str$(Distance(0, i)) & "," & Str$(Distance(2, i)) & ",";
  Print #1, Str$(Speed(0, i)) & "," & Str$(Speed(1, i)) & "," & Str$(Speed(2, i)) & ",";
  Print #1, Str$(Power(0, i)) & "," & Str$(Power(1, i)) & ",";
  Print #1, Str$(Beta_deg(i)) & "," & Str$(Alpha_deg(i)) & ",";
  Print #1, Str$(x(i)) & "," & Str$(y(i))
Next i
Close #1
'
End Sub