Sub Save_InitialFile()
'
'*********************************
' イニシャルファイル保存
'*********************************
'
Open "WchairMes.ini" For Output As #1
Print #1, "ディレクトリ(Manual)," & Form4.txtFileDir_Man.Text
Print #1, "ヘッダ(Manual)," & Form4.txtFileHead_Man.Text
Print #1, "ファイル名(Manual)," & Form4.txtFileOrg_Man.Text
Print #1, "ディレクトリ(Auto)," & Form4.txtFileDir.Text
Print #1, "ヘッダ(Auto)," & Form4.txtFileHead.Text
Print #1, "ファイル名(Auto)," & Form4.txtFileOrg.Text
Print #1, "測定間隔(msec)," & Form1.txtTimerInterval.Text
Print #1, "データ数," & Form1.txtSampTime.Text
Print #1, "測定時間(sec)," & Form1.txtTimerInterval.Text
Print #1, "計算開始位置(sec)," & Form7.txtStartPosCond.Text
Print #1, "計算終了位置(sec)," & Form7.txtEndPosCond.Text
Print #1, "判別条件(Nm)," & Form7.txtLimitCond.Text
Print #1, "ch0 Color (RGB)," & Str$(255) & "," & Str$(0) & "," & Str$(0)
Print #1, "ch1 Color (RGB)," & Str$(0) & "," & Str$(0) & "," & Str$(255)
Print #1, "Other Color (RGB)," & Str$(255) & "," & Str$(0) & "," & Str$(255)
Close #1
'
End Sub