电工基础知识_电工技术-电工最常见电路移动版

　　label3.linktopic = “rslinx|” & “b01主系统”

　　label3.linkitem = “s:41”

　　label3.linkmode = 1

　　label3.linkrequest

　　label5.linktopic = “rslinx|” & “b01主系统”

　　label5.linkitem = “s:40”

　　label5.linkmode = 1

　　label5.linkrequest

　　label10.linktopic = “rslinx|” & “b01主系统”

　　label10.linkitem = “n60:11”

　　label10.linkmode = 1

　　label10.linkrequest

　　label12.linktopic = “rslinx|” & “b01主系统”

　　label12.linkitem = “n60:130”

　　label12.linkmode = 1

　　label12.linkrequest

　　label14.linktopic = “rslinx|” & “b01主系统”

　　label14.linkitem = “n60:131”

　　label14.linkmode = 1

　　label14.linkrequest

　　end sub

　　其中，代码中的“rslinx”和“b01主系统”分别表示应用程序名和主题名，“linkmode”值为1表示连接方式为automatic（即“热连接”）方式。这样当该应用代码被执行时，label的值便随a-b plc内存值的变化而变化。具体执行如图13所示。

　　2012-11-2 13:49:02 上传

　　下载附件（48.02 KB）

　　在excel中实现通过dde方式访问a-b plc 首先必须先安装rs linx创建dde topic. 比如我们定义一个topic名叫“b01主系统”，打开excel，创建宏命令，编写vba脚本如何读取和写入数据，从而完成与plc的数据交换。

　　sub start（）

　　dim lngrow as long

　　dim varcycle as variant

　　dim varlogging as variant

　　dim varresults as variant

　　on error goto error

　　rsichan = ddeinitiate（“rslinx”， “ b01主系统”）

　　varlogging = dderequest（rsichan， “n60/163”）

　　varcycle = dderequest（rsichan， “n60/161”）

　　l/？

　　if varcycle（1） = “1” and varlogging（1） = “1” then

　　lngrow = 3

　　if range（“indata！a3”）.value 》 3 then

　　lngrow = range（“indata！a3”）.value

　　end if

　　for lngrow = lngrow to 65500

　　if cells（lngrow， 1） = “” then exit for

　　range（“indata！a3”）.value=lngrow + 1

　　next

　　rsichan = ddeinitiate（“rslinx”， “n1”）

　　f810data = dderequest（rsichan， “f8:10”）

　　f811data = dderequest（rsichan， “f8:11”）

　　f812data = dderequest（rsichan， “f8:12”）

　　f816data = dderequest（rsichan， “f8:16”） (责任编辑：admin)