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.
Anzeige