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