Каранаев Линар Минтимерович Стерлибашево 2017 содержание глава реферативное изложение



бет55/64
Дата02.01.2022
өлшемі1.78 Mb.
#452913
түріИзложение
1   ...   51   52   53   54   55   56   57   58   ...   64
обб русский

Выполнение проекта и его отладка


Учитель раздает инструкцию выполнения проекта. Наблюдает за выполнением, оказывает помощь.

Учащиеся выполняют проект. Обращаются к учителю при возникновении вопроса.






Защита проекта


Вопросы:

- Продемонстрируйте работу проекта.

- Каково назначение вашего проекта?

- Назовите элементы формы.










Рефлексия


Учитель выслушивает мнения учащихся о том, насколько удалось решить задачу урока. Оценивание работы учащихся.








Домашнее задание


Изменить программу так, чтобы ввод координат осуществлялась путем нажатия и отпускания кнопки мыши на графическом поле; обеспечить возможность сохранения и открытия графических файлов.

Записывают домашнее задние.




Приложение

Проект «Графический редактор»

Постановка задачи.Создать проект «Графический редактор», который позволяет нарисовать в графическом поле все графические примитивы (точку, линию, прямоугольник, закрашенный прямоугольник, окружность).
Схема выполнения

  1. Поместить на форму четыре текстовых поля для ввода координат: EditX1, EditY1, EditX2 и EditY2.

  2. Поместить на форму графическое поле Image1, в котором будет проводиться рисование графических примитивов.

  3. Поместить на форму четыре метки для обозначения текстовых полей.

  4. Объявить переменные:

Var

X1:integer;

Y1:integer;

X2:integer;

Y2:integer;


  1. Поместить на форму четыре кнопки и создать событийные процедуры рисования примитивов так, чтобы параметры считывались из текстовых окон. 

Событийная процедура рисования точки черным цветом запишется следующим образом:  

procedure TForm1.Button1Click(Sender: TObject);

begin

X1 := StrToInt(EditX1.Text);



Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pixels[Round(X1),Round(Y1)]:= clBlack;

end;

Событийная процедура рисования линии красным цветом запишется следующим образом:



procedure TForm1.Button2Click(Sender: TObject);

begin


X1 := StrToInt(EditX1.Text);

Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clRed;

Image1.Canvas.MoveTo (Round(X1),Round(Y1));

Image1.Canvas.LineTo (Round(X2),Round(Y2));

end;


Событийная процедура рисования прямоугольника синим цветом запишется следующим образом:  

procedure TForm1.Button3Click(Sender: TObject);

begin

X1 := StrToInt(EditX1.Text);



Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clBlue;

Image1.Canvas.Rectangle(Round(X1),Round(Y1),

Round(X2),Round(Y2));

end;

Событийная процедура рисования окружности зеленым цветом запишется следующим образом:



procedure TForm1.Button4Click(Sender: TObject);

begin


X1 := StrToInt(EditX1.Text);

Y1 := StrToInt(EditY1.Text);

X2 := StrToInt(EditX2.Text);

Y2 := StrToInt(EditY2.Text);

Image1.Canvas.Pen.Color := clGreen;

Image1.Canvas.Ellipse(Round(X1),Round(Y1),

Round(X2),Round(Y2));

end;


  1. Запустить проект. 

Ввести в поля числовые значения и щелкнуть по кнопкам, в графическом поле будут нарисованы графические примитивы.




Достарыңызбен бөлісу:
1   ...   51   52   53   54   55   56   57   58   ...   64




©dereksiz.org 2024
әкімшілігінің қараңыз

    Басты бет