Wincc常用C脚本

news/2024/11/23 9:29:14/

原创作品，如需转载请注明出处

文章目录

  • 1 set/get相关
  • 2 用户登录/注册
  • 3 操作项目
  • 4 弹窗
  • 5 操作元素
  • 6 WINCC中制作一个保持型按钮
  • 7 声光报警
  • 8 动画脚本电机风扇旋转（几何---起始角度）：
  • 9 物料水平右移动（几何---位置X）（停车后，物料回到原点）
  • 10 时间静态文本
  • 11 登陆到指定的用户名无须手动输入（按钮操作）
  • 12 显示登陆对话框无须热键（按钮操作）
  • 13 退出WINCC运行（按钮操作）
  • 14 单位递增/减按钮（到上限不提示出错）
  • 15 单位递增/减按钮（到上下限提示出错）
  • 16 自动登陆到指定的用户（画面属性--其它—授权）
  • 17 询问框
  • 18 搅拌器动画
  • 19 VBS 显示层按钮
  • 20 打印按钮
  • 21 一个圈代表电机两种状态
  • 未完待续

1 set/get相关

SetTagPrefix(lpszPictureName, "huamian1","电机1.");//设置变量前缀
SetPictureName(lpszPictureName,"huamian1","BENG");//给画面窗口绑定画面名称
SetVisible(lpszPictureName,"huamian1",1);   //将画面显示出来
SetTagChar("电机1.名称","电机1控制窗口"); //给变量赋值

2 用户登录/注册

// 用户注销：
#pragma code ("useadmin.dll")
#include "PWRT_api.h"
#pragma code()
PWRTLogout();// 用户登录：
#pragma code ("useadmin.dll")
#include "PWRT_api.h"
#pragma code()
PWRTLogin('c');

3 操作项目

//关闭项目并退出wincc：
ExitWinCC ();//退出运行到wincc资源管理器
DeactivateRTProject ();//结束监控并关闭计算机（会弹出确认对话框）
HWND hWnd = NULL;//Author:Smartsys
int iRet;
hWnd = FindWindow(NULL,"WinCC-运行系统 - ");
iRet=MessageBox(hWnd,"结束监控并关闭计算机",
"关闭操作站",MB_YESNO|MB_ICONWARNING|MB_APPLMODAL);
if(iRet==IDYES)DMExitWinCCEx (DM_SDMODE_POWEROFF);// 将WinCC运行画面最小化
HWND WinCCHwnd;
WinCCHwnd=FindWindow(NULL,"WinCC-Runtime - "); //如果运行语言为英文
if (WinCCHwnd==0) WinCCHwnd=FindWindow(NULL,"WinCC-运行系统 - "); //如果运行语言为中文
CloseWindow(WinCCHwnd);

4 弹窗


// 点击事件弹出对话框，通过点击弹出对话框的确定和取消按钮实现对变量的置位或取消:
int r;
r=MessageBox(NULL, "YES为开，NO为关", "确定开命令：", MB_YESNO |MB_SYSTEMMODAL);
if (r==IDYES)
SetTagBit("TAGNAME",TRUE);
else
SetTagBit("TAGNAME",FALSE);// 开显示关显示:（要在内部变量中建立三个二进制变量COLSE_DISPLAY、DISPLAY_NO和DISPLAY_COMMENT）
// Funktion: Bit in Doppelwort setzen;if (GetTagBitWait("COLSE_DISPLAY")==1 )
{SetTagBit("COLSE_DISPLAY",0);
SetTagBit("DISPLAY_NO",0); //Return-Type: BOOL
SetTagBit("DISPLAY_COMMENT",0);
}
else   
{SetTagBit("COLSE_DISPLAY",1);
SetTagBit("DISPLAY_NO",1); //Return-Type: BOOL
SetTagBit("DISPLAY_COMMENT",0);
}// 开阀确认:
BOOL a;
a=GetTagBit("30T制水启动"); //Return-Type :short int
if (a==0)
{
if(MessageBox(NULL,"真的要启动制水吗？","操作提示",MB_YESNO|MB_ICONQUESTION|MB_SETFOREGROUND|MB_SYSTEMMODAL) == 6)
{ SetTagBit("30T制水启动",1);//Return-Type :BOOL}
}
else{if(MessageBox(NULL,"真的要停止制水吗？","操作提示",MB_YESNO|MB_ICONQUESTION|MB_SETFOREGROUND|MB_SYSTEMMODAL) == 6)
{ SetTagBit("30T制水停止",1);}}

5 操作元素

// 显示或不显示（其中hiddVtext为内部的二进制变量）
if(GetTagBit("hiddVtext")==0) //Return-Type: BOOL
{
SetTagBit("hiddVtext",TRUE); //Return-Type: BOOL
//Return-Type: BOOL
}
else
{SetTagBit("hiddVtext",FALSE);
}// 打开编辑画面的脚本
#pragma option(mbcs)
#ifdef RUN_ON_WEBNAVIGATOR#elseHWND hExplorerWindow= NULL;HWND hRuntimeWindow= NULL;hExplorerWindow= FindWindow("WinCCExplorerFrameWndClass",NULL);hRuntimeWindow= FindWindow("PDLRTisAliveAndWaitsForYou",NULL);if(hExplorerWindow){ShowWindow(hExplorerWindow, SW_MINIMIZE); // This entry is only necessary for Windows 2000ShowWindow(hExplorerWindow, SW_SHOWNORMAL);SetForegroundWindow(hExplorerWindow);}elseprintf("\r\n SetForeground failed");
#endif

6 WINCC中制作一个保持型按钮

方法1：
if( GetTagBit("M10") )SetTagBit("M10",0);
elseSetTagBit("M10",1);
方法2：
SetTagBit("M1.0",(SHORT)!GetTagBit("M1.0"));
求反指令，如果为1点击变为0，
如果为0点击变为1
方法3：
或者做两个按钮，
按钮一：显示，直接连接m1.0，是--不显示，否--显示 。事件，直接连接,源，常数1，变量M1.0;
按钮二：事件，直接连接，源，常数0，变量M1.0；
用按钮一覆盖按钮二

7 声光报警

WINCC 中声音报警C脚本全局变量#include "apdefap.h"int gscAction( void )
{#pragma  code ("winmm.dll")BOOL PlaySound(LPCSTR pszSound, HMODULE hmod,DWORD fdwSound); #pragma code()if (GetTagBit("test")==1){PlaySound("D:\Program Files\AliWangWang\sound",NULL,8);}return 0;}//注意：C 是大小写敏感的//如何让WINCC发出报警声呢？
/*
1.WinCC V6.0可以用Horn组态实现声音报警，不用编程。打开Horn，在Message assignment选项页选定Message Class为Error，定义一个Bool型的Tag；在Signal assingment选项页选定Tag为刚才定义的Bool型的Tag，在Sound中选择要播放的.wav声音文件。
运行时，只要Error类别的报警触发，则Bool型的Tag置位，.wav声音循环播放；在报警控件中确认报警，.wav声音中止，也可以将Bool型的Tag复位，.wav声音中止。
Horn是基本过程控制(BPC)的组件，标准安装是不会安装的。
安装WinCC时选择“自定义安装”，已经安装了就选择“安装卸载组件”，组件栏中选择“选项”，右边栏子选项选择“Basic Process Control”安装即可。 
*/
/*
2.自定义两个内部32位变量stat1和stat1_save，然后在报警记录里面消息位使用外部变量，状态位为stat1中的位。然后在脚本中：
*/
定义两个DWord变量A1、B1连接stat1和stat1_save。
#pragma code("Winmm.dll")
void WINAPI PlaySoundA(char* pszSound ,char* hmode,DWORD dwFlag);
#pragma code()A1=GetTagDWord("stat1");
B1=GetTagDWord("stat1_save");
if((A1^B1)&A1)SetTagBit("ok_1",1);
if(GetTagBit("ok_1"))
PlaySoundA("C:\\winnt\\music\\06.wav",NULL,1);
SetTagDWord("stat1_save",A1

8 动画脚本电机风扇旋转（几何—起始角度）：

#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  DWORD  f=20;if  (GetTagBit("DI电机运行信号"))  {      f= f+30;if (f==360) (f=0);}return f;}电机风扇旋转（几何---结束角度）：#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  DWORD  i=80;if  (GetTagBit("DI电机运行信号")) {        i = i+30;if (i==360) (i=0);}return i; }

9 物料水平右移动（几何—位置X）（停车后，物料回到原点）


#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  int  a=350;if  (GetTagBit("DI电机运行信号")  && (a<=730))  {  a+=20;if (a>=720)  (a=350);} if (!GetTagBit("DI电机运行信号"))  (a=350);   return a;}// 物料水平右移动（几何---位置X）（停车后，物料停在该点）#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  int  a=350;if  (GetTagBit("DI电机运行信号")  && (a<=730))  {  a+=20;if  (a>=720)  (a=350);}     return a;}// 物料向上移动（几何---位置Y）（停车后，物料停在该点）#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  int  b=450;if  (GetTagBit("DI电机运行信号")  && (b>=290))  {  b-=10;if  (b<=280)  (b=450);}     return b;}

10 时间静态文本


// 年月日（静态文本）#include "apdefap.h"char* _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){time_t  timer ;struct tm *ptm;char *p;time(&timer);ptm =localtime(&timer);p =SysMalloc(9);sprintf(p,"%04d/%02d/%02d",ptm->tm_year-100+2000,ptm->tm_mon+1,ptm->tm_mday);return(p);}// 时分秒（静态文本）#include "apdefap.h"char* _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){time_t  timer ;struct tm *ptm;char *p;time(&timer);ptm =localtime(&timer);p =SysMalloc(9);sprintf(p,"%02d:%02d:%02d",ptm->tm_hour,ptm->tm_min,ptm->tm_sec);      return(p);}

11 登陆到指定的用户名无须手动输入（按钮操作）

#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){#pragma code("useadmin.dll")#include "PWRT_API.H"#pragma code()PWRTSilentLogin("用户名", "口令");}

12 显示登陆对话框无须热键（按钮操作）

#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){#pragma code ("useadmin.dll")#include "PWRT_api.h"#pragma code( )PWRTLogin('c');}

13 退出WINCC运行（按钮操作）

#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){{ DeactivateRTProject ();}}

14 单位递增/减按钮（到上限不提示出错）

// 单位递增按钮（到下限不提示出错）
#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){DWORD value;value=GetTagDWord("AI标签");  if (value>90) (value=上限);else value=value+10;SetTagDWord("AI标签",value);    }// 单位递减按钮（到下限不提示出错）#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){DWORD value;value=GetTagDWord("AI标签");  if (value<10) (value=下限);else value=value-10;SetTagDWord("AI标签",value);    }

15 单位递增/减按钮（到上下限提示出错）

// 单位递增按钮（到上限提示出错）**#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){DWORD value;HWND hWnd=NULL ;  hWnd=FindWindow(NULL,"Wincc-运行系统- "); value=GetTagDWord("AI标签");  if (value<=90) (value=value+10);else MessageBox(hWnd,"已到达上限值！","错误",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("AI标签",value);    }// 单位递减按钮（到下限提示出错）**#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){DWORD value;HWND hWnd=NULL ;  hWnd=FindWindow(NULL,"Wincc-运行系统- "); value=GetTagDWord("AI标签");  if (value>0) (value=value-10);else MessageBox(hWnd," 已到达下限值！"," 错误",MB_OK|MB_ICONWARNING|MB_APPLMODAL);SetTagDWord("AI标签",value);    }

16 自动登陆到指定的用户（画面属性–其它—授权）

#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){#pragma code("useadmin.dll")#include "PWRT_API.H"#pragma code()PWRTSilentLogin("用户名", "口令");return(0X0);}

17 询问框

// （最好用于单机启动，组启也可，2个按钮，NO不操作）
#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){HWND hWnd=NULL;int 上位启动信号;hWnd=FindWindow(NULL,"WinCC C-Course");if (GetTagBit("DI备妥")){上位启动信号=MessageBox(hWnd,"电源已备妥，您现在确定要启动吗？","启动！",MB_YESNO|MB_ICONQUESTION|MB_APPLMODAL);printf("\r\nExample 3\r\n");if (上位启动信号==IDNO)   (printf("User selected NO button \r\n")); else (SetTagByte("上位启动信号",1));}elseMessageBox(hWnd,"电源未备妥，请查证后重试！","启动！",MB_OK|MB_ICONHAND|MB_APPLMODAL);}// 询问框（最好用于单机启动，组启也可，3个按钮，NO复位）**#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){HWND hWnd=NULL;int上位启动信号;hWnd=FindWindow(NULL,"WinCC C-Course");if (GetTagBit("DI备妥")){上位启动信号=MessageBox(hWnd," 电源已备妥，您现在确定要启动吗？","启动！",MB_YESNOCANCEL|MB_ICONQUESTION|MB_APPLMODAL);if (上位启动信号==IDCANCEL)   (printf("User selected NO button \r\n"));  else{if  (上位启动信号==IDYES)  (SetTagByte("上位启动信号",1));else  (SetTagByte("上位启动信号",0));}}elseMessageBox(hWnd," 电源未备妥，请查证后重试！","启动！",MB_OK|MB_ICONHAND|MB_APPLMODAL);}

18 搅拌器动画

**搅拌器左侧扇页（几何—宽度）**#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  int  h=50;static  int  u=0;if (GetTagBit("DI电机运行信号")){if ((h>0)&&(h<=50)){(h-=2);return h;}if ((u>=0)&&(u<50)){(u+=2);return u;}u=0;h=50;return h;return u;}if (!GetTagBit("DI电机运行信号")){h=50;u=0;return h;return u;}}**搅拌器左侧扇页（几何—位置X，右侧扇页没有位置变化）**#include "apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){static  int  h=75;static  int  u=125;if (GetTagBit("DI电机运行信号")){if ((h>=75)&&(h<125)){(h+=2);return h;}if ((u<=125)&&(u>75)){(u-=2);return u;}u=125;h=75;return h;return u;}if (!GetTagBit("DI电机运行信号")){h=75;u=125;return h;return u;}}

19 VBS 显示层按钮

显示层按钮**Sub X6309X94AE2X0000X0000_X6309X94AE2X0000X60C5_X6309X94AE2X0000X653E_OnLButtonDown(ByVal Item, ByVal Flags, ByVal x, ByVal y)         Dim objScreenDim CountLayerSet objScreen = HMIRuntime.Screens("layer")For CountLayer=1 To 32 Step 1objScreen.Layers(CountLayer).Visible = vbFalseNext objScreen.Layers(n).Visible = vbTrueEnd Subn=层数+1初始画面程序（画面空地--属性--事件--其它--打开画面--动作）

20 打印按钮


#include "apdefap.h"void OnLButtonDown(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName, UINT nFlags, int x, int y){WinExec("PRTSCR.EXE -hardcopy",SW_SHOWNORMAL);}

21 一个圈代表电机两种状态

#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){char* opentag="DI1电机运行信号";char* closetag="DI2电机运行信号";BOOL open,close;open = GetTagBit(opentag);close = GetTagBit(closetag);if (open)return CO_GREEN;if (close)return CO_BLUE;}

未完待续

原创作品，如需转载请注明出处


http://www.ppmy.cn/news/373729.html

相关文章

WinCC 使用VBS脚本操作变量、控件总结

WinCC 使用VBS脚本操作变量、控件总结

WinCC的VBS脚本&#xff0c;变量的读写不用定义变量类型。 自读自写 Dim objvar Set objvar HMIRuntime.Tags(WinCC_Tag) objvar.Read objvar.Value objvar.Value 1 objvar.Write写入变量WinCC_Tag数值100 方法一 HMIRuntime.Tags(WinCC_Tag).Write 100方法二 Dim objvar …
阅读更多...
wincc里vbs脚本

wincc里vbs脚本

各位大佬好&#xff0c;初学代码&#xff0c;有很多疑问请教 wincc里变量从别的地方录入后&#xff0c;它的数值是在不断变化的&#xff0c;在变量归档后可以在表格控件里显示&#xff0c; 如果我想对表格里的某列数据进行运算操作&#xff0c;实际就是把某个变量的历史值做一次…
阅读更多...
DSP之Controlsuit和C2000Ware下载安装

DSP之Controlsuit和C2000Ware下载安装

DSP之Controlsuit和C2000Ware下载安装 Controlsuit 用于 C2000TM 微处理器的 controlSUITETM 是一套全面的软件基础设施和软件工具集&#xff0c;旨在最大程度地缩短软件开发时间。从特定于器件的驱动程序和支持软件到复杂系统应用中的完整系统示例&#xff0c;controlSUITET…
阅读更多...
基于office三件套的一次性权限维持

基于office三件套的一次性权限维持

CATALOG 前言利用过程防御方法参考文章 前言 windows电脑中大多数都安装了office三件套&#xff0c;利用其进行权限维持一般效果会不错。 利用过程 下载powershell脚本到本地。利用脚本下载地址 如果是32位的office则需要对脚本进行一点修改&#xff0c;将正确的路径填入其中…
阅读更多...
【华为OD机试】查找众数及中位数【2023 B卷|100分】

【华为OD机试】查找众数及中位数【2023 B卷|100分】

【华为OD机试】-真题 !!点这里！！ 【华为OD机试】真题考点分类 !!点这里 !! 题目描述 众数是指一组数据中出现次数最多的那个数，众数可以是多个。 中位数是指把一组数据从小到大排序后，如果这组数据的总数是奇数， 那最中间的那个数就是中位数； 如果这组数据总数是偶数…
阅读更多...
CTFShow-WEB入门篇命令执行详细Wp(29-40)

CTFShow-WEB入门篇命令执行详细Wp(29-40)

WEB入门篇--命令执行详细Wp 命令执行&#xff1a;Web29&#xff1a;Web30&#xff1a;Web31&#xff1a;web32&#xff1a;web33&#xff1a;web34&#xff1a;web35&#xff1a;web36&#xff1a;web37&#xff1a;web38&#xff1a;web39&#xff1a;web40&#xff1a; CTFSh…
阅读更多...
中兴ZXV10 H108B无线宽带路由猫”超级帐号密码的破解（图片显示已修复）

中兴ZXV10 H108B无线宽带路由猫”超级帐号密码的破解（图片显示已修复）

中兴ZXV10 H108B无线宽带路由猫”超级帐号密码的破解 “中兴ZXV10 H108B无线宽带路由猫”&#xff0c;是集成ADSL Modem、路由器、无线Wifi接入三者功能的ADSL终端设备&#xff0c;但服务供应商屏蔽了其路由功能&#xff0c;要想解除屏蔽&#xff0c;唯一的办法就是不择手段获取…
阅读更多...
利用WPS功能破解无线路由器PIN码

利用WPS功能破解无线路由器PIN码

● 认识WPS功能 利用WPS功能破解无线路由器PIN码 ●本地恢复Wifi密码 认识WPS功能 WPS ( Wi-Fi Protected Setup )是Wi-Fi保护设置的英文缩写。WPS是由Wi-Fi联盟组织实 施的认证项目,主要致力于简化无线局域网安装及安全性能的配置工作。WPS并不是一项新增的 安全性能&#xff…
阅读更多...
最新文章

Copyright @ 2022~2023