Overblog
Editer l'article Suivre ce blog Administration + Créer mon blog
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...

Partager cet article

Repost0

commentaires

Présentation

  • : Town Ground anc. Igor Gorovitch
  • : Créations électroniques d'un dissident du numérique bien intégré. Musique style 90's et (un peu) programmation style années 1980 (80's). Les eighties au cœur.
  • Contact

Recherche