RS232Cでバイナリ制御の測定器を操作しょうとしています。VB6のMSCommで下記のような2バイトを送出したときx'9F'がx'00'として受信されます。 x'A0'は正しくx'A0'と受信されるのです。 他にx'81' 〜x'9E' 等もx'00'として受信されているようなのですが、どなたか原因あるいは解決方法をご存知ありませんか?
SendBF = Chr("&H" & "A0") & Chr("&H" & "9F")
mscPort.Output = SendBF
Chr関数だとString型を返してしまって厄介なことになりそう。
Dim SendBF() As Byte
ReDim SendBF(2)
SendBF(0) = ChrB("&H" & "A0")
SendBF(1) = ChrB("&H" & "9F")
mscPort.Output = SendBF
とか(未確認)。
訂正
SendBF(0) = &HA0
SendBF(1) = &H9F
ありがとうございました。 お蔭様で解決いたしました。
ツイート | ![]() |