您现在所在的是：
→ 浏览主题：
* 帖子主题：
文章数：31
年度积分：49
历史总积分：678
注册时间：
我用VB做PC与FX1SPLC通信，1对1方式，采用专用协议，格式1，现在现在的问题是PLC没有反映，不知道是怎么回事？我是新手，希望各位指点指点，谢谢了！
Private Sub Form_Load()
&mPort = 1
&MSComm1.InBufferSize = 1024
&MSComm1.InBufferCount = 0
&MSComm1.Settings = "9600,n,8,1"
&MSComm1.PortOpen = True
&MSComm1.InputLen = 0
&
End Sub
Private Sub Command1_Click()
Dim str As String
Dim rdw As String
Dim rdh As String
Dim rdm As String
rdw = "00FFBT003YY00011"
str = Chr(5) + rdw + "FA"
MSComm1.InputLen = 0
MSComm1.Output = str
Debug.Print str
& DoEvents
Loop Until MSComm1.InBufferCount &= 5
Debug.Print "1:" & rdh
rdh = MSComm1.Input
Debug.Print "2:" & rdh
If rdh = Chr(6) + "00FF" Then
& MsgBox ("测试成功！")
ElseIf rdh = Chr(H15) + "00FF" Then
& &MsgBox ("传输数据出错！")
& MsgBox ("测试失败！")
再次谢谢各位了！
文章数：53
年度积分：65
历史总积分：783
注册时间：
MSComm1.Settings = "9600,n,8,1"
文章数：3041
年度积分：1532
历史总积分：7884
注册时间：
我不知fx1的协议,但疑问:
1.传送给PLC的数据是字符串还是二进制?
2.传送后PLC有没指示接收灯?表示PLC能收到.
3.PLC有没输出指示,没有,说明PLC不了解命令,协议或数据错误
4.用oncomm事件接收数据
jczwfy 版主
文章数：2317
年度积分：-119
历史总积分：4811
注册时间：
09工控人生征文
小弟弟们：PC与三菱PLC通讯有专用VB控件
***MXLINK就可以
[此贴子已经被作者于 16:40:03编辑过]
日本人说中日友好,中国人民笑了:你丫骗谁呢?
日本人说自己爱和平,亚洲人民笑了:说的是人话吗?
日本人说自己要维护世界和平,美国人民笑了:问你大爷没?
日本人说自己是人,全世界的狗都叫了:兄弟,做狗要厚道,不能忘本!
欢迎访问我的博客
在线PLC触摸屏问题解答加Q号2*7*5*4*7*0*0*6，加好友注明工控网
文章数：31
年度积分：49
历史总积分：678
注册时间：
谢谢各位，这个问题我已经解决了，PLC进行参数设置后要断一下电才行！
PLC接收数据是字串的；我发送的数据是对PLC的输出进行操作的所以可视。
现在还有一个问题要请教
& & &采用oncomm事件时，为何不能接收数据啊？
Private Sub MSComm1_OnComm()
& Dim data As String, rea As String, a As Integer, b As String
& &Debug.Print "1:" & data
& &data = frm1.MSComm1.Input &
& &Debug.Print "2:" & data
& & a = Val(Asc(Left(data, 1)))
& & b = GetSumChk(Mid(data, 2, Len(data) - 3))
& &If a = 2 And b = Mid(data, Len(data) - 1, 2) Then
& & & &rea = Mid(data, 6, Len(data) - 8)
& & & &frm1.MSComm1.Output = Chr(&H6) + "00FF"
& & & &rea = "error"
& & & &frm1.MSComm1.Output = Chr(&H15) + "00FF"
& &Text4.Text = rea
End Sub
程序运行运行成功一次，但是不会退出还在循环，并且第二次到 &a = Val(Asc(Left(data, 1)))时，提示错误，“无效的过程调用或参数”；而且以后再试均不成功，错误同上，查看 frm1.MSComm1.Input &里面有数据而，data里面却没有，导致出错 ！ & &
& 请问，这是哪里出问题了啊？ & &
文章数：138
年度积分：50
历史总积分：879
注册时间：
我有自己写的ＤＬＬ,经测试完全可用
文章数：-11
年度积分：-756
历史总积分：1023
注册时间：
此楼内容不符合板块规定，不予显示！
文章数：138
年度积分：50
历史总积分：879
注册时间：
用编程口即可，编程口DLL支持VB、VC、Delphi
QQ:
.cn
工控学堂推荐视频：