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

変数 $address = 1	#GPIBアドレス
変数 $delta = 0.001	#移動量
変数 $position = ""	#現在位置
変数 $cmd = ""		#送信文字列
変数 $wait = 100	#送信-受信の待ち時間
変数 $result		#受信文字列

exe モーターOFF{
	GPIB.開始 $address
	GPIB.送信 $address, "1MF"
	GPIB.送信 $address, "2MF"
	GPIB.送信 $address, "3MF"
	GPIB.終了 $address
}

exe

exe モーターON{
	GPIB.開始 $address
	GPIB.送信 $address, "1MO(CRLF)"
	GPIB.送信 $address, "2MO(CRLF)"
	GPIB.送信 $address, "3MO(CRLF)"
	GPIB.終了 $address
}

exe 現在位置を原点とする{
	GPIB.開始 $address
	GPIB.送信 $address, "1DH"
	GPIB.送信 $address, "2DH"
	GPIB.送信 $address, "3DH"
	GPIB.終了 $address
}

exe 移動量の入力{
	入力 ($delta)
}

exe

exe x軸＋移動{
	結合 ($cmd) = "1PR" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe x軸−移動{
	結合 ($cmd) = "1PR-" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe y軸＋移動{
	結合 ($cmd) = "2PR" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe y軸−移動{
	結合 ($cmd) = "2PR-" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe z軸＋移動{
	結合 ($cmd) = "3PR" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe z軸−移動{
	結合 ($cmd) = "3PR-" & $delta
	GPIB.開始 $address
	GPIB.送信 $address, $cmd
	GPIB.終了 $address
}

exe

exe 現在値の取得{
	GPIB.開始 $address
	GPIB.送信 $address, "1TP?"
	GPIB.受信 ($position), $address
	記録 "x  " & $position
	GPIB.送信 $address, "2TP?"
	GPIB.受信 ($position), $address
	記録 "y  " & $position
	GPIB.送信 $address, "3TP?"
	GPIB.受信 ($position), $address
	記録 "z  " & $position
	GPIB.終了 $address
}