Quelques mots de remerciements seront grandement appréciés.

Tutoriel winamp video

Introduction
Créer un « Winamp »
L'interface
Le code

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é!!

A voir également

Resize sans douleur

Redim sans douleur par function