今回、ＦＲＥＥのＶｉｓｕａｌＢａｓｉｃ２００８ Ｅｘｐｒｅｓｓを使って、観測プログラムをＧＵＩにしようとした。CCDSoftの開発元のＳｏｆｔｗａｒｅ Ｂｉｑｕｅ のＨＰには、ＶＢｓｃｒｉｐｔ などによるコントロールの方法が記述されたコードがあり、楽勝と踏んだが、難航した。
原因は、ＶＢｓｃｒｉｐｔ や以前のＶｉｓｕａｌＢａｓｉｃ とＶｉｓｕａｌＢａｓｉｃ２００８とでは、ＣＯＭコンポーネントへのアクセス方法が違うためである。それはそれで良いのだが、アクセスの方法、サンプルコードがどこにもない。どうやっても見つけることができなかった。手探りでいろいろと試して、なんとかできるようになった。以下その方法の覚書き。
① ＶｉｓｕａｌＢａｓｉｃ２００８へのＣＯＭコンポーネントの追加
プロジェクト → 参照の追加 を選択すると、参照可能なコンポーネントが表示される。
この中から、ＣＯＭコンポーネントのタグからＣＣＤＳｏｆｔ を指定する。
② オブジェクトの指定
ＶＢ２００８の文法的には、
Dim Cam As New CCDSoftLib.CCDSoftCamera
と書けば良いだけなのだが、これを見つけるのに苦労した。
参照するオブジェクト名のさがしかたの一般的な方法かどうかはわからないが、
Dim Cam As New
まで記述して、カーソルを置いてしばらくすると、図のように参照できる名前の候補が出るので、その中から、ＣＣＤＳｏｆｔＬｉｂ を指定する。
選択して、さらにカーソルを置くと、CCDSoftLib の中で参照できるオブジェクトが出るので、カメラコントロールのメソッド、プロパティの入った、CCDSoftCamera を選択する。
これにより、前述のオブジェクトの定義ができあがる。
③ ＶＢ２００８からの呼び出し
・メソッドの呼び出し
メソッドはＣＣＤＳｏｆｔ の「Ｔａｋｅ Ｉｍａｇｅ」などのコマンドボタンを押したものに相当する。TakeImage の実行は、
Dim Cam As New CCDSoftLib.CCDSoftCamera
Cam.TakeImage()
となる。
・プロパティの呼び出し
値を読んだり、設定したりする操作である。温度の呼び出しは
Dim Cam As New CCDSoftLib.CCDSoftCamera
T=Cam.Temperature
書き込みは、
Cam.Temperature=-10
となる。
当然のことながら、CCDSoft の COM コンポーネントとのやりとりの変数の形式、数値なのかテキストなのか、を合わせておく必要がある。
このあたりの、パラメータなどは、ＣＣＤＳｏｆｔ のHELP ファイルにくわしく表記されている。
この中から、ＣＯＭコンポーネントのタグからＣＣＤＳｏｆｔ を指定する。
② オブジェクトの指定
ＶＢ２００８の文法的には、
Dim Cam As New CCDSoftLib.CCDSoftCamera
と書けば良いだけなのだが、これを見つけるのに苦労した。
参照するオブジェクト名のさがしかたの一般的な方法かどうかはわからないが、
Dim Cam As New
まで記述して、カーソルを置いてしばらくすると、図のように参照できる名前の候補が出るので、その中から、ＣＣＤＳｏｆｔＬｉｂ を指定する。
選択して、さらにカーソルを置くと、CCDSoftLib の中で参照できるオブジェクトが出るので、カメラコントロールのメソッド、プロパティの入った、CCDSoftCamera を選択する。
これにより、前述のオブジェクトの定義ができあがる。
③ ＶＢ２００８からの呼び出し
・メソッドの呼び出し
メソッドはＣＣＤＳｏｆｔ の「Ｔａｋｅ Ｉｍａｇｅ」などのコマンドボタンを押したものに相当する。TakeImage の実行は、
Dim Cam As New CCDSoftLib.CCDSoftCamera
Cam.TakeImage()
となる。
・プロパティの呼び出し
値を読んだり、設定したりする操作である。温度の呼び出しは
Dim Cam As New CCDSoftLib.CCDSoftCamera
T=Cam.Temperature
書き込みは、
Cam.Temperature=-10
となる。
当然のことながら、CCDSoft の COM コンポーネントとのやりとりの変数の形式、数値なのかテキストなのか、を合わせておく必要がある。
このあたりの、パラメータなどは、ＣＣＤＳｏｆｔ のHELP ファイルにくわしく表記されている。
