Musica casuale

Il forum di Base5, dove è possibile postare problemi, quiz, indovinelli, rompicapo, enigmi e quant'altro riguardi la matematica ricreativa e oltre.

Moderatori: Gianfranco, Bruno

Rispondi
Pasquale
Livello 11
Livello 11
Messaggi: 2312
Iscritto il: mer mag 25, 2005 1:14 am

Musica casuale

Messaggio da Pasquale » dom mar 12, 2006 2:37 am

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
Ultima modifica di Pasquale il mar ott 23, 2018 7:45 pm, modificato 11 volte in totale.
_________________

\text {     }ciao Immagine ciao
E' la somma che fa il totale (Totò)

Pasquale
Livello 11
Livello 11
Messaggi: 2312
Iscritto il: mer mag 25, 2005 1:14 am

Re: Musica casuale

Messaggio da Pasquale » mar ott 23, 2018 7:50 pm

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
_________________

\text {     }ciao Immagine ciao
E' la somma che fa il totale (Totò)

Bruno
Livello 8
Livello 8
Messaggi: 993
Iscritto il: lun nov 21, 2005 6:07 pm
Località: Bologna

Re: Musica casuale

Messaggio da Bruno » mer ott 24, 2018 7:51 am

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:
Invisibile un vento
l'ha apena sfioragia
sospension d'un momento;
e la bola iridessente gera 'ndagia.
(Biagio Marin)

Pasquale
Livello 11
Livello 11
Messaggi: 2312
Iscritto il: mer mag 25, 2005 1:14 am

Re: Musica casuale

Messaggio da Pasquale » dom ott 28, 2018 3:29 am

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:
_________________

\text {     }ciao Immagine ciao
E' la somma che fa il totale (Totò)

Rispondi