MScommでデータを分割し、各テキストに表示するには？ (ID:105642)

名前

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

本文 'こんばんは '最近ここを見つけて始めて投稿します。 '私もMSComm1を勉強中の身の上です。 'イベントドリブン方式でしょうか？ '1 回目を受信した後すこし時間をおいて再度受信してみたらどうでしょう Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '省略 If MSComm1.InBufferCount <> 0 Then buffer = MSComm1.Input Data = Data & buffer Sleep 500 '単位ミリ秒 この時間プログラムが停止します。 buffer = MSComm1.Input Data = Data & buffer End If MsgBox Data 'もしOKならタイマー(Timer1)を貼り付けるとかで・・・・・