zeitlicher Abstand bei "beep"

[Noedel]

stimmt. hast recht

[stoepsel7891]

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
    wie_oft_schon:integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
    procedure ablauf(limit:integer);
    begin
   IF wie_oft_schon < limit THEN
     begin
       beep;
       inc(wie_oft_schon);
     end
   ELSE timer1.interval:=0;
   end;





begin

     ablauf(10);

end;

end.

ist jetzt erstmal mein quellcode, wenn ich das programm starte macht es 10mal beep in einem von mir bei intervall festgelegten abstand, ich möchte aber, dss die töne erst bei klicken eines buttons erzeugt werden, wie ist das möglich, ich hab es probiert und mein quellcode war danach etwas durcheinander :roll:

[DeddyH]

Stell den Timer im OI auf Disabled (d.h. Enabled auf false ;)), füge noch eine globale Variable "limit" ein, mach einen Doppelklick auf den Button und schreibe das hier in den Quelltext:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  limit := 10;
  wie_oft_schon := 0;
  Timer1.Enabled := true;
end;

[Mikescher]

Noch ein kleiner Tipp am Rande :wink: :

Anstatt einer globalen Variable kannste auch einfach Timer1.Tag benutzen

MfG Mikescher