PCとPLC間でのエラーの解決方法がわかりません

Question

PCとPLC間での通信を専用プロトコルモードで設定しています。
環境
PLC:FX3U-80M
OS:Windows7-32bit
言語：VB.NET
通信規格：RS232C

シーケンサのビットデバイスに書き込むプログラムを作成したのですが
FormのButton3を押すと以下のエラーメッセージが出て、解決方法がわかりません。

動作
Button1でCOMポートを開きます
Button2でCOMポートを閉じます
Button3でテキストボックスのON,OFF状態を書き込みます
テキストボックスはダブルクリックでON,OFFを切り換えます

"エラー内容"
インデックスおよび長さは文字列内の場所を参照しなければなりません。 パラメータ名 length

"SerialPortクラス設定内容"
オブジェクト名：SerialPort1
PortName：COM9
BaudRateプロパティ：9600
DataBitsプロパティ：8
Parityプロパティ：Even
StopBitsプロパティ：One
RtsEnableプロパティ：True
DtrEnableプロパティ：True

-------------------------

Public Class Form1
    Dim ENQ As String = Convert.ToChar(&H5)
    Dim ACK As String = Convert.ToChar(&H6)
    Dim NAK As String = Convert.ToChar(&H15)
    Dim tb As String = "Textbox"

    Dim myctls As New ArrayList
    Dim otb As TextBox

    Private Sub tbdClick(ByVal sender As Object, ByVal e As System.EventArgs)

        If sender.Text = "OFF" Then
            sender.Text = "ON"
            sender.BackColor = Color.Red
        ElseIf sender.Text = "ON" Then
            sender.Text = "OFF"
            sender.BackColor = Color.Black
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim i As Integer

        For i = 1 To 2
            AddHandler Me.Controls(tb & i).DoubleClick, AddressOf tbdClick
            myctls.Add(Me.Controls(tb & i))
            myctls.Item(i - 1).Text = "OFF"
            myctls.Item(i - 1).BackColor = Color.Black
            myctls.Item(i - 1).ForeColor = Color.White
        Next

        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.Open()

        Button1.Enabled = False
        Button2.Enabled = True
        Button3.Enabled = True
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Close()
        Button1.Enabled = True
        Button2.Enabled = False
        Button3.Enabled = False
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim j As Integer = 0
        Dim sdata As String
        Dim rdata As String
        Dim ERCD As String
        Dim bitdata As String = ""
        Try
            For Each Me.otb In myctls
                If myctls.Item(j).Text = "OFF" Then
                    bitdata = bitdata & "0"
                ElseIf myctls.Item(j).Text = "ON" Then
                    bitdata = bitdata & "1"
                End If
                j += 1
            Next
            sdata = ENQ & "00FFBW0" & "Y0020" & "02" & bitdata
            SerialPort1.Write(sdata)
            Threading.Thread.Sleep(1000)
            rdata = SerialPort1.ReadExisting
            Select Case rdata.Substring(0, 1)
                Case NAK
                    ERCD = rdata.Substring(5, 2)
                    MessageBox.Show("エラー：" & ERCD)
                Case ACK
                    MessageBox.Show("正常に受信されました。")
                Case Else
                    MessageBox.Show("予期せぬ事態が発生しました。")
            End Select
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

Comments

[ozwk]

ブレークポイントなりコンソール出力なりで`rdata`の内容確認してみてください

[MasahikoHirata]

'Threading.Thread.Sleep'の間、シリアルの受信出来ましたっけ？

[goo___]

rdataの内容を確認してみたところ空になっていました。

[goo___]

Sleepは書き込み用に入れていますがSleepをなしにしても結果は変わりませんでした。

[MasahikoHirata]

rdataが空ということは、’受信’できていない。sleepではなくて、必要なバイト数以上受信できるまでループで待つようにするのが良いのでは？

[ozwk]

専用プロトコルモードとやらのリファレンスありますか?そもそもその電文でなんか応答するのかを確かめたほうがいいのでは?

[think.fuku]

サムチェックコードが足りないです。三菱のシーケンサなら取説に指定例があるので、まず指定例の文字列を書いてみてはどうでしょうか。

[hihijiji]

MX Componentを使う選択肢はないのですか？

Answer 1

エラーに関しては
Select Case rdata.Substring(0, 1)
にて、受信データがないのに参照しようとして発生しているのではないでしょうか。
受信内容を解析する前に、rdataにデータが入っているかチェックし、入っていないなら
送信コマンドを再送する等のエラー処理が必要だと思います。