wincc的n个经典问题解答之三-专业自动化论坛-中国工控网论坛

wincc的n个经典问题解答之三点击：12998 | 回复：56

精华：172帖
求助：0帖
帖子：803帖 | 5249回
年度积分：0
历史总积分：0
注册：1900年1月01日

发表于：2005-12-27 17:23:00

楼主

部分非本人原创,整理在一起旨在给大家提供方便!

41:用C编程解决授权点数不够用的问题(acsun提供)

      当需要的工艺参数超过WinCC版本限制的Tag数目,可以用C语言编程实现多个工艺参数打包成一个Tag传送.例如某个配料称重系统有146个参数超过了WinCC的128个Tag的限制就可以用C语言编程决这一问题而不需要购买更高的授权.

基本思想就是把多个参数在下位机内存中连续排列然后在WinCC中定义一个Tag它的长度是多个参数之和取得这个Tag后编程将其分成多个参数

例如下位机有两个参数LTN44001和LTN44023都是16位整数分别存放在DD99.DW146和DD99.DW148
在WinCC中定义一个外部Tag命名为PackageTag类型为32位整数并联地址为DD99.DBD146再定义两个内部tag名为LTN44001和LTN44023在 Global Script全局脚本中C语言编程如下
Union
{
Long Dword
Int Word[2]
}union
Union.Dword=GetTagDword("PackageTag")
SetTagWord("LTN44001",Union.Word[0])
SetTagWord("LTN44023",Union.Word[0])
这样两个参数LTN44001和LTN44023就通过一个Tag传送上来了理论上只要下位机内存足够可以传送任意数量的参数而不受WinCC版本外部Tag数目的限制.

42:如何在WinCC里用C语言调用SQL语言？
    1、创建一个SQL文件。
此文件在ISQL中创建，文件内容是所希望执行的SQL语句。
    2、在WinCC的C Script中编写程序调用此SQL文件，如以下程序所示：
＃i nclude "apdefap.h"

void OnLButtonDown(char* lpszPictureName,

char* lpszObjectName,

char* lpszPropertyName,

UINT nFlags, int x, int y)

{

char*a="C:\\SIEMENS\\Common\\SQLANY\\ISQL-q-b-c

UID=DBA;PWD=SQL;DBF=E:\\testsql\\testsqlRT.DB;

DBN=CC_testsql_99-12-03_12:48:26R;

READ

E:\\testsql\\test.sql";

printf("%s\r\n",a);

ProgramExecute(a);

}

下面是一个简单的SQL文件内容：

select * from pde#hd#t#test;

output to E:\\test2.txt FORMAT ascii
注意:文件名及路径中不要带空格。

43:如何整点启动归档？
在"Global Script"下的Project functions编写函数：cyclicarchive

BOOL cyclicarchive()

{

#pragma code ("kernel32.dll");

void GetLocalTime (SYSTEMTIME* lpst);

#pragma code();

SYSTEMTIME time;

Int t1;

GetLocalTime(&time);

t1=time.wMinute;

if(t1==00)

{

SetTagBit("startarchive",1);

return(BOOL)(GetTagBit("startarchive"));

}

}

在Tagloging中的"Properties of process tag"中的"Archive Tag"tab下的Archiving type选择Cycle-selective，在"Event"标签下的"Start Event"内选择cyclicarchive函数。

44:如何在按键组合被禁用的情况下，从WinCC运行环境进入WinCC Control Center？
最好是做一个按钮，该按钮需要用用户权限保护，在该钮中编写如下C-action：

低于WinCC 5.0版本：

#pragma code ("user32.dll");

BOOL SetForegroundWindow(HWND);

#pragma code();

HWND handle;

handle=FindWindow("MCPFrameWndClass",NULL);

If (!SetForegroundWindow(handle))

Printf ("\r\n SetForeground fails");

WinCC 5.0版本以及更高的版本：

#pragma code("user32.dll");

BOOL SetForegroundWindow(HWND);

#pragma code();

HWND handle;

handle=FindWindow("WinCCExplorerFrameWndClass",NULL);

If (!SetForegroundWindow(handle))

Printf ("\r\n SetForeground fails");

45:WinCC如何实现鼠标OnMouseOVer事件?

用WINDOWAPI函数GetCusorPos获取当前鼠标位置，用GetWindowRect函数获取窗口位置，两值相减得鼠标在WINCC frame上的相对位置。用全局脚本（设定为1s定时刷新），然后获取要OnMouseOver事件的物体的位置，并与鼠标位置相比较，如一致则触发自己定义的动作。

＃i nclude "apdefap.h"

int gscAction( void )
{
#pragma code("user32.dll");
BOOL GetCusorPos(POINT lpPoint);  //获取鼠标的位置（绝对位置-对应屏幕分辨率）
BOOL GetWindowRect(HWND hwnd,LPRECT lpRect); //获取窗体位置
#pragma code();
POINT pPos;
RECT rRec;
HWND hwnd;
BOOL bRet,bRet2;
long&

分享到：