シリアルポートの受信 (ID:143226)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。 rs232c通信のプログラムをダウンロードしまして(vb2005) 改行コードなどの無いデータを以下のソースより １）Shift-Jisからユニコードに変換 ２）Unicodeの配列から文字列に変換 などを行い TextBox3 へ追加しようと試みたのですが エラーが発生してしまいます。 ①の strGetTextを doubleの変数を作って代入することはできたのですが 分かる範囲で試してみたのですが エラーを回避できない状態です。 改行コードが無いからエラーが上がるのでしょうか？ dim len As Integer dim x As Double len = strGetText.Lengh x = CDbl(Mid(strGetText,1,len) x=99.9999 テキストボックスへ追加するためには どのような操作を行えば良いのでしょうか？ ① Delegate Sub dlgAddText(ByVal str As String) Private Sub AddText(ByVal strGetText As String) '受信データーをテキストボックスに追加する TextBox3.AppendText(strGetText) 'キャレットを文字の最後に設定す TextBox3.ScrollToCaret() End Sub '--------------------------------- 'セリアルポートの受信イベント '--------------------------------- Dim lByte As List(Of Byte) = New List(Of Byte) Private Sub SerialPort1_DataReceived(ByVal sender As Object, _ ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) _ Handles SerialPort1.DataReceived 'データ受信用のバイト配列 Dim inByte(SerialPort1.BytesToRead - 1) As Byte 'データの読み込み SerialPort1.Read(inByte, 0, SerialPort1.BytesToRead) '読み込んだデータを改行を確認しながらジェネリクスに移す For i As Integer = 0 To inByte.Length - 1 lByte.Add(inByte(i)) 'ジェネリクスに足しこむ '改行が有った If lByte.Count > 2 AndAlso lByte(lByte.Count - 2) = 13 AndAlso lByte(lByte.Count - 1) = 10 Then 'ジェネリクスからByte配列に移す Dim tmpByte(lByte.Count - 1) As Byte For j As Integer = 0 To lByte.Count - 1 tmpByte(j) = lByte(j) Next lByte.Clear() 'ジェネリクスをクリアー 'Shift-Jisからユニコードに変換 Dim uniByte() As Byte = Encoding.Convert(encSjis, encUni, tmpByte) 'Unicodeの配列から文字列に変換 Dim uniString As String = encUni.GetString(uniByte) 'メインスレッドのテキストに追加する Me.Invoke(New dlgAddText(AddressOf AddText), New Object() {uniString}) '上は下の記述の短縮形 ' dlgAddText dlgT = new dlgAddText(AddressOf AddText); ' Me.Invoke(dlgT, uniString) End If Next End Sub 'これは参考で使っていません '-------------------------------- 'ユニコードの文字列をS-Jisに変換 '-------------------------------- Private Function UniToSjis(ByVal strUni As String) As String 'unicodeのEcodingクラスに作成 Dim ecUni As Encoding = Encoding.Unicode 's-jisのEncodingクラスの作成 Dim ecSjis As Encoding = Encoding.GetEncoding("shift-jis") Dim byteUni As Byte() = Encoding.Default.GetBytes(strUni) Dim byteSjis As Byte() = Encoding.Convert(ecUni, ecSjis, byteUni) 'unicodeのバイト配列からテキストに変換 Return ecSjis.GetString(byteSjis) End Function 'これも参考で使っていません '--------------------------------- 'Sjisをユニコードの文字列をに変換 '--------------------------------- Private Function SjisToUni(ByVal strSjis As String) As String 'unicodeのEcodingクラスに作成 Dim ecUni As Encoding = Encoding.Unicode 's-jisのEncodingクラスの作成 Dim ecSjis As Encoding = Encoding.GetEncoding("shift-jis") Dim byteSjis As Byte() = Encoding.Default.GetBytes(strSjis) Dim byteUni As Byte() = Encoding.Convert(ecSjis, ecUni, byteSjis) 'sjisのバイト配列からテキストに変換 Return ecUni.GetString(byteUni) End Function End Class