PureBasic

Citation:
22khz ou 44kkhz au choix du touriste.

Ce serait bien pour les petits et gros débits.

le probleme c'est que Moa j'ai un petit debit !!! (mais un bazard suffisant !!

)

detoutes facon ,vu que j'echantillonne en 44,1 j'ai les 2 formats des mes banques !

Moi aussi je circule en 56 k, j'y vais pas à pas, au rythme de mon modem, j'irai les prendre banque par banque...

Bon c'est l'heure d'aller faire téter les puces dans le torchon à viande.

@+ Jacobus

petit sondage maison !

combien de temps vous mettez pour recuperer une banque son 22050 ??

en donnant le type de connection et le temps en minutes (ou secondes ???

)

ne repondez pas tous , une reponses en adsl , et en 56 K me suffise !

@jacobus : je crois que je vais changer l'ordre des touches du clavier !!

en general la gamme la plus basse est proche de la barre d'espace du clavier PC

la gamme la plus aigue devrai etre proche des touche de fonctions du clavier PC

là , c'est l'inverse , et ça me perturbe grave !! que j'envisage l'internement !

1 mn 20 s pour récupérer la plus grosse, 4,5 Mo en ADSL 512/128
Moyenne : 58 Ko/s

Comme chris. Pour les VST, ça va me prendre du temps maintenant que je suis retourné au Lycée (fallais faire SE l'année dernière, en première j'avais rien à faire, mais là ça commence mal

) de plus je suis pas sur d'y arriver.

#Zapman : nan se sont des lunettes de soleil

Oliv a écrit :je suis pas sur d'y arriver.

Y'a pas longtemps, j'ai déjà entendu un truc qui ressemblait à ça : et ben c'était même pas vrai ! C'était même complètement faux puisque tu t'en es sorti assez brillament. Quoi que tu en dise, quoi que tu en pense, la force est en toi !! Enlève ces lunettes, ferme les yeux, concentre-toi et appuie sur le bouton au moment où tu le sentira. Tu verra : le missile ira droit au coeur de la planette noire et Bug Vador expiera ses fautes en enfer !!!!

Chris a écrit :1 mn 20 s pour récupérer la plus grosse, 4,5 Mo en ADSL 512/128
Moyenne : 58 Ko/s

Saperlipopette !! T'as de la chance, toi ! A l'autre bout de la planète, avec l'ADSL assez pourri qu'on a ici, il m'a fallu 15 minutes (à la deuxième reprise, j'ai eu une interruption à la première) avec mon forfait 256 k.

Dobro a écrit :ça me perturbe grave !! que j'envisage l'internement !

Et c'est la première fois ?

Tant que tu es sur le code, tu pourrais peut-être remplacer les constantes par des variables :

Code : Tout sélectionner

              SoundVolume(#son_0, 33);son_0 ramené à 33% du volume max
              SoundVolume(#son_1, 33);etc...
              SoundVolume(#son_2, 33)
              SoundVolume(#son_3, 33)
              SoundVolume(#son_4, 33)
              SoundVolume(#son_5, 33)
              SoundVolume(#son_6, 33)
              SoundVolume(#son_7, 33)
              SoundVolume(#son_8, 33)
              SoundVolume(#son_9, 33)
              SoundVolume(#son_10,33)
              SoundVolume(#son_11,33)
              SoundVolume(#son_12,33)
              SoundVolume(#son_13,33)
              SoundVolume(#son_14,33)
              SoundVolume(#son_15,33)
              SoundVolume(#son_16,33)
              SoundVolume(#son_17,33)
              SoundVolume(#son_18,33)
              SoundVolume(#son_19,33)
              SoundVolume(#son_20,33)
              SoundVolume(#son_21,33)
              SoundVolume(#son_22,33)
              SoundVolume(#son_23,33)
              SoundVolume(#son_24,33)
              SoundVolume(#son_25,33)
              SoundVolume(#son_26,33)
              SoundVolume(#son_27,33)
              SoundVolume(#son_28,33)
              SoundVolume(#son_29,33)
              SoundVolume(#son_30,33)
              SoundVolume(#son_31,33)
              SoundVolume(#son_32,33)
              SoundVolume(#son_33,33)
              SoundVolume(#son_34,33)
              SoundVolume(#son_35,33)
              SoundVolume(#son_36,33)

pourrait avantageusement être remplacé par une boucle For..Next

Ca permettrait de diviser le volume du code par au moins 10, parceque là, franchement, c'est lourdingue.

- Il faudrait aussi modifier les chemin d'accés en remplaçant tous les "C:\Mon piano\UseBank" par "UseBank" comme ça, l'application marcherait même si le dossier Mon Piano est sur le bureau (ou ailleurs). Il suffit juste de Rechercher/Remplacer "C:\Mon piano" par ""
- Si le dossier UseBank n'existe pas, il faut le créer automatiquement avec une suite d'instruction du genre :

Code : Tout sélectionner

If ExamineDirectory(0, "UseBank", "") = 0
  CreateDirectory("UseBank")
Endif

comme ça, même si l'utilisateur ne copie que l'exe (d'ailleurs, ton zip ne contient que l'exe) ça marche quand même.
- Le son 11 de l'accordéon a un petit scratch en plein milieu (dans les aigus)
- Les sons joués par le piano scratch au début et à la fin. Je sais pas trop pourquoi, mais c'est pas top.

ZapMan a écrit :
Oliv a écrit :je suis pas sur d'y arriver.
Y'a pas longtemps, j'ai déjà entendu un truc qui ressemblait à ça : et ben c'était même pas vrai ! C'était même complètement faux puisque tu t'en es sorti assez brillament. Quoi que tu en dise, quoi que tu en pense, la force est en toi !! Enlève ces lunettes, ferme les yeux, concentre-toi et appuie sur le bouton au moment où tu le sentira. Tu verra : le missile ira droit au coeur de la planette noire et Bug Vador expiera ses fautes en enfer !!!!

Oui grand maître mais j'avais une idée sur la façon de faire.... d'un autre coté là il y aura peut-être des aides

. Avant de m'occuper de Bug Vador, faut déjà que je fasse le code pour qu'il apparaisse

pour le code et les sons je vais voir ça ...

- Le son 11 de l'accordéon a un petit scratch en plein milieu (dans les aigus)
- Les sons joués par le piano scratch au début et à la fin. Je sais pas trop pourquoi, mais c'est pas top.

ben chez moi c'est niquel !!
t'a essayé de les editer avec soundeditor ??
moi j'utilise soundforge , et tout est niquel
chaque sons que j'enregistre est verifié au moins 3 fois !!

mais tu as preciser que tu as eu des coupures dans le télèchargement
peut etre as- tu recuperé des parasites dans les échantillons

quelqu'un pourrai confirmer entendre ces scratchs dont parle ZapMan ??

ATTENTION REEDITION DU MESSAGE

voila j'ai fini !!

alors au programme de "piano" toujours

j'ai fait ce qu'a demandé zapman !! j'ai tout passé les #son en variable indicée , effectivement on gagne de la place !!

pour les chemins j'ai fait en sorte qu'au premier demarage du prg les dossiers se créés la ou se trouve le programme : (prevoir de l'installer dans un dossier a lui , de lui meme il crerra ses dossiers dedans !!
donc juste le prg compillé suffit dorenavant !!
il retrouvera tout seul le chemin de son dossier des banques
peut importe ou l'on installe le program au depart !! (Merci le Soldat!)

j'ai aussi modifier l'ordre des touches ,pour que celles-ci donne les sons
grave vers le bas du clavier PC, et aigue vers le haut du clavier PC
(l'inverse de ce qui etait avant !!

)

j'ai pris exemple sur un vrai multi-clavier de musique (orgue d'eglise par exemple) ou le registre superieur se trouve en haut

ps l'archive qui contien le nouveau prg compillé et le source se trouve
http://michel.dobro.free.fr/piano/

rajout de la banque : Bass Accoustique !

rajout de la banque : Bass fretLess !

@Jacobus : je me suis permis de le mettre en version 1.12 !

le clac! entendu pendant le jeux de certain sons ne sont pas du au son lui meme , mais il semble que le pure en stopant les sons joués créer ce Clack entre chaque notes !!

les sons ecouter dans un editeur Pro m'indique qu'ils sont parfait !

je vais essaye de voir si il y a moyen d'eviter le blem en baissant le son avant arret ! ??

J'ai entamé la partie analyse et modification des fréquences : FFT et TFF programmées (pas implantée sous Windows).
Je fais des tests de rapidité et d'erreurs (cause arrondis) avec un calculateur scientifique.
Question pour les réglages: je suppose que le son, dans le programme, se présente sous la forme d'un tableau disons a() de longs.
quelle est la période d'échantillonage ie le temps entre la donnée a(n) et a(n+1). Une donnée par milliseconde, plus, moins, variable?

avec un calculateur scientifique

ouuaaa ! t'utilise un CRAY ??

je suppose que le son, dans le programme, se présente sous la forme d'un tableau

il me semble me souvenir que c'est un pointeur sur un buffer !!

ça, c'est pas bien génant.
Ce que je veux dire, c'est que c'est une suite d'entiers 32bits (ou moins, c'est pas génant. Par contre, si 64bits, ça va être pénible avec PB).
La question est la période d'échantillonnage : une donnée toute les millisecondes, ou autre.

pas encore optimisé, mais par exemple, ça prend 78ms pour analyser un signal avec 65536 entrées. (avec d'autres programmes en arrière plan)
Pour un mode "dynamique", ça sera beaucoup moins : disons 512 entrées.
là, le temps de calcul est < 1ms
ça doit être utilisable tel quel.

A propos de calculateur scientifique, je voulais plutôt parler de logiciel de calcul scientifique (en l'occurrence MAPLE). J'ai pas encore de CRAY sous la main...

Et c'est bien dommage:

Code : Tout sélectionner

Cray promet des puissances de calcul atteignant le pétaflop d'ici 2010

 Après deux ans au ralenti suite à sa séparation d'avec SGI, Cray refait parler de lui. Le pionnier des superordinateurs présente le X1, son premier vrai nouveau produit depuis sept ans. "C'est la synthèse de nos lignes de produits traditionnelles : les machines vectorielles, peu évolutives, et les systèmes MPP (architecture massivement parallèle)", souligne Steve Scott, architecte en chef du X1. La machine n'est pas sans rappeler le supercalculateur NEC SX-6 (que Cray propose également dans le cadre d'un contrat OEM), qui constitue la base de l'Earth Simulator, le supercalculateur le plus puissant à ce jour. Cray nourrit l'ambition de produire à l'horizon 2010 des systèmes fondés sur la même architecture que le X1 mais développant une puissance de calcul soutenue (et non en crête) d'un pétaflop, soit un million de milliard d'opérations en virgule flottante par seconde.
En attendant, en configuration maximale (4 096 processeurs CMOS et 65,5 To de mémoire), le X1 atteint la puissance de calcul soutenue de 52,4 teraflops. Une machine de base à deux nœuds, avec huit processeurs et 32 Go de mémoire, coûte la bagatelle de 2,5 M€.

@Nico,

D'aprés ce que j'ai pu lire sur ce projet, les Benchmark envisagés sont tellement élevés que ce calculateur sera capable de sortir d'une boucle infinie en seulement 2.1654568732146874567987 secondes !! Plus la peine de se faire du soucis pour ce type de bugs !
Pétaflop, je trouve ça vachement poétique, quand même...

@Hardy,

hardy a écrit :ça prend 78ms pour analyser un signal avec 65536 entrées. (avec d'autres programmes en arrière plan)

Pffff... dés qu'on sera tous équipés en Cray ça sera plus un problème !

SoundEditor permet de gérer tous les fichiers wave quels que soient leurs périodes d'échantillonage, leurs nombre de canaux et le nombre de bits par échantillon (sauf les 64 et 24 bits sur lesquels j'ai pour le moment fait l'impasse).

Les caractéristiques d'un fichier wave sont enregistrées dans son en-tête. Avant de traiter un son, il faut donc commencer par examiner son en-tête pour savoir de quelle façon on doit le gérer. Le détail de cet en-tête est expliqué en long, en large et même un peu en travers, sur le site freesoundeditor.com à la rubrique Les développeurs\documentation. Tu peux également télécharger ce document en allant dans la rubrique download : "leformatwav.zip". Tu peux aussi me poser toutes les questions que tu veux : je bouffe 3 fichiers wav chaque matin avec mon petit déjeuner.

@Jacobus et Dobro,

Mes trés chers amis, vous voilà immortels ! Votre oeuvre grandiose est proposée sur freesoundeditor.com au chapitre download avec un petit speech qui laisse entrevoir l'immensité de vos talents. Félicitations !

@Dobro le programmeur,

ATTENTION REEDITION DU MESSAGE
voila j'ai fini !!

-> Faudrait savoir !!!

La longueur du code pourrait encore être divisée par 10 (ça serait plus facile à faire évoluer et à débugger !!) en créant une petite structure comportant :
- le N° de touche du piano (N° de bouton associé)
- La touche du clavier associée
- Le fait qu'il s'agisse d'une noire ou d'une blanche (pour l'icone)
- La progress bar associée
- le texte de la note (par exemple "R & Si_2")

ensuite, tu crée un tableau de dimension 36 (pour les tableaux, 36+la case 0 = 37) ayant cette structure pour type.
Tu renseigne le champ "N° de bouton" et "N° de Progress Bar" dans une boucle for next et le reste par des données stockées sous forme de datas. Et HOPLA ! Toutes tes répétitions de code sont supprimées : tu applique simplement chaque procédure à l'élément courant du tableau.

@Dobro l'artiste,

Je rêve d'avoir un beau son de violon, tu crois que tu pourrais ajouter ça à tes banques ?? (je sais, j'exagère, mais vraiment, ça me ferait plaisir

)

Aprés avoir refait mon téléchargement, je te confirme que le son N°11 de l'accordéon a un scratch en plein milieu dans les aigus. C'est peu de chose, c'est juste pour t'embêter. Pour le reste (je n'ai pas tout écouté, mais bon...) tes sons sont en effet trés propres quand on les écoute avec SoundForge (ou dans SoundEditor ! D'ailleurs, c'est encore plus beau dans SoundEditor, je sais pas à quoi ça tiens, c'est subtile, mais on entend bien que c'est un peu mieux..). C'est la gestion de ces sons par "Mon Piano" qui crée un scratch en début et en fin de son. Ce problème est extrêmement répandu dans les softs de musique et peut s'expliquer dans certains cas pas un bug connu de la gestion de sons sous windows : la fonction PlaySound des API n'aime pas du tout les sons d'une durée inférieure à (environ) 1/4 de seconde. Ca n'est toutefois pas le cas des sons joués par Mon Piano. J'ai résolu un problème de ce type dans SoundEditor en ajoutant un silence à la fin du son avant de le jouer. Regarde ma procédure PlaySoundInMemory :

Code : Tout sélectionner

Procedure PlaySoundInMemory()
  If *TransfertMem
    wBitsPerSample.w=PeekW(*TransfertMem+34)
    If wBitsPerSample = 32
      *Sound16=ReDepthSE (*TransfertMem,16)
      FreeMemory(*TransfertMem)
      *TransfertMem = *Sound16
    EndIf
    nChannels.w=PeekW(*TransfertMem+22)
    nBlockAlign.w=nChannels*wBitsPerSample/8
    TLength=PeekL(*TransfertMem+4)
    nTLength=TLength+(nBlockAlign*1000)
    PokeL(*TransfertMem+4,nTLength)
    PokeL(*TransfertMem+40,nTLength-44)
    *TransfertMem=ReAllocateMemory(*TransfertMem,nTLength)
    If *TransfertMem                ; we add a silence at the end of the sound to avoid cracks
      If wBitsPerSample=8           ; on ajoute un silence à la fin du sound pour éviter un craquement
        For ct=TLength To nTLength-1
         PokeB(*TransfertMem+ct,128)
        Next
      Else
        RtlZeroMemory_(*TransfertMem+TLength,nTLength-TLength)
      EndIf 
      result = PlaySound_(*TransfertMem,0,#SND_ASYNC|#SND_MEMORY)
    EndIf 
  Else
    result = 0
  EndIf  
  ProcedureReturn Result
EndProcedure

Dans tous les cas, je me demande pourquoi le son scratch aussi au début dans MonPiano. Si tu a le temps, tu peux remplacer tes appels à PlaySound de PureBasic par des appels à PlaySound_. La syntaxe est quasiment identique. Tu verras bien ce que ça donne. Si ça ne règle pas le problème, je pourrait toujours m'y pencher, mais pour le moment, on m'a demandé de fouetter tous les chats de la fourrière (et c'est une immense fourrière). Pauvres bêtes, quand même !

PureBasic

SoundEditor 19-4