質問: SndTextBox.Text '送信するテキストがない場合、データ送信は行わない. If String.IsNullOrEmpty(data) Then Return End If Try 'シリアルポートからテキストを送信する. SerialPort1.Write(data) '送信データを入力するテキストボックスをク. SndTextBox.Clear() Catch ex As Exception MsgBox( ex.Message ) End Try End Sub
回答: 参考にしたサイトはこちらでしょうか。 こちらの3ページ目に送信の説明がありますが、バイナリ送信にも対応しているようなので試してみてはいかがでしょうか。 ``` Dim ByteArray As Byte() ByteArray = System.Text.Encoding.GetEncoding(65001).GetBytes(data) ' UTF8 'ByteArray = System.Text.Encoding.GetEncoding(932).GetBytes(data) ' SJIS SerialPort1.Write(ByteArray, 0, ByteArray.Length) ``` GetEncodingの引数は文字コードに合わせて修正してください。 UTF8、SJIS以外であれば、下記サイトを参考にして変更してください。