compass 単体制御-OMEC-2BG{ モード プログラム 表示位置 左下 記録フォーム表示 右下 サイズ設定 550, 600 } 変数 $address = 7 #GPIBアドレス 変数 $delta = 10 #移動量 変数 $position = "" #現在位置 変数 $cmd = "" #送信文字列 変数 $wait = 100 #送信-受信の待ち時間 変数 $result #受信文字列 sub 初期設定{ GPIB.開始 $address } exe 現在位置を原点とする{ GPIB.送信 $address, "R3" } exe 高速に設定{ GPIB.送信 $address, "D:31" } exe exe 移動量の入力{ 入力 ($delta) } exe 移動量100{ 計算 $delta = 100 記録 "step 100" } exe 移動量10{ 計算 $delta = 10 記録 "step 10" } exe 移動量1{ 計算 $delta = 1 記録 "step 1" } exe exe x軸+移動{ 結合 ($cmd) = "M1:+" & $delta & "(CRLF)" GPIB.送信 $address, $cmd } exe x軸−移動{ 結合 ($cmd) = "M1:-" & $delta & "(CRLF)" GPIB.送信 $address, $cmd } exe y軸+移動{ 結合 ($cmd) = "M2:+" & $delta & "(CRLF)" GPIB.送信 $address, $cmd } exe y軸−移動{ 結合 ($cmd) = "M2:-" & $delta & "(CRLF)" GPIB.送信 $address, $cmd } exe exe 現在値の取得{ GPIB.送信 $address, "Q3(CRLF)" GPIB.受信 ($position), $address 記録 $position }