RS-232Cで測定器からデータを受信するには？ (ID:117541)

名前

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

本文 Wait用関数を作成してみました。 実験はしてませんので考え方だけを参考にして下さい。(多分動くと思うけど・・・) Private Declare Function timeGetTime Lib "winmm.dll" () As Long ' lngTime - ウェイト時間(ms) デフォルト１秒 ' 戻り：True-受信あり,False-タイムアウト Private Function RecvWait(Optional lngTime As Long = 1000) As Boolean Dim STime As Long Dim blnTimeOut As Boolean STime = timeGetTime Do While MSComm1.InBufferCount = 0 If timeGetTime - STime >= lngTime Then blnTimeOut = True Exit Do End If DoEvents Loop RecvWait = Not blnTimeOut End Function Private Sub Command3_Click() 'その他の処理 ' : MSComm1.Output = Buffer If RecvWait(100) Then '受信データの取得 varBuffer = MSComm1.Input Text2.Text = Text2.Text & varBuffer Else Debug.Print "タイムアウト" End If End Sub