シリアルで転送されたデータを読み取るには？ (ID:100210)

名前

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

本文 はじめまして。アカツキです。 vb6で、シリアル(RS-232C)から伝送されたデータを処理するのPGを作っています。 しかし、利用しているパソンコンはRS-232Cのポートがないため、RS-232CからUSBシリアル変換アダプター(USB-RSAQ5)を利用することになりました。 データを取れるかどうかを確認するため、以下のPGを作りました。 Private Sub Form_Load() MSComm1.CommPort = 4 'RS-232Cポート番号 MSComm1.Settings = "19200,E,8,1" MSComm1.InputLen = 0 MSComm1.InputMode = comInputModeText MSComm1.InBufferCount = 0 End Sub Private Sub Command2_Click() If MSComm1.PortOpen = False Then MSComm1.PortOpen = True End If If MSComm1.InBufferCount > 10 Then Instring = MSComm1.Input List1.AddItem Instring End If End Sub 実行したら、いつも 実行時エラー：8020 通信デバイスの読み取り時にエラーが発生しました。 のエラーメッセージが表示しました。 debugすると、 Instring = MSComm1.Input のとき、エラーが発生 MSComm1.Settings = "19200,E,8,1"の値がいろいろ変わって テストしましたが、エラーが解決できませんでした。 どなたかいいアイディアがあれば、教えていただくようにお願いします。