Format audio d'un fichier son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 629 fois - Téléchargée 111 fois


Contenu du snippet

Aucune description n'est fournie pour ce projet

A voir également

Ajouter un commentaire

Commentaires

cs_VinceVG
Messages postés
222
Date d'inscription
mercredi 8 septembre 2004
Statut
Membre
Dernière intervention
30 mars 2016
-
Salut,

Il faut remplacer le #a par #1.
Renfield
Messages postés
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
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...
Luciol44
Messages postés
28
Date d'inscription
dimanche 16 octobre 2005
Statut
Membre
Dernière intervention
28 mars 2010
-
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
17280
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
21 juillet 2019
57 -
La confiance règne:

Chemin = "c:\windows\media\start.wav"
If UCase(Right(Chemin, 3)) <> "WAV" Then

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.