用脚踏开关读取数据的方式？

Question

有谁知道如何用脚踏开关读取数据？
脚踏开关直接接在电脑的com1口上，每踩一下，软件就从仪器上读一个数据（用com2）。

Answer 1

Private Declare Function GetTickCount Lib "kernel32" Alias "GetTickCount" () As LongPrivate Sub MSComm1_OnComm ()
   If MSComm1.CommEvent = comEvReceive Then
      MSComm1.InputLen = 0
      myDelay = GetTickCount()
      Do Until MSComm2.InBufferCount > 0 '如果能确定接收的字节数，则等待 ＝ 该值
         DoEvents
         If GetTickCount - myDelay > 500 Then Exit Sub '0.5秒没有数据退出
      Loop
      myBuffer = MSComm2.Input
      MSComm2.InputLen = 0
      ......
   End if
End Sub