Voici un document texte simple claire net et précis qui vous guide pour la démache à suivre pour la production d'un Wiamp musique Vidéo
Tutoriel Visual Basic
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 :
Début du cours :
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 :
| Name Winamp | Caption (un nom de ton choix) | Icon (un icon de ton choix | | |
Crée maintenant un Label. Puis, dans la barre de PROPRIETE, change ces valeurs :
| 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. Puis, dans la barre de PROPRIETE, change ces valeurs :
| 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. Puis, dans la barre de PROPRIETE, change ces valeurs :
| 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. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name Label4 | Caption (enlève le nom) | BackStyle Transparent | Left 0 | Top 960 |
| Height 615 | Width 5415 | BorderStyle Fixed single | | |
Crée maintenant un bouton de commande. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name Command1 | Caption &Play | Left 3120 | Top 1680 | |
| Height 495 | Width 975 | | | |
Crée maintenant un deuxième bouton de commande. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name Command2 | Caption &Stop | Left 4320 | Top 1680 | |
| Height 495 | Width 975 | | | |
Crée un Timer. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name Timer1 | Interval 50 | Left 4920 | Top 120 | |
| | | | | |
Crée maintenant un « ScrollBar » horizontal (Barre de défilement). Puis, dans la barre de PROPRIETE, change ces valeurs :
| Left 120 | Top 2400 | | | |
| Height 255 | Width 1815 | | | |
Ensuite, positionne ton curseur sur la barre d?outils (à gauche), clique sur le bouton de droit 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 :
| Name Drive1 | | Left 120 | Top 2880 | |
| Height 315 | Width 2535 | | | |
Place un « DirListBox » sur ta feuille. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name Dir1 | | Left 120 | Top 3240 | |
| Height 3015 | Width 2535 | | | |
Place un « FileListBox » sur ta feuille. Puis, dans la barre de PROPRIETE, change ces valeurs :
| Name File1 | Pattern *.mp3;*.wav;*.wma;*.cda | Left 2640 | Top 3240 |
| Height 3015 | Width 2655 | | |
Place finalement un control multimédia « MMControl » et change les valeurs :
| Name MMControl1 | | Left 360 | Top 6600 | |
| Height 375 | Width 3540 | | | |
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 sera 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 envoi 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)? appel 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 fichier séléctionner cette variable et citez dans (general) declaration de la form1
MMControl1.FileName = SelectedFile 'mmcontrol1 = les fichier selectionner dans la variable 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 peripherique selectionné 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é!!