ADボードの動作検証(その2)

メーカーからはサポート外で、かつ、恐らく使用可能と思われるけど「不明」です・・と突き放されましたが、

ACX-PACのアナログコントロール、AcquireDataEXは以下のコードにしたら動きました。

格納変数をObjectにし、かつ=Nothing としないと書かないとデータが取れません。

Dim Ret As Short
Dim Buffer(32) As Object       ‘Object型

Ret = AxAcxAio2.ChannelString = “0”

Buffer = Nothing                                         ‘これ必須(理由は不明・・)

Ret = AxAcxAio2.AcquireDataEx(Buffer)