VB.NETにおけるRS-232Cバイナリ通信受信でNULが消える現象

Question

前提・実現したいこと

VisualBasic.NET(2008)でRS-232Cのバイナリ通信をしています。
プロトコルはMODBUS RTUモード通信です。ある程度動作はしているのですが、よくわからない現象が発生して
しまったので、質問させてください。

発生している問題・エラーメッセージ

相手機器から送られたデータ内に0(NUL)があった場合、0データのみ除去した状態の受信バッファなって
しまいます。
例をあげると相手機器にバイナリで
<01>, <04>, <00>, <02>, <00>, <01>, <90>, <0A>　を送信すると
相手機器は、<01>, <04>, <02>, <00>, <00>, <B9>, <30>を送信しています。
（この受信の内容はシンクロで確認済み　下記に画像があります）
しかしプログラム上で受信データを確認すると
<01>, <04>, <02>, <B9>, <30>となっていて、0データが2バイトなくなっています。
いろいろなケースで試しましたが、0データだけが消えているのは間違いないようです。

シンクロで取った画像を添付します。

バイナリ通信の場合、何か0データに関する設定とかがあるのでしょうか？
ご教示頂ければと思います。

下記ソースコードは実際に動かしているプログラムの、関係していると思われる箇所の抜粋です。

該当のソースコード

    Dim RcvCnt;
    Dim bRcvBft(2000);

    '================================================================================
    '==                                                                            ==
    '==   通信イベントプロシージャ                                                 ==
    '==                                                                            ==
    '================================================================================
    Private Sub SerialPort1_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived

        Dim Cnt As Integer
        Dim i As Integer

        '---- バイナリーモード
        Cnt = SerialPort1.BytesToRead
        For i = RcvCnt To RcvCnt + Cnt - 1
            bRcvBft(i) = SerialPort1.ReadByte
        Next
        RcvCnt = i
        
    End Sub

    '================================================================================
    '==                                                                            ==
    '==   通信インターバル処理  （１ｍｓ）                                         ==
    '==                                                                            ==
    '================================================================================
    Private Sub tmrComm_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrComm.Tick

        Dim Pos As Integer
        Dim RcvDt As String

        '---- バイナリーモード
        If RcvCnt = 0 Then TimerCount(9) = 2
        If TimerCount(9) > 0 Then Exit Sub

        ' 2msの間データ受信がない

        bRcvBuf = bRcvBft
        RcvCount = RcvCnt
        RcvCnt = 0

        Call NetLogBin("Rcv: ", bRcvBuf, RcvCount) '--- 通信ログ処理

        RcvDt = Bin2Hex(bRcvBuf, RcvCount) '---バイナリをHEXデータに変換
        Call DataSet(1, RcvDt) '--- データ表示

        ChkRcvDt = RcvBuf

    End Sub

試したこと

下記URLのフリーソフトでも試してみましたが、私の結果と同じでした。

http://nonsoft.la.coocan.jp/Download/Rs232cTool/index.html

結果の画像はこちらです。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[YAmaGNZ]

受信したバイト数はNULを含んだバイト数なのですか？
また、プログラム側での確認はどのようにされているのですか？

[Ryuji_0322]

受信バイト数はNULを含んでいないバイト数です。
プログラムでの確認はBytesToReadの内容です。

Answer 1

SerialPort.DiscardNullプロパティはどうなっていますか？
規定値はfalseなので、触っていないならNULLは受信するはずです。

Comments

[Ryuji_0322]

DiscardNullはTrueにしていました。
以前に製作したプログラムを流用したので、どんな経緯でTrueにしたのか覚えていませんが、これをFalseにすれば解決しそうです。
明日確認してご報告致します。ありがとうございました。

[Ryuji_0322]

ご指摘の通り、DiscardNullをFalseに設定したところ、正常に動作しました。
ありがとうございました。