1. Accueil
  2. Tutoriels
  3. Visual Basic / VB.NET

Tutoriel winamp video

Dernière mise à jour le par pijaku .

Tutoriel winamp video

Introduction

Voici un document texte simple, clair, net et précis qui vous guide pour la démarche à suivre pour la production d'un Winamp musique Vidéo

Créer un « Winamp »

Dans ce tutoriel, tu devras suivre toutes les étapes d'une façon très rigoureuse. Toutes les explications sont très importantes. La compréhension du « code » est essentielle. Prends donc le temps de lire chacune des explications car cela te sera utile pour la modification du programme une fois qu'il sera terminé.

Commençons tout de suite les choses sérieuses :

L'interface

Lance Visual Basic.
Agrandis la feuille pour qu'elle ait les dimensions suivantes : Width =5535, Height = 6765.
Dans sa fenêtre de PROPRIETÉ, change les valeurs suivantes :

Propriété Valeur
Name Winamp
Caption Un nom de ton choix
Icon un icon de ton choix

Crée maintenant un Label.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Label1
Font Viner Hand 36
BackStyle Transparent
Left 1080
Top 0
Height 855
Width 3255
Caption (Un nom de ton choix)
Fore Color Ton choix

Crée maintenant un deuxième Label.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Label2
Font MS sans serif
BackStyle Transparent
Left 120
Top 2040
Height 255
Width 2175
Caption Volume
Fore Color Blanc

Crée maintenant un 3ème Label.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Label3
Font Verdana
BackStyle Transparent
Left 0
Top 960
Height 615
Width 5415
Caption (enlève le nom)
Fore Color Vert

Crée maintenant un 4ème Label.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Label4
BackStyle Transparent
Left 0
Top 960
Height 615
Width 5415
Caption (enlève le nom)
BorderStyle Fixed single

Crée maintenant un bouton de commande.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Command1
Left 3120
Top 1680
Height 495
Width 975
Caption &Play

Crée maintenant un deuxième bouton de commande.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Command2
Left 4320
Top 1680
Height 495
Width 975
Caption &Stop

Crée un Timer.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Timer1
Interval 50
Top 120
Left 4920

Crée maintenant un « ScrollBar » horizontal (Barre de défilement).
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Height 255
Width 1815
Top 2400
Left 120

Ensuite, positionne ton curseur sur la barre d'outils (à gauche), clique sur le bouton de droite et choisi : Composants. Dans l'onglets « Contrôles », place un crochet sur la sélection « Microsoft Multimédia Control ». Fait ensuite « OK ».

Tu remarqueras que tu as une option supplémentaire qui est maintenant disponible. Place un « DriveListBox » sur ta feuille et change les propriétés :

Propriété Valeur
Name Drive1
Width 2535
Height 315
Top 2880
Left 120

Place un « DirListBox » sur ta feuille.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name Dir1
Width 2535
Height 3015
Top 3240
Left 120

Place un « FileListBox » sur ta feuille.
Dans la barre de PROPRIETE, change ces valeurs :

Propriété Valeur
Name File1
Pattern *.mp3;*.wav;*.wma;*.cda
Width 2655
Height 3015
Top 3240
Left 3640

Place finalement un control multimédia « MMControl » et change les valeurs :

Propriété Valeur
Name MMControl1
Width 3540
Height 375
Top 6600
Left 360

Voilà pour les éléments du casse-tête. Passons au code maintenant.

Le code

Ouvre la fenêtre de code, va dans Général Déclaration et tape :

'
Public SelectedFile As String   
Dim direction As Integer
Dim master_vol_val As Integer

Ce seront les trois variables qui nous seront nécessaires.
« SelectedFile » contiendra le fichier qui sera sélectionné.
« Direction » contiendra la valeur de départ du déplacement du nom de la chanson. « Master_vol_val » contiendra la valeur du niveau du volume.

Va ensuite dans le code de la Form et ajoute le code suivant :

'
Private Sub Form_Load()
  direction = 5 'initialise la vitesse de défilement du texte
  HScroll1.Value = 15000 'place le volume à la moitié du volume max
End Sub

Va ensuite dans le code du Timer1 et ajoute le code suivant :

'
Private Sub Timer1_Timer()
  master_vol_val = HScroll1.Value / 333
  Call SetMasterVolume_Value(master_vol_val)
  Label3.Left = Label3.Left + direction
  If Label3.Left = (Winamp.Width - 1000) Then
      direction = direction - 10
  End If               
  If Label3.Left = -200 Then
      direction = direction + 10
  End If
End Sub

Cette fonction sera exécutée toutes les 50 millisecondes (propriété Interval de Timer1).

HScroll1.Value envoie une valeur comprise entre 0 et 32 767. Si on veut avoir une plage de 0 à 100 alors divise par 333.
Call SetMasterVolume_Value(master_vol_val) : appelle un module déjà programmé et qui a comme fonction d'aller modifier le volume de Windows.

Le code suivant permet de changer la direction du texte défilant.

'
If Label3.Left  = (Winamp.Width - 1000) Then
    direction =  direction - 10
End If

Va ensuite dans le code du Command1 et ajoute le code suivant :

'
Private Sub Command1_Click()
  MMControl1.Command = "open"
  MMControl1.Command = "Play"
  Label3 = File1.FileName
  Timer1.Enabled = True
End Sub

Le code du Command1 permet de charger le contrôle MMControl1, de faire jouer la musique, de placer le nom du ficher dans le Label qui défilera et finalement de rendre le timer actif.

Va ensuite dans le code du Command2 et ajoute le code suivant :

'
Private Sub Command2_Click()
  MMControl1.Command = "stop"
  MMControl1.Command = "close"
 Timer1.Enabled = False
End Sub

Le code du Command2 permet d'arrêter la musique, fermer le contrôle et de désactiver le Timer1.

Tape les codes et les commentaires suivants à leurs places respectives :

'
Private Sub File1_Click()
  SelectedFile = File1.Path & "\" & File1.FileName 'la variable contient les fichiers
  ' séléctionner cette variable et citez dans (general) declaration de la form1

  'mmcontrol1 = les fichier selectionnés dans la variable selectedfile
  MMControl1.FileName = SelectedFile 
End Sub 
'
Private Sub Dir1_Change()       
  File1.Path = Dir1.Path 'met à jour l'affichage des fichiers disponibles
End Sub 
'
Private Sub Drive1_Change()     
  'actualise dans la dirlistbox le périphérique sélectionné dans la drivelist
  Dir1.Path = Drive1.Drive      
End Sub

Il te reste à charger le module pour contrôler le volume. Pour cela, tu dois aller dans la fenêtre PROJET et cliquer sur le bouton de droit sur le nom de ta feuille. Choisi « Ajouter », « Module », « Existant » et va dans : et sélectionne : Mod_SoundMixer.bas (note: ce module est disponible sur ce site dans la SOURCE: TUTORIEL WINAMP VIDEO.)

A ce stade, tu peux vérifier le bon fonctionnement du Winamp. Et voilà, tu as terminé!!

Ce document intitulé « Tutoriel winamp video » issu de CodeS SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
14 Commentaires