タイトル : ReceiveSerialData 投稿日 : 2006/06/15(Thu) 16:32 投稿者 : kaz
初めて投稿します、VB6からVB2005への初心者です。 多分コーディングの問題でなく、私の環境設定の問題だと思います。 色々検索して見ましたが、どうしても解決出来ず3日たちました、初歩的な問題だと思いますが、分か りません助けて下さい。 目的はSerialPortを使って文字列を読み込みたいのです。 Helpで下記に様なサンプルがあり、実行して見たのですが、どうしても com1.ReadLine() の部分でロックしてしまいます。 同じようなサンプルで、SendSerialDataがありますが、これは全く問題なく実行出来ます。 他の方法でもSerialPortから文字列が読めれば良いので宜しくお願いします。 Function ReceiveSerialData() As String ' Receive strings from a serial port. Dim returnStr As String = "" Using com1 As IO.Ports.SerialPort = _ My.Computer.Ports.OpenSerialPort("COM1") Do Dim Incoming As String = com1.ReadLine() If Incoming Is Nothing Then Exit Do Else returnStr &= Incoming & vbCrLf End If Loop End Using Return returnStr End Function |