网站标志
导航菜单
当前日期时间
当前时间:
购物车
购物车中有 0 件商品 去结算 我的订单
商品搜索
商品搜索:
文章正文
VB通过HMIruntime读取WinCC的错误处理问题
作者:管理员    发布于:2015-05-28 20:27:14    文字:【】【】【

 我用VB读WinCC的8个变量,程序如下,变量是读过来了,TimerDDE_Timer是6秒的定时器;但是现在有以下3个问题如下:
 1、我发现当VB程序先启动,而WinCC而后启动并激活时,变量一直读不过来;反之没有问题,请问是不是程序哪里有问题,还是要读取WINCC的运行状态?
 2、当WinCC与PLC连接断开时,读过来的变量还是之前没断时的值,一直不会改变,这是怎么回事,还是WinCC断开时调上来的值是不会变的,请问此时的WINCC状态VB能不能读取过来,谢谢!
3、当VB与WINCC通信正常时,如果WINCC突然取消激活,这个状态VB能不能读取,谢谢!
 Private Sub TimerDDE_Timer()
 Dim i As Integer
 Dim WINCC_Object As Object
 Dim WINCC_data(8) As Object
 
 Set WINCC_Object = CreateObject("CCHMIRuntime.HMIRuntime")
 Set WINCC_data(1) = HMIRuntime.Tags("DB34_8")
 WINCC_data(1).Read
 Set WINCC_data(2) = HMIRuntime.Tags("DB34_0")
 WINCC_data(2).Read
 Set WINCC_data(3) = HMIRuntime.Tags("DB34_4")
 WINCC_data(3).Read
 Set WINCC_data(4) = HMIRuntime.Tags("DB34_60")
 WINCC_data(4).Read
 Set WINCC_data(5) = HMIRuntime.Tags("DB31_16")
 WINCC_data(5).Read
 Set WINCC_data(6) = HMIRuntime.Tags("DB31_20")
 WINCC_data(6).Read
 Set WINCC_data(7) = HMIRuntime.Tags("DB36_0")
 WINCC_data(7).Read
 Set WINCC_data(8) = HMIRuntime.Tags("DB36_4")
 WINCC_data(8).Read
 For i = 1 To 8 Step 1
 data_test(i) = WINCC_data(i).Value
 Next i
 Set WINCC_Object = Nothing
 End Sub
答:1、可以把VB程序的执行文件放在WINCC项目属性-》启动里面,这样WINCC启动后自动启动VB程序文件,因为你这个对象是WINCC运行属性,如果没有运行哪个创建对象是空的,所以后面就不会执行,其实还可以判定对象创建是否成功,如果不成功提示或重新执行创建也应该可以可以。
 2、你可以先检查WINCC在与PLC断开时,WINCC变量值是否已经刷新还是保持。可能是WINCC保持了。
3、如果这个方法不行,还可以尝试WINCC带的DMC控件。

浏览 (110) | 评论 (0) | 评分(0) | 支持(0) | 反对(0) | 发布人:管理员
将本文加入收藏夹
新闻详情
脚注栏目
|
脚注信息
机电工程网(C) 2015-2020 All Rights Reserved.    联系我们