Discussion :

[Jayme65]

Bonjour,

J'ai, dans ma fenêtre principale, une procédure de lecture de sons "interface".

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Imports WMPLib
 
Public WithEvents Player As New WMPLib.WindowsMediaPlayer
 
PlayFile("c:\son1.wav")
 
Private Sub PlayFile(ByVal url As String)
  Player = New WMPLib.WindowsMediaPlayer
  Player.URL = url
  Player.controls.play()
End Sub

Il y a 8 sons au total, et ils doivent être aussi utilisé par d'autres fenêtre de mon apllication.
Le problème, c'est que je ne peux pas faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MainWindow.PlayFile("c:\son1.wav")

Erreur: Reference to a non-shared member requires an object reference.

Ma question:
Comment puis je lancer des sons, dont toutes les procédures d'initialisation et de lecture sont présentes sur "MainWindow", depuis une autre fenêtre (pour éviter de devoir le refaire pour CHAQUE fenêtre)

Merci pour votre aide!!

[Pol63]

il y a moyen d'appeler une méthode d'une autre fenetre

néanmoins si un code n'est pas lié à une fenetre, il suffit de ne pas le mettre dans le code d'une fenetre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
public class Sound
 
  public shared Sub PlayFile(ByVal url As String)
     ....

[azstar]

je te conseil aussi d'utiliser une classe comme la indique pol63 mais si tu insiste à utiliser ta méthode tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
Imports WMPLib
 
 
Shared Public Sub PlayFile(ByVal url As String)
WithEvents Player As New WMPLib.WindowsMediaPlayer
  Player = New WMPLib.WindowsMediaPlayer
  Player.URL = url
  Player.controls.play()
End Sub

[Jayme65]

il y a moyen d'appeler une méthode d'une autre fenetre

néanmoins si un code n'est pas lié à une fenetre, il suffit de ne pas le mettre dans le code d'une fenetre ...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
public class Sound
 
  public shared Sub PlayFile(ByVal url As String)
     ....

J'aimerais faire "comme il faut"...mais étant un peu débutant puis-je te demander de développer un peu plus comment on construit/utilise cette "Class" ?
Comment, depuis la fenêtre 1, lancerait-on alors la lecture?
Et comment depuis la fenêtre 2?

Merci pour ton aide...et ta compréhension! ;-)

[Pol63]

un cours : http://plasserre.developpez.com/

il y a beaucoup de concepts à connaitre en .net, certains sont complexes, mais les bases sont rapides à comprendre

Shared devant un membre signifie qu'il peut etre utilisé sans instance, de n'importe où (partagé pour toutes les instances dans les faits)

on peut alors l'appeler via nom_de_la_classe.nom_du_membre

il convient de connaitre aussi le vocabulaire (classe, instance, membre (=sub/function/property/field(=variable)), portée des membres (private/protected/friend/public * shared) etc...)

[Jayme65]

Si je vous comprends bien, vous voulez dire que si dans la fenêtre 1 j'ai:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
public class Sound
  Public Shared Sub PlayFile(ByVal url As String)
    Player = New WMPLib.WindowsMediaPlayer
    Player.URL = url
    Player.controls.play()
  End Sub
End Class

Je pourrai faire, depuis la fenêtre 2:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sound.PlayFile("c:/music.mp3")

( ou Window1.Sound.PlayFile("c:/music.mp3") ?)

Je ne peux pas le tester car ne suis pas devant Visual Studio
Merci!!

[Pol63]

le mieux est de faire clic droit sur le projet / ajouter une classe
tu auras un fichier vide et tu crées ta classe avec le nom que tu veux, et la méthode shared

depuis window1 ou window2 tu pourras faire le_nom_de_la_classe.le_nom_de_la_sub_shared


il est possible de mettre une classe dans une autre, donc tu peux mettre la classe sound dans window1, mais comme je l'ai plus tot, il ne faut pas mélanger tout
faire du son n'est pas lié à ta window1 et n'a donc rien à y faire

[Jayme65]

Pol63,
Merci pour ta réponse, qui me permet de régler mon problème...et qui m'ouvre de nouveaux horizons ;-)

J'ai donc une classe

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Class UISound
    Public Shared WithEvents musicPlayer As New WMPLib.WindowsMediaPlayer
    Public Shared Sub PlayMusic(ByVal url As String)
        musicPlayer = New WMPLib.WindowsMediaPlayer
        musicPlayer.URL = url
        volumeMusic()
        musicPlayer.controls.play()
    End Sub
    Public Shared Sub volumeMusic()
        musicPlayer.settings.volume = My.Settings.music_volume / 10
    End Sub    
    Public Shared Sub musicPlayer_MediaEnded(ByVal NewState As Integer) Handles musicPlayer.PlayStateChange
        If NewState = WMPLib.WMPPlayState.wmppsStopped Then
            musicPlayer.close()
        End If
    End Sub
End Class

Dans ma fenêtre principale j'ai ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Public Sub playMusic()
            Dim random As New Random()
            Dim rndnbr As Integer
            Dim musicLink As String
            rndnbr = random.Next(0, musicList.Count)
            musicLink = musicList(rndnbr)
            UISound.PlayMusic(musicLink)
End Sub

Qui va chercher dans une liste de lecture une musique de façon aléatoire, et qui lance la lecture par ma classe UISound

J'ai dans la classe une méthode prévue pour lorsque la musique se termine.
Mais comment puis-je alors rappeler le Sub playMusic() de la fenêtre principale (pour qu'il pioche un nouveau morceaux et relance une lecture)
?
A moins que cette détection de fin de musique doive se faire directement depuis la fenêtre principale?

Merci!!!

PS: Une dernière chose si tu le veux bien: je m'aperçois que je n'ai plus besoin de 'Imports WMPLib' en en-tête. Pourrais tu me dire rapidement pourquoi la librairie n'a plus besoin d'être importée?

[Pol63]

ajouter en référence une dll permet d'utiliser ce quelle contient (classes et autres)

le mot clé imports n'est pas lié du tout à ca, il sert juste à ne pas préfixer par les namespace



par exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim b as new sytem.drawing.bitmap

si on met imports syste.drawing en haut on peut juste écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

dim b as new bitmap

dans les 2 cas il faut que system.drawing soit en référence (ca l'est par défaut sur les projet de type windows forms)


quand à la détection de fin de son, si tu veux que quand quelque chose appelle uisound.playmusic ca ne s'arrete pas tu peux le gérer dans uisound
tu déclares withevents, ce qui veut dire que tu veux pouvoir gérer les évènements sur l'objet, il y a peut etre des events qui avertissent de la fin de lecture ...

[Jayme65]

si tu veux que quand quelque chose appelle uisound.playmusic ca ne s'arrete pas tu peux le gérer dans uisound
tu déclares withevents, ce qui veut dire que tu veux pouvoir gérer les évènements sur l'objet

C'est déja le cas, non?!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Public Class UISound
    Public Shared WithEvents musicPlayer As New WMPLib.WindowsMediaPlayer

il y a peut etre des events qui avertissent de la fin de lecture ...

Oui, c'est cela, non:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Public Shared Sub musicPlayer_MediaEnded(ByVal NewState As Integer) Handles musicPlayer.PlayStateChange
        If NewState = WMPLib.WMPPlayState.wmppsStopped Then
            musicPlayer.close()
        End If
End Sub

Peux tu m'aider encore un peu...on n'en est pas loin.
(Rappel: Je veux que quand le morceau lancé par la classe est terminé. La form1 en soit avertie et relance une nouveau morceau)

Merci!!