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
