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

変数 $port = "COM9"	  	#RS232Cポート番号
変数 $wavelength = 600  #設定波長
変数 $wavelength1 = 800 #開始波長
変数 $step = 10		  	#波長間隔
変数 $cmd = ""			#送信コマンド
変数 $trg = "$SP(CRLF)"	#トリガ文字列

exe １回測定{
	RS232C.開始 $port
	RS232C.送信 $trg
	待機 100
	RS232C.受信 ($result)
	RS232C.終了
	置換 ($result), "*", " "
	記録 $result
}

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

sub 測定{
	RS232C.送信 $trg
	待機 100
	RS232C.受信 ($result)
	置換 ($result), "*", " "
	記録 $result
}

exe 波長を入力して１回測定{
	入力 ($wavelength)
	結合 ($cmd) = "$WL" & $wavelength & "(CRLF)"
	RS232C.開始 $port
	RS232C.送信 $cmd
	待機 3000
	RS232C.送信 $trg
	待機 100
	RS232C.受信 ($result)
	RS232C.終了
	置換 ($result), "*", " "
	記録 $result
}

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

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

sub 測定して波長移動{
	RS232C.送信 $trg
	待機 100
	RS232C.受信 ($result)
	置換 ($result), "*", " "
	記録 $result
	計算 $wavelength = $wavelength - $step
	結合 ($cmd) = "$WL" & $wavelength & "(CRLF)"
	RS232C.送信 $cmd
	待機 3000
}

sub 停止時{
	RS232C.終了
}