Format audio d'un fichier son

4/5 (4 avis)

Snippet vu 11 014 fois - Téléchargée 115 fois


Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire Commentaires
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
21 sept. 2009 à 10:23
La confiance règne:

Chemin = "c:\windows\media\start.wav"
If UCase(Right(Chemin, 3)) <> "WAV" Then
Luciol44 Messages postés 28 Date d'inscription dimanche 16 octobre 2005 Statut Membre Dernière intervention 28 mars 2010
21 sept. 2009 à 10:20
Salut,

en plus il faut passer Freq en Long et non en Integer, ce qui donne au final:

1. Dim Freq As Long
2. Dim Chemin As String
3. Dim a As Integer
4.
5. Chemin = "c:\windows\media\start.wav"
6.
7. If UCase(Right(Chemin, 3)) <> "WAV" Then
8. MsgBox "Ce n'est pas un Fichier .Wav ", vbCritical + 4096, "Attention!"
9. Exit Sub
10. End If
11.
12. a=FreeFile
13. Open Chemin For Binary As #a
14. Get #a, 25, Freq
15. Close #a
16.
17. MsgBox Chemin & " Fréquence Audio " & Freq & " Hz", vbInformation + 4096, "Information"

voila
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
6 déc. 2005 à 12:46
pas top, non,

il vaudrais mieux ajouter :

Dim a as Integer
a = FreeFile

une bonne habitude a prendre que de ne pas utiiser des descripteurs de fichier en dur...
cs_VinceVG Messages postés 222 Date d'inscription mercredi 8 septembre 2004 Statut Membre Dernière intervention 30 mars 2016
27 nov. 2005 à 12:24
Salut,

Il faut remplacer le #a par #1.

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.