Salve a tutti!
Un mio amico ha fatto questo programma con turbo pascal:
program hif;
uses crt;
var
s,k,w,u:integer;
z:char;
begin
clrscr;
randomize;
writeln('quanti secondi deve durare?');
readln(w);
k:=w*60;
writeln;
repeat
u:= random(40);
s:= random(1201)+300;
textcolor (u);
sound (s);
delay(10);
nosound;
z:=chr(s);
write(z);
k:=k-1;
until (k=0);
readln
end.
In pratica fà apparire dei caratteri a caso sul monitor e dallo speaker sulla scheda madre partono suoni a caso anche essi!
Adesso vorrebbe compilarlo per farlo diventare eseguibile!
Ho provato con Dev-Pascal ma una al posto dello speaker interno di sente il suono predefinito di windows
Come posso fare?
Devo cambiare qualche opzione?
Devo cambiare compilatore?
Grazie a tutti!
Rispondi quotando
