＃＃＃＃プログラム概要＃＃＃＃＃
＃このサンプルプログラムは、登録されている座標へ順次にステージ移動を行いビデオキャプチャに
＃より画像を追加登録します。
＃自動処理実行中に、コマンド処理で失敗すると内部から自動処理を停止するようになっております。
＃このプログラムは、顕微鏡に依存しない内部コマンドのみを使用しております。
＃このプログラムは、別途「ＳＬ−ビデオキャプチャ」が必要です。
＃図形一覧ウィンドウを表示したまま実行すると図形ファイルの読み込みと表示処理で時間がかかります。
＃実行時は、図形一覧ウィンドウを閉じて行ってください。
＃スクリプトウィンドウをアクティブ(入力受け付け状態)にすると非アクティブに比べ処理速度が格段
＃に上がります。自動処理実行中は、スクリプトウィンドウをアクティブにしておいてください。

ＶＥＲＳＩＯＮ ３    ＃要求するスクリプトバージョン

＃＃＃＃＃大域変数定義＃＃＃＃＃

ＶＡＲＩＡＢＬＥ ＳＬ仮身：Ｓ  ＃ステージリンク仮身セグメントへの参照
ＶＡＲＩＡＢＬＥ ＳＬ返答：Ｃ［５１２］  ＃受信メッセージを格納するエリア

＃＃＃＃＃サブルーチン＃＃＃＃＃
＃ステージリンクに要求メッセージを送信して応答メッセージを受信するサブルーチンです。
＃これから作成されるスクリプトプログラムで共通のサブルーチンとしてご利用いただけます。
＃ステージリンクは、タイプ０のメッセージを送受信しますのでＭＳＥＮＤおよびＭＲＥＣＶには、
＃タイプ０のパラメータを与えています。また、本プロセスが受信するメッセージもタイプ０に限定
＃しています。
＃ステージリンクからの応答待ち時間を最大３分にしています。
＃ただし、この値は、ご使用になるステージ装置や顕微鏡装置によって異なります。適切な値を決めるには、
＃ステージの移動から停止までにかかる時間や顕微鏡装置の動作開始から完了までにかかる時間の２倍以上の
＃時間を与えてください。

ＦＵＮＣ ＳＬコマンド（ＳＬ要求メッセージ，ＳＬ応答メッセージ）

 ＬＯＣＡＬ ＰＩＤ ＃受信したメッセージの送り元のプロセスＩＤ
 ＬＯＣＡＬ ＴＹＰＥ ＃受信したメッセージのタイプ
 ＬＯＣＡＬ ＳＩＺＥ ＃受信したメッセージの長さ

 ＭＳＥＮＤ ＳＬ仮身.ＰＩＤ，０，ｓｌｅｎ（ＳＬ要求メッセージ）＊２，ＳＬ要求メッセージ
 ＭＲＥＣＶ ０ｘ０１，ＰＩＤ，ＴＹＰＥ，ＳＩＺＥ，ＳＬ応答メッセージ：１８０
ＥＮＤ

＃＃＃＃＃前処理＃＃＃＃＃
＃このルーチンは、スクリプトを起動したとき初めて呼ばれます。
＃このサンプルプログラムでは、画面サイズを背景セグメントのサイズにして各項目を表示しています。
＃つぎに、ステージリンクを起動させてユーザーからの操作待ちになります。

ＰＲＯＬＯＧＵＥ

 ＳＥＴ ＳＬ仮身＝サンプル台紙 ＃ステージリンクの仮身セグメントです。
 ＳＥＴ ＄ＭＭＡＳＫ＝０ｘ０１ ＃本プロセスが受信するメッセージをタイプ０に限定

 ＷＳＩＺＥ ＠背景．Ｗ，＠背景．Ｈ

 ＃画面項目の表示
 ＡＰＰＥＡＲ ＠背景
 ＡＰＰＥＡＲ ＠自動処理の開始
 ＡＰＰＥＡＲ ＠経過時間
 ＡＰＰＥＡＲ ＠ステータス
 ＡＰＰＥＡＲ ＠ＳＬ要求

 ＶＯＰＥＮ ”ＳＬ−ビデオキャプチャ”

 ＥＸＥＣＵＴＥ ステージリンク起動処理
ＥＮＤ

＃＃＃＃＃後処理＃＃＃＃＃
＃このルーチンは、終了操作を行ったときに呼ばれます。
＃このサンプルプログラムでは、ステージリンクの強制終了と画面の位置を保存して次回起動時に再現するようにして
＃います。
＃注意：このルーチンが呼び出されると自動処理の２つのスレッドが強制終了させられます。
＃   自動処理中は、先に自動処理を停止させてから終了操作を行ってください。

ＥＰＩＬＯＧＵＥ

 ＶＣＬＯＳＥ ＳＬ仮身

 ＷＳＡＶＥ
ＥＮＤ

＃＃＃＃＃ステージリンク起動処理＃＃＃＃＃
＃ステージリンクの起動と疎通を確認する内部コマンドを発行して正常起動を確認しています。

ＡＣＴＩＯＮ ステージリンク起動処理

 ＶＯＰＥＮ ＳＬ仮身

 ＣＡＬＬ ＳＬコマンド（”疎通の確認”，ＳＬ返答）
 ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ＝＝ ０）
  ＴＥＸＴ ＠ステータス，”正常に起動されました。￥０”
 ＥＬＳＥ
  ＴＥＸＴ ＠ステータス，”起動されませんでした。￥０”
  ＢＥＥＰ
 ＥＮＤＩＦ
ＥＮＤ  

＃＃＃＃＃自動処理の開始＃＃＃＃＃
＃画面項目の「自動処理の開始」がクリックされた時に呼ばれるルーチンです。
＃このサンプルプログラムでは、通信の接続と「自動処理」スレッドを並列起動しています。

ＡＣＴＩＯＮ 自動処理の開始 ＣＬＩＣＫ ＠自動処理の開始

 ＩＦ ＠自動処理の開始．Ｓ
  ＣＡＬＬ ＳＬコマンド（”通信の接続”，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ＝＝ ０）
   ＤＩＳＡＰＰＥＡＲ ＠自動処理の開始
   ＡＰＰＥＡＲ ＠自動処理の停止

   ＥＸＥＣＵＴＥ 自動処理
  ＥＬＳＥ
   ＴＥＸＴ ＠ステータス，”通信の接続に失敗しました￥０”
   ＢＥＥＰ
  ＥＮＤＩＦ
 ＥＮＤＩＦ
ＥＮＤ

＃＃＃＃＃自動処理の停止＃＃＃＃＃
＃画面項目の「自動処理の停止」がクリックされた時に呼ばれるルーチンです。
＃このサンプルプログラムでは、並列動作している「自動処理」スレッドを停止させて通信の切断を実行しています。

ＡＣＴＩＯＮ 自動処理の停止 ＣＬＩＣＫ ＠自動処理の停止

 ＩＦ ＠自動処理の停止．Ｓ

  ＩＦ ＠自動処理中．Ｓ
   ＤＩＳＡＰＰＥＡＲ ＠自動処理中
   ＷＡＩＴ （自動処理．Ｓ＝＝０）
  ＥＮＤＩＦ

  ＣＡＬＬ ＳＬコマンド（”通信の切断”，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ＝＝ ０）
   ＴＥＸＴ ＠ステータス，”正常に切断しました。￥０”
   ＤＩＳＡＰＰＥＡＲ ＠自動処理の停止
   ＡＰＰＥＡＲ ＠自動処理の開始
  ＥＬＳＥ
   ＴＥＸＴ ＠ステータス，”通信の切断に失敗しました￥０”
   ＢＥＥＰ
  ＥＮＤＩＦ
 ＥＮＤＩＦ
ＥＮＤ

＃＃＃＃＃自動処理中の表示スレッド＃＃＃＃＃
＃このスレッドは、「自動処理」スレッドの中から並列起動されます。
＃「自動処理」スレッドが実行されている間、経過時間と右から左へ動く”処理中”メッセージを１秒間隔で表示更新
＃しています。「自動処理」スレッドが停止すると表示更新を中止して本スレッドも停止するようになっています。

ＡＣＴＩＯＮ 自動処理中の表示

 ＬＯＣＡＬ メッセージ：Ｃ［２８］
 ＬＯＣＡＬ ＣＮＴ
 ＬＯＣＡＬ ＳＴ

               ＃０−−−−＋−−−−１−−−−＋−−−−２−−−−＋−−２７
 ＳＥＴ メッセージ［：］ ＝ ”                  ・・・処理中・・・￥０”
 ＳＥＴ ＣＮＴ ＝ ０
 ＳＥＴ ＳＴ＝＄ＳＹＳＴＭ

 ＷＨＩＬＥ （自動処理．Ｓ ＞ ０）

  ＴＥＸＴ ＠経過時間，”経過時間％４ｄ分￥０”，（＄ＳＹＳＴＭ−ＳＴ）／６０

  ＴＥＸＴ ＠ステータス，”％ｓ￥０”，メッセージ［ＣＮＴ：１８］
  ＳＥＴ ＣＮＴ ＝ ＣＮＴ ＋ １
  ＩＦ ＣＮＴ ＞＝ ｓｌｅｎ（メッセージ）
   ＳＥＴ ＣＮＴ ＝ ０
  ＥＮＤＩＦ

  ＷＡＩＴ （自動処理．Ｓ ＝＝ ０）：１

 ＥＮＤＷＨＩＬＥ

ＥＮＤ

＃＃＃＃＃自動処理スレッド＃＃＃＃＃
＃このルーチンの中に自動処理スクリプトを記述できます。
＃このサンプルプログラムでは、登録されている座標へ順次にステージ移動を行いビデオキャプチャにより画像を追加登録します。
＃コマンドの処理で失敗すると内部から自動処理を停止するようになっております。
＃また、本スレッドのの開始と同時に「自動処理中の表示」スレッドが並列動作しており経過時間と動くメッセージが表示
＃され続けます。本スレッドが終了すると「自動処理中の表示」スレッドも終了するようになっています。

ＡＣＴＩＯＮ 自動処理

 ＬＯＣＡＬ 座標数
 ＬＯＣＡＬ 座標番号
 ＬＯＣＡＬ 処理結果：Ｃ［３２］
 ＬＯＣＡＬ ｗＸｐｏｓ
 ＬＯＣＡＬ ｗＹｐｏｓ

 ＡＰＰＥＡＲ ＠自動処理中
 ＥＸＥＣＵＴＥ 自動処理中の表示

 ＣＡＬＬ ＳＬコマンド（”座標数の取得”，ＳＬ返答）
 ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
  ＤＩＳＡＰＰＥＡＲ ＠自動処理中
  ＣＡＬＬ 自動処理の停止
  ＴＥＸＴ ＠ステータス，”座標数の取得で失敗しました。”
  ＥＸＩＴ
 ＥＮＤＩＦ

 ＳＥＴ 座標数  ＝ ｓｔｒｎｕｍ（ＳＬ返答，３，’ｄ’）
 ＳＥＴ 座標番号 ＝ ０
 ＳＥＴ 処理結果［：］ ＝ ”正常に終了しました。”

 ＷＨＩＬＥ （＠自動処理中．Ｓ ＆＆ 座標番号＜座標数）

  ＴＥＸＴ ＠ＳＬ要求，”登録位置の取得 ％ｄ”，座標番号
  ＣＡＬＬ ＳＬコマンド（＠ＳＬ要求．ＴＸ，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
   ＳＥＴ 処理結果［：］ ＝ ”登録位置の取得で失敗しました。”
   ＢＲＥＡＫ
  ＥＮＤＩＦ

  ｗＸｐｏｓ ＝ ｓｔｒｎｕｍ（ＳＬ返答，３，’ｆ’，ｗＹｐｏｓ）
  ｗＹｐｏｓ ＝ ｓｔｒｎｕｍ（ＳＬ返答，ｗＹｐｏｓ＋１，’ｆ’）
  ＴＥＸＴ ＠ＳＬ要求，”指定位置の移動 ％．３ｆ，％．３ｆ”， ｗＸｐｏｓ， ｗＹｐｏｓ
  ＣＡＬＬ ＳＬコマンド（＠ＳＬ要求．ＴＸ，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
   ＳＥＴ 処理結果［：］ ＝ ”指定位置の移動で失敗しました。”
   ＢＲＥＡＫ
  ＥＮＤＩＦ

  ＴＥＸＴ ＠ＳＬ要求，”指定位置へステージ移動”
  ＃または＃ＴＥＸＴ ＠ＳＬ要求，”登録位置へステージ移動 ％ｄ”，座標番号
  ＣＡＬＬ ＳＬコマンド（＠ＳＬ要求．ＴＸ，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
   ＳＥＴ 処理結果［：］ ＝ ”ステージ移動で失敗しました。”
   ＢＲＥＡＫ
  ＥＮＤＩＦ

  ＴＥＸＴ ＠ＳＬ要求，”座標の選択 ％ｄ”，座標番号
  ＣＡＬＬ ＳＬコマンド（＠ＳＬ要求．ＴＸ，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
   ＳＥＴ 処理結果［：］ ＝ ”座標の選択で失敗しました。”
   ＢＲＥＡＫ
  ＥＮＤＩＦ

  ＴＥＸＴ ＠ＳＬ要求，”図形の登録”
  ＣＡＬＬ ＳＬコマンド（＠ＳＬ要求．ＴＸ，ＳＬ返答）
  ＩＦ （ｓｃｍｐ（ＳＬ返答，０，”成功￥０”，０，２） ！＝ ０）
   ＳＥＴ 処理結果［：］ ＝ ”図形の登録で失敗しました。”
   ＢＲＥＡＫ
  ＥＮＤＩＦ

  ＩＦ （＠自動処理中．Ｓ）
  
   ＳＥＴ 座標番号 ＝ 座標番号 ＋ １

   ＃以下のコメント（＃）を外すと無限に繰り返します。（テスト用）
   ＃ＩＦ 座標番号 ＞＝ 座標数
   ＃ ＳＥＴ 座標番号 ＝ ０
   ＃ＥＮＤＩＦ
  ＥＮＤＩＦ

 ＥＮＤＷＨＩＬＥ

 ＤＩＳＡＰＰＥＡＲ ＠自動処理中
 ＣＡＬＬ 自動処理の停止
 ＴＥＸＴ ＠ステータス，処理結果


ＥＮＤ