Mini beep/ mélodie

Sujets variés concernant le développement en PureBasic
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

effectivement !! :D je voulais dire qu'il n'y a pas de "#" entre le si et le do
et entre le mi et le fa !! :D


on ne dit pas MI# (du moins en principe d'apres A.DANHAUSER) ..



Code : Tout sélectionner


; codé par Dobro
; en pure v 3.93


Dim do.l(7)
Dim do_d.l(7)
Dim re.l(7)
Dim re_d.l(7)
Dim mi.l(7)
Dim fa.l(7)
Dim fa_d.l(7)
Dim sol.l(7)
Dim sol_d.l(7)
Dim la.l(7)
Dim la_d.l(7)
Dim si.l(7)


do(0)=65:do(1)=131:do(2)=262:do(3)=523:do(4)=1046:do(5)=2093:do(6)=4186
do_d(0)=69:do_d(1)=139:do_d(2)=277:do_d(3)=554:do_d(4)=1108:do_d(5)=2217:do_d(6)=4435
re(0)=73:re(1)=146:re(2)=294:re(3)=587:re(4)=1174:re(5)=2344:re(6)=4698
re_d(0)=77:re_d(1)=156:re_d(2)=311:re_d(3)=622:re_d(4)=1244:re_d(5)=2489:re_d(6)=4978
mi(0)=82:mi(1)=165:mi(2)=330:mi(3)=659:mi(4)=1318:mi(5)=2937:mi(6)=5274
fa(0)=87:fa(1)=175:fa(2)=349:fa(3)=698:fa(4)=1397:fa(5)=2794:fa(6)=5588
fa_d(0)=92:fa_d(1)=185:fa_d(2)=370:fa_d(3)=740:fa_d(4)=1480:fa_d(5)=2960:fa_d(6)=5920
sol(0)=97:sol(1)=196:sol(2)=392:sol(3)=784:sol(4)=1568:sol(5)=3136:sol(6)=6271
sol_d(0)=104:sol_d(1)=208:sol_d(2)=415:sol_d(3)=830:sol_d(4)=1661:sol_d(5)=3322:sol_d(6)=6645
la(0)=110:la(1)=220:la(2)=440:la(3)=880:la(4)=1760:la(5)=3520:la(6)=7040
la_d(0)=116:la_d(1)=233:la_d(2)=466:la_d(3)=932:la_d(4)=1864:la_d(5)=3729:la_d(6)=7458
si(0)=123:si(1)=247:si(2)=494:si(3)=988:si(4)=1975:si(5)=3951:si(6)=7902

temp=100

; au clair de la lune
Beep_(do(2),temp)
Beep_(do(2),temp)
Beep_(do(2),temp)
Beep_(re(2),temp)
Beep_(mi(2),temp*2)
Beep_(re(2),temp*2)
Beep_(do(2),temp)
Beep_(mi(2),temp)
Beep_(re(2),temp)
Beep_(re(2),temp)
Beep_(do(2),temp*2)

Beep_(re(2),temp)
Beep_(re(2),temp)
Beep_(re(2),temp)
Beep_(re(2),temp)

Beep_(la(1),temp*2)
Beep_(la(1),temp*2)
Beep_(re(2),temp)
Beep_(do(2),temp)
Beep_(la_d(1),temp)
Beep_(la(1),temp)
Beep_(sol(1),temp*2)

Beep_(do(2),temp)
Beep_(do(2),temp)
Beep_(do(2),temp)
Beep_(re(2),temp)
Beep_(mi(2),temp*2)
Beep_(re(2),temp*2)
Beep_(do(2),temp)
Beep_(mi(2),temp)
Beep_(re(2),temp)
Beep_(re(2),temp)
Beep_(do(2),temp*2)

Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Tu n'a pas fait ce programme ?
http://www.chr-reuter.de/wuerfel/notenblatt.htm
C'est Mozart qui s'y est collé :)
Musikalisches Würfelspiel que cela s'appelle
Il lance 2 dé et d'après des table, il en pond des Valses ou des contredanses
J'avais fait ce programme dans le temps sur un Atari 1040 :roll:
J'ai les tables mais ne retrouve pas les mesures :(
Il faut que je cherche sur le Net mais elles sont bien cachées :wink:
Est beau ce qui plaît sans concept :)
Speedy Galerie
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Ici il y a moyen de récupérer les mesures en leurs traductions midi !
http://www.ccarh.org/courses/253/lab/kerndice/

Il suffit de cliquer sur un numéro des tables de droite!
D'entegister la mesure sonore, de s'en faire une petite bibliothèque, et de recracher le tout suivant le tirage des dés :)
Voila il n'y a plus qu'à :)
Sans moi cette fois, j'ai déjà donné :)
Est beau ce qui plaît sans concept :)
Speedy Galerie
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Trouvé pour guitate avec tablatures :roll:
http://www.geocities.com/CapitolHill/Lo ... wamtab.htm
Est beau ce qui plaît sans concept :)
Speedy Galerie
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Ici on peut voir les mesures pour piano et écouter les menuets (cliquer sur les mesures pour les changer!
http://www.studyworksonline.com/cda/con ... 75,00.html

Il n'y a pas les Valses!

Mais z'ou se cachent ces 2 foutues pages avec toutes les mesures d'un coup :)
Dernière modification par Frenchy Pilou le jeu. 28/juil./2005 23:06, modifié 2 fois.
Est beau ce qui plaît sans concept :)
Speedy Galerie
Frenchy Pilou
Messages : 2194
Inscription : jeu. 27/janv./2005 19:07

Message par Frenchy Pilou »

Le plus complet
http://sunsite.univie.ac.at/Mozart/dice
mais pas mal de liens morts!
Est beau ce qui plaît sans concept :)
Speedy Galerie
Backup
Messages : 14526
Inscription : lun. 26/avr./2004 0:40

Message par Backup »

désolé ! je comprend rien a allemand !!!

si tu pouvais expliquer dans le detail de quoi il sagit ! :D
Répondre