Une petite interface de lecteur de CD audio avec le strict minimum nécessaire pour un bon fonctionnement.
Source / Exemple :
Private Sub Form_Load()
'Préparation du périphérique MCI
MMControl1.Notify = False
MMControl1.Wait = False
MMControl1.Shareable = False
MMControl1.DeviceType = "CDAudio"
MMControl1.Command = "Open"
MMControl1.UpdateInterval = 1000 'Intervalle de rafraichissement
MMControl1.TimeFormat = 10 'Format Piste, minute seconde
End Sub
Private Sub MMControl1_EjectClick(Cancel As Integer)
' Fermeture du périphérique MCI
MMControl1.Command = "Eject"
MMControl1.Command = "Close"
End
End Sub
Private Sub MMControl1_StatusUpdate()
' Extraction du temps écoulé depuis
' le début du morceau et du numéro de piste
smp = MMControl1.Position Mod 16777216
s = smp 65536 'Secondes
m = (smp - s * 65536) 256 'Minutes
p = smp - s * 65536 - m * 256 'Piste courante
' Affichage du numéro de la piste courante
Piste.Caption = " Piste " + Str(p)
' Ajustage du temps :
' minutes et secondes sur 2 digits
If Len(Str$(m)) = 2 Then
Stm = "0" + Str$(m)
Else
Stm = Str$(m)
End If
If Len(Str$(s)) = 2 Then
Sts = "0" + Str$(s)
Else
Sts = Str$(s)
End If
' Affichage du temps écoulé
HM.Caption = Stm + " : " + Sts
End Sub
Private Sub mnuapropos_Click()
Dim Msg$, NL$
NL = vbCrLf
Msg = "CDaudio crée le 12 Juin 2000" & NL & NL
Msg = Msg & "Ce petit exemple est la version simple." & NL
Msg = Msg & "Jean-Luc BOUCHEZ" & NL
Msg = Msg & "Email : jlb59@online.fr" & NL
Msg = Msg & "Site : http://phone99.free.fr"
MsgBox Msg, vbInformation, "Informations ..."
End Sub
Conclusion :
Très simple de confection et d'utilisation, mais tout à fait fonctionnel, ce code permettra d'avoir une approche sur le moyen de créer son propre CDaudo.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.