(仅供参考)如何在IFIX中播放WAV音频

如何在IFIX中播放WAV音频
第一步：
打开IFIX工作台，在Globals目录下选择User，点击鼠标右键，选择编辑脚本（如下图所示）：
打开VB编程环境，选择“User”，点击鼠标右键，选择插入模块：
将会出来以下内容：
在右侧窗口内写入下列代码（可直接COPY），保存：
Public Declare Function sndPlaySound Lib "winmm" Alias _
"sndPlaySoundA" (ByVal lpszSoundName As String, _
ByVal uFlags As Long) As Long
' flag uitzetten
Public Const SND_SYNC = &H0
Public Const SND_ASYNC = &H1
Public Const SND_NODEFAULT = &H2
Public Const SND_MEMORY = &H4
Public Const SND_LOOP = &H8
Public Const SND_NOSTOP = &H10
Public Sub PlaySound(strSound As String)
sndPlaySound strSound, SND_ASYNC Or SND_NODEFAULT
End Sub
如下所示：
退出VB编程环境。

（此步骤所有应用都一样，通用）
第二步：
在需要调用声音文件的地方写入如下代码：
PlaySound "D:\10156031.wav"，
黄色标记处为声音文件的详细路径
Sample：
选择按钮点击鼠标右键，选择“编辑脚本”：
写入下列脚本：
Private Sub CommandButton1_Click()
Dim Alms As Long ' Alarm Counter Variable
'Get the alarm counter of the specific area.
'Format: Fix32.NodeName.AlarmArea.F_CV
'In this example change FIX to your node name and change 'CRITICAL to your alarm area name Alms = Fix32.Fix.T1.F_CV
'if the counter is > 0 then play sound file
If Alms > 0 Then
'Play wav file (wav files are only supported)
'in this example change the path in double quotes to your file you want to play on alarm PlaySound "D:\10156031.wav"
End If
End Sub
（黄色标记处是自动生成，用户只需写入中间的内容即可）
Fix32.Fix.T1.F_CV为测试仿真点，用户可根据需要和实际应用关联，如该点是一个报警点，即可在报警发生时，调用声音文件。

运行ifix画面：
输入大于0的值，点击“声音测试”按钮，即可播放出声音。

和报警的关联：
当有报警时，调用声音文件可在事件调度中做，
利用Fix32.FIX.ALARMCOUNTERS.F_UNACKTOT（未确认报警计数器点），
当该点不为0时，执行自定义脚本调用声音文件（脚本写法如上述例子）。