ampel programmieren

[gangville]

Zitat von edi-design:

das is so ne nette anfänger aufgabe in delphi im schulunterricht,

hab hier mal meine version zu der aufgabe angehangen plus code, is aus den ganz zeitigen anfängen, von daher müsste es eingeltich verstämndlich sein.

EDIT: Anhängen ging leider nich meine Internetverbindung spinnt mal wieder, muss leider der code reichen

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    rasen: TImage;
    rasen_2: TImage;
    rasen_3: TImage;
    rasen_4: TImage;
    Ampel_3: TImage;
    Ampel_2: TImage;
    Ampel_4: TImage;
    ampel_1: TImage;
    auto: TImage;
    pb_start: TBitBtn;
    Timer: TTimer;
    pb_stop: TBitBtn;
    Timer_auto: TTimer;
    auto_2: TImage;
    timer_auto2: TTimer;
    procedure pb_startClick(Sender: TObject);
    procedure TimerTimer(Sender: TObject);
    procedure pb_stopClick(Sender: TObject);
    procedure Timer_autoTimer(Sender: TObject);
    procedure timer_auto2Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  strasse: integer =1;
  i :integer = 1;
  rechts: integer =1;
  unten:integer =1;
implementation

{$R *.dfm}

procedure TForm1.pb_startClick(Sender: TObject);
begin
 timer.Enabled := true;
 pb_start.Enabled := false;
 pb_stop.Enabled := true;
end;

procedure TForm1.TimerTimer(Sender: TObject);
begin
 case strasse of

 1: Case i of

    1: Begin
          // Ampeln auf Grün
          ampel_4.Picture.LoadFromFile('./grün_waage.bmp');
          ampel_3.Picture.LoadFromFile('./grün_waage.bmp');
          timer_auto.Enabled := true;

          //Ampeln auf Rot
          ampel_1.Picture.LoadFromFile('./rot_senk.bmp');
          ampel_2.Picture.LoadFromFile('./rot_senk.bmp');

          //umschalten auf Gelb
          i := i + 1;
       End;

    2: Begin
          // Ampeln auf Gelb
          ampel_4.Picture.LoadFromFile('./gelb_waage.bmp');
          ampel_3.Picture.LoadFromFile('./gelb_waage.bmp');

          //Ampeln auf Rot/Gelb
          ampel_1.Picture.LoadFromFile('./rotgelb_senk.bmp');
          ampel_2.Picture.LoadFromFile('./rotgelb_senk.bmp');

          //umschalten auf rot
          i := 1;
          strasse := 2;
       End;

    End;

 2: Case i of

    1: Begin
          // Ampeln auf Rot
          ampel_4.Picture.LoadFromFile('./rot_waage.bmp');
          ampel_3.Picture.LoadFromFile('./rot_waage.bmp');

          //Ampeln auf Grün
          ampel_1.Picture.LoadFromFile('./grün_senk.bmp');
          ampel_2.Picture.LoadFromFile('./grün_senk.bmp');
          timer_auto2.Enabled := true;

          //umschalten auf Gelb
          i := i + 1;
       End;

    2: Begin
          // Ampeln auf Gelb
          ampel_4.Picture.LoadFromFile('./rotgelb_waage.bmp');
          ampel_3.Picture.LoadFromFile('./rotgelb_waage.bmp');

          //Ampeln auf Rot/Gelb
          ampel_1.Picture.LoadFromFile('./gelb_senk.bmp');
          ampel_2.Picture.LoadFromFile('./gelb_senk.bmp');

          //umschalten auf rot
          i := 1;
          strasse := 1;
       End;

    End;

 End;
end;

procedure TForm1.pb_stopClick(Sender: TObject);
begin
 timer.Enabled := false;
 pb_stop.Enabled := false;
 pb_start.Enabled := true;
 timer_auto.Enabled := false;
 timer_auto2.Enabled := false;
 auto.Left := 400;
 auto_2.Top := 272;
end;

procedure TForm1.Timer_autoTimer(Sender: TObject);
begin
   auto.Left := auto.left - 10;

   if auto.Left < -130 then Begin
      auto.Left := 650;
      rechts := 2;
   End;

   if rechts = 2 then
      if auto.left = 400 then Begin
         timer_auto.Enabled := false;
         auto.left := 400;
         rechts := 1;
      End;
end;

procedure TForm1.timer_auto2Timer(Sender: TObject);
begin
   auto_2.top := auto_2.top - 10;

   if auto_2.top < -129 then Begin
      auto_2.top := 445;
      unten := 2;
   End;

   if unten = 2 then
      if auto_2.Top < 280 then Begin
         timer_auto2.Enabled := false;
         auto_2.Top := 272;
         unten := 1;
      End;
end;

end.

hoffe es hilft

mfg andré

hi,

Könntest du mir bitte die delphi datei mit dem auto zuschicken.
Ich muss nämlich ein auto mit einer ampel programmieren, sodass das auto bei rot an der selben stelle bleibt.

Ich hoffe du kannst mir helfen.

danke im voraus.

[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

[mr_emre_d]

Zitat von Kroko1999:

[delphi]
Procedure wait(const Time:Integer);
var
x: Cardinal;
Begin
x := GetTickCount+Time*400 ;
while GetTickCount<X do
Application.ProcessMessages;
End;

Ähm, so stimmt das nicht ganz! (EDIT-Wenn ich mich nicht irre-das tue ich aber um diese Zeit öfters)

X = GetTickCount + Time*400 -> Wenn ich Time = 1 (sek) setze, hieße das
X = GTC + 1*400 -> 400 != 1000 ( da 1 Sek = 1000 ms ) !

Ich würde Folgendes vorschlagen:

Code:

procedure Wait( const Time: Cardinal );  // Time = Unsigned type -> weil keiner -1 Sek warten will :P
var
  x: Cardinal;
begin
  x := GetTickCount;
  while ( x + Time*1000 >= GetTickCount ) and ( not Application.Terminated ) do
    Application.ProcessMessages;
end;

Code:

not Application.Terminated -> Die Schleife bricht ab, wenn die Anwendung geschlossen wird!

Ich muss noch erwähnen, dass der Luckie (oder wars doch der Negah ) eine bessere Routine gepostet hat.

MfG

[BAMatze]

Zitat von Luckie:

@Kroko: Wann wird denn eine Ampel grün-gelb? Ich kenne nur: Rot, rot-gelb, grün, gelb und wieder rot.

Hallo an alle ist zwar etwas offtopic aber die Phase grün-gelb ist aus dem ehemaligen Ostdeutschland bekannt. Die Ampelabfolge hat sich dort um diesen einen Zustand unterschieden zum heute bekannten System.

[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.

[mquadrat]

Alles was das Form zum Code braucht ist ein Timer mit dem Namen Timer1 und ein Button mit dem Namen Button1

Aber wenn du um 07:00 Uhr fragst, dann hättest du es garantiert für heute in der Schule gebraucht. Also eh zu spät

[gangville]

Zitat von mquadrat:

Alles was das Form zum Code braucht ist ein Timer mit dem Namen Timer1 und ein Button mit dem Namen Button1

Aber wenn du um 07:00 Uhr fragst, dann hättest du es garantiert für heute in der Schule gebraucht. Also eh zu spät

hi,

nene ich brauch es für donnerstag.

Den ampel habe ich programiert, aber ich brauche die .img datei.

danke

[blink182]

wozu brauchst du jetzt beim Programmieren ein Image, versteh jetzt nicht so ganz was du willst?
Meinst du vllt ein JPEG o.ä.?
Naja vllt gibts ja auch noch ne andere Verwendung für .img, also irgendwelche CD-ähnlichen-Images, die mir unbekannt ist (:

[gangville]

Zitat von blink182:

wozu brauchst du jetzt beim Programmieren ein Image, versteh jetzt nicht so ganz was du willst?
Meinst du vllt ein JPEG o.ä.?
Naja vllt gibts ja auch noch ne andere Verwendung für .img, also irgendwelche CD-ähnlichen-Images, die mir unbekannt ist (:

hi,

ja ich brauche eine jpeg.
ein kleines auto oder sowas.
ich werde ihn dann zum fahren simulieren.
in delphi kann man ja icons hochladen.

[Luckie]

Dann mach dir doch mal eben schnell eins mit Paint, anstatt hier lange auf eine Antwort zu warten.