RS232Cによるバイナリデータを送受信するには？ (ID:117579)

名前

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

本文 別件でやってきた通りすがりの者です。Bufferで一旦全部受けたデータを、全体の長さをカウントしてその数だけループで回しながら表示する考え方でご所望の処理が実現できます。では。 Select Case MSComm1.CommEvent Case comEvReceive Buffer = MSComm1.Input N = LenB(Buffer) For i = 1 To N Step 1 buf = AscB(MidB(Buffer, i, 1)) Text2.Text = Text2.Text + " " & Right("0" & Hex(buf), 2) Next i （以下略）