RS-232Cで安定してデータを取り込むには？ (ID:110928)

名前

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

本文 目に触れていただきありがとうございます。 以前『N88BASICを移植するには？』という記事で投稿した者です。 N88BASICをＶＢに移植してみました。 データの吸い出しはできるのですが、 たまにフリーズしてしまい、マウスの指示すら受け付けない状態です。 N88BASICの方では安定して動いているので、ＶＢの問題なのでしょうか？ 読み出しの部分は以下の通りです。 Private Sub DataRead() Dim NegativeFlag As Integer MSComm1.Output = Chr(GKCommand) ’ＰＣから出力 Timer1.Enabled = True '④タイマー作動（200ｍｓ待つ） While Time_Out_1 = 0 dmy = DoEvents() Wend Time_Out_1 = 0 Timer1.Enabled = False 'タイマー停止 While MSComm1.InBufferCount < 2 ’２byteを待つ dmy = DoEvents() Wend Instring = MSComm1.Input ’ＰＣに入力 upperstring = Left(Instring, 1) lowerstring = Right(Instring, 1) upperbyte = Asc(upperstring) NegativeFlag = Not (upperbyte) And &H10 upperbyte = upperbyte And &HF lowerbyte = Asc(lowerstring) Zd = (upperbyte * 256 + lowerbyte) If NegativeFlag <> 0 Then Zd = 0 - Zd End If end sub 'タイマー１ Private Sub Timer1_Timer() Time_Out_1 = 1 End Sub 何かアドバイスいただけたらと思います。 どうぞよろしくお願いいたします。