VB.netのserialport通信での判定について

Question

###したいこと#######################################################
VB.netのserialport(com)通信を使って、マイコンと通信し、マイコンからの受信データをIF文を使って、判定したいと思っています。

###発生している問題##################################################
受信データが最初の一文字目とその後の文字が途切れ途切れで受信しているため、if文でうまく判定できません。不一致ばかり(elseのみ) ちなみに一文字であれば、判定できます(then)。

###教えてほしいこと##################################################
途切れ途切れに受信しているデータを１０文字程度一つの変数に格納できて、If文で判定できるソースコードを教えてください。
また、serialport1.ReadLine()の受信方法もあるようですが、簡単であれば、そちらの
ソースコードも教えて頂ければと思います。(初心者のため、受信部分を全文お願いします）
以上、よろしくお願いします。

###該当のソースコード#################################################

'****** 受信********************************************
Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
'シリアルポートをオープンしていない場合、処理を行わない.
If SerialPort1.IsOpen = False Then
Return
End If
'エラー処理
Try
SetText(SerialPort1.ReadExisting())
Catch ex As Exception
btnClose_Click(Me, e)
End Try
End Sub

Private Sub SetText(ByVal [text] As String)
    If txtDataReceived.InvokeRequired Then
        Dim d As New SetTextCallback(AddressOf SetText)
        Invoke(d, New Object() {[text]})

'追加した判定文 受信データにより、TextBox1の背景色を変える！
'一文字の判定では、問題ないが、二文字以上になると一致しない
If text = "abcdefghjj" Then
TextBox1.BackColor = Color.Blue
Else
TextBox1.BackColor = Color.Red
End If

    Else
        txtDataReceived.AppendText(text)

    End If
End Sub

###試したこと#########################################################
初心者でよくわからず、あまり試していません（途方にくれている）

###補足情報(言語/FW/ツール等のバージョンなど)
ツールはVisual Stasio 2017 の　VB.netにネットで見つけた通信ソフトを張り付けて、
検討してみました。

Answer 1

受信処理は体感されている通り、DataReceivedイベントが発生した時点で全てのデータを受信しているとは限りません。
ですので、受信したデータの判定を行う場合、通信仕様上データの受信が完了した時点で行うべきです。
今回の場合、その仕様が提示されていませんので、どのような状態が電文の受信完了となるかが不明です。
まずは、その通信仕様を理解しましょう。
（例えば、１つの電文は[CR][LF]で終了するとか、[STX]データ文字[ETX]と開始が[STX]で終了が[ETX]になるとか）
そうすれば、１つの電文の受信が終了したことを判定できるはずです。

大まかな流れは下記のようになるかと思います。

'受信バッファ
Private RecvBuffer As String = ""

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
    'シリアルポートをオープンしていない場合、処理を行わない.
    If SerialPort1.IsOpen = False Then
        Return
    End If

    Try
        '受信バッファに受信データを追加する
        RecvBuffer &= SerialPort1.ReadExisting()

        If 受信完了？ Then
            Dim Command As String

            '次の電文を続けて受信している可能性があるなら
            'ここでRecvBufferから1電文を取得する
            Command = RecvBuffer

            '受信バッファ解析後、あまりがあるならそのあまりの部分を残しておく。
            'あまりがないなら受信バッファをクリアする
            RecvBuffer = ""

            '解析処理を行う
            SetText(command)
        End If

    Catch ex As Exception
        btnClose_Click(Me, e)
    End Try
End Sub

Comments

[yukenai]

回答ありがとうございます。回答頂いた中で以下不明点があります。
①電文の終了を[CR][LF]にしたいのですが、If 受信完了？ Thenの受信完了？とはこの場合、電文の最後に[CR][LF]が入っているか確認するという意味でいいのですよね？また、受信完了？の部分の記述はどのようにするのでしょうか？
②解析処理とはIF文で電文の中身を確認するといういみですよね？
③SetText(command)の意味は？
④ちなみに、電文をTextBoxに表示させる記述はどのようにしたら、いいのでしょうか？
以上を教えて頂きたく、よろしく御願いします。

[YAmaGNZ]

提示した部分は、DataReceivedイベントの部分のみで、その他はyukenaiさんが提示したソースを使うという形で書いてあります。

①電文の終了が[CR][LF]でしたら
　If RecvBuffer.Contains(vbCrLf) Then
という感じで[CR][LF]が含まれるかチェックすればよいかと思います。
　その後、[CR][LF]で分割し、その結果を解析すればよいかと思います。

②～④はご自身が書かれているSetTextでの処理です。