Sounddateien abspielen
05.07.2003 18:24:37
Ralf
In meiner Tabelle sollen verschienene WAV Dateien abgespielt werden.
Die Zellen P2, Q2, R2 u.s.w. sehen so aus.
=ZÄHLENWENN($G$2:$G$60;0)
=ZÄHLENWENN($G$2:$G$60;1)
=ZÄHLENWENN($G$2:$G$60;2)
=ZÄHLENWENN($G$2:$G$60;3) u.s.w.
Die Zellen P3, Q3, R3 u.s.w. sehen so aus.
=WENN(P2>0;sounddateispielen0();"")
=WENN(Q2>0;sounddateispielen1();"")
=WENN(R2>0;sounddateispielen2();"")
=WENN(R2>0;sounddateispielen3();"") u.s.w.
Bislang habe ich für jede Sounddatei ein eigenes Modul erzeugt.
------------------------------------------------------------------------------------------
Modul1
Declare
Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare
Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function SoundDateiSpielen0()
Dim strSoundDatei As String
Dim Dummy As Long
If waveOutGetNumDevs() <> 0 Then
strSoundDatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Der Geburtstag ist Heute.wav"
Dummy = sndPlaySound(strSoundDatei, 0)
End If
End Function
------------------------------------------------------------------------------------------
Modul2
Declare
Function waveOutGetNumDevs Lib "WINMM" () As Integer
Declare
Function sndPlaySound Lib "WINMM" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function SoundDateiSpielen1()
Dim strSoundDatei As String
Dim Dummy As Long
If waveOutGetNumDevs() <> 0 Then
strSoundDatei = "C:\WINDOWS\MEDIA\Geburtstagserinnerungen\Der Geburtstag ist 01 Morgen.wav"
Dummy = sndPlaySound(strSoundDatei, 1)
End If
End Function
----------------------------------------------------------------------------------- u.s.w.
Gibt es eine Möglichkeit das ganze in einem Modul zusammenzufassen?
Kann dem unwissenden Ralf von Euch geholfen werden? Dank im voraus.
Ich Danke dir für die schnelle Hilfe. Gruß Ralf.