AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

Brauche Hilfe bei Delphi 5 Ampelsystem

Ein Thema von Homer S. · begonnen am 20. Mär 2009 · letzter Beitrag vom 25. Mär 2009
Antwort Antwort
Homer S.

Registriert seit: 18. Mär 2009
5 Beiträge
 
#1

Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 20. Mär 2009, 07:12
Hallo zusammen,
Es handelt sich um Delphi 5!!!
ich habe hier eine Ampelkreuzung mit 4 Ampeln dies klappt soweit.
Ich bitte um eure hilfe, dass ihr mir sagt wie ich autos hinbekomme und die rote und grüne ampelzeit länger hält.
Bitte beachtet das ich anfänger bin!!
Unten mein Quelltext:
Delphi-Quellcode:
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Shape1: TShape;
    Shape2: TShape;
    shpRed1: TShape;
    shpYellow1: TShape;
    shpGreen1: TShape;
    shpYellow2: TShape;
    shpRed2: TShape;
    shpGreen2: TShape;
    Shape9: TShape;
    Shape10: TShape;
    Shape11: TShape;
    Shape12: TShape;
    Shape13: TShape;
    Shape14: TShape;
    Shape15: TShape;
    Shape16: TShape;
    Shape17: TShape;
    Shape18: TShape;
    Shape19: TShape;
    Shape20: TShape;
    Shape21: TShape;
    Shape22: TShape;
    Shape23: TShape;
    Shape24: TShape;
    Shape25: TShape;
    Shape26: TShape;
    Shape27: TShape;
    Shape28: TShape;
    Shape29: TShape;
    Shape30: TShape;
    Shape32: TShape;
    Shape33: TShape;
    Shape34: TShape;
    Shape35: TShape;
    Shape36: TShape;
    Shape37: TShape;
    Shape38: TShape;
    Shape39: TShape;
    Shape31: TShape;
    Shape40: TShape;
    Shape41: TShape;
    Shape42: TShape;
    Shape43: TShape;
    Shape44: TShape;
    Shape45: TShape;
    Shape46: TShape;
    Shape47: TShape;
    Shape48: TShape;
    Shape49: TShape;
    Shape50: TShape;
    Shape51: TShape;
    Shape52: TShape;
    Shape53: TShape;
    Shape54: TShape;
    Shape55: TShape;
    Shape56: TShape;
    Shape57: TShape;
    Shape59: TShape;
    Shape60: TShape;
    Shape61: TShape;
    Shape62: TShape;
    Shape63: TShape;
    Shape64: TShape;
    Shape65: TShape;
    Shape66: TShape;
    Shape67: TShape;
    Shape68: TShape;
    Button1: TButton;
    Timer1: TTimer;
    shpRed4: TShape;
    shpYellow4: TShape;
    shpGreen4: TShape;
    shpRed3: TShape;
    shpYellow3: TShape;
    shpGreen3: TShape;
    Timer2: TTimer;
    Button2: TButton;
    procedure shpRed2MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.shpRed2MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin
   if shpGreen2.Brush.Color = clblack then
   begin
   Timer1.interval := 2000;
   shpRed2.Brush.Color := clred;
   shpYellow2.Brush.Color := clblack;
   shpGreen2.Brush.Color := clnone;
   shpRed1.Brush.Color := clred;
   shpYellow1.Brush.Color := clblack;
   shpGreen1.Brush.Color := clnone;
    end
   else if shpYellow2.Brush.Color = clblack then
   begin
   Timer1.interval := 2000;
   shpRed2.Brush.Color := clred;
   shpYellow2.Brush.Color := clyellow;
   shpGreen2.Brush.Color := clnone;
   shpRed1.Brush.Color := clred;
   shpYellow1.Brush.Color := clyellow;
   shpGreen1.Brush.Color := clnone;
    end
   else if shpRed2.Brush.Color = clred then
   begin
   Timer1.interval := 2000;
   shpRed2.Brush.Color := clnone;
   shpYellow2.Brush.Color := clnone;
   shpGreen2.Brush.Color := cllime;
   shpRed1.Brush.Color := clnone;
   shpYellow1.Brush.Color := clnone;
   shpGreen1.Brush.Color := cllime;
   end
   else if shpGreen2.Brush.Color = cllime then
      begin
      Timer1.interval := 2000;
      shpRed2.Brush.Color := clblack;
      shpYellow2.Brush.Color := clyellow;
      shpGreen2.Brush.Color := clblack;
      shpRed1.Brush.Color := clblack;
      shpYellow1.Brush.Color := clyellow;
      shpGreen1.Brush.Color := clblack;
      end
    end;
    procedure TForm1.Timer2Timer(Sender: TObject);

   begin
   if shpGreen4.Brush.Color = clblack then
   begin
   Timer2.interval := 2000;
   shpRed4.Brush.Color := clred;
   shpYellow4.Brush.Color := clblack;
   shpGreen4.Brush.Color := clnone;
   shpRed3.Brush.Color := clred;
   shpYellow3.Brush.Color := clblack;
   shpGreen3.Brush.Color := clnone;
    end
   else if shpYellow4.Brush.Color = clblack then
   begin
   Timer2.interval := 2000;
   shpRed4.Brush.Color := clred;
   shpYellow4.Brush.Color := clyellow;
   shpGreen4.Brush.Color := clnone;
   shpRed3.Brush.Color := clred;
   shpYellow3.Brush.Color := clyellow;
   shpGreen3.Brush.Color := clnone;
    end
   else if shpRed4.Brush.Color = clred then
   begin
   Timer2.interval := 2000;
   shpRed4.Brush.Color := clnone;
   shpYellow4.Brush.Color := clnone;
   shpGreen4.Brush.Color := cllime;
   shpRed3.Brush.Color := clnone;
   shpYellow3.Brush.Color := clnone;
   shpGreen3.Brush.Color := cllime;
   end
   else if shpGreen4.Brush.Color = cllime then
      begin
      Timer2.interval := 2000;
      shpRed4.Brush.Color := clblack;
      shpYellow4.Brush.Color := clyellow;
      shpGreen4.Brush.Color := clblack;
      shpRed3.Brush.Color := clblack;
      shpYellow3.Brush.Color := clyellow;
      shpGreen3.Brush.Color := clblack;
      end
    end;


procedure TForm1.Button2Click(Sender: TObject);
begin

end;

end.
  Mit Zitat antworten Zitat
Frankfurtoder

Registriert seit: 27. Mär 2008
112 Beiträge
 
RAD-Studio 2010 Pro
 
#2

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 20. Mär 2009, 07:56
Zitat von Homer S.:
ich habe hier eine Ampelkreuzung mit 4 Ampeln dies klappt soweit.
Was klappt soweit? Wie ich sehe hast du nur jede Menge Shapes auf die Form geklatscht und änderst mit 2 Timern im 2 Sekundentakt die Farbe einiger Shapes.
Sind die Timer von anfang an Enabled?
Was hast du mit dem leeren Button vor?

Zitat von Homer S.:
Ich bitte um eure hilfe, dass ihr mir sagt wie ich autos hinbekomme und die rote und grüne ampelzeit länger hält.
Autos wirst du wohl zeichnen müssen. Ein Rechteck sollte da bestimmt schon reichen. Gehe ich richtig in der annahme, dass sich jene Autos auch bewegen sollen?

Da die Shapes, also die Ampelphasen über die Timer gesteuert werden, einfach den Timer Intervall erhöhen für längere Phasen.


Aber dieses Modell findest du mehrfach hier im Forum. Hast du die Suche benutzt? Wenn nicht, warum nicht?

Gruß
Erik
Alles gut?
  Mit Zitat antworten Zitat
oldmax

Registriert seit: 27. Apr 2006
Ort: Gieboldehausen
167 Beiträge
 
#3

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 20. Mär 2009, 08:33
Hi
Auch auf die Gefahr hin, das ich hier wiederhole... dies ist kein Forum : "Wer macht meine Hausaufgaben".
Zuerst Hilfe bei Google - Delphi Ampel sollte einige brauchbare Tipps liefern
Auch hier in der DP gibt es die Suchen-Funktion für Ampel. Da bin ich mir sicher, da ist genug Material vorhanden, da du nicht der erste mit dieser Hausaufgabe bist.
Und letztlich....
Das was du an "Programmcode" bezeichnest, ist nichts ! Da solltest du vielleicht doch mal ein paar Minuten opfern und eigen Gedanken einfließen lassen.
Und wenn's dann ein bestimmtes Problem zu beheben gibt, dann wirst du hier sicher auch Hilfe bekommen.
Gruß oldmax
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !
  Mit Zitat antworten Zitat
Homer S.

Registriert seit: 18. Mär 2009
5 Beiträge
 
#4

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 23. Mär 2009, 11:13
Zitat:
Aber dieses Modell findest du mehrfach hier im Forum. Hast du die Suche benutzt? Wenn nicht, warum nicht?
Ja habeich geguckt und finde nicht das passende und nein dies ist kein schulprojekt und keine Hausaufgabe da ich dies so mache aber komme nicht weiter also könntest du mir den quelltext so ändern das dies dann passt also meinen so ändern mit längeren Zeiten und Autos?


Super NEtt!!!
Tausen DANK!!!

Homer!
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#5

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 23. Mär 2009, 11:21
Zitat von Homer S.:
also könntest du mir den quelltext so ändern das dies dann passt
Nein, das wird hier keiner machen. Hast Du Dir mal den Kodex der DP durchgelesen?

1.) Ein Thread - eine Frage.
Das erste wäre also die Verlängerung der Phasen. Das machst Du, in dem Du das Timerintervall erhöhst. Diese wäre beantwortet.

2.) Für die zweite Frage: überlege Dir vorher was Du genau machen willst, fange an das zu Programmieren. Wenn etwas überhaupt nicht klappt benutze die Suche um Hilfe zu bekommen. Erst wenn das alles nicht klappt, dann frage hier erneut nach - mit einem konkreten Problem und Dir wird mit Tipps in die Richtung (nicht mit Code!) geholfen. Genau so funktioniert die DP, und daran hat sich hier jeder zu halten.
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat
R2009

Registriert seit: 9. Mär 2009
Ort: Heidelberg
440 Beiträge
 
Delphi 2007 Professional
 
#6

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 23. Mär 2009, 11:24
Hallo,

ich würde dir empfehlen, lass doch die blanks weg in deinem Text dann wird er noch unleserlicher.

Zitat:
Jahabeichgegucktundindenichtdaspassendeundneindies istkeinschulprojektundkeineHausaufgabedaichdiessom acheaberkommenichtweiter also könntestdumirdenquelltextsoänderndasdiesdannpassta lsomeinensoändernmitlängerenZeitenundAutos?
Menschenskind gib dir wenigstens etwas Mühe mit der Rechtschreibung!
Dies ist doch eine Zumutung was du so zusammenschreibst!

Viele Grüsse!
Rainer Unger
Mein Profil:
Studium Allgemeine Elektrotechnik TH Darmstadt
Entwicklung von Tools für die Rundsteuer und Zählertechnik.
uP's Atmel Prozessoren (ATmega16,32,88...) in C und Assembler.
  Mit Zitat antworten Zitat
Benutzerbild von Phoenix
Phoenix
(Moderator)

Registriert seit: 25. Jun 2002
Ort: Hausach
7.516 Beiträge
 
#7

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 23. Mär 2009, 12:42
Bitte nicht offtopic werden. Danke.
Sebastian P.R. Gingter
不死鳥 Visit my Blog.
Do not argue with an idiot. They lower you to their level and then try to beat you with experience.
  Mit Zitat antworten Zitat
Homer S.

Registriert seit: 18. Mär 2009
5 Beiträge
 
#8

Re: Brauche Hilfe bei Delphi 5 Ampelsystem

  Alt 25. Mär 2009, 09:48
in Konsole cl_flame 0 plz
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 16:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf