Comment lire une piste d'un CD audio avec MCISendString en selectionnant sa pist
cs_globule
Messages postés
327
Date d'inscription
mardi 8 octobre 2002
Statut
Membre
Dernière intervention
6 octobre 2010
-
4 juin 2004 à 10:12
maleux Messages postés 12 Date d'inscription mardi 2 mai 2006 Statut Membre Dernière intervention 7 avril 2009 - 7 avril 2009 à 10:52
maleux Messages postés 12 Date d'inscription mardi 2 mai 2006 Statut Membre Dernière intervention 7 avril 2009 - 7 avril 2009 à 10:52
1 réponse
maleux
Messages postés
12
Date d'inscription
mardi 2 mai 2006
Statut
Membre
Dernière intervention
7 avril 2009
7 avril 2009 à 10:52
7 avril 2009 à 10:52
bonjour;as tu eu une depuis ce temps;en 5 ans tu as du trouver mais je te mets quand même le code.bonne Prog
Private Sub CDOpen()
If blnCDAudio = True Then
Drive1.drive = "E:"
Dossier.Path = "E:"
Fichier.Pattern = "*.cda;*.mp3;*.mpeg"
Fichier.Path = Dossier.Path
CDCommand "close cdaudio"
CDCommand "open cdaudio": If MediaOK = False Then Exit Sub
CDCommand "status cdaudio media present": If ReturnVal$ = False Then MsgBox "Metter un CD audio dans le lecteur!!": Exit Sub
CDCommand "set cdaudio time format tmsf wait": If MediaOK = False Then Exit Sub
TimerCD.Enabled = True
tmrEffet.Enabled = True
imgOpen.Visible = True
ShapNext.BackColor = vbRed 'LED
ShapPrev.BackColor = vbRed
Else
For i = 0 To 5
C_Command(i).Enabled = False
Next i
End If
End Sub
Function CDCommand$(Command$)
ReturnVal$ = Space(300)
If MMString(Command$, ReturnVal$, 255&, 0&) = 0 Then
MediaOK = True
txtNdP.Text = NombreDePiste%
Else
MediaOK = False
End If For i 1 To 5: C_Command(i).Enabled MediaOK And PresentCD: Next i For i 0 To 9: Nc(i).Enabled MediaOK Xor Not PresentCD: Next i
End Function
Private Sub C_command_Click(Index As Integer) If Index 0 Then CDCommand "set cdaudio door open": imgClose.Visible False: imgOpen.Visible = True If Index 1 Then CDCommand "play cdaudio from " & T_Track: imgOpen.Visible False: imgClose.Visible = True: TmrSld.Enabled = True: ShapPrev.BackColor = RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapPause.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255): C_Command(0).Enabled = False: ShapEject.BackColor = RGB(255, 0, 0) If Index 2 And PauseMode True Then CDCommand "play cdaudio": PauseMode = False: Exit Sub If Index 2 And PauseMode False Then CDCommand "pause cdaudio": PauseMode = True: tmrEffet.Interval = 0: Exit Sub If Index 3 Then CDCommand "stop cdaudio": tmrEffet.Enabled False: T_Seconde = "00": T_Minute = "00": mnulFile.Enabled = True: C_Command(0).Enabled = True: ShapEject.BackColor = RGB(0, 255, 255): Exit Sub If Index 4 And T_Track > 1 Then CDCommand "play cdaudio from " & T_Track - 1: ShapPrev.BackColor RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255) If Index 5 And T_Track <> NombreDePiste% Then CDCommand "play cdaudio from " & T_Track + 1: ShapPrev.BackColor RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255)
End Sub
@l@in
Private Sub CDOpen()
If blnCDAudio = True Then
Drive1.drive = "E:"
Dossier.Path = "E:"
Fichier.Pattern = "*.cda;*.mp3;*.mpeg"
Fichier.Path = Dossier.Path
CDCommand "close cdaudio"
CDCommand "open cdaudio": If MediaOK = False Then Exit Sub
CDCommand "status cdaudio media present": If ReturnVal$ = False Then MsgBox "Metter un CD audio dans le lecteur!!": Exit Sub
CDCommand "set cdaudio time format tmsf wait": If MediaOK = False Then Exit Sub
TimerCD.Enabled = True
tmrEffet.Enabled = True
imgOpen.Visible = True
ShapNext.BackColor = vbRed 'LED
ShapPrev.BackColor = vbRed
Else
For i = 0 To 5
C_Command(i).Enabled = False
Next i
End If
End Sub
Function CDCommand$(Command$)
ReturnVal$ = Space(300)
If MMString(Command$, ReturnVal$, 255&, 0&) = 0 Then
MediaOK = True
txtNdP.Text = NombreDePiste%
Else
MediaOK = False
End If For i 1 To 5: C_Command(i).Enabled MediaOK And PresentCD: Next i For i 0 To 9: Nc(i).Enabled MediaOK Xor Not PresentCD: Next i
End Function
Private Sub C_command_Click(Index As Integer) If Index 0 Then CDCommand "set cdaudio door open": imgClose.Visible False: imgOpen.Visible = True If Index 1 Then CDCommand "play cdaudio from " & T_Track: imgOpen.Visible False: imgClose.Visible = True: TmrSld.Enabled = True: ShapPrev.BackColor = RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapPause.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255): C_Command(0).Enabled = False: ShapEject.BackColor = RGB(255, 0, 0) If Index 2 And PauseMode True Then CDCommand "play cdaudio": PauseMode = False: Exit Sub If Index 2 And PauseMode False Then CDCommand "pause cdaudio": PauseMode = True: tmrEffet.Interval = 0: Exit Sub If Index 3 Then CDCommand "stop cdaudio": tmrEffet.Enabled False: T_Seconde = "00": T_Minute = "00": mnulFile.Enabled = True: C_Command(0).Enabled = True: ShapEject.BackColor = RGB(0, 255, 255): Exit Sub If Index 4 And T_Track > 1 Then CDCommand "play cdaudio from " & T_Track - 1: ShapPrev.BackColor RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255) If Index 5 And T_Track <> NombreDePiste% Then CDCommand "play cdaudio from " & T_Track + 1: ShapPrev.BackColor RGB(0, 255, 255): ShapNext.BackColor = RGB(0, 255, 255): ShapStop.BackColor = RGB(0, 255, 255)
End Sub
@l@in
