现象：现做个一个软件实现和FX-PLC通讯。画面功能和触摸屏差不多，按钮，读写数据都好用。但是有个毛病，我想实时读PLC 的D中数据，可是我一点画面按钮后，读D中的数据就不动了。请问怎么解决。不论我按什么键，它都一直读D中的数据，不停。

是

Private Sub Timer3_Timer()
      If MSComm1.PortOpen = True Then
      Dim outstring As String
      Dim instring As String
      Dim d As Long
      Dim e As String
      Dim f As String
      MSComm1.OutBufferCount = 0
      MSComm1.InBufferCount = 0
      outstring = Chr(&H2) + "0" + "119002" + Chr(&H3) + "60"  '读D200数据
      MSComm1.Output = outstring
      Do
         DoEvents
         Loop Until MSComm1.InBufferCount = 8
      MSComm1.InputMode = comInputModeText
      MSComm1.InputLen = 0
      instring = MSComm1.Input
      e = instring
      f = Mid(instring, 2, 4)
      d = CLng("&H" & f)
      Text5.Text = (d And &HFF00) \ &H100 + (d And &HFF) * &H100
      End If
      If Text5.Text = "1" Then
      Label2.Caption = "非常停止中"
      End If
      If Text5.Text = "2" Then
      Label2.Caption = "暂停中"
      End If
End Sub

读出来了 ，只要不点画面其他键，数据一直变化和PLC中D200同步，我联机试了。但一点别的键就停止了。主要是怎么叫他不停！！

还是那样子哦，你那里人？

大连

弄好几天了 。要做个项目，实时监测PLC数据。还要存档到EXCEL表格 。

MSComm1.InputLen = 0
这句写不写都一样  0是缺省值

怎么没人帮助下啊 ？谢谢了 高手在哪里。怎么实现不间断读取PLC中D的数值

多谢楼上回复，但按完了就不读D值了