CodeS-SourceS
Rechercher un code, un tuto, une réponse

Tutoriel winamp video

Juillet 2017


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
NameWinamp
CaptionUn nom de ton choix
Iconun icon de ton choix


Crée maintenant un Label.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameLabel1
FontViner Hand 36
BackStyleTransparent
Left1080
Top0
Height855
Width3255
Caption(Un nom de ton choix)
Fore ColorTon choix


Crée maintenant un deuxième Label.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameLabel2
FontMS sans serif
BackStyleTransparent
Left120
Top2040
Height255
Width2175
CaptionVolume
Fore ColorBlanc


Crée maintenant un 3ème Label.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameLabel3
FontVerdana
BackStyleTransparent
Left0
Top960
Height615
Width5415
Caption(enlève le nom)
Fore ColorVert


Crée maintenant un 4ème Label.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameLabel4
BackStyleTransparent
Left0
Top960
Height615
Width5415
Caption(enlève le nom)
BorderStyleFixed single


Crée maintenant un bouton de commande.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameCommand1
Left3120
Top1680
Height495
Width975
Caption&Play


Crée maintenant un deuxième bouton de commande.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameCommand2
Left4320
Top1680
Height495
Width975
Caption&Stop


Crée un Timer.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameTimer1
Interval50
Top120
Left4920


Crée maintenant un « ScrollBar » horizontal (Barre de défilement).
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
Height255
Width1815
Top2400
Left120


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
NameDrive1
Width2535
Height315
Top2880
Left120


Place un « DirListBox » sur ta feuille.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameDir1
Width2535
Height3015
Top3240
Left120


Place un « FileListBox » sur ta feuille.
Dans la barre de PROPRIETE, change ces valeurs :
PropriétéValeur
NameFile1
Pattern*.mp3;*.wav;*.wma;*.cda
Width2655
Height3015
Top3240
Left3640


Place finalement un control multimédia « MMControl » et change les valeurs :
PropriétéValeur
NameMMControl1
Width3540
Height375
Top6600
Left360


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

Publié par Termin8tor.
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.
Resize sans douleur
Redim sans douleur par function