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

名前

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

本文 早速、SP5をインストールし、読み込みのデータを書き換えてみました。 デバッグしてみると、一カ所だけ処理がたまに重くなる場所がありました。 Inputコマンドで、データをＰＣに取り出すところです。 そこでInputに関わるコマンドを、 MSComm1.InputMode = comInputModeText MSComm1.InputLen = 2 としてみましたが、やはり重かったです。 何か心当たりのある方がいらっしゃいましたら、 アドバイスいただけたらと思います。 読みとり部分のソースは以下の通りです。 Private Sub DataRead() Dim NegativeFlag As Integer re: RSOpen MSComm1.Output = Chr(GKCommand) Timer3.Enabled = True Do While Time_Out_3 = 0 dmy = DoEvents() Loop Time_Out_3 = 0 Timer3.Enabled = False If MSComm1.InBufferCount = 2 Then '２文字受信できていたら GoTo ex: ElseIf MSComm1.InBufferCount <> 2 Then'２文字受信できてなかったら RSClose '回線を切断する MSComm1.InBufferCount = 0 'ジャンクデータを空にする GoTo re: End If ex: Character = MSComm1.Input '＊＊＊どうやらここで吸い出しに時間がかかるようです '文字を吸い出して数値に変換 Head_Chr = Left(Character, 1) Tail_Chr = Right(Character, 1) Head_byte = Asc(Head_Chr) NegativeFlag = Not (Head_byte) And &H10 Head_byte = Head_byte And &HF Tail_byte = Asc(Tail_Chr) Zd = (Head_byte * 256 + Tail_byte) If NegativeFlag <> 0 Then Zd = -Zd End If RSClose End Sub よろしくお願いいたします。