WINCC语音报警脚本
WINCC中报警脚本
1、PLC做报警监测，将变量发送到WINCC,WINCC通过变量触发报警，报警可用以下简短语句，#pragma code ("Winmm.dll ")VOID WINAPI PlaySoundA ( char* pszSound, char* hmode, DWORD dwflag );#pragma code()PlaySoundA("D:\\baojin.wav",NULL,1);当然，如果想连续报警可将1改为0x0001| 0x0008；2、通过全局脚本实现。
BOOL GMsgFunction( char* pszMsgData){MSG_RTDATA_STRUCT mRT;if (mRT.dwMsgState==MSG_STATE_COME)//报警到达，开始报警{#pragma code ("Winmm.dll ")VOID WINAPI PlaySoundA ( char* pszSound, char* hmode, DWORD dwflag );#pragma code()PlaySoundA("D:\\baojin.wav",NULL,0x0001| 0x0008 );}if (mRT.dwMsgState==MSG_STATE_GO || mRT.dwMsgState==MSG_STATE_QUIT)//报警离开或确认后，停止报警{#pragma code ("Winmm.dll ")VOID WINAPI PlaySoundA ( char* pszSound, char* hmode, DWORD dwflag );#pragma code()PlaySoundA("NULL",NULL,1 );//播放空文件}return( TRUE );}这种方法要在报警设置中勾上“触发一个动作”，连接到GMsgFunction函数。
WinCC实现声音报警的方法
#include "apdefap.h"int gscAction( void ){#pragma code("Winmm.dll")VOID WINAPI PlaySoundA(char* pszSound,char* hmode,DWORD dwFlag);#pragma code( )if (GetTagByte("TI101")>100){PlaySoundA("C:\\\\Program Files\\\\Windows NT\\\\Pinball\\\\SOUND36.WAV",NULL,1);} return 0;}报警可以用以下两种实现方法：1、建一个全局脚本，时基为2S#include "apdefap.h"int gscAction( void ){#pragma code("Winmm.dll")VOID WINAPI PlaySoundA(char* pszSound,char* hmode,DWORD dwFlag);#pragma code( )if (GetTagByte("TAG")==1) 或if (GetTagByte("TAG")>500) {PlaySoundA("d:\\ringout.wav",NULL,1);}return 0;}用以上程序就可以实现单个变量报警，开关量为1或模似量大于500都可以报警，用户可以根据自己的情况改变以上数值，如果有多个变量可以增加多个if .2、通过报警记录，先在报警记录中组态好报警记录建一个全局脚本，时基为2S#include "apdefap.h"int gscAction( void ){MSG_RTDATA_STRUCT mRT;int i;char* pszToken;//Now is my code#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()DWORD SND_ASYNC=0x0001;DWORD SND_LOOP=0x0008;DWORD alarmsum,alarmunack;LPCMN_ERROR errorunack,errorsum;#pragma code("msrtcli.dll")#pragma code()LPDWORD lpdwServiceID;MSG_SERVICE_NOTIFY_PROC lpfnNotifyProc;LPMSG_FILTER_STRUCT lpMsgFilter;DWORD dwNotifyMask;LPVOID lpvUser;LPCMN_ERROR lpError;BOOL n1;n1=MSRTGetMsgQuit(&alarmunack,errorunack);SetTagDWord("number",alarmunack);MSRTGetMsgActual(&alarmsum,errorsum);SetTagDWord("sum",alarmsum);if (alarmsum==0)sndPlaySoundA(NULL,SND_ASYNC);else{if (alarmunack>0)sndPlaySoundA("C:\\Program Files\\WindowsNT\\Pinball\\SOUND36.WAV",SND_ASYNC|SND_LOOP);elsesndPlaySoundA(NULL,SND_ASYNC);//sndPlaySoundA("C:\\windows\\media\\office97\\laser.wav",SND_ASYNC|SND_LOOP); }return 1;}这个可以实现报警记录中只要有报警发生，那么就触发声音报警。
WinCC中使用脚本实现报警
WinCC中使⽤脚本实现报警WinCC中使⽤脚本实现报警wincc 2009-01-19 14:30:04 阅读99 评论0 字号：⼤中⼩在6.2⾥，新建⼀个画⾯，两个按钮，⼀个开始播放声⾳（循环播放）按钮，⼀个停⽌播放按钮（没次按钮将循环播放，退出wincc同样在播放）,试验成功了，就是第⼀次反应很慢，第⼀次成功报警后，之后在调⽤就快了。
开始播放按钮代码。
#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()DWORD SND_ASYNC=0x0001;DWORD SND_LOOP=0x0008;//循环播放sndPlaySoundA("d:\\致爱丽丝.wav",SND_ASYNC|SND_LOOP);停⽌播放按钮代码。
#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()DWORD SND_ASYNC=0x0001;DWORD SND_LOOP=0x0008;//停⽌播放sndPlaySoundA(NULL,SND_ASYNC); 00000000000000000000000000000000000000000000000000积累—WinCC报警实例wincc 2009-01-19 14:33:28 阅读458 评论0 字号：⼤中⼩这是⽹友给的实际⼯程中的例⼦，以后做项⽬使⽤时可以仔细研究⼀下，再次感谢那位热⼼的⽹友，我贴出来供⼤家学习：在WinCC全局脚本编辑器中完成，达到了语⾔报警的预期效果。
具体步骤如下：A．监控系统所在项⽬创建⽂件夹Voices，所有的语⾳报警⽂件存储在该⽂件夹。
WinCC实现声音报警的方法
^JWindo*rs XPK£]WlndQrS XP J
Windows XF PS^Jringin WaVsΛjWιndovs XP ^^jrlngout. WaVrJWindO^SXP
请单击继续
大才
——
40
39
39
首先请记录声音文件所
WaV
.WaV
.VraLv
.Wav
vfs XF腿?单命令・way
工15t辽t∙*3
23
23
22
22
20
20
17
10
7
6
3
2
2
205
□≡≡同步
匚:线性标定
过程值范圉
值1
≡2
变呈值范国
从操作粟纭观点看变星的数据类型
取消
⅛
■全局库
÷IBiSPlayrS
÷ _J OPerati on
÷ _J Γl WtELein^nt 2
SlQ
+_J SyiTlbOIS
念项目库
⅛ ⅛β X
^pragmaOPtiOn(mbcs)
//WIN ∞:TAGNAME-BSECTlONeSTART
// syntax: #define TQgNameInAetion "DMTagName11
//nextTQglD:1
//WIN CC:TAGNAME_S ECTIONLEND
/∕WIN∞PICNAME-SECTION-START
inf
+：」InStalIer
,*∣j ⅛v∙⅛
12 sChelnaS
Media
Mi CrOSOft. NEr ms agent Risapps fhui network diagnostic OfnLRe Web P⅛ξβs
WINCC声音报警脚本
可以放在当前显示的画面的任何元素中,并对代码进行如下的添加:
建个变量（Bit）“AlarmSound”有报警的时候为“1”，没有报警的时候“0”,
写个全局脚本触发器里选择变量触发“AlarmSound”
{
#pragma code("Winmm.dll")
BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag); laySoundA(NULL,0X0);
}
对上述代码中: 关于windows API函数sndPlaySoundA(char* szWave,DWORD dwFlag);
使用该代码即可实现WinCC中的声音报警.
if(GetTagBit("AlarmSound")!=0)
sndPlaySoundA("c:\\win2003\\system32\\ALSNDMGR.WAV",0X1|0X8);
else
sndPlaySoundA(NULL,0X0);
return 0;
（脚本触发变量为内部变量，若是外部变量则使其与一内部变量关联）
int gscAction( void )
{
#pragma code("Winmm.dll")
BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);
#pragma code()
char* szWave 是声音文件的路径
DWORD dwFlag 是标识常量
0x0:播放WAV 文件，播放完毕后将控制转移回你的应用程序中。是不会一直响个不停的。
wincc声音报警实现方法
else
sndPlaySoundA(NULL,SND_ASYNC);
//sndPlaySoundA("C:\\windows\\media\\office97\\laser.wav",SND_ASYNC|SND_LOOP);
#pragma code("Winmm.dll")
BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);
#pragma code()
DWORD SND_ASYNC=0x0001;
DWORD SND_LOOP=0x0008;
DWORD alarmsum,alarmunack;
#pragma code( )
if (GetTagByte("TAG")==1) 或 if (GetTagByte("TAG")>500)
{PlaySoundA("d:\\ringout.wav",NULL,1);}
return 0;
}
用以上程序就可以实现单个变量报警，开关量为1或模似量大于500都可以报警，用户可以根据自己的情况改变以上数值，如果有多个变量可以增加多个if .
MSRTGetMsgActual(&alarmsum,errorsum);
SetTagDWord("sum",alarmsum);
if (alarmsum==0)
sndPlaySoundA(NULL,SND_ASYNC);
else
WINCC语音报警脚本
｛PlaySoundA("d:\\ringout.wav",NULL,1);｝
return 0;
}
可实现单变量报警，开关量为1或模拟量大于500即可报警，若有多个变量可增加多个if.
#pragma code("msrtcli.dll")
#pragma code()
LPDWORD lpdwServiceID;
MSG_SERVICE_NOTIFY_PROC lpfnNotifyProc;
LPMSG_FILTER_STRUCT lpMsgFilter;
DWORD dwNotifyMask;
LPVOID lpvUser;
LPCMN_ERROR lpError;
BOOL n1;
n1=MSRTGetMsgQuit(&alarmunack,errorunack);
SetTagWord("number",alarmunack);
MSRTGetMsgActual(&alarmsum,errorsum);
BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);
#pragma code)()
DWORD SND_ASYNC=0x0001;
DWORD SND_LOOP=0X0008;
DWORD alarmsum,alarmunack;
LPCMN_ERROR errorunack,errorsum;
WinCC实现声音报警的方法
//next PidD:1
//WlNCCFICNAMEeSECTIONeEND
^include,⅛pdefap h"
^PrSgmaCOde("Winmrn.dll,,)
VOlD WlNAPl PleySOUndA (CharfcPSZSOUnd,ChGL广hmode, DWORD dυvflag);
#Pragma code(
PlaySOUndA(
}
PlaySOUndA ι⅛数的说啊=
姿数char* PSZSoUndt
指定声音文件r.wav ±ftj的全S⅛径G
篆武CharThmodθf为NLILL.
参数DWoRD Clvxflag:
SND,SYNC = OXOOOOf津首文件播取一次J诙脚本一宜尊到播歆结朿
^pragmaOPtiOn(mbcs)
//WIN ∞:TAGNAME-BSECTlONeSTART
// syntax: #define TQgNameInAetion "DMTagName11
//nextTQglD:1
//WIN CC:TAGNAME_S ECTIONLEND
/∕WIN∞PICNAME-SECTION-START
在WirlCC中实现声音报警功能
内容介绍；
1、C脚本播放WaV文件
2、C脚本触发Pe蜂鸣器
3、VBS脚本调用媒体播放器
3、报警器HORN的使用
C脚本播放WaV文杵
ffinclude "aρdefap.h
VOid OnCliCk(Char
ffpragma COde ('Winmrτι.dll
Wincc语音报警及C#实现文字转语音
Wincc语音报警Wincc本身可以利用C脚本，VBS及HORN来做语音报警，但是上述本质上是调用的已存在的音频文件，想实现播放实时更新的信息是不行的，本文主要介绍通过C脚本，VBS及HORN来实现语音报警，并最后介绍一种文字转语音---TTS的实现方法。
1.C脚本实现语音报警利用C脚本实现语音报警，只能是播放WAV文件。
在C脚本中添加如下代码：#include"apdefap.h"long _main(char* lpszPictureName, char* lpszObjectName, char*lpszPropertyName){void WINAPI PlaySoundA(char *pszSound,char*hmode,DWORD dwflay);#pragma code()if (GetTagBit("testsound")==1){PlaySoundA("c:\\wav\\1.wav",NULL, 1); }return 0;}另外需设置触发器，如下：报警器变量设置语音文件路径2.VBS实现语音报警利用VBS，实际是在调用媒体播放器，可以播放视频，代码如下:Function BackColor_Trigger(ByVal Item)Dim soundDim objWshShellsound= "c:\wav\1.avi"Set objWshShell=CreateObject("Wscript.Shell")objWshShell.Run "mplay32.exe/play/close" & sound,0End Function3. 利用HORN 实现语音报警a.首先打开报警器b.变量设置，此处和报警记录的设置一样，如下报警记录中设置：当testbool 为1时，报警控件显示如下：为1时报警此时会同时播放1.WAV 文件4.以上可以看出，不管哪一种方式，本质上都是在播放已经存在的文件，那比如像钢卷号什么的每次都不一样，想要实现语音播放就不可能。
WinCC的声音报警(通过HORN控件和脚本分别实现)
WinCC的声音报警对于组态软件WinCC中的声音报警,也有不少的朋友在讨论这个话题,在这里写的是我在出差期间,需要在项目中用到的声音报警,并且实现自动触发,按钮关闭声音,再次自动触发的循环声音报警代码.1.采用代码实现首先,这是一个全局脚本（在全局脚本中创建一个项目函数，然后调用此函数）,可以放在当前显示的画面的任何元素中,并对代码进行如下的添加:建个变量（Bit）“AlarmSound”有报警的时候为“1”，没有报警的时候“0”,写个全局脚本触发器里选择变量触发“AlarmSound”（脚本触发变量为内部变量，若是外部变量则使其与一内部变量关联）int gscAction( void ){#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()if(GetTagBit("AlarmSound")!=0)sndPlaySoundA("c:\\win2003\\system32\\ALSNDMGR.WAV",0X1|0X8);elsesndPlaySoundA(NULL,0X0);return 0;}即可实现在肩控画面中出现报警的同时启动声音文件.在停止的时候用按钮控制,其中事件代码为:#include "apdefap.h"void OnClick(char* lpszPictureName, char* lpszObjectName, char* lpszPropertyName){#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()sndPlaySoundA(NULL,0X0);}对上述代码中:关于windows API函数sndPlaySoundA(char* szWave,DWORD dwFlag);char* szWave是声音文件的路径DWORD dwFlag是标识常量0x0:播放WAV文件，播放完毕后将控制转移回你的应用程序中。
如何自动语音播报Wincc报警消息
自动识别并播放wincc报警消息文本
测试环境：wincc 7.5 sp2
问题：
自动播放wincc报警配置的消息文本，不用单独配置语音文件。
正文：
1.首先启动windows自带的音频服务，打开命令行，执行以下命令，打开
服务
2．新建WINCC项目，建立两个内部变量，然后组态报警设置
编辑报警记录，对需要语音播报的消息变量，选择触发动作选项，这个报警消息触发后，会执行GMsgFunction函数。
3.在全局C脚本里面的GMsgFunction函数里添加自定义的脚本，再原函
数中添加下列红色框内的文本，用来抓取报警消息文本，传递给内部变量。
4.新建全局VBS脚本，新建动作，动作脚本内容如下：
保存设置触发动作为变量，选择alarmcoming ，变量有变化时，执行此vbs脚本动作。
5.组态完成，新建画面如下，进行测试
把IO域的两个变量置分别置1，查看报警消息，听报警语音消息声音正常，测试画面如下：
声音输出正常，直接转化消息文本为语音并读出来。
注意：假如多个报警变量同时进来，目前只能是上一个声音读完之后发生的报警，才能继续读取，同时多个报警进来会被覆盖。
还需要继续完善。
WinCC实现声音报警的方法
内料介绍:C 脚本播放wav 艾件 C 脚木触发PC 蜂鸣器 VBS 脚木调用媒休播放器 报警器HORN 的使用、、、〕._j C:\WIHDOWS\Media、x 名称大才Q Config 亠(Sljonest^p. mi d40 39 3-91 _J CursorsXP 关键性终止.WWXp 电话拨入wav@1 Dowiiloade& Frogrsiii lil^s+ 二 Driver Cacheehome鬥 Fonts 田亡j HelpIIS Temporary Compressed Files ime in£InstallerowsWindows @L|Win ^WindowsWindows ^Jrecycle, w l±lX 首先请记录声音文件所 存放的路径名及文件名 （脚本当中需要填写） j125chemas MediaMicrosoft. HETiris agent crisapps rriuinetwork diagnostic + 因Offline Web Pa.ges +： _j pchoalth；3 Fe^rNet,J Prefetch^Windows X (g^flonri sh. (gjwindovs XFWindows XF town.(Tii iWindows XPWindows XPe]Windows XF(£]Windoys XF 込Ji-ingim wav^Windows XF^^jringout. waWindows XPWindows XFg ijilstart. wav请单击继续电 .wav av .wav .wav .wav 单命令川葩 23 23 22 22 20 20 17 10 7 6 3 2 2 205首先创建一个模拟水泵运行状 态的Bool 型变量“ Pump i ”濟抽电直X f W SE M 舒3舍局库E-C ] Displays + _J Op er at i CRB + 口 FlantELem ents⑥曰 _______ + 口 Symb ols 电SiemensHTAI ■库 D: \TESTPRJ\raCC\ELearning\0®总/电皂X 囤|》注ffii [画&-»—Q-& —M A$¥J -Ky J -?ra IS 曲如如符设管处、员Mf ns D HT昭跟A 全形科暖作规 (Tler AS AS AS Is 安泵变材采操常□□口□口 Hl rr l i ..砂t r r a ^^H M 冷却泵简易立式泵2 口离心泵1[®fil离心泵3 离心泵4离心泵2■对象属性扈性事件SymbolLibrary Cont roll打开泵对象的属性窗口进行属性设置■ Symb olLi brary i几何其它拄岸屁性Pi cture伸展符号翻转对象闪烁速度静态动?原本・0中-500添加泵的湄/停‘控制按钮在画面中插入诊断窗口（使于检验脚本执行过程D■对象冒性11形按钮园形按钮1十-1双点划线线宽二E 智能对象□画面窗口 0控件OLE 元素 筍入/辐出域应用程序窗口 对鎳展性GSC Diagnostics&翠玄应用程厚窗口融示勰翅框题IA斥显可可边标_冒前应用鸟窗口 1是是是是是是是否□匣園函=国形对象 伏态显示厘性爭件划启动/停止“按钮组态事件在以下情况下执行释放左键 按右键 释放右键动作动作边… E直接连接@)・.・ 总册］除鬼)^include •'apdefap -h" void OrtCIick(chIp§zPictureName, char^IpszObjectName, char* IpszPropertyName) { ^pragma option(mbcs)//WINCC:TAGNAME_SECTION_START// syntax:卡define TagNameInAction "DhCTsgMsme" //nextTsglD : 1//WIN CQTAGNAME.S ECTION 上 ND〃 WIN CCPICNAM E_SECTION_START// syntax: #define PicN&melnAction ''PictureName" //next PicID: 1/./WIN CCPICNAM E.SECTION.END ^include "apdefap.h"fKpragmacode ("Winmm.dll '*)VOID WINAPI PlaySoundA (char* pszSound, char^hmode, DWORD dwflag); #pragmacodeO printfC Start V\n H );PlaySoundA(,,C ：WINDOWSWedia\VXLARM8.WAV ,,z NULLO); printf(,,End\rAn ,,)J T}t^pragma option (mbes)// WINCCTAG NAME.S E CTION^START//syntax: #define TagNameInAction "DMTagName" //next Tag ID : 1// WINCCTAG NAME_S E CTION.END圖SetTagBit3 SetTagByte 蜀 SetTagChar 圃 SetTagJouble 窗 SetTagDWord ►3SetTagfloa.t 圃 SetTagRaw 圃 SetTagSByte :...3 SetTagSDWord ； (3)SetTagSWord :蜀 SetTag ：ViLu.e •““ 畐 SetTagWord.•♦-目 wince启动按钮C 脚本&匸空都崖欽►2Jallocate c_bibgraphics13邑曲 Sgset£1S Q state wait^include "apdefap.h"void OnCli ck(ch IpszPictureName, chs.^ IpszObjectName, char* IpszPropertyName) #pragm a option (m b cs)// WIN CC:TAG NAME^S E CTION_START// syntax: ^define TagNameInActi o n "DMTagName"//nextTagID : 1// WIN CC:TAG NAME.S E CTIO N_END// WIN CC:PICNAME_S ECTION_START// syntax: #define PicNameInAction "PictureName"//next PicID : 1//WINCC:PICNAME_SECTION_END尹in elude "apdefaph"^pragmacode ("Winmm.dll')VOID WIN API PlaySoundACchar" pszSound, char^hmode, DWORD dwflag);#pragmacodeQprintff Start \r\n n)：PlaySoundAC'CA^INDOWS^MedisX^L^RMSWAV^N UIXO); printfCEndW1);^etTagBitfPumpI"J); //Return-Type:BOOL^)停止按钮C脚本include "apdefap-h11void OnClick(char^ IpszPictureName, char^ IpszObjectName, chat^ IpszPropertyN ame) {#pragma option(mbcs)//WINCC:TAGNAME_SECTION.START// syntax: #deline TagNamelnAction "DMTagName"//nextTagID : 1//WINCC:TAGNAME_SECTION_END//WINCCFICNAME.SECTION.START// syntax: #deline PicName InAction "PictureName"//nextPiclD:1//WINCC:PICNAME_SECTION_END#include "apdefap.h"#pragma code ("Winmm.dll '*)VOID WIN API PlaySoundA (char^ pszSound, char^ hmode z DWORD dwflag);# pragma codeOprintfCStart^n11);PlaySoundAC'OWINDOWS^Media^LARMS.WAV'LNU 丄0); printfC'End^n'1);SetTagBitC'Pumpl'lO); //Return-Type: BOOL注意：Flag =0x0000,该脚本独占C脚本线程，其它C脚本在此期间无法执行。
WinCC中使用脚本实现报警
WinCC中使用脚本实现报警wincc 2009-01-19 14:30:04 阅读99 评论0 字号：大中小在6.2里，新建一个画面，两个按钮，一个开始播放声音（循环播放）按钮，一个停止播放按钮（没次按钮将循环播放，退出wincc同样在播放）,试验成功了，就是第一次反应很慢，第一次成功报警后，之后在调用就快了。
开始播放按钮代码。
#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()DWORD SND_ASYNC=0x0001;DWORD SND_LOOP=0x0008;//循环播放sndPlaySoundA("d:\\致爱丽丝.wav",SND_ASYNC|SND_LOOP);停止播放按钮代码。
#pragma code("Winmm.dll")BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);#pragma code()DWORD SND_ASYNC=0x0001;DWORD SND_LOOP=0x0008;//停止播放sndPlaySoundA(NULL,SND_ASYNC);00000000000000000000000000000000000000000000000000积累—WinCC报警实例wincc 2009-01-19 14:33:28 阅读458 评论0 字号：大中小这是网友给的实际工程中的例子，以后做项目使用时可以仔细研究一下，再次感谢那位热心的网友，我贴出来供大家学习：在WinCC全局脚本编辑器中完成，达到了语言报警的预期效果。
具体步骤如下：A．监控系统所在项目创建文件夹Voices，所有的语音报警文件存储在该文件夹。
通过C脚本代码获取通用路径。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
通过报警记录报警，现在报警记录中组态好报警记录
建全局脚本，时基为2s
#include "apdefap.h"
int gscAction(void)
{
MSG_RTDATA_STRUCT mRT;
int i;
char* pszToken
//NOW is my code
#pragma code ("Winmm.dll")
LPVOID lpvUser;
LPCMN_ERROR lpError;
BOOL n1;
n1=MSRTGetMsgQuit(&alarmunack,errorunack);
SetTagWord("number",alarmunack);
MSRTGetMsgActual(&alarmsum,errorsum);
BOOL WINAPI sndPlaySoundA(char* szWave,DWORD dwFlag);
#pragma code)()
DWORD SND_ASYNC=0x0001;
DWORD SND_LOOP=0X0008;
DWORD alarmsum,alarmunack;
LPCMN_ERROR errorunack,errorsum;
if (GatTagByte)("TAG")==1) 或 if (GetTagByte("TAG")＞500)
｛PlaySoundA("d:\\ringout.wav",NULL,1);｝
return 0;
}
可实现单变量报警，开关量为1或模拟量大于500即可报警，若有多个变量可增加多个if.
else
sndPlaySoundA(NULL,SND_ASYNC);
//sndPlaySoundA("C:\\windows \\media\\laser.wav",SND_ASYNC|SND_LOOP);
}
return 1;
}
可实现报警记录中只要有警报发生，就触发声音警报
1 编写如下C-Action:
#pragma code("kernel32.dll");
BOOL Beep(DWORD dwFreq,DWORD dwDuration);
#pragma code();
Beep(500,500);
2 语音报警的组态
新建全局脚本 时基2S
#include "apdefap.h"
int gscAction(void)
{
#pragma code("Winmm.dll")
VOID WINAPI PlaySoundA(char* pszSound,char* hmode,DWORD dwFlag);
#pragma code()
SetTagWord("sum",alarmsum);
if (alarmsum==0)
sndPlaySoundA(NULL,SND_ASYNC);
else
{
if (alarm>0)
sndPlaySoundA("C:\\program files\\windows nt\\pinball\\sound36.wav",SND_ASYNC|SND_LOOP);
#pragma code("msrtcli.dll")
#pragma code()
LPDWORD lpdwServiceID;
MSG_SERVICE_NOTIFY_PROC lpfnNotifyProc;
LPMSG_FILTER_STRUCT lpMsgFilter;
DWORD ifyMask;