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