锐客网

  1. 首页 > 生活百科 > it技术 > >

vb.net欧姆龙 欧姆龙编程软件怎么打开

IT技术欧姆龙

大神 ， 你好 。我最近在学VB.net,我需要与omron或者三菱PLC进行通讯，有案例嘛？西门子vb.net欧姆龙：WinTcpS7,三菱vb.net欧姆龙：EntQsPlc,欧姆龙：FinsTCPvb.net欧姆龙 ， 百度都能搜到资源vb.net欧姆龙的vb.net欧姆龙；
如何使用VB访问NETLINK并读写S7300 PLC数据PLC厂家一般都会提供高级语言的控制接口的：
三菱：ComFxPlc / EntQsPlc
欧姆龙： FinsTCP / FinsCom / HostLink
西门子：WinTcpS7 / WinS7_PPI
施耐德： ModbusTCP / ModbusRTU
可以百度一下 ......
谁有VB和OMRON PLC 通信例子?。磕芊穹⒏鲈即耄?再次特别感谢！提供一个VB.NET与OMRON以太网通讯vb.net欧姆龙的代码vb.net欧姆龙，是vb.net欧姆龙我项目里面复制出来的：
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建立联接vb.net欧姆龙！")
Exit Sub
End If
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbReadMry.SelectedIndex1
Dim typ As FinsTcp.PlcClient.DataType = cmbReadType.SelectedIndex1
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 re0 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建立联接vb.net欧姆龙！")
Exit Sub
End If
ReDim WD(Val(txtWriteCnt.Text) - 1)
temp = Split(txtWrite.Text, vbCrLf)
For i = 0 To UBound(WD) Step 1
If iUBound(temp) Then
WD(i) = 0
Else
WD(i) = Trim(temp(i))
End If
Next i
Dim mry As FinsTcp.PlcClient.PlcMemory = cmbWriteMry.SelectedIndex1
Dim typ As FinsTcp.PlcClient.DataType = cmbWriteType.SelectedIndex1
re = PLC.CmdWrite(Handle1, mry, typ, CUShort(Val(txtWriteAdd.Text)), CUShort(Val(txtWriteCnt.Text)), WD)
txtReWrite.Text = re.ToString
If re0 Then
Timer1.Enabled = False
butScan.Text = "Cycle R/W"
End If
End Sub
欧姆龙编程软件安装完之后，打开CX-Programmer出现“无法初始化CX-Service.检查欧姆龙编程软件安装完之后，打开CX-Programmer出现“无法初始化CX-Service.检查是因为安装过程中没安装软件运行环境.net1.1，解决步骤如下：
1、首先一步就是要进行打开安装包运行setup 。
2、接着就是进行语言选择 。
3、然后点击选中语言之后，这时候就要进行安装软件运行环境.net1.1 。
4、接着点击是之后，然后点击下一步即可 。
5、然后进行输入序列号，如下图所示 。
6、接着输入完序列号之后，这时候点击进行下一步 。
7、然后就是进行网络设置，设置完之后进行点击下一步，如下图所示 。
8、最后一步就是完成并重启打开，这时候就可以正常运行了 。
vb.net与三菱PLC通讯线通讯代码,急用 ， 能读写IO及数据寄存器即可PLC的协议厂家一般都不会公开，不过厂家都有提供高级语言开发的解决方案 ， 百度一下能找到相关资料，三菱的ENTFXPLC，ENTQSPLC,西门子的WINTCPS7，欧姆龙的FINSTCP都有VB.NET和C#的范例的；
欧姆龙PLC与vb通信能否改变IO开关量（数据类型是bool）的值怎么改？plc 编程口是usb的 协议不公开 直接改变不能 但是你可以在plc里写个通讯程序 比如自由口 串口一 接收到字符 1 把100.0 置1
然后在vb里 调用 COM控件 发送字符1 那么plc的 100.0口就可以改变了
【vb.net欧姆龙 欧姆龙编程软件怎么打开】vb.net欧姆龙的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于欧姆龙编程软件怎么打开、vb.net欧姆龙的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何联系新媒体公司，新媒体公司如何挣钱

    下一篇：贾乃亮直播双平台纪录，贾乃亮直播间视频