Les cris des animaux

Salut tout le monde.
Savez-vous quel est le cri du faisan ou celui de la fauvette ?
Si vous ne savez pas, alors veuillez regarder le programme ci-dessous pour savoir.
Mais si vous savez, vos enfants ou vos petits-enfants ne savent peut-être pas, alors veuillez regardez le programme ci-dessus pour qu’ils sauront.
Et si vous savez et vous n’avez ni enfants ni petits-enfants, alors veuillez regarder le programme ci-dessus pour le plaisir de me faire des remarques.

Le programme en question permet d’acquérir des connaissances en Français sur les cris des animaux.
Il comprend 122 animaux avec leurs cris respectifs. Mais rien n’empêche d’en ajouter.
En vérité, il ne s’agit pas des noms des cris, mais des verbes conjugués à la 3ème personne du singulier, comme ceci :
Le faisan --- > criaille
Ou
La fauvette --- > babille, fredonne, zinzinule

NB : la liste des animaux et de leurs cris provient de « mon ami Google »
Si vous remarquez une faute d’orthographe, veuillez la corriger car nos enfants doivent apprendre aussi bien la sémantique que la syntaxe.

J’ai relevé parfois un bug dans le programme : au lieu d’afficher les 3 propositions, il n’en affiche que 2 d’où l’erreur.

Code:: ' ******************************************************************************
'
' ANIMALIEN.BAS
'
' Les cris des animaux
'
' Par Papydall
'
' ******************************************************************************

dim NbAnimo : NbAnimo = 122 : ' nombre des animaux
dim NbMaxcris : NbMaxCris = 6 : ' nombre maxi des cris pour un animal
dim Animal$(NbAnimo),Cri$(NbAnimo,NbMaxCris):' tableaux des animaux et de leurs cris
dim i%,j%,k%,l%,m%,a$,b$,c$, no%,nodemar%,noquit%
dim question$,reponse$,score%,NbQuestion%,r$(3),bonneReponse$
dim choix1%,choix2%,choix3%,valid%,suiv%,noscore%

label IniTablo,presentation,demarrer,quitter,valider,choix1,choix2,choix3,suivant

gosub IniTablo : gosub presentation
end
' ******************************************************************************
' Chargement des tableaux à partir des DATAs
IniTablo:
for i% = 1 to NbAnimo
j% = 1
read Animal$(i%) : read a$ : l% = len(a$)
repeat
k% = instr(a$,",")
if k% = 0
cri$(i%,j%) = a$
else
cri$(i%,j%) = mid$(a$,1,k%-1)
a$ = mid$(a$,k%+1,l%-k%)
l% = len(a$)
j% = j%+1
end_if
until k% = 0
next i%
return
' ******************************************************************************
' Page de présentation du programme
presentation:
width 0,1000 : height 0, 650
no% = no%+1 :picture no% : print_target_is no%
width no%,990 : height no%,620
font_color no%,0,0,255 : font_size no%,12 : font_bold no% : caption 0,"ANIMALIEN"

print string$(50," ")+"B O N J O U R" : print : print
print " Je suis le professeur ANIMALIEN qui connait tout et n'ignore rien." :print
print " je vais vous apprendre les cris des animaux." : print
print " Pour cela, je vous propose des questions auxquelles vous devez répondre."
print:print
print " je vous propose un animal et vous devez trouver le cri qu'il fait":print
print " en choisissant la bonne réponse parmi les 3 proposées dont une seule est juste.":print
print " Pour cela, faites votre choix en cliquant sur la bonne réponse puis valider.":print:print
print:print: print " Pour chaque réponse juste votre note sera incrémentée de 1"
print:print:print string$(40," ")+" B O N N E C H A N C E"

no% = no%+1
button no%: width no%,120 : left no%, 100 : top no%, 450: caption no%,"DEMARRER"
nodemar% = no% :on_click no%,demarrer
no% = no%+1
button no%: width no%,120 : left no%, 500 : top no%, 450: caption no%,"QUITTER"
noquit% = no% :on_click no%,quitter

return
' ******************************************************************************
demarrer:

hide nodemar% : hide noquit%
no% = no%+1 :picture no% : print_target_is no% :cls
width no%,990 : height no%,620
color no%,127,127,127 : font_color no%,0,0,255 : font_size no%,12 : font_bold no%
i% = int(rnd(NbAnimo)+1)
question$ = animal$(i%) :r$(1) = cri$(i%,1) : BonneReponse$ = r$(1)

j% = int(rnd(NbAnimo)+1)
while j% = i%
j% = int(rnd(NbAnimo)+1)
end_while

r$(2) = cri$(j%,1)

k% = int(rnd(NbAnimo)+1)
while k% = i%
k% = int(rnd(NbAnimo)+1)
end_while

r$(3) = cri$(k%,1)

print : print : print_x_locate 70
print " Que fait cet animal ? "
print_locate 70,150 : print question$

j% = int(rnd(3)+1) : a$ = r$(j%)
no%=no%+1 : option no% : top no%, 120 : left no%, 250 : caption no%,a$ : on_click no%,choix1
choix1% = no%
j% = int(rnd(3)+1) : b$ = r$(j%)

while b$ = a$
j% = int(rnd(3)+1) : b$ = r$(j%)
end_while

no%=no%+1 : option no% : top no%, 150 : left no%, 250 : caption no%,b$ : on_click no%,choix2
choix2% = no%

j% = int(rnd(3)+1) : c$ = r$(j%)

while c$ = a$ or c$ = b$
j% = int(rnd(3)+1) : c$ = r$(j%)
end_while

no%=no%+1 : option no% : top no%, 180 : left no%, 250 : caption no%,c$ : on_click no%,choix3
choix3% = no%
no% = no%+1

button no%: width no%,120 : left no%, 100 : top no%, 450: caption no%,"QUITTER"
on_click no%,quitter

no% = no%+1
button no%: width no%,120 : left no%, 300 : top no%, 450: caption no%,"VALIDER"
valid% = no% : inactive no% : on_click no%,valider

no% = no%+1
button no%: width no%,120 : left no%, 500 : top no%, 450: caption no%,"SUIVANT"
suiv% = no% : inactive no% : on_click no%,suivant

no% = no%+1 : alpha no% : left no% ,700 : top no%, 450
color no%, 0,0,255 : font_color no%,255,255,0 : font_size no%,10 : font_bold no%
caption no%,"SCORE : "+str$(score%)+" / "+str$(NbQuestion%)
noscore% = no%

return
' ******************************************************************************
quitter:

if message_information_yes_no("Vous voulez réellement quitter ?") = 1 then terminate

return
' ******************************************************************************
valider:

NbQuestion% = NbQuestion% + 1
print_locate 380, 100
if reponse$ = BonneReponse$
print "!! BRAVO !!" : score% = score%+1
else
print "!! ERREUR !! "
print_locate 380,120 : print " LA BONNE REPONSE EST : "; BonneReponse$ ;" "
end_if
if cri$(i%,2) <> ""
print_locate 380,140 : print " On dit aussi : " ; cri$(i%,2);", ";
for j% = 3 to NbMaxCris
if cri$(i%,j%) <> "" then print cri$(i%,j%);", ";
next j%
end_if
caption noscore%,"SCORE : "+str$(score%)+" / "+str$(NbQuestion%)
show noscore% : inactive valid%
active suiv%
return
' ******************************************************************************
choix1:
reponse$ = caption$(choix1%)
active valid%
return

' ******************************************************************************
choix2:
reponse$ = caption$(choix2%)
active valid%
return

' ******************************************************************************
choix3:
reponse$ = caption$(choix3%)
active valid%
return
' ******************************************************************************
suivant:

goto demarrer
return

' ******************************************************************************
' 122 animaux et leurs cris

DATA "L'abeille", "bourdonne ,vrombit"
DATA "L'agneau", "bêle"
DATA "L'aigle", "glapit ,trompette"
DATA "L'albatros", "piaule"
DATA "L'alouette", "grisolle ,tirelire ,turlute"
DATA "L'âne", "brait"
DATA "La baleine", "chante"
DATA "La bécasse", "croule"
DATA "La bécassine", "croule"
DATA "La belette", "belote"
DATA "Le bélier", "blatère"
DATA "La biche", "brame ,rait ,râle ,rée"
DATA "Le boeuf", "beugle ,meugle ,mugit"
DATA "Le bouc", "béguète ,bêle ,chevrote"
DATA "La brebis", "bêle"
DATA "Le buffle", "beugle ,mugit ,souffle"
DATA "Le butor", "bouffe"
DATA "La caille", "cacabe ,caquette ,carcaille ,courcaille ,margaude ,margote"
DATA "Le canard", "cancane ,nasille"
DATA "Le cerf", "brame ,rait ,râle ,rée"
DATA "Le chacal", "aboie ,jappe ,piaule ,raule"
DATA "Le chameau", "blatère"
DATA "Le chat", "feule ,miaule ,ronronne"
DATA "Le chat-huant", "chuinte ,hue ,hulule ,ulule"
DATA "La chauve-souris", "grince"
DATA "Le cheval", "s'ébroue ,hennit"
DATA "La chèvre", "béguète ,bêle ,chevrote"
DATA "Le chevreuil", "brame ,rait ,ralle ,rée"
DATA "Le chien", "aboie ,clabaude ,grogne ,hurle ,jappe ,crie"
DATA "Le chien de chasse", "crie ,clatit ,donne de la voix"
DATA "Le chiot", "jappe ,glapit"
DATA "La chouette", "chuinte ,hue ,hulule ,ulule"
DATA "La cigale", "chante ,craquette ,stridule"
DATA "La cigogne", "claquette ,craque ,craquette ,glottore"
DATA "Le cochon", "grogne ,grouine"
DATA "La colombe", "émit ,roucoule"
DATA "Le coq", "chante ,coqueline ,coquerique"
DATA "Le corbeau", "croasse ,graille"
DATA "La corneille", "babille ,craille ,criaille ,croasse ,graille"
DATA "Le coucou", "coucoule"
DATA "Le courlis", "siffle"
DATA "Le crapaud", "coasse"
DATA "Le criquet", "stridule"
DATA "La crocodile", "lamente ,pleure ,vagit"
DATA "Le cygne", "siffle ,trompette"
DATA "Le daim", "brame ,rait ,râle ,rée"
DATA "Le dauphin", "siffle"
DATA "Le dindon", "glougloute"
DATA "L'éléphant", "barète ,barrit"
DATA "L'épervier", "glapit ,piaille"
DATA "L'étourneau", "jase ,pisote"
DATA "Le faisan", "criaille"
DATA "Le faon", "râle"
DATA "Le faucon", "réclame"
DATA "La fauvette", "babille ,fredonne ,zinzinule"
DATA "Le geai", "cacarde ,cajole ,jase"
DATA "La gélinotte", "glousse"
DATA "Le goéland", "pleure"
DATA "La grenouille", "coasse"
DATA "Le grillon", "craquette ,crisse ,grésille ,grésillonne"
DATA "La grive", "babille ,gringotte"
DATA "La grue", "craque ,glapit ,gruine ,trompette"
DATA "La guêpe", "bourdonne ,vrombit"
DATA "Le héron", "hue"
DATA "Le hibou", "bouboule ,froue ,hulule ,miaule ,ulule"
DATA "L'hippopotame", "grogne"
DATA "L'hirondelle", "gazouille ,stridule ,trisse"
DATA "L'hulotte", "hue ,hôle ,lamente"
DATA "La huppe", "pupule"
DATA "La hyène", "hurle ,ricane"
DATA "Le jars", "criaille ,jargonne"
DATA "Le lama", "hennit"
DATA "Le lapin", "clapit,couine,glapit"
DATA "Le léopard", "miaule"
DATA "Le lièvre", "couine ,vagit"
DATA "La linotte", "gazouille"
DATA "Le lion", "grogne ,rugit"
DATA "Le loriot", "siffle"
DATA "Le loup", "hurle"
DATA "La marmotte", "siffle"
DATA "Le merle", "appelle ,babille ,flûte, jase, siffle"
DATA "La mésange", "zinzinule ,titine"
DATA "Le milan", "huit"
DATA "Le moineau", "chuchote ,pépie"
DATA "La mouche", "bourdonne ,vrombit"
DATA "Le mouton", "bêle"
DATA "L'oie", "cacarde ,criaille ,siffle"
DATA "L'oiseau", "chante ,pépie ,gazouille ,babille ,ramage ,siffle"
DATA "L'orfraie", "hurle"
DATA "L'otarie", "bêle ,grogne ,rugit"
DATA "L'ours", "grogne ,gronde ,gromelle ,hurle"
DATA "La panthère", "rugit"
DATA "Le paon", "braille ,criaille"
DATA "La perdrix", "cacabe ,glousse ,rappelle"
DATA "Le perroquet", "cause ,jase ,parle ,piaille ,siffle"
DATA "La perruche", "jabote"
DATA "Le phoque", "bêle ,grogne ,rugit"
DATA "La pie", "babille ,cajole ,jacasse ,jase ,jasarde"
DATA "Le pigeon", "caracoule ,roucoule "
DATA "Le pingouin", "brait ,jabote"
DATA "Le pinson", "ramage ,siffle ,frigotte"
DATA "La pintade", "cacabe ,criaille"
DATA "Le porc", "grogne ,couine ,grouine"
DATA "La poule", "caquette ,claquette ,crételle ,glousse"
DATA "Le poulet", "piaule"
DATA "Le poussin", "piaille"
DATA "Le ramier", "gémit"
DATA "Le rat", "couine ,chicote"
DATA "Le renard", "glapit ,jappe ,glousse ,crie"
DATA "Le rhinocéros", "barète, barrit"
DATA "Le roitelet", "gazouille"
DATA "Le rossignol", "chante ,gringotte"
DATA "Le sanglier", "grommelle ,grumelle ,nasille"
DATA "La sauterelle", "stridule"
DATA "Le serpent", "siffle ,souffle"
DATA "Le singe", "crie ,hurle"
DATA "La souris", "chicote ,couine"
DATA "Le taureau", "mugit ,beugle"
DATA "Le tigre", "feule ,miaule ,râle ,rauque ,peule"
DATA "La tourterelle", "caracoule ,gémit ,roucoule"
DATA "La vache", "beugle ,meugle ,mugit"
DATA "Le zèbre", "hennit"
' FIN **********************************************************************

Programme edité une seconde fois : pour correction d'un bug

lol!

He MMMM.........de , pour une fois que je gagnai à un jeu , 100% de bonne réponses

lol!

Salut tout le monde.
L’erreur mentionnée par ygeronimi (d’ailleurs j’avais écrit qu’il y avait un bug) est corrigée et le programme est édité.
Cette erreur est due à deux boucles REPEAT qui semblent ne pas bien fonctionner.
Ces deux boucles sont changées par deux WHILE qui semblent bien fonctionner.

@ygeronimi
C’est peut-être dû au simple hasard ou bien tu es un as de la langue française ce qui n’est mon cas.

En tout cas BRAVO et tu as le droit de crier haut et fort « J’AI GAGNE, JE SUIS CHAMPION » Laughing

Peut-être qu’une autre fois je te coincerais, qui sait ? HA HA HA.

sunny

Je ne suis pas satisfait de (ligne 177):

Code:: Suivant:
goto demarrer
return

Il y a certainement une autre façon de procéder pour être dans l’art de bien programmer et pour éviter le scintillement de l’affichage. Quant à moi, ma science s’arrête là. Sad

Alors vos remarques et solutions sont les bienvenues. Idea

Invité

Bonjour Papydall,
Je suis déçu par ton programme, j'avais mis le son, et ho! horreur, il n'y a pas de cris, c'est le silence! Very Happy

J'ai effectivement vu ce goto, et ça m'a sembler bizarre., mais (je n'ai fait qu'une passe, juste pour voir) je n'ai pas très bien compris la structure concernant la boucle de question. Mais j'ai pas cherché plus loin. Moi-même je suis bloqué sur mon programme, car je l'emmène là où ce n'était pas prévu dès le départ, et je recommence à chaque fois car je ne sais pas exactement ce que je veux. Donc je te laisse le soin à toi ou un autre de regarder de près.

En tout cas, moi, quand je me tape dessus, je gueule! je ne glousse pas ou ne bouboule pas! Razz

En tout cas, BRAVO pour ton jeu .

Je suis admiratif car perso je n'arrive toujours pas à me servir de data.
J'ai toujours pas compris le truc. Laughing

cosmos70 a écrit:: Je suis déçu par ton programme, j'avais mis le son, et ho! horreur, il n'y a pas de cris, c'est le silence!

Je suis désolé d’être la cause de ta deception, et pourtant j’avais écrit

papydall a écrit:: En vérité, il ne s’agit pas des noms des cris, mais des verbes conjugués à la 3ème personne du singulier, comme ceci :
Le faisan --- > criaille
Ou
La fauvette --- > babille, fredonne, zinzinule

Nous avons, en Arabe, un proverbe (j’essaye de le traduire bien que la traduction lui enlève toute sa beauté) qui dit à peu près ceci :
« A celui qui a tenté une chose et a réussi, deux mérites ; et a celui qui a tenté une chose et n’a pas réussi, un seul mérite »

J’ai tenté une chose et je n’ai pas réussi, j’ai donc droit à un seul mérite, et c’est déjà ça de gagné.

papydall a écrit:: Il y a certainement une autre façon de procéder pour être dans l’art de bien programmer et pour éviter le scintillement de l’affichage. Quant à moi, ma science s’arrête là.
Alors vos remarques et solutions sont les bienvenues.

Peut-être que mon programme donne des idées à quelqu’un de plus doué que moi pour faire un meilleur programme.
Quant à moi, je connais parfaitement mes limites et je sais être humble.

lol!

L'essentiel est de toujours les repoussées un peu plus loin.....

Quelqu'un a dit :

" Savoir ce que l'on sait ,et ne pas savoir ce que l'on ne sait pas, là est la véritable science..."

lol!

EDIT :

Je pense que de rajouter des sons, comme l'aurait souhaité Cosmos, implique l'emploi de fichiers externes...à moins que quelqu'un sache les transformer en DATA mais bonjour je nombre de lignes Laughing

.

Une petite question ....pour mon instruction personnelle car DATA c'est pas mon truc

Tu déclares un tableau de variables pour stocker les infos contenus dans une ligne de DATA

après dans ta boucle for ...next , tu écris

read i% : read a$ : l%=len(a$)

là je bug ....

selon le manuel , read i% devrait placé le premier élément de la ligne DATA dans la variable i%( sauf que là ,on aurait une error puisque c'est un $) ,
je ne vois nul part ( dans le manuel ) une numérotation de ligne pour read.

si ta ligne DATA avait commencé par un % n'aurais tu pas eu le risque que ton numéro de ligne ne ce soir retrouvé dans la variable i% ?

Invité

Citation :: Je suis déçu par ton programme, j'avais mis le son, et ho! horreur, il n'y a pas de cris, c'est le silence!

Il faut pas prendre à la lettre ce que j'écris. C'était en plaisantant. Peut-être que j'ai troublé quelqu'un?
De toute façon me voilà riche, vu que le silence est d'or!

Je te croise Ygeronimi.
Read est le remplacement de input. Avec input, tu peux demander un nombre comme une variable.
La ligne de data peut-être n'importe où dans le programme. Les datas sont lus à la suite. Si tu mets une ligne de data, et une autre 20 lignes plus loin, on commence par lire les premières lignes, et on continu sur celle de la ligne 20 lignes plus loins.
Un data est une réponse input par programme. Au lieu de rentrer au clavier, par l'instruction READ, la réponse est lu directement. Evidemment, si tu as enregistré un nombre à tel endroit dans la suite, tu peux lire un nombre, ou même une chaine. Mais si tu as mis un texte, READ devra trouver à cet endroit du texte, et si tu mets READ i%, alors que c'est du texte, il y a erreur. On repart au tout début des datas avec RESTORE.

@ cosmos ,

donc sa boucle devrait provoquer une erreur puis que i% est utilisé là comme numéro de ligne
seul read a$ est valable ?

Invité

Je ne suis pas dans le programme de Papydall, mais les datas et read, c'est la même chose que ceci:

Code:: file_open_read 1,"mon cri de guerre.txt"
for i%= 1 to 6:' 6 est arbitraire
file_read 1,a%
file_read 1,a$
next i%
file_close 1
' ---- si tu avais une ligne de data de ce genre:
data 1,"cochon",2,"oiseau",3,"carabine",4,"Panoramic",5,"ygeronimi",6,"girafle"
for i%=1 to 6 :read a%:read a$ :next i%

Je viens de regarder la ligne en question. Ce n'est pas ce que tu marque:

Code:: read Animal$(i%) : read a$ : l% = len(a$)

read Animal$(i%) est une variable tableau string, et a$ aussi.
Ce n'est pas READ I%.

Là toutes les lignes DATA sont nommées ainsi

DATA "xxxxxxx" , "yyyyyyy... ..."

Edit :

Cherchez plus , j'ai compris ma connerie Laughing

.

la prochaine fois je silent

, ca m'évitera d' en écrire une Embarassed

Invité

Je viens de te répondre, il y a eu croisement
Là c'est la soupe (enfi pour ainsi dire, c'est pas la saison)

@ygeronimi

Code:: 'Chargement des tableaux à partir des DATAs
IniTablo:
for i% = 1 to NbAnimo
j% = 1
read Animal$(i%) : read a$ : l% = len(a$)
repeat
k% = instr(a$,",")
if k% = 0
cri$(i%,j%) = a$
else
cri$(i%,j%) = mid$(a$,1,k%-1)
a$ = mid$(a$,k%+1,l%-k%)
l% = len(a$)
j% = j%+1
end_if
until k% = 0
next i%
return

Dans ce code, il n’y a pas d’erreur.
Ce n’est pas comme tu l’as écrit : read i% mais read Animal$(i%)
Au début de la boucle, i% = 1, donc read Animal$(i%) affecte la 1ere donnée de la 1ere ligne DATA qui est "L’abeille" à Animal$(1) dont le type est string et il n’y a pas d’erreur.
Puis vient ‘read a$’ qui va affecter la donnée suivante (la 2eme qui est "bourdonne ,vrombit") à la variable a$ qui est aussi du type string.
Le compteur de DATA pointe maintenant sur la 3eme donnée qui est dans la 2eme ligne DATA.
Cette variable A$ contient alors 2 mots qui sont séparés par une virgule. Dans les autres DATA, la variable A$ peut contenir jusqu'à 6 mots séparés par des virgules.
Les instructions entre REPEAT et UNTIL ont pour but d’extraire les différents mots (de 1 à 6) et de les affecter à la variable du type string cri$(i%,j%).
Ainsi la 1ere boucle (i% = 1) on a :
Animal$(1) < ----- "L’abeille"
Cri$(1,1) < ----- "bourdonne" ; cri$(1,2) < ---- "vrombit"
Cri$(1,3), cri$(1,4), cri$(1,5) et cri$(1,6) contiennent tous la chaine vide ""

A l’instruction next, i% devient égal à 2 et l’instruction read Animal$(i%) affecte donc la donnée (pointée par le compteur de DATA) et qui se trouve maintenant sur la 2eme ligne DATA et qui est "L’agneau". donc Animal$(2) < ---- "L’agneau"
L’instruction qui suit : read a$ va affecter "bêle" à a$. Cette fois, il y a un seul mot et
Cri$(2,1) < ---- "bêle" alors que cri$(2,2), cri$(2,3), cris(2,4), cri$(2,5) et cri$(2,6) contiennent tous la chaine vide ""

La boucle FOR … NEXT continue de cette façon jusqu’à épuisement de toutes les lignes DATA qui sont au nombre de NbAnimo qui est 122.

J’espère que j’étais suffisamment clair.
N’hésite surtout pas à demander des éclaircissements si tu éprouve le besoin.

lol!

Très clair papydall
Je viens d'apprendre un truc que je pigeais pas ( les DATA )

Ha, au fait .....l'abeille ......elle bourdonne ! lol!

( sauf vrombir et bourdonner sont deux synonymes )

@ygeronimi

Ne te culpabilise pas. On est tous susceptible de se tromper.

@cosmos 70

J’ai bien compris que tu plaisantais, mais c’est une bonne idée que de pouvoir ajouter des cris sonores au programme.
J’avoue que je suis incapable de le faire ; alors quelqu’un d’autre peut-être ?

lol!

Un petit programme intéressant Smile

Merci du partage !

Je m’amuse en partageant.

Alors :
Je partage
Tu partages
Il /elle partage
Nous partageons
Vous partagez
Ils /elles partagent

=================

partage
partageons
partagez

Il en restera toujours !

sunny

j'ai trouvé çà :

http://jlp31.free.fr/cvware/midiToText.html

Edit :

j'ai aussi vu çà :

http://fr.downv.com/download-MIDI2TEXT-10072554.htm

après faut voir ce que çà donne , perso je préfere les fichiers externes... Laughing

@YGeronimi:
Intéressant ! Cela permettrait de convertir de petits fichiers midi avec les sons des animaux en fichier TXT, à partir desquels on peut construire des commandes DATA pour les inclure dans le programme. Celui-ci à son tout, s'il ne trouve pas ses fichiers midi, n'a qu'à recréer les fichiers TXT puis lancer l'utilitaire pour les transformer en midi, et c'est fait.

Ceci dit, cela impose de distribuer en même temps le programme de conversion de TXT en midi. Vu le volume des commandes DATA à créer, je me demande s'il ne vaut pas mieux, alors, de distribuer un fichier ZIP contenant tous les midi, au lieu de distribuer un programme de conversion TXT-->midi.

Mais techniquement, c'est un outil intéressant que je ne connaissais pas.

@ Klaus

Je suis d'accord avec toi , c'est pour celà que je dis que je préfère les fichiers externes
( je veux bien taper sur le clavier mais je soigne aussi mes articulations )

on s'est croisé sur les posts , j'ai rajouté une adresse pour un convertisseur auqual existe son pendant dans l'autre sens. Laughing

Bon ben il ne reste plus qu'à trouver les cris des 122 animaux en midi lol!

j'ai trouvé çà aussi , mais même si j'ai commencé la prog en python, c'est très ,très ...trop...loin Laughing

http://fofix.googlecode.com/svn/MFH-Mod/trunk/src/midi/MidiToText.py

aller une première adresse pour certains d'entre eux :

http://www.portail-veterinaire.com/animal-conseils/sons/index.html

Voici des sons d'animaux à télécharger:
http://www.universal-soundbank.com/bruitages-animaux.htm
http://www.sound-fishing.net/bruitages_animaux.html
http://www.dinosoria.com/sons_nature.htm
... etc ...

Il y en a plein d'autres.

on s'est encore croisé ... Laughing

tiens , j'en rajoute une ....
http://yves.marsal.free.fr/myganiwave.htm

... pauvre papydall , il en a pour dix ans de codages en trois post... lol!

Bof... Il suffit de télécharger les sons requis, de les convertir éventuellement dans le bon format (WAV ou MP3).
Puis, le son est joué automatiquement lorsque la réponse est juste par exemple. pour cela, il suffit de créer un seul objet SOUND en début de programme, puis, pour chaque animal, faire FILE_LOAD suivi de PLAY. Facile.