VB2010 シリアル通信の文字列を分けたい

質問

ふたつの温度計があって、室温が２３度外気温が１８度の場合、
シリアル通信によって２３１８としておくられてきます。
そしてこれがTextBox2に２３１８と表示されます。

Delegate Sub DataDelegate(ByVal sdata As String)
Private Sub PrintData(ByVal sdata As String)
TextBox2.Text = sdata
End Sub

ここまではなんとかうまくいきました。ここからが質問なんですが、
このsdataをTextBox3とTextBox4に２３℃、１８℃と分けて表示したいのですが
うまくいきません。substringを使って、

　sdata = sdata.Substring(0, 2)
　TextBox3.Text = sdata

などとやってみましたが
「インデックスおよび長さは文字列内の場所を参照しなければなりません。」
とエラーとなってうまくいきません。どう書いたらいいのかおしえてください。

尚、シリアル通信は改行コードを頭につけて、\r\n2318　と連続的に送られてくる
んですがこれが問題なんでしょうか。

回答No.2

vbhanatyan · ベストアンサー

>と二行あけて４プラスデータが縦に連続的に表示されます。

２行空けて　が何なのか気になりますが。
最初の表示の分は何のかも。

sdata には、４文字しか入っていないようなので。

Private Sub PrintData(ByVal sdata As String)
　　TextBox2.Text = sdata
　　TextBox3.text =sdata.Substring(0, 2)
　　TextBox4.text =sdata.Substring(2, 2)
End Sub

で取得できるはずですが。

又は、
Private Sub PrintData(ByVal sdata As String)
　　TextBox2.Text = sdata
End Sub
で、TextBox2.Text には、２３１８ と入っているのなら

Private Sub PrintData(ByVal sdata As String)
　　TextBox2.Text = sdata
　　TextBox3.text =TextBox2.text.Substring(0, 2)
　　TextBox4.text =TextBox2.text.Substring(2, 2)
End Sub

でも同じように取得できるはずです。

補足

色々ためしてみましたが残念ながらうまくいきませんでした。
「インデックスおよび長さは文字列内の場所を参照しなければなりません。」
とのエラーメッセージがでます。
試しに改行コードを抜いて数字だけを送ると、エラーにはなりませんが文字が全く
表示されなくなります。なんかむずかしいです。

回答No.1

vbhanatyan

>尚、シリアル通信は改行コードを頭につけて、\r\n2318　と連続的に送られてくる
>んですがこれが問題なんでしょうか。

だったら、sdata に何がどのように入っているか調べてみたら。
Private Sub PrintData(ByVal sdata As String)
Debug.Print(sdata.Length.ToString())
If sdata.Length > 3 Then
For i As Integer = 0 To sdata.Length - 1
Debug.Print(sdata.Substring(i, 1))
Next
End If
End Sub

これで、イミディエイトウィンドウにはどのように表示されましたか？

補足

回答ありがとうございます。
早速ためしてみたところ
4
2
3
1
8

4
2
3
1
8
と二行あけて４プラスデータが縦に連続的に表示されます。

尚私はＶＢは全くの初心者でシリアル通信はｗｅｂサイトを検索して
シリアル通信プログラムを探し、かたっぱしから試してみたところ、たまたま
うまく動いたもので、プログラムの意味はさっぱり理解していません。
これをどう解釈したらいいんでしょうか。