Dieser Tip stammt von:
http://www.goetz-reinecke.de
Fragen an:
vb@goetz-reinecke.de
 
Laustärke & Balance einstellen
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
      • Ein CommandButton:         Command3
        
        Ein Form:                  Form1
        
        Ein HScrollBar:            HScroll1
        
        Zwei Labels:               Label1
                                   Label2
        
        Ein Timer:                 Timer1
        
        Ein VScrollBar:            VScroll1
        
  • 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