Практичесl= 2;ая работа № 29

Прак= 090;ическая работа № 29

Пере= 084;ещение рисунка

Цель работы - созk= 6;ать программу, в которой на поверхностl= 0; окна переме = 97;ается случайным образом изображениk= 7; веселой рожицы. Пользоватеl= 3;ь должен сдел = 72;ть щелчок кнопкой мыш = 80; по изображениn= 2;. Программа должна завершить работу посл = 77; того, как пол&#= 1100;зователь сделает 10 щелчков кнопкой мыш = 80;.

Начало игры осуществляk= 7;тся по нажатию н= 072; кнопку Ok.

Свойство WordWrap ком&= #1087;онента Label – признак тог = 86;, что слова, которые не п= 086;мещаются в текущей строке, автоматичеl= 9;ки переносятсn= 3; на следующу= 02; строку (знач= 077;ние свойства AutoSize должно быть False).

Листи&#= 1085;г программы<= /b>:

unit= Unit1;

interface

uses

Windows, Messages, SysUtils, Varia= nts, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, ExtCtrls;<= /o:p>

type

TForm1 =3D class(TForm)=

    Timer: TTimer;

    Label1: TLabel;

    Button1: TButton;=

    procedure TimerTimer(Sender: TObject);

    procedure FormCreate(Sender: TObject);

    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;<= o:p>

      Shift: TShiftState; X, Y: Integer);

    procedure Button1Click(Sender: TObject);

private

    { Private declarations= }

public

    { Public declarations = }

    { об= ;ъявление процk= 7;дур помеm= 7;ено сюда,

      = 095;тобы процедуры имели прямо = 81; доступ

      к форме, на которой они рисуют}

    procedure PaintFace (x,y: integer);   {рис= ;ует рожиm= 4;у}

    procedure EraseFace(x,y: integer); {стиl= 8;ает рожиm= 4;у}

end;

var

Form1: TForm1;
fx,fy: integer; { коо = 88;динаты рожиm= 4;ы}

n: integer;      { к&= #1086;личество щелчков кнопкой мыш = 80;}

p: integer;      { количество попаданий}

implementation

{ рисует рожицу}

procedure TForm1.PaintFace(x,y: integer);

begin

    Canvas.Pen.Color :=3D clBlack;     { = цвет линиl= 1;}

    Canvas.Brush.Color :=3D clRed; { цв= ;ет закрk= 2;ски}

    { ри= ;суем рожиm= 4;у}

    Canvas.Ellipse(x,y,x+3= 0,Y+30);       { лицо}

    Canvas.Ellipse(x+9,y+10,x+11,y+13);= { левый глаз}

    Canvas.Ellipse(x+19,y+= 10,x+21,y+13); { правый глаз}

    Canvas.Arc(x+4,y+4,x+2= 6,y+26,x,y+20,x+30,y+20); {улыбка}

end;=

{ стl= 0;рает рожиm= 4;у}

procedure TForm1.EraseFace(x,y: integer);

begin

   { зададим цве = 90; границы и цвет закраски, совпадающиl= 1; с цветом формы.}

   { По умолчанию ц = 74;ет формы - clBtnFace }

   Canvas.P= en.Color :=3D clBtnFace;   { цвеm= 0; окружности}<= /p>
   Canvas.B= rush.Color :=3D clBtnFace; { цве= т закраски}

   Canvas.Ellipse(x,y,x+30,y+30);

end;=

{$R *.dfm}=

procedure TForm1.TimerTimer(Sender: TObject);

begin

EraseFace(fx,fy);

    { новое положение рожицы}

    fx:=3D Random(ClientWidth-30); { 30 - это диаметр рожицы}

    fy:=3D Random(ClientHeight-30);

    PaintFace(fx,fy);=

end;=

procedure TForm1.FormCreate(Sender: TObject);

begin

     { исходное положение рожицы}

    fx:=3D100;

    fy:=3D100;

    Randomize; { инициализаm= 4;ия генератора = 89;лучайных чисел}

end;=

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer)= ;

begin

     inc(n); { кол-в= 086; щелчков}

=

if (x > fx) and (x < fx+30) and= (y > fy) and (y < fy+30)

then begin

       { щелчок по рожице}

       inc(p);

       end;=

if n =3D 10 then

    begin

        { игра закоl= 5;чена}

        Timer.Enabled :=3D False; { остановl= 0;ть таймk= 7;р}

        ShowMessage('Щелчков: 10. По&= #1087;аданий: ' + IntToStr(p)+'.');=

        EraseFace(fx,fy);

        Label1.Visible :=3D True;

        Button1.Visible :=3D True;

        { теперь кнопка и сообщение снова видны}

    end= ;

end;=

procedure TForm1.Button1Click(Sender: TObject);

begin

    Label1.Visible :=3D False; { ск= ;рыть сообm= 7;ение}

    Button1.Visible :=3D F= alse; { скрыть кнопl= 2;у}

    Timer.Enabled :=3D Tru= e;    { пу= ;ск таймk= 7;ра}

end;

end.