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

変数 $address = 11	 	#GPIBアドレス
変数 $position = 1200	#設定位置
変数 $position1 = 800	#スタート位置
変数 $temp = ""		 	#波長送信値
変数 $cmd = ""		 	#送信文字列
変数 $wait = 100	 	#送信-受信の待ち時間
変数 $result		 	#受信文字列

exe 原点に移動する{
	GPIB.開始 $address
	GPIB.送信 $address, "H:W(CRLF)"
	GPIB.終了 $address
}

exe 位置を入力して移動する{
	入力 ($position)
	計算 $temp = $position * 100
	結合 ($cmd) = "A:W+P" & $temp & "+P" & $temp & "(CRLF)"
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.送信 $address, "G:"
	GPIB.終了 $address
}

exe 一定間隔で位置を移動する{
	入力 ($position1)
	計算 $position = $position1
	計算 $temp = $position * 100
	結合 ($cmd) = "A:W+P" & $temp & "+P" & $temp & "(CRLF)"
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.送信 $address, "G:"
	GPIB.終了 $address

	待機 5000

	GPIB.開始 $address
	■繰り返し 位置の変更, 4000, 20
	GPIB.終了 $address
}

sub 位置の変更{
#	トリガ待機 9000
	計算 $position = $position + 20
	計算 $temp = $position * 100
	結合 ($cmd) = "A:W+P" & $temp & "+P" & $temp & "(CRLF)"
	GPIB.送信 $address, $cmd
	GPIB.送信 $address, "G:"
}

exe

exe 速度設定{
	GPIB.開始 $address
	GPIB.送信 $address, "D:1S2000F10000R1000"
	GPIB.送信 $address, "D:2S2000F10000R1000"
	GPIB.終了 $address
}