Cdaudio

Soyez le premier à donner votre avis sur cette source.

Vue 4 949 fois - Téléchargée 304 fois

Description

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.

Codes Sources

A voir également

Ajouter un commentaire Commentaire
Au lieu d'utiliser l'évênement StatusUpdate, on peut utiliser un contrôle Timer pour avoir un "rafraichissement d'affichage" plus élevé.

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.