• «
  • 1
  • 2
  • »
  • Pages: 1/2     Go
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
楼主  发表于: 2015-08-14 13:11
现象:现做个一个软件实现和FX-PLC通讯。画面功能和触摸屏差不多,按钮,读写数据都好用。但是有个毛病,我想实时读PLC 的D中数据,可是我一点画面按钮后,读D中的数据就不动了。请问怎么解决。不论我按什么键,它都一直读D中的数据,不停。
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
1楼  发表于: 2015-08-14 13:23
是VB写的软件和PLC通讯吗
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
2楼  发表于: 2015-08-14 13:24
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
3楼  发表于: 2015-08-14 13:41
你把VB程序发出来
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
4楼  发表于: 2015-08-14 13:46
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
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
5楼  发表于: 2015-08-14 14:03
Loop Until MSComm1.InBufferCount = 8
是 MSComm1.InBufferCount =8条件不成立
数据没读进来
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
6楼  发表于: 2015-08-14 14:07
读出来了 ,只要不点画面其他键,数据一直变化和PLC中D200同步,我联机试了。但一点别的键就停止了。主要是怎么叫他不停!!
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
7楼  发表于: 2015-08-14 14:11
加一句
Timer3_Timer=FALSE

If MSComm1.PortOpen = True Then
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
8楼  发表于: 2015-08-14 14:17
还是那样子哦,你那里人?
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
9楼  发表于: 2015-08-14 14:22
苏州你呢
小学没毕业
级别: 略有小成
精华主题: 0
发帖数量: 88 个
工控威望: 257 点
下载积分: 389 分
在线时间: 31(小时)
注册时间: 2013-05-14
最后登录: 2024-05-17
查看小学没毕业的 主题 / 回贴
10楼  发表于: 2015-08-14 14:26
大连
abcdef张勇
工控
级别: 探索解密
精华主题: 0
发帖数量: 101 个
工控威望: 173 点
下载积分: 6873 分
在线时间: 161(小时)
注册时间: 2015-07-02
最后登录: 2024-12-16
查看abcdef张勇的 主题 / 回贴
11楼  发表于: 2015-08-14 14:27
吧MSComm1.InputLen = 0
去掉
  • «
  • 1
  • 2
  • »
  • Pages: 1/2     Go