VB2010から外部機器へのシリアル通信によるデー

質問

VB2010をのserialport機能を用いて,外部機器にデータを送るプログラムを作成しています。
外部機器から送信されてきたデータの受信は問題なくできましたが,PCからの送信がうまく出来ません。

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

If TextBox2.Text.Length = 0 Then
MessageBox.Show("送信文字列を入力してください", "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
TextBox2.Focus()
Exit Sub
End If
Try
SerialPort1.WriteLine(TextBox2.Text)

Catch ex As Exception
MessageBox.Show(ex.Message, "エラー", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try

End Sub

プログラムは上記のようになります。(microsoftのサンプルそのままです。）
上記のプログラムで 数字の「1」を送信したいのですが,うまく送ることができません。
外部機器は,データが送信されたことは感知していますが,　「1」 が送られたことは認識できていないようです。
serialdebug2というソフトを使用して,「1」 を送信した場合は,問題ありませんでした。
どうすれば,上記のような問題を解決できるｄしょうか?

回答No.1

Hayashi_Trek · ベストアンサー

VB.NETの文字は全てUnicode（ユニコード）になっているので
他の機器と通信する場合は
Unicode ←→ Shift-jis 変換
する必要が有ります。

http://www.robotsfx.com/robot/robohow/RoboHow60/RoboHow60.html
http://kchon.blog111.fc2.com/blog-entry-183.html
http://www.geocities.jp/hatanero/rs232c4.html

お礼

ありがとうございました。

serialport1.encoding = sysytem.encoding.getencoding("utf-8")
以上をform load時の追加すれば解決しました!