Cd player

0/5 (3 avis)

Vue 4 656 fois - Téléchargée 337 fois

Description

Bon ben je trouve que l'utilisation de mmcontrol facilite grandement la programmation, j'ai presque honte de le mettre mais il faut bien commencer par un programme bidon
....
Désolé.

Source / Exemple :


Private Sub copy_Click(Index As Integer)
'Affiche de copyright 
' C'est pas à mettre dans le code biensur
      copyright.Show
End Sub

Private Sub Form_Load()
'Préparation du périphérique MCI'
    MMControl.Notify = False
    MMControl.Wait = False
    MMControl.Shareable = False
    MMControl.DeviceType = "CDaudio"
    MMControl.Command = "Open"
    MMControl.UpdateInterval = 1000 'raffraichissement'
    MMControl.TimeFormat = 10 'format piste minutes secondes'
End Sub

Private Sub MMControl_StatusUpdate()
'Extrait le numero de la piste et le temps écoulé
    smp = MMControl.Position Mod 16777216
    s = smp \ 65536
    m = (smp - s * 65536) \ 256
    p = smp - s * 65536 - m * 256
    piste.Text = Str(p)
    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é 
        min.Text = stm
        sec.Text = sts
End Sub

Private Sub MMControl_ejectclick(cancel As Integer)
'
    MMControl.Command = "Eject"
    MMControl.Command = "Close"
End Sub

Private Sub ouvrir_Click(Index As Integer)
    nav.Show
End Sub

Private Sub quitter_Click(Index As Integer)
    MMControl.Command = "Stop"
    Unload Me
End Sub

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Schwerdtle Messages postés 15 Date d'inscription jeudi 20 mai 2004 Statut Membre Dernière intervention 2 mars 2009
8 avril 2006 à 23:25
Petite aide souhaitée.

Comment fermer automatiquement un MMControl à la fin de la lecture d'un fichier wav par exemple ?

Merci d'avance et cordialement votre.

Peter
yoman64 Messages postés 962 Date d'inscription samedi 19 janvier 2002 Statut Membre Dernière intervention 2 août 2010 1
8 juin 2002 à 09:33
Pas mal 8/10
bonne prog(je parle de ton prog)
salut @++
cs_krusty Messages postés 3 Date d'inscription mercredi 11 octobre 2000 Statut Membre Dernière intervention 16 janvier 2002
16 janv. 2002 à 13:39
Ton lecteur est sympa il est pas mal du tout par rapport aux autres meme esthetiquement, l'utilisation est simple : j'aime bien en gros!!
salut!!! je te mets 9/10

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.