IFIX的报警设置基本流程

建立好实时数据库，给每个需要报警的标签做好报警限值，在画面中放入报警一览，齐活！

再复杂点的，编辑SCU，系统配置，在报警里是否启用报警打印（需要连接打印机）

在Windows控制面板里----管理----ODBC，建立于数据库连接

在SCU里启用ODBC，报警入数据库。

启用调度，报警时可发EMAIL，或报警声音。

建议看 杭州集益IfixOnline的免费教学视频。

事件调度 添加你的报警标签~

脚本：

同步函数为：mciSendString

使用时首先要声明：Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA"

(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

用法：

Dim filename as String

Dim cmd As String

filename = "test.wav" cmd = "open " &filename &" type WAVEAudio alias MyWav" Call mciSendString(cmd, 0, 0, 0)

Call mciSendString("play MyWav", 0, 0, 0)

异步函数为：mciSendString

使用时首先要声明：Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"

(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

用法：

Dim filename as String

filename = "test.wav"

Call sndPlaySound(filename, SND_SYNC)

可以连续调用sndPlaySound来进行连续多个语音文件的播放。

1：下载微软的 speech sdk5.1 带中文语音包的那种

2：安装完成后，在ifix调度内或前台脚本模式下，引用 speech library 库文件

3：给你如下代码 调试 注意不要应用阻塞模式，否则会卡主workspace或后台调度

Set Voice = New SpVoice

m_speakFlags = SVSFlagsAsync Or SVSFPurgeBeforeSpeak Or SVSFIsXML

Voice.rate = 0

Voice.AllowAudioOutputFormatChangesOnNextSet = False

Voice.AudioOutputStream.Format.Type = 22

Set Voice.AudioOutputStream = Voice.AudioOutputStream

Set Voice.Voice = Voice.GetVoices().Item(3) ‘此处如果测试不读中文 改变3到0测试

Voice.Volume = 100

Voice.Speak “你好！", m_speakFlags

4：别忘记给相应的变量声明，可以参看sdk自带的vb例程

---