Format audio d'un fichier son

Soyez le premier à donner votre avis sur cette source.

Snippet vu 10 641 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

Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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

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
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60
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

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.