小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
樓主  發(fā)表于: 2015-08-14 13:11
現(xiàn)象:現(xiàn)做個(gè)一個(gè)軟件實(shí)現(xiàn)和FX-PLC通訊。畫面功能和觸摸屏差不多,按鈕,讀寫數(shù)據(jù)都好用。但是有個(gè)毛病,我想實(shí)時(shí)讀PLC 的D中數(shù)據(jù),可是我一點(diǎn)畫面按鈕后,讀D中的數(shù)據(jù)就不動(dòng)了。請(qǐng)問怎么解決。不論我按什么鍵,它都一直讀D中的數(shù)據(jù),不停。
abcdef張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
1樓  發(fā)表于: 2015-08-14 13:23
是VB寫的軟件和PLC通訊嗎
小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
2樓  發(fā)表于: 2015-08-14 13:24
abcdef張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
3樓  發(fā)表于: 2015-08-14 13:41
你把VB程序發(fā)出來
小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
4樓  發(fā)表于: 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數(shù)據(jù)
      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張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
5樓  發(fā)表于: 2015-08-14 14:03
Loop Until MSComm1.InBufferCount = 8
是 MSComm1.InBufferCount =8條件不成立
數(shù)據(jù)沒讀進(jìn)來
小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
6樓  發(fā)表于: 2015-08-14 14:07
讀出來了 ,只要不點(diǎn)畫面其他鍵,數(shù)據(jù)一直變化和PLC中D200同步,我聯(lián)機(jī)試了。但一點(diǎn)別的鍵就停止了。主要是怎么叫他不停。
abcdef張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
7樓  發(fā)表于: 2015-08-14 14:11
加一句
Timer3_Timer=FALSE

If MSComm1.PortOpen = True Then
小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
8樓  發(fā)表于: 2015-08-14 14:17
還是那樣子哦,你那里人?
abcdef張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
9樓  發(fā)表于: 2015-08-14 14:22
蘇州你呢
小學(xué)沒畢業(yè)
級(jí)別: 略有小成
精華主題: 0
發(fā)帖數(shù)量: 88 個(gè)
工控威望: 257 點(diǎn)
下載積分: 389 分
在線時(shí)間: 31(小時(shí))
注冊(cè)時(shí)間: 2013-05-14
最后登錄: 2024-05-17
查看小學(xué)沒畢業(yè)的 主題 / 回貼
10樓  發(fā)表于: 2015-08-14 14:26
大連
abcdef張勇
工控
級(jí)別: 探索解密
精華主題: 0
發(fā)帖數(shù)量: 101 個(gè)
工控威望: 173 點(diǎn)
下載積分: 6873 分
在線時(shí)間: 161(小時(shí))
注冊(cè)時(shí)間: 2015-07-02
最后登錄: 2024-12-16
查看abcdef張勇的 主題 / 回貼
11樓  發(fā)表于: 2015-08-14 14:27
吧MSComm1.InputLen = 0
去掉