Timer Компонентаси Светофор дастури

Timer Компонентаси Светофор дастури
System Компоненталар булимидаги Timer Form1 га
жойлаймиз.


Var
Form1: TForm1; операторига
var i:Integer; операторини киритамиз.

Дастур ойнасига қуйидаги кодни ёзамиз
procedure light_off; Протседурасини киритамиз.
procedure light_off;
begin
Form1.Width:=40;
form1.Height:=250;
form1.Canvas.Brush.Color:=clBlack;
form1.Canvas.Rectangle(10,10,80,200);
form1.Canvas.Brush.Color:=clGray;
form1.Canvas.Ellipse(20,20,70,70);
form1.Canvas.Ellipse(20,80,70,130);
form1.Canvas.Ellipse(20,140,70,190);
end;

procedure TForm1.tmr1Timer(Sender: TObject); Протседурасига қуйидаги операторларни киритамиз.

begin
i:=i+1;
if i mod 12=1 then
begin light_off;
Canvas.Brush.Color:=clRed;
Canvas.Ellipse(20,20,70,70);
end;
if i mod 6=0 then
begin light_off;
Canvas.Brush.Color:=clYellow;
Canvas.Ellipse(20,80,70,130);
end;
if i mod 12=7 then
begin light_off;
Canvas.Brush.Color:=clGreen;
Canvas.Ellipse(20,140,70,190);
end;
end;
end.

• 
  Run ушбу белги орқали Дастурни ишга туширамиз