compass 単体制御-ADCMT8240{ モード プログラム 表示位置 中央 記録フォーム表示 右下 サイズ設定 550, 300 } 変数 $address = 1 #GPIBアドレス 変数 $cmd = "" #送信文字列 変数 $wait = 100 #送信-受信の待ち時間 変数 $result = "" #受信文字列 exe 1回測定{ GPIB.開始 $address GPIB.送信 $address, "*TRG(CRLF)" 待機 $wait GPIB.受信 ($result), $address GPIB.終了 $address 置換 ($result), "(CRLF)", " " 置換 ($result), "DI", " " 記録 $result } exe 繰り返し測定スタート{ GPIB.開始 $address ■繰り返し 測定, 500, 50 GPIB.終了 $address } sub 測定{ # トリガ待機 9000 GPIB.送信 $address, "*TRG(CRLF)" 待機 100 GPIB.受信 ($result), $address 置換 ($result), "(CRLF)", " " 置換 ($result), "DI", " " 記録 $result }