Hinweis: Sollten Sie nur im Besitz dieser HTML-Seite und nicht des zugehörigen Projektes sein, Gehen Sie folgendermaßen vor:
- Öffnen Sie Visual Basic
- Erstellen Sie ein neues Projekt
- Markieren und kopieren den auf dieser Seite unten eingerahmten Source-Code
- Fügen Sie den kopierten Text in Ihr Form ein
- Erstellen Sie folgende Steuerelemente auf Ihrem Form
- Speichern Sie das ganze ab und starten Sie das Programm
|
'Dieser Source stammt von http://www.goetz-reinecke.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.
'Sollten Sie Fehler entdecken oder Fragen haben, dann
'mailen Sie mir bitte unter: vb@goetz-reinecke.de
'Ansonsten viel Spaß und Erfolg mit diesem Source !
'Kopieren Sie in das Verzeichnis des Projekte eine größere
'*.wav Datei und benennen Sie diese zu "test.wav" um. Sonst
'läuft die Sache nicht.
Private Type lVolType
v As Long
End Type
Private Type VolType
lv As Integer
rv As Integer
End Type
Private Declare Function waveOutGetVolume Lib "winmm.dll" _
(ByVal uDeviceID As Long, lpdwVolume As Long) As Long
Private Declare Function waveOutSetVolume Lib "winmm.dll" _
(ByVal uDeviceID As Long, ByVal dwVolume As Long) _
As Long
'Abspielen WAV
Private 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
Private Sub Command3_Click()
Dim i As Long, RS As String, cb As Long, W$
RS = Space$(128)
i = mciSendString("stop sound", RS, 128, cb)
i = mciSendString("close sound", RS, 128, cb)
'Abspielen
RS = Space$(128)
W$ = "test.wav" 'Das ist die abzuspielende Sounddatei
i = mciSendString("open waveaudio!" & W$ & " alias sound", _
RS, 128, cb)
If i Then MsgBox "Fehler - Angegebene Datei nicht gefunden."
i = mciSendString("play sound", RS, 128, cb)
VScroll1.SetFocus
End Sub
Private Sub Form_Load()
HScroll1.Value = 0
VScroll1.Value = 2
Form1.Show
VScroll1.SetFocus
End Sub
Private Sub Timer1_Timer()
Dim id As Long, v As Long, i As Long
id = -1
If VScroll1.Value = 1 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 0)
If VScroll1.Value = 1 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 0)
If VScroll1.Value = 1 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, 0)
If VScroll1.Value = 1 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, 0)
If VScroll1.Value = 1 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, 0)
If VScroll1.Value = 2 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 10280)
If VScroll1.Value = 2 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 379004968)
If VScroll1.Value = 2 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, 673720360)
If VScroll1.Value = 2 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, 673714578)
If VScroll1.Value = 2 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, 673710080)
If VScroll1.Value = 3 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 20560)
If VScroll1.Value = 3 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 757944400)
If VScroll1.Value = 3 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, 1347440720)
If VScroll1.Value = 3 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, 1347429155)
If VScroll1.Value = 3 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, 1347420160)
If VScroll1.Value = 4 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 31868)
If VScroll1.Value = 4 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 1174830204)
If VScroll1.Value = 4 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, 2088533116)
If VScroll1.Value = 4 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, 2088515191)
If VScroll1.Value = 4 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, 2088501248)
If VScroll1.Value = 5 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 42919)
If VScroll1.Value = 5 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 1582213031)
If VScroll1.Value = 5 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, -1482184793)
If VScroll1.Value = 5 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, -1482208934)
If VScroll1.Value = 5 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, -1482227712)
If VScroll1.Value = 6 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 54227)
If VScroll1.Value = 6 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, 1554895827)
If VScroll1.Value = 6 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, -741092397)
If VScroll1.Value = 6 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, -741122899)
If VScroll1.Value = 6 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, -741146624)
If VScroll1.Value = 7 And HScroll1.Value = -2 Then _
i = waveOutSetVolume(id, 65535)
If VScroll1.Value = 7 And HScroll1.Value = -1 Then _
i = waveOutSetVolume(id, -1878982657)
If VScroll1.Value = 7 And HScroll1.Value = 0 Then _
i = waveOutSetVolume(id, -1)
If VScroll1.Value = 7 And HScroll1.Value = 1 Then _
i = waveOutSetVolume(id, -36865)
If VScroll1.Value = 7 And HScroll1.Value = 2 Then _
i = waveOutSetVolume(id, -65536)
End Sub
|
|
|