System Lautstärke Auslesen

  • VB.NET

Es gibt 31 Antworten in diesem Thema. Der letzte Beitrag () ist von thefiloe.

    System Lautstärke Auslesen

    Hallo Liebes Forum.. ja Ich weiss diese Beiträge gibt es schon oft genug, aber ich kriegs einfach nicht gebacken.. Ich möchte mir eine Sprachsteurung für meinen PC Zusammenbasteln, mit Lautstäkre verändern usw. Dafür brauch ich aber die Aktuelle Lautstärke von Windows. und wie lese ich diese jz aus? Verändern kann ich schon, nur das lesen fällt mir noch schwer.

    Tut mir leid wenn ich euch eure Zeit Klaue, aber ich würds gerne wissen. :(
    Mfg Ruffo

    [Allgemein] Systemlautstärke ändern

    [Release] SysVolume

    Ich hoffe ich konnte dir helfen :D
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Ohne die links zu lesen was man dort schon geschrieben hat muss ich sagen wenn du setzten kannst wirst du wohl auch auslesen können. setzten ist halt WaveoutSetVolume und holen müsste dann WaveoutGetVolume sein (wenn ich mich richtig errinnere).
    Und hier haste das erste google ergebnis: geekpedia.com/tutorial176_Get-…he-wave-sound-volume.html
    Und das kann man 1 zu 1 in vb übersetzen.


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Was jetzt? also beim deinem Link DIngDong, wird da ja auch ein LInk gepostet von einem c# Code, womit man die Lautstärke auslesen kann. Jedoch Kriege ich es einfach nicht hin diesen c# in VB zu Convertiern. :(
    Das Lautstärke verändern hab ich ja schon, durch das Drücken der Syskeys.. Ich hätte am liebsten die SysVolume.DLL von Xprox. aber der Link ist ja leider down :(


    an TheFiloe: Ich setzte die Lautstärke ja mit den Systemkeys, und bei der einen Anleitung Krieg ich die da genante DLL nicht in die Projektmappe.. :/

    Bitte gib konkrete Fehlerangaben. Das heißt, gib an WAS beim konvertieren nicht funktioniert.
    Welche Fehler treten auf? Wo treten diese auf?
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Warscheinlich ist es nur dieser Teil den ich nicht weis wie ich den Konvertiere:

    Quellcode

    1. MMDeviceEnumerator devEnum = new MMDeviceEnumerator();
    2. MMDevice defaultDevice =
    3. devEnum.GetDefaultAudioEndpoint(EDataFlow.eRender, ERole.eMultimedia);

    Du musst keinen zusätzlichen verweis erstellen.
    winmm.dll ist eine SystemBibliothek da wirste in 1000 jahren aus .net keinen verweis drauf bekommen. mach einfach das was dort steht.
    Kann doch nicht so schwer dein diesen code zu kopieren:

    Quellcode

    1. [code=vbnet]Imports System.Collections.Generic
    2. Imports System.ComponentModel
    3. Imports System.Data
    4. Imports System.Drawing
    5. Imports System.Text
    6. Imports System.Windows.Forms
    7. Imports System.Runtime.InteropServices
    9. Namespace VolumeControl
    10. Public Partial Class Form1
    11. Inherits Form
    12. <DllImport("winmm.dll")> _
    13. Public Shared Function waveOutGetVolume(hwo As IntPtr, ByRef dwVolume As UInteger) As Integer
    14. End Function
    16. <DllImport("winmm.dll")> _
    17. Public Shared Function waveOutSetVolume(hwo As IntPtr, dwVolume As UInteger) As Integer
    18. End Function
    20. Public Sub New()
    21. InitializeComponent()
    22. ' By the default set the volume to 0
    23. Dim CurrVol As UInteger = 0
    24. ' At this point, CurrVol gets assigned the volume
    25. waveOutGetVolume(IntPtr.Zero, CurrVol)
    26. ' Calculate the volume
    27. Dim CalcVol As UShort = CUShort(CurrVol And &Hffff)
    28. ' Get the volume on a scale of 1 to 10 (to fit the trackbar)
    29. trackWave.Value = CalcVol \ (UShort.MaxValue \ 10)
    30. End Sub
    32. Private Sub trackWave_Scroll(sender As Object, e As EventArgs)
    33. ' Calculate the volume that's being set
    34. Dim NewVolume As Integer = ((UShort.MaxValue \ 10) * trackWave.Value)
    35. ' Set the same volume for both the left and the right channels
    36. Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &Hffff) Or (CUInt(NewVolume) << 16))
    37. ' Set the volume
    38. waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)
    39. End Sub
    40. End Class
    41. End Namespace
    [/code]


    Opensource Audio-Bibliothek auf github: KLICK, im Showroom oder auf NuGet.

    Könntest du bitte deinen code hier posten falls jmd. Danach sucht und später dieses Thema aufruft.

    Warum frage ich das?
    Ich stelle diese Frage weil mich dein Code sehr interessieren würde und weil ich ihn vielleicht benötige. Und da Fragen über die Systemlautstärke in letzter Zeit öfters gestellt werden.
    Danke
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    Würd ich gerne... aber er Funktioniert noch nicht wirklich :/

    Ich schick mal das was ich hab:

    Kompletter Code:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Runtime.InteropServices
    6. Public Class Form1
    8. <DllImport("winmm.dll")> _
    9. Public Shared Function waveOutGetVolume(ByVal hwo As IntPtr, ByRef dwVolume As UInteger) As Integer
    10. End Function
    12. <DllImport("winmm.dll")> _
    13. Public Shared Function waveOutSetVolume(ByVal hwo As IntPtr, ByVal dwVolume As UInteger) As Integer
    14. End Function
    16. Declare Function waveOutGetVolume Lib "winmm.dll" ( _
    17. ByVal uDeviceID As Long, _
    18. ByVal lpdwVolume As Long) As Long
    21. Private Declare Sub keybd_event Lib "user32" _
    22. (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    23. Const KEYEVENTF_KEYDOWN As Integer = 0
    24. Const KEYEVENTF_KEYUP As Integer = 2
    27. ' Class Lautstärke
    28. Public Class Lautstaerke
    29. 'Windows zugriff
    30. Private Declare Sub keybd_event Lib "user32" _
    31. (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    32. Const KEYEVENTF_KEYDOWN As Integer = 0
    33. Const KEYEVENTF_KEYUP As Integer = 2
    34. ' Lauter
    35. Public Shared Sub Leiser()
    36. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYDOWN, 0) ' Taste runter
    37. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeDown), 0, KEYEVENTF_KEYUP, 0) ' Taste rauf
    38. End Sub
    39. ' Leiser
    40. Public Shared Sub Lauter()
    41. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYDOWN, 0)
    42. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeUp), 0, KEYEVENTF_KEYUP, 0)
    43. End Sub
    44. ' Mute
    45. Public Shared Sub Stumm()
    46. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeMute), 0, KEYEVENTF_KEYDOWN, 0)
    47. Call keybd_event(CByte(System.Windows.Forms.Keys.VolumeMute), 0, KEYEVENTF_KEYUP, 0)
    48. End Sub
    49. End Class
    52. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    53. Dim Stimmen As List(Of String) = nSpeech.SpeechOutput.GetVoices()
    54. Dim Output As New nSpeech.SpeechOutput(Stimmen(0))
    60. Dim Wörter() As String = New String() {"Lauter", "Leiser", "Stumm", "Heute ist der?", "On", "Leiser start", "Leiser stop", "Lauter start", "Lauter stop", "Uhrzeit?"}
    61. Dim Input As New nSpeech.SpeechInput(Sub(Text As String)
    63. If Text = "Lauter" Then
    64. Output.SpeakAsync("Volume UP")
    67. ElseIf Text = "Leiser" Then
    68. Output.SpeakAsync("volume down")
    69. Lautstaerke.Leiser()
    70. ElseIf Text = "Leiser start" Then
    71. Output.SpeakAsync("volume down starts")
    72. leiserdown.Start()
    73. ElseIf Text = "Leiser Stop" Then
    74. Output.SpeakAsync("volume down stops")
    75. leiserdown.Stop()
    76. ElseIf Text = "Lauter start" Then
    77. Output.SpeakAsync("volume up starts")
    78. lauterup.Start()
    79. ElseIf Text = "Lauter Stop" Then
    80. Output.SpeakAsync("volume up stops")
    81. lauterup.Stop()
    82. ElseIf Text = "Stumm" Then
    83. Output.Speak("Volume Stop")
    84. Lautstaerke.Stumm()
    85. ElseIf Text = "On" Then
    86. Lautstaerke.Stumm()
    87. Output.Speak("Volume Start")
    88. ElseIf Text = "Heute ist der?" Then
    89. Dim heutm As String = Format(Now.Month, "0")
    90. Dim heutd As String = Format(Now.Day, "00")
    91. Dim heuty As String = Format(Now.Year)
    92. Output.SpeakAsync(heutd + "Point" + heutm + "point" + heuty)
    93. ElseIf Text = "Uhrzeit?" Then
    94. Dim heuts As String = Format(Now.Hour, "0")
    95. Dim heutm As String = Format(Now.Minute, "00")
    96. Output.SpeakAsync("It's" + heuts + "O'clock" + heutm)
    98. End If
    101. End Sub, Wörter)
    102. End Sub
    104. Private Sub leiserdown_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles leiserdown.Tick
    105. Lautstaerke.Leiser()
    106. End Sub
    108. Private Sub Lauterup_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lauterup.Tick
    109. Lautstaerke.Lauter()
    110. End Sub
    112. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    114. Dim CurrVol As UInteger = 0
    115. waveOutGetVolume(IntPtr.Zero, CurrVol)
    116. Dim CalcVol As UShort = CUShort(CurrVol And &HFFFF)
    117. TrackBar1.Value = CalcVol / (UShort.MaxValue \ 10)
    123. Label1.Text = Format(TrackBar1.Value) + " %"
    124. End Sub
    126. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    127. Dim NewVolume As Integer = ((UShort.MaxValue \ 10) * 8)
    128. ' Set the same volume for both the left and the right channels
    129. Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &HFFFF) Or (CUInt(NewVolume) << 16))
    130. ' Set the volume
    131. waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)
    132. MsgBox(NewVolumeAllChannels)
    133. End Sub
    134. End Class




    Nur Auslesen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    3. Dim CurrVol As UInteger = 0
    4. waveOutGetVolume(IntPtr.Zero, CurrVol)
    5. Dim CalcVol As UShort = CUShort(CurrVol And &HFFFF)
    6. TrackBar1.Value = CalcVol / (UShort.MaxValue \ 10)
    12. Label1.Text = Format(TrackBar1.Value) + " %"
    13. End Sub


    (klappt leider nicht)


    Nur Einfügen:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    2. Dim NewVolume As Integer = ((UShort.MaxValue \ 10) * 8)
    3. ' Set the same volume for both the left and the right channels
    4. Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &HFFFF) Or (CUInt(NewVolume) << 16))
    5. ' Set the volume
    6. waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)
    7. MsgBox(NewVolumeAllChannels)
    8. End Sub


    naja, kann auch an meiner Sounkarte liegen, weil de richtigen sound fängtb der ja ab.. oder drana das ich gerade in skype bin
    werds mal anders testen

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Ruffo“ ()

    Habe noch einen Wunsch, füge bitte ein VB-Tag ein
    [VB 2010] DataGridView einzelne Spalten und Zeilen auslesen
    Mfg: Gather
    Private Nachrichten bezüglich VB-Fragen werden Ignoriert!

    DAS waveOutGetVolume arbeitet Zwar unterneinander, aber die Lautstärke an sich verändert sich nicht :/ lässt sich auch nicht ausslesen

    Sprich wenn ich die WAveOutGetVolume Nutze, zeigt der bei GET zwar den richtigen Wert an, aber der Wird nicht bei den WIndows EInstellungen geändert

    1 = Vorher 2= NachChange des Waveout

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Ruffo“ ()

Facebook
Telefonspende