hallo

bin grad dabei ein Autorennen zu programmieren was sehr billig ist. Prog ist Delphi 3.
Nun hab ich das soweit das per Buttonklick die Dinger losgehen allerdings nur beim dauerklicken und die vorgegebenen Werte. Wie kann man das machen das das Zufällig läuft und ohne dauerklicken auf den Button?

Code:

zusammenfalten · markieren

Delphi-Quellcode:

unit Unit1;

 interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, ExtCtrls;
typeTForm1 = class(TForm)
Image2:
TImage;
Image1:
TImage;
Shape1: TShape;
Shape2: TShape;
Button1: TButton;
Button2: TButton;
Edit1: TEdit;
Label1: TLabel;
Edit2: TEdit;
Label2: TLabel;

procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private{ Private-Deklarationen }
public{ Public-Deklarationen }
end;
varForm1: TForm1;

implementation {$R *.DFM} 

procedure bewegen (var x,y:integer);
beginx:=x+1;
form1.Image1.left:=x;
end;

procedure bewegene (var a,b:integer);
begina:=a+1;
form1.Image2.left:=a;
end;

procedure TForm1.Button1Click(Sender: TObject);
var x,y,i,delay,a,b:integer;

 begin
 x:=Image1.Left;
 y:=Image1.top;
 for i:=1 to 20 do
 bewegen(x,y);
 delay:=(1);
 a:=Image2.Left;
 b:=Image2.top;
 for i:=1 to 19 do
 bewegene(a,b);
 delay:=(1);
 end;
 procedure TForm1.Button2Click(Sender: TObject);
 begin
 close;
 end;

end.

Hi,

schau mal in der Delphihilfe nach TTimer. Könnte dir da weiterhelfen damit kannst du deine Funktionen in einem bestimmten rythmus immer wieder ausführen

naja das soll ja nich nach einem bestimmten ablauf laufen. die 2 autos sollen ja bei buttonklick losfahren und einer von beiden soll gewinnen. halt zufall wer gewinnt. aber irgendwie laufen die nicht automatisch. ich muss andauernd auf den button klicken.

Random(10)+1 Erzeugt einen Zufallswert zwischen 1 und 10

Das sollte dir weiterhelfen!

ok das mit random funktioniert schonmal das die unterschiedliche abstände fahren. jetz fehlt nur noch das die alleine fahren ohne das ich 1000 mal auf den button klicken muss damit die sich bewegen. also nur einmal als start und dann fahren die alleine. wie geht das?

Wie angos schon sagte:

Zitat von angos:

Hi,

schau mal in der Delphihilfe nach TTimer. Könnte dir da weiterhelfen damit kannst du deine Funktionen in einem bestimmten rythmus immer wieder ausführen

Einfach einen TTimer (registerkarte system) aufs Formular ziehen, Intervall einstellen (in Millisekunden) und in das Ereignis OnTime dienen code einfügen. Enabled muss natürlich auf true stehen, sonst wird das ereignis nicht ausgelöst.