La musique adoucit les moeurs

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Comme je suis le petit dernier inscrit (le bleu, en quelque sorte !), je vous offre à tous un moment de détente :

Code:: rem ****** Les yeux noirs (chanson russe) ******
dim a , b
label ici
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,0
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,0
data 69,8 , 74,8 , 74,9 , 73,10 , 73,8 , 0,0
data 76,8 , 77,8 , 76,9 , 74,10 , 74,8 , 0,0
data 77,8 , 79,8 , 77,9 , 76,10 , 70,8 , 0,0
data 76,8 , 77,8 , 76,9 , 74,10 , 69,8 , 0,0
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,0
data 64,8 , 69,8 , 67,9 , 65,10 , 65,8 , 0,0
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,0
data 72,8 , 70,8 , 70,9 , 69,10 , 69,8 , 0,0
data 69,8 , 74,8 , 74,9 , 73,10 , 73,8 , 0,0
data 76,8 , 77,8 , 76,9 , 74,10 , 74,8 , 0,0
data 77,8 , 79,8 , 77,9 , 76,10 , 70,8 , 0,0
data 76,8 , 77,8 , 76,9 , 74,10 , 69,8 , 0,0
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,0
data 76,8 , 77,8 , 74,9 , 0,100
midi_on
ici:
read a : read b
if a<>0 then midi_play a,b : goto ici
wait 500
if b<>100 then goto ici
midi_off

Bonne continuation.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Ceci dit, M. PANORAMIC, sans vouloir vous rajouter du pain sur la planche, sûrement déjà bien chargée, ce serait bien de rajouter des silences, un de ces 4 (pause, demi-pause, soupir, demi-soupir), ce serait plus pratique que les wait. Mais prenez votre temps, rien ne presse.
Salutation.

Nombre de messages : 2747 Date d'inscription : 13/09/2009

Finalement, il est parfaitement possible d'intégrer des pauses et des soupirs avec le programme que j'ai proposé, selon le code suivant :
pause = 0,8 - demi-pause = 0,4 - soupir = 0,2 - demi-soupir = 0,1
et code de fin de musique = 0,100
Pour cela, je modifie légèrement le programme de dimanche :

Code:: rem ****** Les yeux noirs (chanson russe) ******
dim a , b
label ici
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,2
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,2
data 69,8 , 74,8 , 74,9 , 73,10 , 73,8 , 0,2
data 76,8 , 77,8 , 76,9 , 74,10 , 74,8 , 0,2
data 77,8 , 79,8 , 77,9 , 76,10 , 70,8 , 0,2
data 76,8 , 77,8 , 76,9 , 74,10 , 69,8 , 0,2
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,2
data 64,8 , 69,8 , 67,9 , 65,10 , 65,8 , 0,2
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,2
data 72,8 , 70,8 , 70,9 , 69,10 , 69,8 , 0,2
data 69,8 , 74,8 , 74,9 , 73,10 , 73,8 , 0,2
data 76,8 , 77,8 , 76,9 , 74,10 , 74,8 , 0,2
data 77,8 , 79,8 , 77,9 , 76,10 , 70,8 , 0,2
data 76,8 , 77,8 , 76,9 , 74,10 , 69,8 , 0,2
data 68,8 , 69,8 , 70,9 , 69,10 , 69,8 , 0,2
data 76,8 , 77,8 , 74,9 , 0,100
midi_on
ici:
read a : read b
if a<>0 then midi_play a,b : goto ici
if b<>100 then wait b*500 : goto ici
wait 500
midi_off

Ceci peut servir aux mélomanes qui souhaitent produire de la musique,
il suffit de reprendre ce code et de remplacer les notes et les silences.
Bonne composition à tous les mélomanes !

» Créer votre musique
» dessiner une musique
» Lecture musique
» Lecteur de musique
» Pour programmer en musique...