信号（パルス）の時間の測定について (ID:78588)

名前

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

本文 パラレルポートからの信号（on,offの時間）を測定して，モニタに出力したくて，下記のようなプログラムを組んだのですが，うまく測定してくれません，時間に比例した値がLabelに出てくれれば，あとで補正をすればよいと考えているのですが． 誰か教えてください。お願いします。 Option Explicit Private Declare Function inpb% Lib "kio32.DLL" (ByVal port%) Private Declare Function inpw% Lib "kio32.DLL" (ByVal port%) Private Declare Sub outb Lib "kio32.DLL" (ByVal port%, ByVal data%) Private Declare Sub outw Lib "kio32.DLL" (ByVal port%, ByVal data%) Dim outdata%, outdate2%, indata% Dim cdata1&, cdata2＆ Dim port%, ch% Dim i&, idat1%, idat2% Private Sub Command1_Click() outb port + 2, &H20 End Sub Private Sub Command2_Click() cdata1 = 0 Do indata = inpb(port) cdata1 = cdata1 + 1 DoEvents Loop Until indata = 0 Label4 = cdata1 cdata2 = 0 Do indata = inpb(port) cdata2 = cdata2 + 1 DoEvents Loop Until indata = 1 Label5 = cdata1 + cdata2 End Sub Private Sub Command3_Click() End End Sub Private Sub Form_Load() port = &H378 outdata = 0 outb port, outdata End Sub