compass 単体制御-ADCMT8230{
	モード プログラム
	表示位置 右上
	記録フォーム表示 右下
	サイズ設定 550, 400
}

変数 $wavelength = 600		#設定波長
変数 $wavelength1 = 1100	#開始波長
変数 $step = 10				#波長間隔
変数 $cmd = ""				#送信コマンド

sub 初期設定{
	Excel起動 "panel.xls"
}

exe １回測定{
	panel.開始USB
	panel.受信USB ($result)
	panel.終了USB
	記録 $result
}

exe 繰り返し測定スタート{
	panel.開始USB
	■繰り返し 測定, 4000, 50
	panel.終了USB
}

sub 測定{
#	トリガ待機 9000
	panel.受信USB ($result)
	記録 $result
}

exe 波長を入力して１回測定{
	入力 ($wavelength)
	結合 ($cmd) = "WL" & $wavelength
	panel.開始USB
	panel.送信USB $cmd
	待機 3000
	panel.受信USB ($result)
	panel.終了USB
	記録 $result
}

exe 波長を変えながら繰り返し測定スタート{
	入力 ($wavelength1)
	入力 ($step)
	計算 $wavelength = $wavelength1
	結合 ($cmd) = "WL" & $wavelength

	panel.開始USB
	panel.送信USB $cmd
	待機 3000
	■繰り返し 測定して波長移動, 4000, 70
	panel.終了USB
}

sub 測定して波長移動{
#	トリガ待機 9000
	panel.受信USB ($result)
	記録 $result
	計算 $wavelength = $wavelength - $step
	結合 ($cmd) = "WL" & $wavelength
	panel.送信USB $cmd
	待機 3000
}

sub 停止時{
	panel.終了USB
}