ampel programmieren

[gangville]

Zitat von blink182:

das hier isn Code von nem Auto aus nem Delphibuch, hoffe das posten ist hier okay.
Das Auto ist relativ klein gezeichnet, kannste dir aber vergrößern, in dem du das n, bei x+n bzw y+n mit einem faktor muliplizierst

Delphi-Quellcode:

var 
  x:Integer;
  y:Integer;

procedure Zeichnen(canv: TCanvas; colr: LongINt);
begin
with canv do begin
pen.color:=colr;
brush.color:=colr;
RecTangle(x+2, y+1,x+6,y+4);
RecTangle(x+2,y+14,x+6,y+17);
RecTangle(x+16,y+2,x+20,y+4);
RecTAngle(x+16,y+14,x+20,y+16);

MoveTo(x+4,y+4); LineTo(x+4,y+6);
MoveTo(x+4,y+12); LineTo(x+4,y+14);
MoveTo(x+18,y+4); LineTo(x+18,y+7);
MoveTo(x+18,y+11); LineTo(x+18,y+14);

MoveTo(x,y+6); LineTo(x+14,y+6);
LineTo(x+22,y+8);
LineTo(x+22,y+10);
LineTo(x+14,y+12);
LineTo(x,y+12);
LineTo(x,y+6);
Ellipse(x+9,y+7,x+13,y+11);
end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
zeichnen(form1.canvas,clBtnFace);
x:=x+5;
zeichnen(form1.canvas,clBlack);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
y:=50;
x:=40;
timer1.enabled:=True;
end;

MfG blink182

danke für die hilfe

könnt ihr nicht mir die delphi dabei nicht hochladen, denn mit den quellcodes braucht man auch eine passende Formen.