Connaitre la frequence d'un son wav

Soyez le premier à donner votre avis sur cette source.

Vue 6 967 fois - Téléchargée 396 fois

Description

PERMET DE SELECTIONNER UN SON WAV ET DE CONNAITRE SA FREQUENCE

SI VOUS AVEZ BESOIN DE + DE COMMENTAIRE J EN METTERAI

Source / Exemple :


Option Explicit

Private Sub cmdquitter_Click()
Unload Me
End Sub

Private Sub cmdwav_Click()
Dim intnumfichier As Integer
Dim intFréquence As Integer
On Error GoTo Traitementerreur

dlgWav.Flags = cdlOFNFileMustExist
dlgWav.ShowOpen
intnumfichier = FreeFile
Open dlgWav.FileName For Binary As intnumfichier
Get intnumfichier, 25, intFréquence
Close intnumfichier
lblaffichage.Caption = "Fréquence d'échantillonnage de " _
  & vbCrLf & dlgWav.FileTitle & vbCrLf _
  & Format$(intFréquence, "#,##0") & " Hz"
  
  Exit Sub
  
Traitementerreur:
  If Err.Number = cdlCancel Then
    Exit Sub
  End If
End Sub

Conclusion :


WWW.STEVEN007.FR.ST

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
1
Date d'inscription
samedi 19 février 2005
Statut
Membre
Dernière intervention
21 juillet 2010

Au fait, ton code lit la fréquence d’échantillonnage et non pas la fréquence du wav proprement dit …bien essayer comme même

(il faut changer le titre de ton code car il porte a confusion).
Messages postés
150
Date d'inscription
jeudi 24 janvier 2002
Statut
Membre
Dernière intervention
27 avril 2007

lol on dirai ke j'ai merder avec le titre... je modif tous ça

merci max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

Le titre de la source n'est pas très........ avec le code

@+

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.