Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202171 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és28Date d'inscriptiondimanche 16 octobre 2005StatutMembreDernière intervention28 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és17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202171 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és222Date d'inscriptionmercredi 8 septembre 2004StatutMembreDernière intervention30 mars 2016 27 nov. 2005 à 12:24
21 sept. 2009 à 10:23
Chemin = "c:\windows\media\start.wav"
If UCase(Right(Chemin, 3)) <> "WAV" Then
21 sept. 2009 à 10:20
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
6 déc. 2005 à 12:46
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...
27 nov. 2005 à 12:24
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.