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

変数 $address = 9		#GPIBアドレス
変数 $head1 = "WST,"	#ヘッダ文字列1
変数 $head2 = "SCN,2,"	#ヘッダ文字列2
変数 $wavelength = 400	#設定波長
変数 $wavelength1 = 600	#スタート波長
変数 $temp = ""			#波長送信値
変数 $cmd = ""		 	#送信文字列
変数 $wait = 100		#送信-受信の待ち時間
変数 $result			#受信文字列

exe 波長を入力して移動する{
	入力 ($wavelength)
	計算 $temp = $wavelength * 0.5
	結合 ($cmd) = $head2 & $temp & "(CRLF)"
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe 一定間隔で波長を移動する{
	入力 ($wavelength1)
	計算 $wavelength = $wavelength1
	計算 $temp = $wavelength * 0.5
	結合 ($cmd) = $head2 & $temp & "(CRLF)"
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address

	待機 5000

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

sub 波長の変更{
#	トリガ待機 9000
	計算 $wavelength = $wavelength + 5
	計算 $temp = $wavelength * 0.5
	結合 ($cmd) = $head2 & $temp & "(CRLF)"
	GPIB.送信 $address, $cmd
}

exe

exe 現在の波長を入力してロックする{
	入力 ($wavelength)
	結合 ($cmd) = $head1 & $wavelength & "(CRLF)"
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}