18 septembre 2011
7
18
/09
/septembre
/2011
23:40
SCREEN 0, 0, 0, 0: CLS : CLEAR
PRINT "Musique al‚atoire"
PRINT "by Igor Gorovitch": PRINT CHR$(13)
RANDOMIZE TIMER
KEY(5) ON
PRINT "pour stopper appuyez sur F5"
d = INT((750 * RND) + 100)
10 f = INT((750 * RND) + 100)
IF d = f THEN GOTO 10
IF d < f THEN s = 1 ELSE s = -1
FOR m = d TO f STEP s
SOUND m, .03
ON KEY(5) GOSUB 100
NEXT m
d = f
ON KEY(5) GOSUB 100
GOTO 10
100 END
END
-----------------------------------------
Bonne nouvelle: j'ai trouvé la version gratuite avec aide en français de Quick Basic 4.5 mais pour ce qui est des nouveaux langages de programmation, Visuals not. cela reste à accès payant ou nécessite de longues heures d'études...
Bref ce programme est compatible Windows XP (après l'avoir transformé en .EXE) et Pentium min. 4.
Un bon amusement ce fut...
Publié par Igor Gorovitch
-
dans
Musique
18 septembre 2011
7
18
/09
/septembre
/2011
08:40
Voici quelques short cuts, petits morceaux entre 28 et 14 secondes enregistrés grâce au logiciel gratuit Easy Music Composer Free; logiciel come from Japan.
Lien ici.
Je compte bientôt acquérir un logiciel payant: pour créer il faut maintenant payer, voir article précédent.
Mes Short Cuts sont classés dans l'ordre alphabétique et non chronologique. Les premiers sont les Jazz, puis vient "allégrement" et les autres...
Si vous disposez d'un logiciel Gw-Basic ou Q-Basic (Quick Basic), voici un bon programme de musique aléatoire:
10 screen 0,0,0,0:clear:cls
20 randomize timer
30 d=((rnd())*40000)+250
40 f=((rnd())*40000)+250
50 if d=f then goto 40
60 if d<f then s=+1 else s=-1
70 for m=d to f step (s*0.03)
80 sound m,0.03
90 next m
100 d=f:goto 40
110 end
Ne disposant plus du logiciel de programmation je n'ai pû vérifier ce programme créé il y a bientôt 18 ans et que je reproduis ici de mémoire. Il est possible qu'il faille remplacer 0.03 par 0.06, modifier également la génération d'un nombre aléatoire (fonction "rnd()").
A la prochaine...
Publié par Igor Gorovitch
-
dans
Musique
/image%2F1457129%2F20240501%2Fob_1cb959_myself-20240501.png)