欧姆龙与vb编程源码（欧姆龙编程入门）
本文目录一览：
- 1、vb与欧姆龙plc通讯问题
- 2、谁有VB和OMRON PLC 通信例子啊？能否发个原始代码？ 再次特别感谢！
- 3、vb中winsock控件与欧姆龙plc以太网通讯 有没有案例程序 或是教程什么的 握手指令
- 4、实现VB与欧姆龙PLC组态控制系统
- 5、怎么实现vb与欧姆龙plc通讯？能附上源码最好
vb与欧姆龙plc通讯问题
太阳雨多年积攒极其珍贵的原创VB串口通信技术资料V3.0(800M)
VB串口通信编程源码200个,多种行业多种应用...
VB串口通信技术文章160篇,详尽地对VB串口通信的诠释...
VB串口通信电子书籍16部,工业通信名家著作,经典细致...
VB串口通信控件16个,简化串口通信编码,提高开发效率...
VB串口视频教程46个,两套完整视频教程,讲解直观,更快掌握...
超级赠品一:OSI网络模型教程48M
超级赠品二:串口硬件层知识大全资料包24M
超级赠品三:串口调试工具80个,应用于各种串口调试与校验计算...
超级赠品四:程序员发展类文章和书籍12部,帮助您的成长,健康和发展....
超级赠品五:更送虚拟串口调试软件, 帮助你在没有串口的电脑上也能正常调试...
你在淘宝搜索“太阳雨VB串口资料”就可以找到，希望可以帮助到你。
同时,还有"太阳雨VC串口资料"和"太阳雨DELPHI"串口资料...
谁有VB和OMRON PLC 通信例子啊？能否发个原始代码？ 再次特别感谢！
提供一个VB.NET与OMRON以太网通讯的代码，是我项目里面复制出来的：
Dim Handle1 As Int32 'PLC的连接句柄
Dim EntLink As Boolean '连接标志
Dim PLC As New FinsTcp.PlcClient '引用OMRON的通讯组件
Private Sub butLink_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butLink.Click
Dim re As Short
Dim restr As String = ""
re = PLC.EntLink(Trim(txtLocalIP.Text), Val(txtLocalPort.Text), Trim(txtRemoteIP.Text), Val(txtRemotePort.Text), "DEMO", Handle1)
txtReLink.Text = re.ToString
If re = 0 Then
EntLink = True
MsgBox("PLC联接成功! ")
Else
EntLink = False
MsgBox("PLC联接失败: " restr)
End If
End Sub
Private Sub butClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butClose.Click
Dim re As Short
EntLink = False
re = PLC.DeLink(Handle1)
txtReClose.Text = re.ToString
End Sub
Private Sub butRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butRead.Click
Dim re As Short
Dim i As Short
Dim RD() As Object
ReDim RD(Val(txtReadCnt.Text - 1))
If Not EntLink Then
MsgBox("还未与PLC建立联接！")
Exit Sub
End If
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbReadMry.SelectedIndex + 1
Dim typ As FinsTcp.PlcClient.DataType = cmbReadType.SelectedIndex + 1
re = PLC.CmdRead(Handle1, mry, typ, CUShort(Val(txtReadAdd.Text)), CUShort(Val(txtReadCnt.Text)), RD)
txtReRead.Text = re.ToString
lstRead.Items.Clear()
For i = 0 To UBound(RD) Step 1
If Not IsNothing(RD(i)) Then lstRead.Items.Add(RD(i))
Next i
If re 0 Then
Timer1.Enabled = False
butScan.Text = "Cycle R/W"
End If
End Sub
Private Sub butWrite_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butWrite.Click
Dim re As Short
Dim i As Short
Dim temp() As String
Dim WD() As Object
If Not EntLink Then
MsgBox("还未与PLC建立联接！")
Exit Sub
End If
ReDim WD(Val(txtWriteCnt.Text) - 1)
temp = Split(txtWrite.Text, vbCrLf)
For i = 0 To UBound(WD) Step 1
If i UBound(temp) Then
WD(i) = 0
Else
WD(i) = Trim(temp(i))
End If
Next i
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbWriteMry.SelectedIndex + 1
Dim typ As FinsTcp.PlcClient.DataType = cmbWriteType.SelectedIndex + 1
re = PLC.CmdWrite(Handle1, mry, typ, CUShort(Val(txtWriteAdd.Text)), CUShort(Val(txtWriteCnt.Text)), WD)
txtReWrite.Text = re.ToString
If re 0 Then
Timer1.Enabled = False
butScan.Text = "Cycle R/W"
End If
End Sub
vb中winsock控件与欧姆龙plc以太网通讯 有没有案例程序 或是教程什么的 握手指令
计算机与外部设备通讯，需要了解外部设备通讯协议
该协议一般在外部设备所提供的文档中可以找到
通讯协议中一般包括：握手、数据格式等等，按照协议编写代码，就可以了
实现VB与欧姆龙PLC组态控制系统
你想理解这段代码，必须首先理解OMRON PLC 的通信协议
这个通信协议，可以到OMRON 网站下载
怎么实现vb与欧姆龙plc通讯？能附上源码最好
串口程序？
先建立硬件连接
其次，2 端编程
vb 串口编程 推荐看书
Visual_Basic与_RS-232_串行通信控制
欧姆龙plc 编程 看 欧姆龙plc 的 使用手册
百度文库里 有很多文档
建议 去搜搜
