求VB2010与松下PLC串口通信的代码

2013-07-18 10:58:32 569 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

s7300plc串口通信_实现S7-300 PLC与PC机的普通串口通信毕业论文摘要现代工业控制系统通常以PC机为上位机，通过与现场工控设备如PLC等的数据交换与处理，实现对工业生产的过程控制。这就促进了上位机与现场工控设备通信手段的不断发展和完善。西门子S7-300 PLC因其功能强、速度快、扩展灵活，在广大工业控制领域中占有重要地位。目前，S7-300PLC与PC的通信是通过专用接口卡5611卡和MPI电缆实现的。通信软件为STEP7、PRODAVE_S7_mini以... 阅读详情

...全文

构建VB与欧姆龙PLC通讯的工控自动化系统 Visual Basic（简称VB）是一种由微软公司开发的编程语言，它的前身是BASIC语言。VB以其简单易学、快速开发的特点，在上世纪90年代曾广泛应用于Windows应用程序的开发，对推动个人计算机和办公自动化的普及起到了关键作用。随着技术的发展，VB逐渐演变成Visual Basic .NET（VB.NET），它支持面向对象的编程，并且与.NET框架深度集成，为开发者提供了更加丰富的功能和更高级的编程能力。阅读详情

lyh0528

VB 16,718 成员 110,520 内容

+ 关注 + 加入社区

切换为时间正序

xpowerrock 2013-07-23

打赏
举报

想当年我也是学计算机的

sosoben 2013-07-22

打赏
举报

引用 5 楼 u011344309 的回复:

谢谢楼上两位的帮助，我是个新手，会试着用下先，看能不能达到工作中的要求，主要是控制PLC命令，再由PLC控制电机转动，向上，向左，和向右，不知两们有没有例子的代码给我看看？

plc控制电机转动是要输脉冲的,你先编好PLC的程序吧，要不输出脉冲那里电脑很难控制。一般控制电机我是用运动控制卡,或者电机的带串口或USB口的驱动盒

lyh0528 2013-07-22

打赏
举报

PLC的程序由同事负责，我主要是做VB程序新手啊，啥都不知道

lyh0528 2013-07-21

打赏
举报

谢谢楼上两位的帮助，我是个新手，会试着用下先，看能不能达到工作中的要求，主要是控制PLC命令，再由PLC控制电机转动，向上，向左，和向右，不知两们有没有例子的代码给我看看？

sosoben 2013-07-19

打赏
举报

我就是用**代替校验位的,plc能正确接收当然你一定要算出校验位也行,校验码是将指令中的各个ASCII字符的16进制(00～FF)进行异或求和后生成的. 该校验码也以两个ASCII码表示


serialPort1.NewLine = "\r";
serialPort1.Open();
serialPort1.WriteLine("%01#WCSR00011**");//控制开关R0001的打开
System.Threading.Thread.Sleep(100);
serialPort1.WriteLine("%01#WCSR00010**");//控制开关R0001的关闭

良朋 2013-07-19

打赏
举报

它这份资料里有点bug，按它的写，你的校验位只好用*号代替了，我是反复尝试才写出上面正确代码的。楼主请按我的写，没有比这个更简单的代码了

sosoben 2013-07-19

打赏
举报

网上不是可以下载吗? http://wenku.baidu.com/view/a781e7c66137ee06eff9188b.html

良朋 2013-07-19

打赏
举报

Dim Spiecal_Text_1 As String = "%01#WCSR030" & (i + 1).ToString & "1"
                    Dim Spiecal_Text_0 As String = "%01#WCSR030" & (i + 1).ToString & "0"

                    Dim PLC_Command_1 As String = Spiecal_Text_1 & calculate_for_plc(Spiecal_Text_1) & vbCr
                    Dim PLC_Command_0 As String = Spiecal_Text_0 & calculate_for_plc(Spiecal_Text_0) & vbCr

                    SerialPort1.WriteLine(PLC_Command_1)
                    Thread.Sleep(10)
                    SerialPort1.WriteLine(PLC_Command_0)
 '将asc码后转换成16进制后相与
    Function calculate_for_plc(ByVal str)
        Dim s As String = Nothing
        For i As Integer = 1 To Len(str)
            s = s Xor AscW(Mid(str, i, 1))
        Next
        Return Hex(s)
    End Function

求VB2010与松下PLC串口通信的代码

相关推荐