Script Yazılım Dilleri

**ßykadiR** · 27-10-2006, 11:12

PHP Kodu:

  unit Unit1;

interface

uses
[Sadece kayıtlı üyeler linkleri görebilirler. ], Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Shape1: TShape;
Shape2: TShape;
Shape3: TShape;
Timer1: TTimer;
Timer2: TTimer;
Timer3: TTimer;
Bevel1: TBevel;
procedure Timer3Timer(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure Timer2Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
** Private declarations **
public
** Public declarations **
end;

var
Form1: TForm1;

implementation

**$R *.dfm**

procedure TForm1.Timer3Timer(Sender: TObject);
begin
timer1.Enabled:=true;
timer3.Enabled:=false;
timer2.Enabled:=false;
shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
shape1.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clred;
shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
timer2.Enabled:=true;
timer3.Enabled:=false;
timer1.Enabled:=false;
shape1.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clyellow;
shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
timer1.Enabled:=false;
timer3.Enabled:=true;
timer2.Enabled:=false;
shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgreen;
shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;

end;

27-10-2006, 11:12	#1
Gelişen Üye ßykadiR	Trafik lambasi PHP Kodu: unit Unit1; interface uses [Sadece kayıtlı üyeler linkleri görebilirler. ], Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Shape1: TShape; Shape2: TShape; Shape3: TShape; Timer1: TTimer; Timer2: TTimer; Timer3: TTimer; Bevel1: TBevel; procedure Timer3Timer(Sender: TObject); procedure Timer1Timer(Sender: TObject); procedure Timer2Timer(Sender: TObject); procedure FormCreate(Sender: TObject); private Private declarations public Public declarations end; var Form1: TForm1; implementation *$R .dfm** procedure TForm1.Timer3Timer(Sender: TObject); begin timer1.Enabled:=true; timer3.Enabled:=false; timer2.Enabled:=false; shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; shape1.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clred; shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; end; procedure TForm1.Timer1Timer(Sender: TObject); begin timer2.Enabled:=true; timer3.Enabled:=false; timer1.Enabled:=false; shape1.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clyellow; shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; end; procedure TForm1.Timer2Timer(Sender: TObject); begin timer1.Enabled:=false; timer3.Enabled:=true; timer2.Enabled:=false; shape3.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgreen; shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; shape2.[Sadece kayıtlı üyeler linkleri görebilirler. ].Color:=clgray; end; procedure TForm1.FormCreate(Sender: TObject); begin timer1.Enabled:=true; end;

Konu Seçenekleri
Yazıcıdaki Görüntüsünü Göster Sayfayı E-Mail'le gönder
Modları Göster
Normal Mod Ağaç Modununa Geç Otomatik Konu Moduna Geç

Okuduğunuz Konuya Benzer Konular
Konu	Konuyu Açan	Forum	Cevaplar	Son Mesaj
çok ışıklı trafik lambası projesi	ibots11	Resimler	1	18-06-2007 15:47
İstanbul'un Trafik Kuralları	megaManiac	Yazılar	1	15-06-2007 19:41
TraFik İşaretleri !	OnLiNe	Motorlu Araçlar	4	09-02-2007 10:54

Trafik lambasi

Script Yazılım Dilleri

Asp,asp net,php,html kodlama ve scriptler forumlarındaki Html,Java,Javascript bölümü Trafik lambasi konusu PHP Kodu:...