Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
mhpa

ajuda em fazer a aplicação de um semaforo

Recommended Posts

mhpa

a duvida e a seguinte tenho que fazer um semaforo que mude a cor a cada 5s, mas nao sei tornar um ciclo, e tambem nao sei se baasta usar um timer ou mais que um:S pois consigo por a mudar a cor apenas na no intervalo do timer ou seja se for 10s e eu por para mudar aos 5 e aos 10 apenas acontece aos 10 alguma ajuda por favor??

unit Unit1;

{$mode objfpc}{$H+}

interface

uses

  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,

  ExtCtrls, Buttons, StdCtrls;

type

  { TForm1 }

  TForm1 = class(TForm)

    Button1: TButton;

    Button2: TButton;

    Shape1: TShape;

    Shape2: TShape;

    Shape3: TShape;

    Shape4: TShape;

    Shape5: TShape;

    Timer1: TTimer;

    procedure Button1Click(Sender: TObject);

    procedure Shape1ChangeBounds(Sender: TObject);

    procedure Timer1Timer(Sender: TObject);

  private

    { private declarations }

  public

    { public declarations }

  end;

var

  Form1: TForm1;

implementation

{ TForm1 }

procedure TForm1.Shape1ChangeBounds(Sender: TObject);

begin

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  timer1.Enabled:=true;

end;

procedure TForm1.Timer1Timer(Sender: TObject);

begin

  if timer1.interval=5000 then shape1.brush.color:=clRed;

  if timer1.interval=5000 then shape5.brush.color:=clGreen;

  if timer1.interval=10000 then shape5.brush.color:=clBlack;

  if timer1.interval=10000 then shape1.brush.color:=clblack;

  if timer1.interval=10000 then shape3.brush.color:=clGreen;

  if timer1.interval=10000 then shape5.brush.color:=clblack;

  if timer1.interval=10000 then shape4.brush.color:=clRed;

  if timer1.interval=15000 then shape5.brush.color:=clGreen;

end;

initialization

  {$I unit1.lrs}

end.

                                               

deixo aqui o que tinha já feito

desde já obrigado.

* já agora deixo o enunciado

Elabora uma aplicação que simule um semáforo para os condutores e para os peões.

A alternância das cores do semáforo deve ser de 5s e caso estejam desligados deve

ficar com a cor amarela intermitente de 2s.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.