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
A voir également
- Format audio d'un fichier son
- Format de compression de fichiers mots croisés - Conseils pratiques - Visual Basic / VB.NET
- Comment extracter le format(extention)d'un fichier?? ✓ - Forum - C# / .NET
- Format Date dans un fichier excel ✓ - Forum - Visual Basic 6
- Visual Basic / VB.NET : Lecture de fichiers au format real audio ou real video - CodeS SourceS - Guide
- Trouver le format d'un fichier multimedia - Codes sources - Visual Basic / VB.NET (Multimedia)
Commentaires
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
60Chemin = "c:\windows\media\start.wav"
If UCase(Right(Chemin, 3)) <> "WAV" Then
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
- Messages postés
- 17286
- Date d'inscription
- mercredi 2 janvier 2002
- Statut
- Modérateur
- Dernière intervention
- 23 décembre 2019
60il 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...
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.