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...
/image%2F1457129%2F20241001%2Fob_4bce39_win-20240828-20-27-20-pro.jpg)
/image%2F1457129%2F20240913%2Fob_0f27b5_qr-code-1.png)