Что такое findslide.org?

FindSlide.org - это сайт презентаций, докладов, шаблонов в формате PowerPoint.


Для правообладателей

Обратная связь

Email: Нажмите что бы посмотреть 

Яндекс.Метрика

Презентация на тему Движение окружности на Delphi

Программа для задачи На следующем слайде вы увидите всю программу для программирования движения окружности по горизонтали
Движение окружности в Delphi10 классСизых Наталья Викторовнаучитель информатики МКУ СОШ №10 г. Нижнеудинск1 квалификационная категория Программа для задачи  На следующем слайде вы увидите всю программу для unit Unit1;Interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type А теперь разобьём данную программу на части и разберём каждую из частей Вид формы  для решения данной задачиТАЙМЕР Откройте двойным щелчком по форме её программный код. Найдите Описание переменных величинvar Form1: TForm1; x,y: integer; // координаты центра окружностиdx: integer; Написание процедуры Ris   Ниже под разделом описания переменных величин найдите var Form1: TForm1; x,y: integer; // координаты центра окружностиdx: integer;Implementation{$R *.dfm} procedure Ris; Процедура 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; Программный код для формыprocedure TForm1.FormCreate(Sender: TObject);beginy:=10;dx:=5;timer1.interval:=25;form1.Canvas.Brush.Color:=form1.color;end; Программный код для таймераprocedure TForm1.Timer1Timer(Sender: TObject);beginRis;end; Задания для  самостоятельной работыИзмените числовые значения величин в программе. Сделайте вывод.Измените
Слайды презентации

Слайд 2 Программа для задачи
На следующем слайде вы

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

увидите всю программу для программирования движения окружности по горизонтали


Слайд 3 unit Unit1;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,

unit Unit1;Interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

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; //

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

координаты центра окружности
dx: integer;


Слайд 8 Написание процедуры Ris
Ниже под разделом

Написание процедуры Ris  Ниже под разделом описания переменных величин найдите

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

прописываем процедуру Ris


Слайд 9 var
Form1: TForm1;
x,y: integer; // координаты центра

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

окружности
dx: integer;
Implementation
{$R *.dfm}
procedure Ris;


Слайд 10 Процедура Ris
procedure Ris;
begin
with form1.Canvas do

Процедура 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;

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;

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

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

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

  • Имя файла: dvizhenie-okruzhnosti-na-delphi.pptx
  • Количество просмотров: 126
  • Количество скачиваний: 1