Byte 受信:1文字以上 ’受信文字数:既にPC側にて受信バッファ内に受信しているデータ数を示します。 ’↓ここで、受信文字数分のByte配列を用意している、-1なのはベーシック系の配列定義の御作法 Dim dat As Byte() = New Byte(SerialPort1.BytesToRead - 1) {} ’↓ここで、先に指定した受信文字数分のデータを、受信バッファより取り出す SerialPort1.Read(dat, 0, dat.GetLength(0)) ’ ’この後、文字データなのか、バイナリーなのか、BCDなのかで、適したエンコード処理を行う。 ’↓ここでは、メッセージボックスへ、シフトJISエンコードしたデータを表示している。 MessageBox.Show( _ System.Text.Encoding.GetEncoding("SHIFT-JIS").GetString(dat)) ’