和大家探讨问题？！！！！

Question

我做工程时遇到了这个问题，电机转动时旋转编码器发出一系列脉冲，现在我要记录脉冲个数，编了下面程序，如下:
   Option Explicit
Dim num%
Dim k%
Dim m%Private Sub Command1_Click()
  MSComm1.PortOpen = False
  End
End SubPrivate Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub Timer1_Timer()
If MSComm1.CTSHolding Then   '检测CTS脚位电位
   k = 1
   Shape1.FillColor = RGB(255, 0, 0)          '改变指示灯为红灯
    If k > m Then
     num = num + 1
     Label1.Caption = num
     
    End If
Else
  k = 0
  Shape1.FillColor = RGB(255, 255, 255)
End If
m = k
End Sub
 出现了问题，如果我给com1第8关脚 直接加5伏电压，手动变化，程序合理，但是我用旋转编码器，却没有任何现象。 请各位高手告诉我问题出到什么地方

Answer 1

你放在Timer里编程？旋转编码器如果很快的话，MSComm1.CTSHolding的结果会正确吗？要不找找MSComm有没有CTS变化的事件，在那里编程好象才是正确的。

Answer 2

timer控件最小的时间间隔只能在55毫秒左右。