Sub Save_CalibrationFile()
'
'*********************************
' キャリブレーションファイル保存
'*********************************
'
File_clb$ = Left$(Right$(Date$, 5), 2) + Left$(Right$(Date$, 2), 2) + Left$(Time$, 2) + Right$(Left$(Time$, 5), 2) + ".clb"
File_clb$ = Form4.txtFileDir.Text + "\" + File_clb$
For ii = 0 To 1
  If ii = 0 Then Open "WchairMes.clb" For Output As #1
  If ii = 1 Then Open File_clb$ For Output As #1
  Print #1, "ch0 (Left), Torque(Nm)-Volt(V)"
  For i = 0 To 12
    Print #1, Form5.txtTqData0(i).Text & "," & Form5.txtVoltData0(i).Text
  Next i
  Print #1, "ch1 (Right), Torque(Nm)-Volt(V)"
  For i = 0 To 12
    Print #1, Form5.txtTqData1(i).Text & "," & Form5.txtVoltData1(i).Text
  Next i
  Print #1, "Caribrated Results (Tq(Nm)=Ka1 x Volt(V) + Ka0)"
  Print #1, "ch0 Ka1," & Ka(0, 1)
  Print #1, "ch0 Ka0," & Ka(0, 0)
  Print #1, "ch1 Ka1," & Ka(1, 1)
  Print #1, "ch1 Ka0," & Ka(1, 0)
  Close #1
Next ii
'
End Sub