My.Computer.Audio Lautstärke per Schieberegler einstellen

Starz · 20. März 2011, 15:48

Wie es schon in der Überschrift steht brauch och ein Visual Basic Code für dieses Problem

:

Ich lasse für mein jetzigen Projekt mit dem Code: My.Computer.Audio() eine .wav Datei abspielen.

Ich will aber das ich mit einem Schieberegler die Lautstärke anpassen kann und das es noch einen Mute-Button gibt. :?:

Ich bin noch ein Anfänger also bitte leichte Codes

.

Danke!

SystemUnknow · 20. März 2011, 16:10

vb-fun.de/cgi-bin/loadframe.pl…rojekte/projekt0086.shtml (umschreiben und anpassen)

Starz · 20. März 2011, 16:31

Sorry aber ich bin noch ein sehr Dummer anfänger deswegen kannst Du mir den direkten einfachen Code posten? Danke.

jvbsl · 20. März 2011, 16:39

Kannst es auch runterladen und ich denke die Antwortet lautet "Nein"...:P

Starz · 20. März 2011, 16:55

Hab ich schon gemacht da waren aber so .bas Datentypen.

SystemUnknow · 20. März 2011, 16:56

kannst Du mir den direkten einfachen Code posten?

umschreiben und anpassen...

jvbsl · 20. März 2011, 17:11

Öffne die .vbp Datei mit Visual Studio, dann wird das schon konvertiert werden...

inu · 21. März 2011, 15:26

VB.NET-Quellcode

AxWindowsMediaPlayer.settings.volume = TrackBar1.Value
'Minimum von TrackBar1: 0 Maximum von Trackbar: 100

Samus Aran · 21. März 2011, 16:04

^Das ist sowas von nicht die Antwort auf die Frage des TE. xDD

SystemUnknow · 21. März 2011, 17:23

hier etwas kleinere code:
vbarchiv.net/tipps/details.php?id=122
activevb.de/tipps/vb6tipps/tipp0004.html

noch kürzer geht nicht mehr...... ohne API kommst du nicht weiter....

Infinity · 21. März 2011, 22:25

Ich denke du hast jetzt schon ne Lösung für dein Problem gefunden, aber ich würde es mit DirectSound machen. Dann musst du nicht so viele API-Declarationen schreiben, sondern einach nur DirectSound als Verweis hinzufügen.

Hier mal ne kleine Beispielkasse (über Volume kannst du dann wenn dein Schieberegler bewegt wird die Lautstärke ändern):

Spoiler anzeigen

VB.NET-Quellcode

Public Class WaveFilePlayer
Dim _Dev As New Device
Dim _Buffer As SecondaryBuffer
Public Sub New(ByRef Handle As IntPtr)
_Dev.SetCooperativeLevel(Handle, CooperativeLevel.Normal)
End Sub
Public Sub PlayWaveFile(ByRef FilePath As String)
_Buffer = New SecondaryBuffer(FilePath, _Dev)
If Not _Buffer Is Nothing Then _Buffer.Play(0, BufferPlayFlags.Default)
End Sub
Public Sub StopPlaying()
If Not _Buffer Is Nothing Then _Buffer.Stop()
End Sub
Public ReadOnly Property IsPlaying As Boolean
Get
If Not _Buffer Is Nothing Then Return _Buffer.Status.Playing
Return False
End Get
End Property
Public Property Position As Integer
Get
Return _Buffer.PlayPosition
End Get
Set(ByVal value As Integer)
Try
If Not _Buffer Is Nothing Then _Buffer.SetCurrentPosition(value)
Catch
End Try
End Set
End Property
Public Property Volume As Integer
Get
If Not _Buffer Is Nothing Then
Return _Buffer.Volume
Else
Return 0
End If
End Get
Set(ByVal value As Integer)
If Not _Buffer Is Nothing Then
If value >= DirectSound.Volume.Max And value <= Math.Abs(DirectSound.Volume.Min) Then
_Buffer.Volume = DirectSound.Volume.Min + value
ElseIf value <= DirectSound.Volume.Max And value >= DirectSound.Volume.Min Then
_Buffer.Volume = value
Else
Throw New Exception("Invalid volume (must be between " & DirectSound.Volume.Min.ToString & " and " & DirectSound.Volume.Max.ToString & "!")
End If
End If
End Set
End Property
End Class

jvbsl · 22. März 2011, 16:28

Ich denke AudioVideoPlayback ist ausreichend, vorallem kürzer und unterstützt alles nötige sogar mit Events

fraju · 22. März 2011, 22:08

Warum verweisen alle immer auf VB5/6 Codes?

Wenn diese VB5/6 Programmierer auch so gedacht hätten,wie hier die .Net Leute,
Würde man heute auf Pascal und Assembler verweisen.

traurig

Gruß an Alle

Infinity · 23. März 2011, 17:02

fraju schrieb:

Warum verweisen alle immer auf VB5/6 Codes?

Also mein Beispiel war in VB.NET. Aber es gibt einfach viele Beispiele für VB5/6 und da man den Code leicht in VB.NET übernehmen kann sehe ich da kein Problem.

Myrax · 23. März 2011, 22:08

VB 5 != .NET? WTF?

fraju · 24. März 2011, 13:14

Infinity schrieb:

fraju schrieb:

Warum verweisen alle immer auf VB5/6 Codes?

Also mein Beispiel war in VB.NET. Aber es gibt einfach viele Beispiele für VB5/6 und da man den Code leicht in VB.NET übernehmen kann sehe ich da kein Problem.

Du warst auch nicht gemein,hast je keinen Link gegeben sondern Code.

Wer jetzt mit .Net anfängt,will sich nicht noch zusätzlich mit VB5/6 oder älter beschäftigen.
Das Einfache ist auch für Anfänger schwierig.

Je mehr funktionsfähige Codeschnipsel ins Netz gestellt werden,umso besser kann jeder selbst suchen oder verlinken.
Gruß

SystemUnknow · 24. März 2011, 14:45

Aber es gibt einfach viele Beispiele für VB5/6 und da man den Code leicht in VB.NET übernehmen kann sehe ich da kein Problem.

...das sehe ich genau so....im netzt bekommt man jede menge Support, z.b MSDN oder pinvoke.net

fraju · 24. März 2011, 18:21

SystemUnknow schrieb:

...das sehe ich genau so

ich nicht...wenn die damaligen Programmierer genau so gedacht hätten ,wie die meisten hier im Forum,
gäbe es auch keine VB5/6 Code oder Ältere.
MfG

My.Computer.Audio Lautstärke per Schieberegler einstellen

My.Computer.Audio Lautstärke per Schieberegler einstellen

VB.NET-Quellcode

VB.NET-Quellcode

fraju schrieb:

Infinity schrieb:

fraju schrieb:

SystemUnknow schrieb:

Tags

Ähnliche Themen

4 Benutzer haben hier geschrieben