Town Ground
Face à la schizophrénie: le regard des autres sur le handicap et les handicapés, les préjugés, le traitement contre la schizophrénie, s'en sortir...
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...
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.
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...
Dans les années '60, principalement en 1968, on dénonça une "société de consommation". En fait rien n'était plus faux à l'époque. Souvenez-vous de ce que l'on vendait à l'époque... Gratuitement, dans tout ce que l'on achetait au niveau technologique, était compris la possibilité de créer. Aujourd'hui une telle critique serait bien plus vraie: créer s'achète, et cher!
En effet, prenons par exemple les premiers ordinateurs de fin 1970 à mi-1980. TRS-80, Atari, Thomson, etc. Vous l'achetiez et vous aviez compris avec un langage de programmation, le fameux Basic. Mieux même: le premier IBM, premier PC, avec son système d'exploitation MS-DOS était compris le fameux langage de programmation Basic, ou GW-BASIC plus tard. Et même mieux: avec le manuel d'utilisation inclus!
De nos jours c'est fini. Il y a certes des modules de programmation dans, par exemple, l'Office mais pour les utiliser ou plutôt savoir bien les utiliser il faut acheter des bouquins à part. Enfin parlons du fameux Windows. C'est avec Windows qu'ont disparus les langages Basic et autres.
Résultat? Pour créer il faut payer et souvent très cher parfois. Sans compter que le manuel d'utilisation ne se trouve plus que très rarement avec le logiciel de création, obligeant ainsi à suivre des cours.
Avant on était autodidacte, maintenant si on veut créer toute sa vie, on sera étudiant à vie dans des facultés de cours du soir payant 100 € par mois minimum!
Le bon exemple en matière de programmation est Visual Basic, C++, Java, etc. Toutes les plateformes pour exécuter les programmes conçus sous ces langages sont disponibles gratuitement mais par contre pour pouvoir programmer dans ces langages soi-même, il faudra s'acheter 1. le logiciel de programmation, 2. le cours ou le livre permettant de l'apprendre.
Surtout qu'à l'école on n'apprend plus à programmer. Les cours d'informatique sont limités à l'apprentissage de l'usage des logiciels pré-programmés!
Tristesse...
/image%2F1457129%2F20260602%2Fob_0e2c51_picture-2026-06-02-08-50-44.png)
