zeitlicher Abstand bei "beep"

[stoepsel7891]

bin Anfänger und programmiere gerade ein programm, wo u.A. der Befehl "beep" vorkommt. ich kann ja die Häufigkeit des Abspielens verändern, aber sobald ich mehrere beep befehle hintereinander ausführe, klingt es nur noch wie langgezogener Ton, es gibt also keine Pausen mehr zwischen den "beeps". Kann ich das irgendwie beeinflussen???

[Noedel]

machs mit nem timer

[stoepsel7891]

bin wie gesagt totaler anfänger, kenne delphi nur aus der schulinformatik. was ist ein timer, wie funktioniert sowas???

[Noedel]

Ein Timer ist das lustige Ding im Anhang

der hat die funktion alles was in seiner procedure steht, immer wieder nach ner bestimmten, selbst festzulegenden zeit, zu wiederholen.
die zeit kannst du mit "interval" einstellen... (die angabe ist in Millisekunden und 0 heißt Timer aus)
sollte helfen

[stoepsel7891]

ok, danke

[Noedel]

heißt das, du kommst klar?

[stoepsel7891]

ja den abstand habe ich geregelt bekommen, aber das hört ja jetzt ni wieder auf ich hatte ja eine procedure geschrieben, um eine anzahl von tönen zu erzeugen

[DeddyH]

Dann musst Du im Timer eine global erreichbare Zahl hochzählen und beim Erreichen eines definierten Maximalwerts den Timer abschalten.

[Noedel]

dann fragst du einfach mit ner ineger variable immer wieder ab, wie oft schon "gebeept" wurde und sagst nach erreichen des limits, dass der timer aus gehen soll

in etwa so

Delphi-Quellcode:

   procedure form1.Timer1Timer(Sender: TObject);
   var wie_oft_schon:integer;
   begin
   IF wie_oft_schon < limit THEN
     begin
       beep;
       inc(wie_oft_schon);
     end
   ELSE timer1.interval:=0; //oder timer1.enabled:=false;
   end;

//edit : zu spät

[DeddyH]

wie_oft_schon darf aber nicht lokal sein