Spectre du son d'un fichier Wav en 100% PB

[GallyHC]

Bonjour,

Une derniere routine pour la route, bon le code à encore des problèmes au niveau des modes stereo (problème de lecture des datas). Même en stereo il affiche bien le spectre mais seulement a moitié (c'est le problème).

Code : Tout sélectionner

...

Cordialement,
GallyHC

[kelebrindae]

Très joli, bravo!

[Backup]

dans ton

Code : Tout sélectionner

  Debug ReadData(file, @tabWaveLenB(), tabWaveFile\DataChunkSize / 2)

pourquoi tu divise par 2 ?

[GallyHC]

Bonjour,

pourquoi tu divise par 2 ?

Ben en fait c'est justement le problème si je ne divise pas par deux avec un fichier de 37Mo ReadData() me renvois toujours 0 octet lu. Donc la, je cherche le pourquoi du comment.

Comme cela ça me permet de deja voir si le chargement ce fait bien sur les deux pistes, tout en cherchant le problème de chargement.

Cordialement,
GallyHC

[GallyHC]

Bonjour,

Voila j'ai corrigé le code il me reste le mode 8bits stereo (enfin les modes 8 bits ne sont pas les plus utile ). Par contre avec les fonction Sound de PB, il n'y a rien pour connaitre la position ou l'on ce trouve dans le son en cours de lecture?

Cordialement,
GallyHC

[Le Soldat Inconnu]

Code : Tout sélectionner

						If ImageWAV <> 0
							FreeImage(ImageWAV)
						EndIf
						ImageWAV = DrawWAVFile(0, 0, 1600, 256)
						If ImageWAV
							SetGadgetState(0, ImageID(ImageWAV))
						EndIf

oula, attention à ce code.
2 solutions :

Code : Tout sélectionner

						If IsImage(ImageWAV) And ImageWAV <> 0
							FreeImage(ImageWAV)
						EndIf

Code : Tout sélectionner

						If If ImageWAV <> 0
							FreeImage(ImageWAV)
							ImageWAV = 0
						EndIf

[GallyHC]

Bonjour LSI,

Merci pour cette correction je vais l'utilisé pour mon logiciel MaxiBox car je fait la même chose (même si pour le moment cela n'a pas encore provoqué de pobleme).

Par contre le code

Code : Tout sélectionner

                  If If ImageWAV <> 0
                     FreeImage(ImageWAV)
                     ImageWAV = 0
                  EndIf

Aurait tu une explication car la je séche.

Cordialement,
GallyHC

PS: Code modifié...

[GallyHC]

Bonjour,

Maintenant j'ai modifier pour ajouter un "Zoom" pour agrandir le spectre, a vous de me dire ce que vous en pensé .

Cordialement,
GallyHC

[Le Soldat Inconnu]

Code : Tout sélectionner

If If ImageWAV <> 0 
	FreeImage(ImageWAV) 
	ImageWAV = 0 
	EndIf

Explication :
C'est vrai que tel que tu as codé ton programme, c'est pas le plus utile mais je préfère verrouillé. J'ai souvent eu des prog qui plantait à cause de ça parceque j'avais fais une modif à un endroit et l'autre partie du code n'était pas sure à 10%, ça crashait. C'est plus pour le cas général que pour ton programme précis
Au début, quand tu lances ton code, ImageWAV = 0 donc tout va bien, tu n'essaie pas d'effacer une image qui n'existe pas. Par contre, dès la première utilisation de l'image, ImageWAV <> 0.
Donc si tu effaces l'image sans remettre à 0 ImageWAV , tu peux repasser dans la condition d'effacement de l'image, qui va planté car l'image n'est plus présente.

Sinon, pour ça

Code : Tout sélectionner

If IsImage(ImageWAV) And ImageWAV <> 0 

Je teste la présence de l'image et que la valeur est différente de 0 car au début du prog, ImageWAV = 0 mais qui me dis que je n'ai pas crée l'image 0 quelque part dans le programme. Il faut pas l'effacer celle-là.

[GallyHC]

Oui ok mais c'est plus pour le If If que je ne comprend pas.

Sinon touts les modes sont Ok , 8bits en mono et stereo et pareil en 16bits.

Cordialement,
GallyHC

PS: kelebrindae, au fait merci.

[Ar-S]

C'est pas une erreur de copier coller ?

[GallyHC]

Je me disais que c'été une chose que je ne connaissais aucunement (ni en PB, ni en VB), et je n’ai même pas testé car cela me paraissez (avec mes connaissances) incompréhensible, mais j’avoue n’avoir pas pense à l’erreur de copier coller .

Affaire close si c’est le cas lolll et mille excuse (merci Ar-s).

Cordialement,
GallyHC

[Le Soldat Inconnu]

Le If If, oui, c'est une boulette

[GallyHC]

Ajout d'un slider pour le deplacement dans le spectre quand on a zoomé.

Cordialement,
GallyHC

[GallyHC]

Ajout du temps total du Wav