Il peut être intéressant, dans un programme, de déterminer si le disque inséré dans le lecteur est un CD audio afin d’agir en conséquence. Certains CD audio respectent les standards et possèdent un identificateur unique. Celui-ci est inscrit sur une piste, mais aussi gravé lisiblement sur le CD sur l’anneau intérieur, côté pistes. D’autres malheureusement n’en possèdent pas. Le programme fourni ici permet de créer un identifiant unique à partir d’informations sur le nombre de pistes et leur longueur. Pour le mettre en ?”uvre ce procédure, démarrez un nouveau projet exécutable et, sur le formulaire, placez un contrôle de type TextBox et un contrôle Multimédia. Si ce dernier n’est pas présent dans la barre d’outils, déroulez Projet/Composants et, dans l’onglet Contrôles, cochez l’option [microsoft Multimédia Control]. Ouvrez la page de code par la commande Affichage/Code et saisissez le listing ci-après. Insérez un CD audio dans le lecteur, puis lancez le programme en appuyant sur la touche
Private Sub Form_Load ()
Dim DiskID As Long
Dim Track As Integer
‘ Initialisation du CD:
mmcontrol1.DeviceType = “CDAudio”
mmcontrol1.Command = “open”
‘ construction de l’identifiant à partir des pistes:
DiskID = mmcontrol1.Tracks
For Track = 1 To mmcontrol1.Tracks
mmcontrol1.Track = Track
DiskID = DiskID + mmcontrol1.TrackLength
DiskID = DiskID + mmcontrol1.Length
Next Track ‘ Affichage dans le contrôle Text1 Text1.Text = DiskI End Sub
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
