Autor
espero que me puedan ayudar ando trabajando en
linux con pascal.
Intente este:
Citar
Código:
program foo;
uses Crt;
var
i:longint;
begin
i:=1;
while(i<2500) do
begin
inc(i,500);
Sound(i);
Delay(600);
end;
WriteLN('Quiet Now!');
NoSound;
end.
uses Crt;
var
i:longint;
begin
i:=1;
while(i<2500) do
begin
inc(i,500);
Sound(i);
Delay(600);
end;
WriteLN('Quiet Now!');
NoSound;
end.
Tambien intento con esto:
Citar
Código:
program beep;
uses crt;
procedure sound (hz: word);
begin
MessageBeep(0);
end;
begin
delay(10000);
end.
uses crt;
procedure sound (hz: word);
begin
MessageBeep(0);
end;
begin
delay(10000);
end.
y ninguno de los dos :/
En línea
