Движение окружности в Delphi
презентация к уроку по информатике и икт (10 класс) по теме

Слайд 1

Движение окружности в Delphi 10 класс Сизых Наталья Викторовна у читель информатики МКУ СОШ №10 г. Нижнеудинск 1 квалификационная категория

Слайд 2

Программа для задачи На следующем слайде вы увидите всю программу для программирования движения окружности по горизонтали

Слайд 3

unit Unit1; Interface uses Windows, Messages, SysUtils , Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls ; type TForm1 = class( TForm ) Timer1: TTimer ; procedure FormCreate (Sender: TObject ); procedure Timer1Timer(Sender: TObject ); private { Private declarations } public { Public declarations } end; var Form1: TForm1; x,y : byte; // координаты центра окружности dx : byte; Implementation {$R *.dfm} procedure Ris ; begin with form1.Canvas do begin FORM1.Canvas.Pen.Color:=form1.color; FORM1.Canvas.Ellipse (x,y,x+50,y+50); x:= x+dx ; FORM1.Canvas.Pen.Color:= clBlack ; FORM1.Canvas.Ellipse(x,y,x+50,y+50); end; end; procedure TForm1.FormCreate(Sender: TObject ); begin y:=10; dx :=5; timer1.interval:=25; form1.Canvas.Brush.Color:=form1.color; end; procedure TForm1.Timer1Timer(Sender: TObject ); begin Ris ; end; end .

Слайд 4

А теперь разобьём данную программу на части и разберём каждую из частей

Слайд 5

Вид формы для решения данной задачи ТАЙМЕР

Слайд 6

Откройте двойным щелчком по форме её программный код. Найдите раздел описания переменных величин var . В этом разделе укажите переменные величины (смотри следующий слайд)

Слайд 7

Описание переменных величин var Form1: TForm1; x,y : integer; // координаты центра окружности dx : integer;

Слайд 8

Написание процедуры Ris Ниже под разделом описания переменных величин найдите фрагмент Implementation {$R *.dfm } П од ним прописываем процедуру Ris

Слайд 9

var Form1: TForm1; x,y : integer; // координаты центра окружности dx : integer; Implementation {$ R *.dfm} procedure Ris ;

Слайд 10

Процедура Ris procedure Ris ; begin with form1.Canvas do begin FORM1.Canvas.Pen.Color:=form1.color; FORM1.Canvas.Ellipse (x,y,x+50,y+50); x:= x+dx ; FORM1.Canvas.Pen.Color:= clBlack ; FORM1.Canvas.Ellipse(x,y,x+50,y+50); end; end;

Слайд 11

Программный код для формы procedure TForm1.FormCreate(Sender: TObject ); begin y:=10; dx :=5; timer1.interval:=25; form1.Canvas.Brush.Color:=form1.color; end;

Слайд 12

Программный код для таймера procedure TForm1.Timer1Timer(Sender: TObject); begin Ris; end;

Слайд 13

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