您现在所在的是:

三菱Mitsubishi

回帖:38个,阅读:25831 [上一页] [1] [2] [3] [4] [下一页]
* 帖子主题:

用VB和PLC串口通讯

847
gy308
文章数:14
年度积分:50
历史总积分:847
注册时间:2002/9/30
发站内信
发表于:2004/6/7 13:53:00
#30楼
各位,我看到有叫什么无协议通信的,是什么东东啊?它好象可以用于三凌,OMRON的通信哦.
4327
nyfuj 版主
文章数:1496
年度积分:50
历史总积分:4327
注册时间:2004/6/5
发站内信
发表于:2005/5/22 18:33:00
#31楼
以下是引用思南在2002-3-20 22:18:00的发言:
本站PLC专栏http://www.gkong.com/MYPLC/index_myplc.htm有相关的文章,可以参考。

你好,你给的打不开呀。我用编程口,SC-09线,可能下载梯形图,就是无法通讯
   时时勤拂拭,莫使染尘埃。没有六祖的顿悟,只求神秀的力学慎思。
                                                  心镜(nyfuj)
4327
nyfuj 版主
文章数:1496
年度积分:50
历史总积分:4327
注册时间:2004/6/5
发站内信
发表于:2005/5/22 18:36:00
#32楼
以下是引用欣始悟在2002-3-26 22:06:00的发言:
好象fx2编程口默认协议并不是采用"0","1","7","8"格式的那个协议,连上plc可以看看D8120的设置,你可以把D8120及mscomm控件正确设置再试试。不过你用了232AW,你至少可以不管plc侧如何设置,只要mscomm通讯参数设置为9600,e,7,1,可用"0","1","7","8"格式的协议来通信了。

能告诉我如何把设置D8210,我是说如何把相应的数据写入plc
   时时勤拂拭,莫使染尘埃。没有六祖的顿悟,只求神秀的力学慎思。
                                                  心镜(nyfuj)
924
wuwanlu556
文章数:3
年度积分:50
历史总积分:924
注册时间:2006/4/2
发站内信
发表于:2006/4/5 14:49:00
#33楼
帮忙分析一下:
Private Sub Command6_Click()
Dim SendStr As String
Dim RecStr1, RecStr2 As String
Dim T1, T2 As Integer
Dim I1, I2, I3, I4 As Integer
Dim Sum As String
Dim Ad As Integer
   MSComm1.CommPort = 1
   MSComm1.Settings = "9600,n,7,1"
   MSComm1.PortOpen = True
       
       SendStr = "02FFWR0Y000003"
       
       T2 = 0
       For I1 = 1 To Len(SendStr)
           T1 = Asc(Mid$(SendStr, I1, 1))
           T2 = T2 + T1
       Next I1
       Sum = Hex$(T2)
       Sum = Right$(Sum, 2)
       SendStr = Chr(5) & SendStr & Sum
       
       MSComm1.Output = SendStr
       RecStr1 = ""
       RecStr2 = ""
       
       For I2 = 1 To 30000
           RecStr1 = MSComm1.Input
           If Len(RecStr1) > 0 Then
              RecStr2 = RecStr2 & RecStr1
           End If
           If Len(RecStr2) >= 88 Then
              Exit For
           End If
       Next I2
       
           For Ad = 1 To 10
               If Mid$(RecStr2, Ad, 1) = "F" Then Exit For
           Next
       
       If Len(RecStr2) >= 20 Then
           Text1(5).Text = Mid(RecStr2, Ad + 2, 12)
           MSComm1.PortOpen = False
       Else
           MSComm1.PortOpen = False
           MsgBox "通信出错,请检查通信连线及相关设定是否正确!", vbOKOnly, "提示"
       End If
       
End Sub
为民族的水处理事业作出贡献,再取得自己的利益.
904
cjhlala
文章数:2
年度积分:50
历史总积分:904
注册时间:2007/2/3
发站内信
发表于:2007/2/3 16:20:00
#34楼
看看有没有用
944
jgsong21st
文章数:2
年度积分:50
历史总积分:944
注册时间:2008/3/5
发站内信
发表于:2008/3/5 22:28:00
#35楼
大家好,我想实现一个最简单的PLC和VB的通信,就是通过VB上位机来控制PLC的单灯循环.我以前一直用MCGS来做上位机,对VB是一片茫然,下位机很简单,希望能够得到一个VB上位控制PLC的程序,我的邮箱是jgsong21st@163.com,谢谢啦!
904
cashpeng
文章数:2
年度积分:50
历史总积分:904
注册时间:2008/8/29
发站内信
发表于:2008/8/29 23:35:00
#36楼
看看
1126
like821080
文章数:45
年度积分:50
历史总积分:1126
注册时间:2008/3/10
发站内信
发表于:2010/11/9 19:23:40
#37楼
学习了
学习了,谢谢!
807
xizidxz
文章数:1
年度积分:50
历史总积分:807
注册时间:2009/3/29
发站内信
发表于:2011/9/23 19:18:37
#38楼
学习

关于我们 | 联系我们 | 广告服务 | 本站动态 | 友情链接 | 法律声明 | 非法和不良信息举报

工控网客服热线:0755-86369299
版权所有 工控网 Copyright©2024 Gkong.com, All Rights Reserved

124.8008