歐姆龍編程軟件安裝完之后，打開CX-Programmer出現(xiàn)“無法初始化CX-Service.檢查

歐姆龍編程軟件安裝完之后，打開CX-Programmer出現(xiàn)“無法初始化CX-Service.檢查是因?yàn)榘惭b過程中沒安裝軟件運(yùn)行環(huán)境點(diǎn)虐 1.1，解決步驟如下：

專注于為中小企業(yè)提供成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站建設(shè)服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)忠縣免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都，凝聚了一批互聯(lián)網(wǎng)行業(yè)人才，有力地推動了上千企業(yè)的穩(wěn)健成長，幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。

1、首先一步就是要進(jìn)行打開安裝包運(yùn)行setup。

2、接著就是進(jìn)行語言選擇。

3、然后點(diǎn)擊選中語言之后，這時(shí)候就要進(jìn)行安裝軟件運(yùn)行環(huán)境點(diǎn)虐 1.1。

4、接著點(diǎn)擊是之后，然后點(diǎn)擊下一步即可。

5、然后進(jìn)行輸入序列號，如下圖所示。

6、接著輸入完序列號之后，這時(shí)候點(diǎn)擊進(jìn)行下一步。

7、然后就是進(jìn)行網(wǎng)絡(luò)設(shè)置，設(shè)置完之后進(jìn)行點(diǎn)擊下一步，如下圖所示。

8、最后一步就是完成并重啟打開，這時(shí)候就可以正常運(yùn)行了。

歐姆龍PLC與vb通信 能否改變IO開關(guān)量（數(shù)據(jù)類型是bool）的值 怎么改？

plc 編程口是usb的 協(xié)議不公開 直接改變不能 但是你可以在plc里寫個(gè)通訊程序 比如自由口 串口一 接收到字符 1 把100.0 置1

然后在vb里 調(diào)用 COM控件 發(fā)送字符1 那么plc的 100.0口就可以改變了

誰有VB和OMRON PLC 通信例子啊？能否發(fā)個(gè)原始代碼？ 再次特別感謝！

提供一個(gè)VB.NET與OMRON以太網(wǎng)通訊的代碼，是我項(xiàng)目里面復(fù)制出來的：

Dim?Handle1?As?Int32?'PLC的連接句柄

Dim?EntLink?As?Boolean?'連接標(biāo)志

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聯(lián)接成功!?")

Else

EntLink?=?False

MsgBox("PLC聯(lián)接失敗:?"??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建立聯(lián)接！")

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建立聯(lián)接！")

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

大神，你好。我最近在學(xué)VB點(diǎn)虐 ,我需要與omron或者三菱PLC進(jìn)行通訊，有案例嘛？

西門子：WinTcpS7,三菱：EntQsPlc,歐姆龍：FinsTCP，百度都能搜到資源的；