[Rudi]

Bocsi a bumpért de ezt nagyon könnyen meg lehet oldani saját készítésű progival (pascal):

Program szunyogriaszto;
uses crt;
var bekapcsolo:integer;
begin
writeln ('Udv a programban. Bekapcsolashoz nyomd meg az 1-es billentyut es uss entert,');
writeln ('kikapcsolashoz nyomd meg a 2-es billentyut es nyomj entert!');
readln (bekapcsolo);
if (bekapcsolo=1) then begin
writeln ('Most sipolni fogok 18000 hz-en, amig le nem utsz egy billentyut.');
sound(18000);
readkey;
end;
if (bekapcsolo=2) then halt;
end.

[SzoZo]

Tetszik, meg tudnád oldani, hogy 5 másodpercenként random válasszon frekvenciát 20 kHz és 45 kHz között? Ezután 5 másodperc szünet jön.
Ez azért jó, mert nem tud hozzászokni a hanghoz.

[Lightning]

Hamarabb őrülne meg mindeki a közelben, minthogy távoltartsa a szúnyogokat.

[Rudi]

Ilyen magas hangot az ember már nem hall.

De itt van (most bem raktam bele random függvényt):

Program szunyogriaszto;
uses crt;
var bekapcsolo:integer;
begin
writeln ('Udv a programban. Bekapcsolashoz nyomd meg az 1-es billentyut es uss entert,');
writeln ('kikapcsolashoz nyomd meg a 2-es billentyut es nyomj entert!');
readln (bekapcsolo);
if (bekapcsolo=1) then begin
writeln ('Most sipolni fogok 20000 hz-en, amig le nem utsz egy billentyut.');
begin
sound(20000);
delay(5000);
repeat until keypressed;
end;
end;
if (bekapcsolo=2) then halt;
end.

Szerkesztve Godzilla által: 2010 szeptember 07 - 19:36