データ取得ツールの作成 その８

　今回は、制御に関わる箇所の作成です。

　データ取得を開始する時は、次の関数が呼び出されることになります。

/-----------------------------------------------------/

Sub START_sys( )

　　M_flag = 1
　　pv = 0
　　pos = 0
　　Sheets("制御").Cells(10, 3) = pos
　　Sheet1.CommandButton1.Enabled = False

End Sub

/-----------------------------------------------------/

　動作フラグ M_flag の値を "1" をセットし、各変数を初期化します。

　最後の行は、[START]ボタンを連続して押せないようにする記述です。


　続いて、終了時に呼び出される関数です。

/-----------------------------------------------------/

Sub STOP_sys( )

　　M_flag = 0
　　Call Save_tick
　　Sheet1.CommandButton1.Enabled = True

End Sub

/-----------------------------------------------------/

　動作フラグを "0" にセットし、[START]ボタンを再度押せるようにして終了します。

　これらの関数を、標準モジュールの下 Module1 に記述しておきます。