VISAからのGPIB機器への"BYTE"形式ﾃﾞｰﾀ送信

8 名前： マニク◆Jy2pR/5Y 投稿日：2005/04/27(水) 08:58 ID:???

>>7
BYTE配列を任意をバイト数送信するって事で良いんでしょうか。

基本的にはviWriteを使う。但しデフォルトの宣言は
パラメータがByVal As Stringになっていて文字列送信には
向いてるが配列の参照渡しには向いてない。
そこで、パラメータの型をひねった宣言、

Declare Function viWriteAny Lib "VISA32.DLL" Alias "#257" (ByVal vi As Long, ByRef Buffer As Any, ByVal count As Long, retCount As Long) As Long

を追加する。(viWriteAnyなんて関数はVISAには無い！)

あとは、

Dim x(0 To 3) As Byte
x(0) = &HAA
x(1) = &HBB
x(2) = &HCC
x(3) = &HA '最後のENTってASCII 0x0Aの事？
　　
Dim retCount As Long
vs = viWriteAny(vi, x(0), 4, retCount)

みたいにすればいい。