DirectX et Vb.net 2010

Version imprimable

Bonjour à tous,

J'ai suivi plusieurs tutoriels pour utiliser directX Audiovideoplayback afin de lire des mp3 dans mon programme (pour le moment, tous mes fichiers sons sont en .wav, et ça donne un exe et un projet très lourd ...). Malheureusement, quelques soit le tuto ou la methode, j'arrive fatalement sur le même soucis :

Notion de retard

Microsoft VB 2010 express attend la fin d'un opération.

La compilation ne fini jamais, mais ne plante pas non plus, je ne comprend pas ... j'ai fait quelques recherche sur google, en français et en anglais, mais rien ...
Au final, je suis forcé d'interrompre le processus pour pouvoir stoper VB.

Quelqu'un a une idée du pourquoi ?

Le code est :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Imports Microsoft.DirectX.AudioVideoPlayback Imports Microsoft.DirectX Public class form1 private sub form1_load handles mybase.load Dim monAudio As Microsoft.DirectX.AudioVideoPlayback.Audio monAudio = New Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique,1) end sub
Ps: c'est mon tour premier post sur ce forum, excusez mon orthographe et tout le reste ^^"

09/12/2011, 01h01
youtpout978

ton but est juste de lancer la lecture d'une musique ou c'est pour bien plus que tu utilise directx (parce qu'il y a d’autre moyen de lire de la musique)
et

Code:

Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique,1)

ne semble pas prendre d'entier en paramètre:
http://msdn.microsoft.com/fr-fr/libr...=vs.85%29.aspx
essaye peut être ça

Code:

Microsoft.DirectX.AudioVideoPlayback.Audio(Chemin_musique)
09/12/2011, 10h33
Armas

Je vais essayer, mais si tu regarde bien la faq, le lien que tu viens toi même de me donner, la methode prend bien une valeur booleenne en optionnel ^^

Code:

public Audio(string, bool)

Ps: bien joué de me downvote >< Je pourrai savoir pourquoi--" ?
09/12/2011, 10h59
youtpout978

ah dsl je savais pas que 1 c'était un booléen en vb
ton but est juste de lire une musique ou autre ?

ps: le -1 n'est pas de moi
09/12/2011, 11h04
Armas

Pour le moment, j'aimerai juste lire des fichiers MP3. Mais je bloque sur ce soucis de compilation ...

Par ailleurs, oui, "1" ou "true" est un boolean en vb ^^
09/12/2011, 12h12
youtpout978
tu as le mediaplayer qui permet de lire les mp3
http://msdn.microsoft.com/en-us/library/ms635239.aspx

un exemple en c#:
Code:

1 2 3 MediaPlayer t = new MediaPlayer(); t.Open(new Uri(@"ici le chemin du fichier")); t.Play();
il faut ajouter PresentationCore et WindowsBase en référence

Merci à toi, j'ai essayé, mais je n'arrive à rien ... la compilation marche, mais aucun son n'en sort T_T

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
    Dim monURI As New Uri("C:\Users\Roxas\Downloads\Rose of May FF9 - lyrics by katethegreat19.mp3")
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 
        Audio.Open(monURI)
        Audio.Play()
 
    End Sub
 
End Class

Une idée ?

essaye ça pour voir si ta une erreur au niveau de ton lien:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
 Try
Dim monURI As New Uri("C:\Users\Roxas\Downloads\Rose of May FF9 - lyrics by katethegreat19.mp3")
 
    Audio.Open(monURI)
        Audio.Play()
Catch ex As Exception
    MessageBox.Show(ex.Message)
End Try
 
 
    End Sub
 
End Class

Citation:

La référence d'objet n'est pas définie à une instance d'un objet.

Le chemin est bon, j'en suis certains, j'ai essayé avec un midi et un mp3, same error :(

Il manque quelque chose T_T ??

Merci d'avance de votre futur réponse.

Edit: Je suis absolument certains que le chemin est correcte puisque je suis passé par un filedialogue

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
 
 
Imports System.Windows.Media
 
 
Public Class Form1
 
    Dim Audio As MediaPlayer
    Dim a As String
 
    Dim openfile As New OpenFileDialog
 
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        openfile.ShowDialog()
 
        a = openfile.FileName
        Label1.Text = a
        Dim monURI As New Uri(a)
 
        Try
 
            Audio.Open(monURI)
            Audio.Play()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
 
    End Sub
End Class

10/12/2011, 12h15
youtpout978
peut être ça
Code:

1 2 Audio=New MediaPlayer
10/12/2011, 12h17
Armas

C'est exactement ça !!! Merci \o/
*Bisous câlin tout plein*
10/12/2011, 12h22
youtpout978

de rien et bonne continuation :ccool:

Du coup, je partage ma classe pour la lecture de fichier audio ! :D

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
Imports System.Windows.Media  'ajout en reference de WindowsBase et PresentationCore et imports system.window.media pour l'ajout de la classe mediaplayer
 
Public Class Class_lecture_musique
 
    Dim monURI As Uri
    Dim Audio = New MediaPlayer
 
    Sub New(ByVal chemin_du_fichier As String)
        monURI = New Uri(chemin_du_fichier)
    End Sub
 
    Sub Lecture()
        Audio.open(monURI)
        Audio.play()
    End Sub
 
    Sub Arret()
        Audio.stop()
    End Sub
 
End Class