C# と VB.NET の質問掲示板

■No58581 (AW さん) に返信
> Function RDI_LDT(Unit_ID%, buf() As Integer)   ' １６ビットデータ読み込み
戻り値の「As」がありませんが、VarType 宣言されているのでしょうか?
せめて As Variant でも構いませんので、関数にしても定数にしても変数にしても、
型宣言は省略しない方が望ましいかと。

今回は OK / NG を返しているようなので、戻り値の型は列挙型、
もしくはそれらの定数に相当するプリミティブ型(Integerなど)を付与しましょう。


> Global IF_buff() As Integer
Global は、VB2 時代の構文です。VB6 では Public を利用してください。
(VB2 の頃は逆に、Public というキーワードは使えませんでしたが)


> ReDim IF_buff(0 To IL_cnt)　＜−「IL_cnt」デバッグ時は80を確認
つまり 162バイト分のバッファーになりますが、その長さは妥当なのですね?


> Function RDI_LDT(Unit_ID%, buf() As Integer) ' １６ビットデータ読み込み
>     Dim cnt&
>     cnt& = CDbl((UBound(buf) - LBound(buf))) * 2
この cnt がバッファ長を示しているのだとしたら、算出式は
　cnt = (UBound(buf) - LBound(buf) + 1) * 2
になるのでは無いでしょうか。

たとえば、buf 配列の要素が 0 To 2 の場合、識別子のエリアを除けば
6 バイト分のバッファとなるはずですが、上記の式に照らし合わせて計算すると、
AWさんのコードでは「4」、私のコードでは「6」として算出されます。


No58589
>> ですがCdblはDoubleに変換してしまうので、誤差が生じる可能性があります。
UBound や LBound は Long 型を返しますので、CDbl が不要という点は同意しますが、
それによって誤差を生じることは無いはずです。結果に小数部が含まれるわけでも
ありませんし、その値も常に長整数型の有効範囲範囲内で計算されるわけですから。


> Sub ibrd(ByVal ud As Integer, buf As String)
>     Dim cnt As Long
>(略)
>     cnt = CLng(Len(buf))
>     ' Call the 32-bit DLL.
>     Call ibrd32(ud, ByVal buf, cnt)
CLng が無意味という点はさておき(Len関数は Long を返す)、
上記の処理が危なっかしいように見えます。


まず、buf にはどのような値が入ってくるのでしょうか?
また、上記の cnt は、何を表わす値として組まれていますか?

というのも、この部分で buf に格納される値が
　(1) 常に ASCII 文字列が格納されている
　(2) 漢字やひらがななどの日本語を含む文字列が格納されている
　(3) GPIB の通信内容を表すバイナリが格納されている
のいずれであるのかによって、結果は大きく変わってくるからです。

たとえば、buf に格納されている内容が
　buf = "漢字TEST"
である場合、Len(buf) という式が返す値は 6 となります。
この場合の Len は、『文字数』を表すからです。

# ちなみに LenB(buf) なら、VB2 の場合は 8、VB6 では 12 を返します。


buf の内容が上記 (1) であることを保証できるなら、現状のコードは
このままで構わないと思います。


一方、それが (2) の場合は、Sub ibrd の処理を
　cnt = LenB(StrConv(buf, vbFromUnicode, 1041))
　Call ibrd32(ud, ByVal buf, cnt)
にした方が良いと思われます。今のコードのままだと、9x 系 OS と NT 系 OS では
微妙に異なる結果を返しますし、どちらの場合であってもデータ破損がありえます。


そして (3) の状態、すなわち buf が文字列データになっておらず、
数値(≠数字)や制御記号などの生のバイナリデータを保持している場合には、
　Dim bin() As Byte
　bin = buf
　If LBound(bin) <= UBound(bin) Then
　　Call ibrd32(ud, bin(LBound(bin)), LenB(buf))
　End If
という感じになります。buf が Unicode バイナリな文字列の場合もこの方法です。


いずれにせよ、DLL の仕様も実環境も手元にないため、すべて憶測になってしまいますけれども。