yzdatouzh-cnGoodspeed Rss10Tue, 14 Oct 2008 15:42:19 GMT一段有意思的定时器代码Tue, 07 Oct 2008 20:17:51 GMThttp://blog.cechinamag.com/yzdatou/134769/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="7" Month="10" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">亿万论坛里面有人贴出一段简单的代码，说有问题，源代码如下（我按照帖子内容，用<span lang="EN-US">lad</span>写的然后转换成<span lang="EN-US">stl</span>的<span lang="EN-US">source</span>代码）：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">----------------------------------------------------------<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">NETWORK<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">TITLE =<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>AN<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>T<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>0; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>=<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>M<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>0.0; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">NETWORK<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">TITLE =<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>A<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>M<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>0.0; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span><span style="mso-spacerun: yes">&nbsp;&nbsp;</span>L<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>S5T#1S; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>SD<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>T<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>0;<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">NETWORK<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">TITLE =<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>A<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>T<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>0; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>JNB<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>_001; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>L<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>MW<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>2; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>L<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>1; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>+I<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </span>T<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>MW<span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp;&nbsp; </span>2; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">_001: NOP<span style="mso-spacerun: yes">&nbsp;&nbsp; </span>0; <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">在<span lang="EN-US">plcsim</span>里面测试下，果然只见定时器一遍一遍的计时，说明定时器确实在反复的工作，然而计数器却不见动静；我对西门子的定时器指令一向比较发怵，每次用的时候都要看<span lang="EN-US">help</span>反复测试，于是查<span lang="EN-US">help</span>关于<span lang="EN-US">sd</span>指令的描述：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">--( SD ) (On Delay Timer Coil) starts the specified timer with the &lt;time value&gt; if there is a positive edge on the RLO state. The signal state of the timer is "1" when the &lt;time value&gt; has elapsed without error and the RLO is still "1". When the RLO changes from "1" to "0" while the timer is running, the timer is reset. In this case, a scan for "1" always produces the result "0".<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">无非就是上升沿触发开始计时，时间到了以后若输入端还为<span lang="EN-US">1</span>则定时器输出为<span lang="EN-US">1</span>，否则被<span lang="EN-US">reset</span>掉；<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">试着把定时器<span lang="EN-US">t0</span>去<span lang="EN-US">set</span>一下<span lang="EN-US">m0.1</span>，然后用<span lang="EN-US">m0.1</span>带计数器，还是没动静；再试着用<span lang="EN-US">plcsim</span>的单步执行功能，终于发现问题了，把最后一个<span lang="EN-US">network</span>内容移到最前面就<span lang="EN-US">ok</span>了。我想，当定时器计时到了以后，程序继续往下执行，此时定时器输出状态并没有刷新，而是要等到下次扫描才能输出为<span lang="EN-US">true</span>，而原程序中计数部分是放在最后的，永远也没机会得到计数的机会鸟。<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/134769/message.aspx西门子 PLC/PACPLC里面做数据归档Tue, 07 Oct 2008 20:13:58 GMThttp://blog.cechinamag.com/yzdatou/134768/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="10" Month="9" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">去年参加<span lang="EN-US">rockwell</span>的产品介绍会曾经听说了<span lang="EN-US">ab</span>的<span lang="EN-US">plc</span>所支持的存储卡越来越大，其中一个原因是数据归档的要求。而西门子的<span lang="EN-US">300</span>和<span lang="EN-US">400</span>似乎没有看到这样的功能。最近因为帮同事看了看<span lang="EN-US">S7-200</span>的手册，里面有一章是讲<span lang="EN-US">200</span>的数据归档功能，<span lang="EN-US">200</span>可以配置<span lang="EN-US">4</span>个独立的数据归档，记录最大<span lang="EN-US">65535</span>，那么按照每秒一条记录来算的话：<span lang="EN-US">65535/60/60</span>＝<span lang="EN-US">18.2</span>，也就是只能记录<span lang="EN-US">18</span>个小时。另外记录是存在<span lang="EN-US">V</span>区也就是内存里面的，可以指定写到存储卡的周期，太快了会影响到存储卡的寿命，手册里面宣称是<span lang="EN-US">100</span>万次，按照每分钟写一次来计算的话：<span lang="EN-US">1000000/60/24</span>＝<span lang="EN-US">694</span>天，<span lang="EN-US">2</span>年不到，所以还是放慢点好比如<span lang="EN-US">10</span>分钟。这点跟<span lang="EN-US">300</span>的<span lang="EN-US">mmc</span>卡也很象，手册里面说某些指令涉及到写存储卡的不能用的太频繁否则会导致卡的寿命缩短。<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/134768/message.aspx西门子 PLC/PACWincc连接数据库Wed, 10 Sep 2008 20:21:57 GMThttp://blog.cechinamag.com/yzdatou/120998/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="25" Month="8" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">一直想研究、学习这个问题，就是没有静下心来弄。前面也有网友问了这个问题，最近总算“心血来潮”有兴趣了。这个问题其实分成两个部分，一是<span lang="EN-US">wincc</span>连接外部数据库，例如<span lang="EN-US">sqlserver</span>、<span lang="EN-US">access</span>或者<span lang="EN-US">oracle</span>等，这样可以方便的把<span lang="EN-US">wincc</span>采集到的数据导出去；二是把<span lang="EN-US">wincc</span>的归档和报警数据查询并导出去；<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Wincc</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">的<span lang="EN-US">help</span>里面有现成的例子解决了第一个问题，而论坛里面早有人发过帖子提供了相关资料，此外西门子出版的那本深入浅出<span lang="EN-US">wincc</span>也详细描述了这两个问题。认真拜读了下，发现很简单，需要了解的就是一点数据库知识和<span lang="EN-US">ado</span>对象的知识，幸亏<span lang="EN-US">n</span>年前曾经在<span lang="EN-US">vb</span>访问数据库方面下过一点功夫，所以很快就依葫芦画瓢搞定了第一个问题。顺便按照<span lang="EN-US">help</span>里面的例子又写了个<span lang="EN-US">wincc</span>写数据到<span lang="EN-US">excel</span>的代码。想修改下例子，即能创建一个<span lang="EN-US">excle</span>文件，却发现<span lang="EN-US">excel</span>对象的方法没有创建文件的方法，不行，于是去找其它对象发现只能创建文本文件，郁闷。后来想，干脆先创建一个<span lang="EN-US">excel</span>文件，然后代码里面先打开这个文件进行修改，最后<span lang="EN-US">saveas</span>成另外一个文件（用当时的时间命名保证文件名唯一性）不就可以了么，这样就比较实用了哈哈。<span lang="EN-US"><o:p></o:p></span></span></p><span style="FONT-SIZE: 12pt; FONT-FAMILY: 宋体; mso-font-kerning: 1.0pt; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">然后开始研究第二个问题却费了点周折，我自以为是的想看看趋势数据库究竟是什么结构，却找不到表和数据，后来才发现资料上说趋势和报警归档数据是压缩的，是采用了特殊的<span lang="EN-US">wincc oledb provider for sqlserver</span>，并不是普通的<span lang="EN-US">oledb for sqlserver</span>。想想也有道理，归档数据必然是采用压缩算法进行存储，西门子应该是基于微软的<span lang="EN-US">sqlserver</span>做了二次开发。不过印象里面<span lang="EN-US">wincc</span>的归档数据库号称每秒能写<span lang="EN-US">1</span>万条记录，这点跟当前流行的实时数据库还是有差距的，西门子好像也一直没有所谓的实时数据库产品。连上了归档数据库后，却一直查询不到数据，很郁闷。后来总算查到了，发现时间不对，仔细对照后，终于明白了归档数据的时间是格林威治时间，跟咱的北京时间差了<span lang="EN-US">8</span>小时。后来在中国工控网论坛里面看到有强人发的帖子，人家早就发现了这点并贴出了源代码。我写了个北京时间和格林威治时间转换的模块，还挺罗嗦的。另外也试着把代码放在<span lang="EN-US">vb</span>和<span lang="EN-US">wincc</span>的<span lang="EN-US">vbs</span>里面执行，感觉还是放在<span lang="EN-US">vb</span>里面好一点，这样容易把代码封装好便于项目间通用。</span>http://blog.cechinamag.com/yzdatou/120998/message.aspx西门子 工控软件用opc连接s7－300Wed, 10 Sep 2008 20:21:25 GMThttp://blog.cechinamag.com/yzdatou/120997/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="21" Month="8" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">之前看了些资料，也看了同事用<span lang="EN-US">ifix</span>走<span lang="EN-US">opc</span>连接<span lang="EN-US">s7</span>，感觉跟以前用<span lang="EN-US">citect</span>配通讯很类似，也是在<span lang="EN-US">netpro</span>里面建一个<span lang="EN-US">pc station</span>，然后<span lang="EN-US">insert</span>一个<span lang="EN-US">ie general</span>和一个<span lang="EN-US">application</span>。而用<span lang="EN-US">opc</span>的话不过是把<span lang="EN-US">application</span>改为<span lang="EN-US">opc server</span>。果然，折腾了一会就连上了。不过发现用西门子的<span lang="EN-US">opc scout</span>建立<span lang="EN-US">db</span>变量的话，必须和<span lang="EN-US">plc</span>连接起来在线扫描出<span lang="EN-US">plc</span>里面所有的<span lang="EN-US">db</span>，否则离线的话无法输入标签，这点不好啊。<span lang="EN-US">M</span>变量倒是可以随便敲的，不管是否在线。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">后来想脱离<span lang="EN-US">simaticnet</span>，于是去网上找了个<span lang="EN-US">kepserver </span>，这是个比较著名的<span lang="EN-US">opc server</span>，在我前面百度<span lang="EN-US">opc</span>资料的时候常常能看到有网友提到这个东东。安装时提示有很多厂家的驱动，我只选了<span lang="EN-US">s7</span>的<span lang="EN-US">tcp</span>－<span lang="EN-US">ip</span>驱动，运行起来，按照向导一步一步的配参数，很<span lang="EN-US">easy</span>，也是很轻松的就连上了<span lang="EN-US">plc</span>。看了下，居然还附带了一个<span lang="EN-US">vb</span>的<span lang="EN-US">client</span>例子，运行了下还不错，早知道就安装这个<span lang="EN-US">kepserver</span>来学习<span lang="EN-US">vb</span>编写<span lang="EN-US">client</span>了。而且看到网上说，<span lang="EN-US">ab</span>也推荐用<span lang="EN-US">kepserver</span>连接<span lang="EN-US">ab</span>以外厂家的<span lang="EN-US">plc</span>。<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/120997/message.aspx西门子 PLC/PAC学习用VB编写OPC Client（6）Mon, 25 Aug 2008 20:39:08 GMThttp://blog.cechinamag.com/yzdatou/116531/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="2" Month="7" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">关于异步读写<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">有了前面同步读写的基础，异步读写就轻松多了。同样是在定时器事件里面启动<span lang="EN-US">group</span>的<span lang="EN-US">asynchread</span>方法，但是数据接收则是在<span lang="EN-US">group</span>的<span lang="EN-US">asynchreadcomplete</span>事件中，所以异步读就显得比较效率高点，发完请求以后就等着数据来了再触发接收事件，而这期间可以干点其它事情了。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">而所谓的订阅方式就更简单了，在<span lang="EN-US">group</span>的<span lang="EN-US">datachange</span>事件中等数据来就行了，根本就不用发数据请求出去，只要把<span lang="EN-US">group</span>的<span lang="EN-US">isactive</span>属性置为<span lang="EN-US">true</span>就可以了。不过我测试中发现，有时候该事件接收不到数据，而切换到同步或者异步再切换回来，订阅的数据就变化了，不理解啊。看来还是异步的方式在三者中可靠且完善点。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">关于异步写，看了写觉得差不多就偷懒不写代码测试了。毕竟碰到大批量数据写下去的情况几乎不会被我碰到吧。我的出发点还是立足于读数据出来转到其它地方去处理：或者入数据库，或者入<span lang="EN-US">excel</span>去打印等等。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-INDENT: 27pt; LINE-HEIGHT: 150%; mso-char-indent-count: 2.25"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">另外，顺便试了<span lang="EN-US">opcserver</span>的几个属性：启动时间，运行时间和版本号，发现还有有用的，可以查看<span lang="EN-US">server</span>的状态。而<span lang="EN-US">item</span>的几个属性也试了下，比如质量、时标，数据类型，但是其中一个工程单位的属性（<span lang="EN-US">EUInfo</span>）始终报错，很郁闷。换了<span lang="EN-US">opcserver</span>都一样。可用标准的<span lang="EN-US">opcclient</span>软件－<span lang="EN-US">Factroy OPC Client</span>却能够读取该属性，不晓得人家是怎么弄的（当然人家肯定是用<span lang="EN-US">c</span>之类写的吧，<span lang="EN-US">vb</span>实在是太傻瓜化了，隐藏了太多的细节）<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/116531/message.aspx杂谈 工控软件学习用VB编写OPC Client（5）Mon, 25 Aug 2008 20:38:16 GMThttp://blog.cechinamag.com/yzdatou/116530/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span lang="EN-US"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></span></p><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">关于异步读写所联想到的<span lang="EN-US">……<o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">粗粗的浏览了一下资料里面关于异步读写的描述，包括订阅更新，感觉是一种很好的做法，特别是数据量大的时候。因为同步读写必须等待服务器返回结果才能继续后面的代码。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">看到这里，我想到了前面研究<span lang="EN-US">modbus</span>通讯时，对于<span lang="EN-US">485</span>总线多站点轮询，曾经想当然的考虑过一个方法：主站先把所有报文统统发送出去，然后等待各条报文返回来，或者是发送一条报文就接收一次再发送一次再接收一次如此循环，当然由于速度问题，每次接收的报文基本上不可能是上条发送的请求报文的返回了，我以为如此可以达到很高的效率。但是当实际动手开始编的时候，才发现这种想法是不能实现的，原因在于无法完全识别返回的报文是哪条发送报文的正确返回。例如第一条报文请求读取站号<span lang="EN-US">=2</span>的从站的<span lang="EN-US">8</span>个<span lang="EN-US">bool</span>量，而第二条报文则是请求读取站号＝<span lang="EN-US">2</span>的另外<span lang="EN-US">8</span>个<span lang="EN-US">bool</span>量，那么主站收到返回报文后就无法识别读到的这<span lang="EN-US">8</span>个<span lang="EN-US">bool</span>量是从站中哪片地址区的（因为返回报文中只包含了功能码、站号、返回的字节数和数据内容）。所以只能是发送请求报文以后，“耐心”等待返回的报文。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">这样看来，<span lang="EN-US">modbus</span>是一种同步读写的机制，而我所设想的所谓方法是一种不能实现的“异步”读写机制。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">说句瞎话，其实只要修改一下<span lang="EN-US">slave</span>返回的报文格式就能够使得<span lang="EN-US">master</span>识别出<span lang="EN-US">slave</span>返回报文的归属，以读数据为例，把返回报文变成：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">发送报文（不含<span lang="EN-US">crc</span>码）＋返回数据字节数＋返回数据＋<span lang="EN-US">crc</span>码<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">这样的话，我前面胡乱想的那个所谓“异步”读写方法就能实现鸟。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">可惜啊，当初制定<span lang="EN-US">modbus</span>规约的时候没这么设计<span lang="EN-US">……\^_^/<o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/116530/message.aspx杂谈 工控软件学习用VB编写OPC Client（4）Sat, 23 Aug 2008 14:45:37 GMThttp://blog.cechinamag.com/yzdatou/116296/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="1" Month="7" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">关于引用对象的问题<span lang="EN-US"><o:p></o:p></span></span></b></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">从下载的资料看，需要在工程里面引用一个<span lang="EN-US">opc</span>对象。我看的是用<span lang="EN-US">opc</span>访问<span lang="EN-US">wincc</span>的文章，里面提到“</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-family: 宋体">先在“引用”将近</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-bidi-font-family: 宋体"> Siemens OPC DAAutomation 2.0</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-bidi-font-family: 宋体">加入</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">”，试了下去掉这个引用，运行程序就报告“变量未定义”，指向的就是定义的几个<span lang="EN-US">opc</span>对象变量。试着引用另外一个<span lang="EN-US">opc</span>对象－</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-bidi-font-family: 宋体">OPC Automation 2.0,</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-bidi-font-family: 宋体">就可以了。看来引用只是为了能够声明和定义<span lang="EN-US">opc</span>对象而已，所以随便找个就可以了。</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">关于同步读的问题<span lang="EN-US"><o:p></o:p></span></span></b></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">百度上搜到<span lang="EN-US">csdn</span>上有同步读写的代码，看了下很奇怪<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">Private Sub Command_Read_Click()'</span><span style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">同步读</span><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt"><o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">&nbsp;&nbsp;&nbsp; Dim OutText As String<br>&nbsp;&nbsp;&nbsp; Dim myValue As Variant<br>&nbsp;&nbsp;&nbsp; Dim myQuality As Variant<br>&nbsp;&nbsp;&nbsp; Dim myTimeStamp As Variant<br>&nbsp;&nbsp;&nbsp; On Error GoTo ErrorHandler<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">&nbsp;&nbsp;&nbsp; OutText = "</span><span style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">读</span><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">ITEM</span><span style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">值</span><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">"<br>&nbsp;&nbsp;&nbsp; ItemObj.Read OPCDevice, myValue, myQuality, myTimeStamp<br>&nbsp;&nbsp;&nbsp; Edit_ReadVal = myValue<br>&nbsp;&nbsp;&nbsp; Edit_ReadQu = GetQualityText(myQuality)<br>&nbsp;&nbsp;&nbsp; Edit_ReadTS = myTimeStamp<br>&nbsp;&nbsp;&nbsp; Exit Sub<br>&nbsp;&nbsp;&nbsp; ErrorHandler:<br>&nbsp;&nbsp;&nbsp; MsgBox Err.Description + Chr(13) + _<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; OutText, vbCritical, "ERROR"<br>&nbsp;&nbsp;&nbsp; End Sub<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">其中</span><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; LINE-HEIGHT: 150%; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">GetQualityText</span><span style="FONT-SIZE: 9pt; COLOR: #333333; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-font-kerning: 0pt; mso-ascii-font-family: Tahoma; mso-hansi-font-family: Tahoma; mso-bidi-font-family: Tahoma">是自定义函数，标签质量代码的解释</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">Private Function GetQualityText(Quality) As String<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">&nbsp;&nbsp;&nbsp; Select Case Quality<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 0:&nbsp;&nbsp;&nbsp;&nbsp; GetQualityText = "BAD"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 64:&nbsp;&nbsp;&nbsp; GetQualityText = "UNCERTAIN"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 192:&nbsp;&nbsp; GetQualityText = "GOOD"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 8:&nbsp;&nbsp;&nbsp;&nbsp; GetQualityText = "NOT_CONNECTED"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 13:&nbsp;&nbsp;&nbsp; GetQualityText = "DEVICE_FAILURE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 16:&nbsp;&nbsp;&nbsp; GetQualityText = "SENSOR_FAILURE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 20:&nbsp;&nbsp;&nbsp; GetQualityText = "LAST_KNOWN"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 24:&nbsp;&nbsp;&nbsp; GetQualityText = "COMM_FAILURE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 28:&nbsp;&nbsp;&nbsp; GetQualityText = "OUT_OF_SERVICE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 132:&nbsp;&nbsp; GetQualityText = "LAST_USABLE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 144:&nbsp;&nbsp; GetQualityText = "SENSOR_CAL"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 148:&nbsp;&nbsp; GetQualityText = "EGU_EXCEEDED"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 152:&nbsp;&nbsp; GetQualityText = "SUB_NORMAL"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case 216:&nbsp;&nbsp; GetQualityText = "LOCAL_OVERRIDE"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case Else: GetQualityText = "UNKNOWN ERROR"<br>&nbsp;&nbsp;&nbsp; End Select<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; TEXT-ALIGN: left; mso-pagination: widow-orphan; mso-margin-top-alt: auto; mso-margin-bottom-alt: auto" align="left"><span lang="EN-US" style="FONT-SIZE: 9pt; COLOR: #333333; FONT-FAMILY: Tahoma; mso-font-kerning: 0pt">End Function<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">问题关键在于上面代码的同步读采用的是<span lang="EN-US">item</span>对象的<span lang="EN-US">read</span>方法，而别的资料则是用<span lang="EN-US">group</span>的<span lang="EN-US">syncread</span>方法，显然后者效率高。形如：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">objGroup.SyncRead OPCCache, UBound(lServerHandles), lServerHandles, vItemData, lErrors<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">其中<span lang="EN-US">opccache</span>是个关键字，也可以用<span lang="EN-US">opcdevice</span>关键字，在规范里面讲了一下两者的区别。运行了下，老是报告参数错误然后竟然<span lang="EN-US">vb</span>出错了，以为是前面错误多了导致突然退出程序没有释放定义的对象，于是重启机器，还是依旧，看来不是这个原因了。换个引用的<span lang="EN-US">opc</span>对象试试看？果然<span lang="EN-US">ok</span>了，数据读上来了。想到<span lang="EN-US">csdn</span>的代码里面有标签质量，那么<span lang="EN-US">group</span>的<span lang="EN-US">syncread</span>方法也有质量参数不过是可选的，于是加上一个参数，定义为<span lang="EN-US">variant</span>即可，但是在显示这个质量参数的时候却出错了。我猜想应该是数组的形式来引用――――尽管其被调用的时候被定义为<span lang="EN-US">variant</span>，果然如此。然后借用前面<span lang="EN-US">csdn</span>的<span lang="EN-US">GetQualityText</span>函数即可显示出标签的质量了，正常就是<span lang="EN-US">good </span>，否则是<span lang="EN-US"> bad</span>。同样道理，时间标戳（<span lang="EN-US">TIME STAMP</span>）也可以显示出来。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">下一步是同步写的问题。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">读的问题解决了，写就简单了，语法是：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US">SyncWrite(NumItems As Long, ServerHandles() As Long, Values() As Variant, ByRef Errors() As Long)</span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">不过发现</span><span lang="EN-US">opc</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">官方文档里面的例子居然有错，就是</span><span lang="EN-US">Values()</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">这个数组在定义的时候必须指定长度否则</span><span lang="EN-US">vb</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">报告下标错。我猜想这是因为在调用</span><span lang="EN-US">syncwrite</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">方法之前，肯定要对</span><span lang="EN-US">values</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">数组元素赋值，此时没有调用</span><span lang="EN-US">syncwrite</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">造成系统不能划出</span><span lang="EN-US">values</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">数组的大小，悖论啊，瞎猜瞎猜。</span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">问题又来了，实际应用中，可能仅仅是指定某几个标签写下去，怎么办？</span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">受到前面<span lang="EN-US">csdn</span>的代码启示，用<span lang="EN-US">item</span>的<span lang="EN-US">write</span>方法，写了一个小函数：<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Sub SingleWrite(Index As Long, Value As Variant)<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">'</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">单个写<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Dim objItem As OPCItem<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">If Not objItems Is Nothing Then<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>Set objItem = objItems.Item(Index)<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>objItem.Write Value<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">End If<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Set objItem = Nothing<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">End Sub<o:p></o:p></span></p><span style="FONT-SIZE: 12pt; FONT-FAMILY: 宋体; mso-font-kerning: 1.0pt; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">下一步研究下异步读写的问题。</span>http://blog.cechinamag.com/yzdatou/116296/message.aspx杂谈 工控软件学习用VB编写OPC Client（3）Tue, 19 Aug 2008 18:14:33 GMThttp://blog.cechinamag.com/yzdatou/115404/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span lang="EN-US"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></span></p><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">添加标签的方法。<span lang="EN-US"><o:p></o:p></span></span></b></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">首先看了看本机上一个<span lang="EN-US">opcserver</span>运行起来以后，发现里面有好几个<span lang="EN-US">group</span>，那么我总不能定义一摸一样的几个<span lang="EN-US">group</span>吧？看了下网上有人写的帖子，说<span lang="EN-US">client</span>里面无须指定跟<span lang="EN-US">server</span>一样的<span lang="EN-US">group</span>，我想这是很合理的，毕竟只要以标签名作为唯一标识就可以了（这里就应该隐含着<span lang="EN-US">opcserver</span>上标签名称是唯一的，不管其在不在一个<span lang="EN-US">group</span>中）<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">网上的例子里面是做了个示范，标签名用了个循环赋值，<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue">For I = 1 To 17<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue"><span style="mso-spacerun: yes">&nbsp;</span><b style="mso-bidi-font-weight: normal"><u>strItemIDs(I) = "Server.Group.TAG" &amp; I <o:p></o:p></u></b></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue">lClientHandles(I) = I <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue">Next ' </span><span style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">添加</span><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue">OPC</span><span style="FONT-SIZE: 12pt; COLOR: blue; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">项</span><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue"> <o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%">Call objItems.AddItems(17, strItemIDs, lClientHandles, lServerHandles, lErrors)</span><span lang="EN-US" style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">但是例子里面也承认“</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPC</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">客户端程序要按照用户指定的标签或者从组态文件里读取需要添加的</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPC</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">标签。</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">”<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">那么，实际上来说，要么用<span lang="EN-US">browse</span>标签的方法去一个一个选择标签，要么事先在程序里面指定好各个标签名字了（当然可以用一个类似与<span lang="EN-US">ini</span>配置文件的方法存储好要各个标签的名字，这个以后再说吧）。从实际应用考虑，我觉得<span lang="EN-US">browse</span>的方法没有必要，因为一般来说直接确定好哪些标签就行了，而且如果用参数文件的话也算比较容易后期进行配置（前提应该是<span lang="EN-US">tag</span>名字要写正确）。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Items</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">有个<span lang="EN-US">additems</span>的方法，用于添加标签，参数比较多，认真看了下例子，还是有点技巧的，从第二个参数开始都是数组类型的参数，而前两个数组必须指定好长度，后面三个数组则无须指定长度，很怪啊，反正<span lang="EN-US">vb</span>认可就<span lang="EN-US">ok</span>了，难怪例子里面这么定义的几个数组。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">下一步就是标签的读写了，里面牵涉的内容好像挺多，主要是同步和异步读写问题，后面再研究吧。<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/115404/message.aspx杂谈 工控软件学习用VB编写OPC Client（2）Tue, 19 Aug 2008 18:13:47 GMThttp://blog.cechinamag.com/yzdatou/115403/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><?xml:namespace prefix = st1 ns = "urn:schemas-microsoft-com:office:smarttags" /><st1:chsdate w:st="on" IsROCDate="False" IsLunarDate="False" Day="30" Month="6" Year="2008"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"></span></st1:chsdate><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></p><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">找到一段代码，可以<b style="mso-bidi-font-weight: normal"><span style="COLOR: blue">实现获得所有本电脑上运行的<span lang="EN-US">opc</span>服务</span></b><span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Private Sub Command1_Click()<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">Dim AllOPCServers As Variant<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>Dim i As Integer<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>Set AnOPCServer = New OPCServer<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>List1.Clear<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>AllOPCServers = AnOPCServer.GetOPCServers<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>For i = LBound(AllOPCServers) To UBound(AllOPCServers)<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>List1.AddItem AllOPCServers(i)<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp;&nbsp; </span>Next i<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体"><span style="mso-spacerun: yes">&nbsp;&nbsp; </span>Set AnOPCServer = Nothing<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">End Sub<o:p></o:p></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">试了一下果然可以。点击<span lang="EN-US">list</span>中某一个<span lang="EN-US">opcserver</span>，然后调用<span lang="EN-US">opcserver</span>对象的<span lang="EN-US">connect</span>方法就可以连接上去了。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">我试着定时检查<span lang="EN-US">opcserver</span>的<span lang="EN-US">serverstatus</span>属性（</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">服务器状态</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">ServerState</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">属性一共有</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCRunning</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">、</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCFailed</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">、</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCNoconfig</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">、</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCSuspended</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">、</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCTest</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">和</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPCDisconnected</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">六个值，分别表示正在运行、失败、没有配置、暂停、测试和没有连接六种</span><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%">OPC</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">服务器当前的状态。</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">）连接成功后，的却返回了<span lang="EN-US">opcrunning</span>值，而断开后也能返回“<span lang="EN-US">opcdisconnected</span>”值。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><b style="mso-bidi-font-weight: normal"><span style="FONT-SIZE: 12pt; COLOR: blue; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">不过不知道在非正常中断连接（比如远程服务器网络中断等）的时候，该属性是否能真正反应状态？<span lang="EN-US">ms</span>有人说不行，需要从标签变<span lang="EN-US">bad</span>来判断。回头在虚拟机上装个<span lang="EN-US">opcserver</span>来测试一下。<span lang="EN-US"><o:p></o:p></span></span></b></p>http://blog.cechinamag.com/yzdatou/115403/message.aspx杂谈 工控软件Wincc7的新特性Sat, 16 Aug 2008 13:57:49 GMThttp://blog.cechinamag.com/yzdatou/114814/message.aspx<p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%">&nbsp;</p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">这两天参加了西门子的<span lang="EN-US">wincc</span>高级培训，其实是介绍了刚刚推出的<span lang="EN-US">wincc7</span>的一些新特点，听了两天下来，感觉<span lang="EN-US">7.0</span>版本确实是焕然一新啊，很多方面都做了改进，说说其中几点吧：<span lang="EN-US"><?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">1</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、界面漂亮了，配色方案丰富了，可以统一修改界面风格；<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">2</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、很多控件都改头换面了，比如报警控件、趋势控件似乎是重写了，可以直接把里面的记录<span lang="EN-US">copy</span>出来然后<span lang="EN-US">paste</span>到<span lang="EN-US">excel</span>里面去。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">3</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、西门子发了张<span lang="EN-US">dvd</span>，里面包括了<span lang="EN-US">wincc7</span>、<span lang="EN-US">sqlserver2005</span>和<span lang="EN-US">simaticnet</span>等，安装的时候可以一次整体安装完成，不过我安装的时候费了点力气，因为我的操作系统没有安装<span lang="EN-US">kb319740</span>补丁，而光盘里面没有中文版的，导致出错我又没有认真看出错提示，耽误了不少时间。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">4</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、增加了“面板”，所谓的<span lang="EN-US">faceplate</span>，有点控件的味道但不是真正的控件，感觉只能用所谓的面板变量有点怪，有时间再研究。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">5</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、驱动里面增加了<span lang="EN-US">controlgix</span>的以太网驱动和<span lang="EN-US">modbus tcp/ip</span>驱动（看了下里面的配置，是针对施耐德<span lang="EN-US">plc</span>的），看来<span lang="EN-US">6.0</span>版本里面只有西门子驱动遭到了用户的批评啊，把问题都推给<span lang="EN-US">opc</span>不是个好办法，毕竟用户还要去找第三方的<span lang="EN-US">opc</span>驱动还是很麻烦的事情。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span lang="EN-US" style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">6</span><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">、所谓的“服务”模式，有点不明白，要是有演示就好了。看介绍，这种模式无须登陆，可以远程修改，还是不太明白这种模式的好处啊。<span lang="EN-US"><o:p></o:p></span></span></p> <p class="MsoNormal" style="MARGIN: 0cm 0cm 0pt; LINE-HEIGHT: 150%"><span style="FONT-SIZE: 12pt; LINE-HEIGHT: 150%; FONT-FAMILY: 宋体">其它新的特性还很多，有待于真正开发的时候才能去体会了。<span lang="EN-US"><o:p></o:p></span></span></p>http://blog.cechinamag.com/yzdatou/114814/message.aspx西门子 SCADA