Discussion :

[taurus]

bonjour j'ai un probleme pour afficher la duree d'un support mci voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub mmcontrol1_statusupdate()
    'extraction du numéro de piste et du temps écoulé
    'depuis le début du morceau
    '........
 
On Error Resume Next
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.Text = "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é
    '.............
duree.Caption = stm + ":" + sts

End Sub
merci a l'avance

Balises [CODE] ajoutées par zazaraignée.

[zazaraignée]

Salut

Si ça peux t'aider:

• la propriété TrakcPosition retourne le numéro de piste.
• La propriété Position sera en millisecondes si tu mets la Propriété TimeFormat à 0 (zéro).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
piste.Text = "piste : " & MMControl1.TrackPosition
duree.Caption = MMControl1.Position \ 1000

[taurus]

oui mais pour la duree minutes:seconde et mon code pourquoi ne fonctionne t-il pas je l'ai pris d'un bouquin de vb?

[taurus]

qq1 pourrait m'expliquer pourquoi nous divisons par 1000 afin de retrouver la duree !

[jmfmarques]

Hé oui ....!
Combien valent donc 1000 millisecondes divisées par 1000 ? Voilà une question bien compliquée, apparemment....
C'est vrai ! Une explication, si possible détailllée, parait là nécessaire....

[zazaraignée]

... puis une division entière (opérateur \) par 60 pour en extraire les minutes...

... puis un modulo (opérateur mod) toujours par 60 pour en extraire les secondes restantes...