Wincc常用C脚本

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

文章目录

  • 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

#else
   HWND 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 2000
      ShowWindow(hExplorerWindow, SW_SHOWNORMAL);
      SetForegroundWindow(hExplorerWindow);
   }
   else
      printf("\r\n SetForeground failed");
#endif

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

方法1if( GetTagBit("M10") )
   SetTagBit("M10",0);
else
   SetTagBit("M10",1);
方法2SetTagBit("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));

}

else

MessageBox(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));

          }

}

else

MessageBox(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 objScreen

Dim CountLayer

Set objScreen = HMIRuntime.Screens("layer")

For CountLayer=1 To 32 Step 1

objScreen.Layers(CountLayer).Visible = vbFalse

Next 

objScreen.Layers(n).Visible = vbTrue

End Sub



n=层数+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;

}

未完待续

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

你可能感兴趣的:(WInCCOA,脚本语言,c语言)