Lautstärke ändern

Question

Hallo

ich bin dabei mir einen kleinen player zu bauen.Wo man einen Track auswählen kann und ihn abspielen und die Lautstärke ändern kann.

Abspielen tue ich immoment  mit: My.Computer.Audio.play(Track)

Wie kann ich nur von diesem Track die Lautstärke ändern?

Ist es schlauer die Widergabe mit einem anderen Befehl zu starten etc.

Bin für jede Antwort dankbar

MFG

Julius Störrle

Answer 1

Hallo Julius,

Wenn du das MediaPlayer Control verwendest, geht das über das Control.
Sonst schau mal hier oder hier.

Dort findest auch in einem Satz (ohne dass ich nun Copyrights verletze).

du suchst bestimmt die "wm1.settings.volume " Eigenschaft. Der Wert liegt zwischen 0 (stumm) und 100 (sehr laut)
Viel Erfolg.

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/

Answer 2

Hallo Julius,

keine Fragen mehr. Können die Mods dann davon ausgehen, dass dir die Links geholfen haben?

Alternativ dazu noch eine weitere kleine Anwendung.
Kannst du ja mal in einer separaten Anwendung testen.

Module Modul1
    Public oldValue As Integer
End Module

Public Class Form1
    Public Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)

    Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

    'mit sndPlaySound <Dateiname>, x spielst Du eine Datei ab. Wenn Du für x = 0 nimmst, wartet VB so lange, bis die Datei fertig gespielt ist, bei x = 1 läuft dein Prog weiter und der Sound spielt im Hintergrund.

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.Text = "PlaySound"
        TrackBar1.Minimum = 0
        TrackBar1.Maximum = 50
        TrackBar1.Value = 25

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
        Button1.Text = "Play Sound"
        sndPlaySound("C:\\Windows\\Media\\tada.wav", 0)

    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        Try
            TrackBar1.Minimum = 0
            TrackBar1.Maximum = 50
            'audio.SetVolume(Me.tbarRateOfVolume.Value)

            Dim counter As Integer
            Dim newValue As Integer = TrackBar1.Value
            Dim myDiff As Integer = newValue - oldValue

            For counter = 1 To System.Math.Abs(myDiff) * 5
                If myDiff < 0 Then
                    Call keybd_event(System.Windows.Forms.Keys.VolumeDown, 0, 0, 0)
                    Application.DoEvents()
                Else
                    Call keybd_event(System.Windows.Forms.Keys.VolumeUp, 0, 0, 0)
                    Application.DoEvents()
                End If
            Next counter
            oldValue = newValue
            Label3.Text = "Lautstärke: " & TrackBar1.Value
        Catch ex As Exception
        End Try
    End Sub

    Private Sub Button1_MouseClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseClick
        Label3.Text = "Liebe Grüße Stefan"
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim simpleSound As New System.Media.SoundPlayer("c:\Windows\Media\chimes.wav")
        simpleSound.Play()
        sndPlaySound("C:\\Windows\\Media\\tada.wav", 1)
        sndPlaySound("C:\\Windows\\Media\\chimes.wav", 1)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim simpleSound As New System.Media.SoundPlayer("c:\Windows\Media\chimes.wav")
        simpleSound.Stop()
    End Sub
End Class

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/

Answer 3

Hallo Julius Störrle,

Ich gehe davon aus, dass die Antworten Dir weitergeholfen haben.
Solltest Du noch "Rückfragen" dazu haben, so gib uns bitte Bescheid.

Grüße,
Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 4

leider fuktioniert der code nicht. kann es sein das da was fehlt?

Answer 5

leider fuktioniert der code nicht. kann es sein das da was fehlt?

Hallo Julius Störrle,

Welcher Code funktioniert nicht? Der aus dem Beitrag von Giftzwockel von 23 April oder aus dem Beitrag von Giftzwockel von 25 April? Sag mal genau was nicht funktioniert und wo.

Einige wichtige Sachen sind hier im Forum zu beachten:

• Es ist immer gut wenn Du Dein Problem deutlich und völlig beschreiben kannst.

Umfasse mindestens die folgenden Schritte in der Beschreibung Deines Problems:

1) Eine Übersicht der Funktionsweise von dem Programm

2) Das Ergebnis des aktuellen Codes (poste mal den aktuellsten Code den Du verwendest)

3) Was erwartest Du dass Dein Code machen soll

4) Den Inhalt der Eingabedateien (falls zutreffend)

Schließlich, sagt uns diese Datensammlung, was Du von deinem Code erwartest, so dass wir vergleichen können, was es tut, mit dem was Du möchtest.

Relevanter Code zu posten wäre auch nicht schlecht oder eine .zip Datei mit den Code (falls der Code zu groß ist) kann man ihm Public Ordner von SkyDrive laden und den link hier Posten. (Wie nutze ich den SkyDrive?)

Jetzt kannst Du auch Bilder in die Beiträge einfügen: [Info] Neue Grafikfunktion für MSDN Forenbeiträge | Neue Forum Feature: Bilder in einem Beitrag einfügen

Danke und Grüße,

Robert

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 6

Hallo Julius,

dieses Forum ist ja nun nicht dazu da eine Frage zu stellen und eine fertige Lösung geliefert zu bekommen.
Normalerweise versucht man erst mal sein Problem selbst zu lösen und postet ggf. relevanten Code bei dem man Unterstützung braucht oder wünscht.
Wenn du dann Code bekommst und dein Programm arbeitet noch immer nicht wie gewünscht, dann musst du schon etwas mehr von dir geben als "leider fuktioniert der code nicht. kann es sein das da was fehlt?".

Beschreibe was Sinn und Zweck deiner Anwendung ist und poste den vorhandenen Code. Werden Fehlermeldungen ausgegeben, sind diese von Bedeutung.

---

Liebe Grüße Stefan | Cheers Stefan I'm using VB 2008 and VB 2010 Express Be a good forum member - mark posts that contain the answers to your questions or those that are helpful. c# in vb Translator: http://www.developerfusion.com/tools/convert/csharp-to-vb/

Answer 7

****************************************************************************************************************
Dieser Thread wurde mangels weiterer Beteiligung des Fragestellenden ohne bestätigte Lösung abgeschlossen.
Neue Rückfragen oder Ergänzungen zu diesem Thread bleiben weiterhin möglich.
****************************************************************************************************************

---

Robert Breitenhofer, MICROSOFT 
Bitte haben Sie Verständnis dafür, dass im Rahmen dieses Forums, welches auf dem Community-Prinzip „Entwickler helfen Entwickler“ beruht, kein technischer Support geleistet werden kann oder sonst welche garantierten Maßnahmen seitens Microsoft zugesichert werden können.

Answer 8

der thread darf gelöscht werden

Answer 9

der thread darf gelöscht werden

Der Sinn und Zweck des Forums ist nicht, dass Threads wieder gelöscht werden. Es wäre hilfreicher gewesen, wenn Du auf die Rückfragen eingegangen wärst, dann hätte man ggfs. auch eine funktionierende Lösung im Thread finden können. So ist der Thread für andere, die evtl. das gleiche bzw. ein ähnliches Problem haben, nur bedingt hilfreich, weil man nicht weiß, ob dein Problem nun gelöst werden konnte oder nicht.

---

Gruß, Stefan
Microsoft MVP - Visual Developer ASP/ASP.NET
http://www.asp-solutions.de/ - Consulting, Development
http://www.aspnetzone.de/ - ASP.NET Zone, die ASP.NET Community