Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

mhpa

ajuda em fazer a aplicação de um semaforo

Mensagens Recomendadas

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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.