Forum programmazione

[Fabriz]

Alcuni di voi sanno che suono il pianoforte.

Spesso, quando si tratta di tecnica, il tempo diventa determinante e l'uso del metronomo è indiscusso. Il problema è che il mio è meccanico e ogni volta devo caricarlo (tipo dopo 10 minuti di utilizzo).

Allora mi sono rotto e ho creato questo programmino semplice semplice, che funge da metronomo.

Si imposta bpm e durata del metronomo e via che parte.

Code: Select all

Program metr0nom0;
uses crt;
var scelta:char;
procedure metronomo;
var bpm,n,i:integer;
begin
     clrscr;
     writeln('                       METRONOMO ver 1.0                       ');
     writeln;
     writeln;
     writeln;
     writeln;
     write('Impostare velocita'' iniziale: ');
     readln(bpm);
     writeln;
     writeln;
     writeln;
     write('Durata [premere il numero di minuti]: ');
     repeat
     readln(n);
     until n>=0;
     for i:=1 to bpm*n do
           begin
                delay(60000 div bpm);
                sound(440);
           end;
end;
begin
     clrscr;
     writeln;
     writeln;
     writeln;
     writeln('                   METRONOMO ver 1.0                      ');
     writeln;
     writeln;
     writeln;
     writeln;                                                                           
     writeln;
     writeln('                     ...Press any Key...                       ');
     writeln;
     writeln;
     writeln;
     writeln;
     writeln;
     writeln('                                                         © JsBach');
     scelta:=readkey;
     metronomo;
     readln
end.