Pagina 1 di 1

Musica casuale

Inviato: dom mar 12, 2006 2:37 am
da Pasquale
Un piccolo programma in Decimal Basic per generare musica casuale con l'altoparlantino del p.c. (tappatevi le orecchie)


!'premere spazio per terminare
DO
LET x=50+INT(RND*100)
CHARACTER INPUT nowait: $\;e$$
LOOP UNTIL e$=" "
END

Re: Musica casuale

Inviato: mar ott 23, 2018 8:50 pm
da Pasquale
A proposito del Decimal Basic, ripropongo il vecchio programmino qui sopra, aggiornato ai mutati gusti musicali, che spero utile per tutti i Basecinquini che dovessero soffrire di insonnia :mrgreen: :

!'premere spazio per terminare
RANDOMIZE
do
LET a=35+INT(RND*30)
LET b=60+INT(RND*30)
LET x=a+b
beep 9*x,7*x
CHARACTER INPUT nowait: $\;e$$
LOOP UNTIL e$=" "
END

Re: Musica casuale

Inviato: mer ott 24, 2018 8:51 am
da Bruno
Naturalmente:

CHARACTER INPUT nowait: $\;e$$

è

CHARACTER INPUT nowait: e$

(lo chiarisco perché facendo un copia&incolla si è alterato il codice).


Le zanzare e le mosche, in confronto, sono gradevoli :mrgreen:

Re: Musica casuale

Inviato: dom ott 28, 2018 3:29 am
da Pasquale
Si Bruno, hai fatto bene. Volevo scriverlo, ma poi l'ho dimenticato.
Non so perché, ma l'ho dovuto scrivere così, perché non c'era verso di farlo apparire in modo corretto al momento dell'invio.
Stasera mi è invece riuscito. Boh !

Ad ogni modo, ogni volta che si lancia la routine, la musica cambia. Chissà che nel tempo non venga fuori una bella melodia completa? Direi di provare e riprovare. :mrgreen: