Lautstärke regler einbauen?

[kleinkiiko]

Hay

Wie der titel schon sagt würde ich gerne in meinem Programm ein Lautstärkeregler einbauen nur weiß ich nicht wie :/

Das Programm ist ganz simple aufgebaut einfach ein paar Buttons die Onlineradios abspielen ( Technobase.FM , 1Live ect ).Nun würde ich auch gerne noch ein Lautstärkeregler einbauen.Kann mir bitte jemand ein Tut schicken?Oder Änliches.


MfG Kiko

[Coding Lounge]

Du brauchst eine TrackBar und folgenden Code (C#):

using System.Runtime.InteropServices;

public partial class Form1 : Form
    {
        [DllImport("winmm.dll")]
        public static extern int waveOutGetVolume(IntPtr hwo, out uint dwVolume);

        [DllImport("winmm.dll")]
        public static extern int waveOutSetVolume(IntPtr hwo, uint dwVolume);
		
		
		public Form1()
		{
            uint CurrVol = 0;
            waveOutGetVolume(IntPtr.Zero, out CurrVol);
            ushort CalcVol = (ushort)(CurrVol & 0x0000ffff);
            tBarVolume.Value = CalcVol / (ushort.MaxValue / 10);
		}
		
		private void tBarVolume_Scroll(object sender, EventArgs e)
        {
            int NewVolume = ((ushort.MaxValue / 10) * tBarVolume.Value);
            uint NewVolumeAllChannels = (((uint)NewVolume & 0x0000ffff) | ((uint)NewVolume << 16));
            waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels);

        }
	}

[kleinkiiko]

Mhmm es geht nicht da kommen 25fehler :/
Ist das für Visual Basic 2010?
Weil ich benutze VB

[Coding Lounge]

Nö, das ist C#. Hättest du auch sagen können

[kleinkiiko]

Ja sorry habe ich vergessen tut mir leid

[Coding Lounge]

Imports System.Runtime.InteropServices

Public Partial Class Form1
	Inherits Form
	<DllImport("winmm.dll")> _
	Public Shared Function waveOutGetVolume(hwo As IntPtr, ByRef dwVolume As UInteger) As Integer
	End Function

	<DllImport("winmm.dll")> _
	Public Shared Function waveOutSetVolume(hwo As IntPtr, dwVolume As UInteger) As Integer
	End Function


	Public Sub New()
		Dim CurrVol As UInteger = 0
		waveOutGetVolume(IntPtr.Zero, CurrVol)
		Dim CalcVol As UShort = CUShort(CurrVol And &Hffff)
		tBarVolume.Value = CalcVol \ (UShort.MaxValue \ 10)
	End Sub

	Private Sub tBarVolume_Scroll(sender As Object, e As EventArgs)
		Dim NewVolume As Integer = ((UShort.MaxValue \ 10) * tBarVolume.Value)
		Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &Hffff) Or (CUInt(NewVolume) << 16))
		waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)

	End Sub
End Class

[boxxiebabee]

Originally Posted by Coding Lounge

Imports System.Runtime.InteropServices

Public Partial Class Form1
	Inherits Form
	<DllImport("winmm.dll")> _
	Public Shared Function waveOutGetVolume(hwo As IntPtr, ByRef dwVolume As UInteger) As Integer
	End Function

	<DllImport("winmm.dll")> _
	Public Shared Function waveOutSetVolume(hwo As IntPtr, dwVolume As UInteger) As Integer
	End Function


	Public Sub New()
		Dim CurrVol As UInteger = 0
		waveOutGetVolume(IntPtr.Zero, CurrVol)
		Dim CalcVol As UShort = CUShort(CurrVol And &Hffff)
		tBarVolume.Value = CalcVol \ (UShort.MaxValue \ 10)
	End Sub

	Private Sub tBarVolume_Scroll(sender As Object, e As EventArgs)
		Dim NewVolume As Integer = ((UShort.MaxValue \ 10) * tBarVolume.Value)
		Dim NewVolumeAllChannels As UInteger = ((CUInt(NewVolume) And &Hffff) Or (CUInt(NewVolume) << 16))
		waveOutSetVolume(IntPtr.Zero, NewVolumeAllChannels)

	End Sub
End Class

Ehm, er verwendet zu 99% sicher nur den Windows Media Player, da gehts um einiges einfacher.

['xLeatz.]

du kannst doch auch ein einfach den Regler vom MediaPlayer Control nehmen.

[Coding Lounge]

Originally Posted by boxxiebabee

Ehm, er verwendet zu 99% sicher nur den Windows Media Player, da gehts um einiges einfacher.

Les dir bitte doch bevor du postest nochmal den Titel durch.