SerialPort.Readについて

1：たか：2010/02/16(火) 11:27:38: お世話になります。

WEB（VB2005）で調べたソースをお借りして
シリアル通信のプログラムを作成しています。
受信することは出来たのですが
数十回に一度、以下のような異常が発生しています。
何か良い対処方法を教えていただきたいです。

Private Sub SerialPort1_DataReceived(ByVal sender As System.Object,
ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _
Handles SerialPort1.DataReceived

Dim dlgData As ReceiveDataDelegate = New

ReceiveDataDelegate(AddressOf DataAnalyze)

Dim ReadBuff(SerialPort1.BytesToRead - 1) As Byte

SerialPort1.Read(ReadBuff, 0, SerialPort1.BytesToRead) ←①

For i As Integer = 0 To ReadBuff.Length - 1
Me.Invoke(dlgData, CInt(ReadBuff(i)))
Next
End Sub

　①の部分で ArgumentException
配列のオフセットおよび長さが範囲を超えているか、カウンターがソースコレクションのイ
　　ンデックスから最後までの要素の数より大きい値です。

　ReadBuff{Length=1}
(0)0

宜しくお願いします。

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）

掲示板管理者へ連絡無料レンタル掲示板