我们专注攀枝花网站设计 攀枝花网站制作 攀枝花网站建设
成都网站建设公司服务热线:400-028-6601

网站建设知识

十年网站开发经验 + 多家企业客户 + 靠谱的建站团队

量身定制 + 运营维护+专业推广+无忧售后,网站问题一站解决

vb点虐 欧姆龙 vb与欧姆龙plc通讯

欧姆龙编程软件安装完之后,打开CX-Programmer出现“无法初始化CX-Service.检查

欧姆龙编程软件安装完之后,打开CX-Programmer出现“无法初始化CX-Service.检查是因为安装过程中没安装软件运行环境点虐 1.1,解决步骤如下:

专注于为中小企业提供成都网站设计、成都网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业忠县免费做网站提供优质的服务。我们立足成都,凝聚了一批互联网行业人才,有力地推动了上千企业的稳健成长,帮助中小企业通过网站建设实现规模扩充和转变。

1、首先一步就是要进行打开安装包运行setup。

2、接着就是进行语言选择。

3、然后点击选中语言之后,这时候就要进行安装软件运行环境点虐 1.1。

4、接着点击是之后,然后点击下一步即可。

5、然后进行输入序列号,如下图所示。

6、接着输入完序列号之后,这时候点击进行下一步。

7、然后就是进行网络设置,设置完之后进行点击下一步,如下图所示。

8、最后一步就是完成并重启打开,这时候就可以正常运行了。

欧姆龙PLC与vb通信 能否改变IO开关量(数据类型是bool)的值 怎么改?

plc 编程口是usb的 协议不公开 直接改变不能 但是你可以在plc里写个通讯程序 比如自由口 串口一 接收到字符 1 把100.0 置1

然后在vb里 调用 COM控件 发送字符1 那么plc的 100.0口就可以改变了

谁有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点虐 ,我需要与omron或者三菱PLC进行通讯,有案例嘛?

西门子:WinTcpS7,三菱:EntQsPlc,欧姆龙:FinsTCP,百度都能搜到资源的;


名称栏目:vb点虐 欧姆龙 vb与欧姆龙plc通讯
地址分享:http://mswzjz.cn/article/ddipdjs.html

其他资讯