compass MBE_switcher_10倍速{
	モード プログラム
	表示位置 右下
	記録フォーム表示 左下
	サイズ設定 600, 300
}

sub 初期設定{
	マクロ起動 "recipe.xls"
	RS232C.開始 $port
}

変数 $port = "COM4"		#RS232Cポート番号
変数 $waitWR = 10		#OFF-ONの待ち時間
変数 $waitA = 500		#繰り返しＡの待ち時間 (ミリ秒)
変数 $cntA				#繰り返しＡの回数
変数 $time				#時刻
変数 $result			#受信文字列
変数 $cmd

exe 初めから実行{
	recipe.初期化
	recipe.コマンド取得 ($cntA), "B5"
	記録 $cntA
	■繰り返し コマンド実行, 1, $cntA
	recipe.メール送信
}

exe 停止行から実行{
	recipe.コマンド取得 ($cntA), "B5"
	記録 $cntA
	■繰り返し コマンド実行, 1, $cntA
	recipe.メール送信
}

exe 停止行の次から実行
	recipe.次の行へ
	recipe.コマンド取得 ($cntA), "B5"
	記録 $cntA
	■繰り返し コマンド実行, 1, $cntA
	recipe.メール送信
}

exe 全てOFF{
	RS232C.送信 "@??0??!"
}

sub コマンド実行{

	recipe.コマンド取得 ($cmd), "B2"
	RS232C.送信 $cmd
	待機 $waitWR

	recipe.コマンド取得 ($cmd), "B3"
	RS232C.送信 $cmd
	時刻保存 ($time)

	recipe.コマンド取得 ($waitA), "B4"
	計算 $waitA = $waitA * 100
	待機 $waitA

	recipe.時刻記録 $time
}

sub 通信終了{
	RS232C.終了   
}

sub 停止時{
}