Создание движущихся объектов презентация

USES Graph; VAR x, Device, Mode : Integer; BEGIN Device:=0; InitGraph(Device, Mode, ’’); ReadLn; x:=40; repeat SetColor(White); Circle(x,100,10); {Рисуем белую окружность} SetColor(Black); Circle(x,100,10); {Рисуем черную окружность} x:=x+1 {Перемещаемся немного направо} until x>600;

Слайд 1Создание движущихся объектов


Слайд 2USES Graph;
VAR x, Device, Mode : Integer;
BEGIN Device:=0;
InitGraph(Device, Mode, ’

графическим драйверам>’);
ReadLn;
x:=40;
repeat SetColor(White);
Circle(x,100,10); {Рисуем белую окружность}
SetColor(Black);
Circle(x,100,10); {Рисуем черную окружность}
x:=x+1 {Перемещаемся немного направо}
until x>600; CloseGraph
END.


Слайд 3Корректировка
Изображение движущейся окружности может получиться некачественным - окружность в процессе движения

может мерцать и пульсировать. Это связано с разверткой электронно-лучевой трубки вашего монитора. Попробуйте изменить радиус окружности или шаг движения по горизонтали или введите между рисованием и стиранием окружности небольшую паузу процедурой Delay - ситуация почти наверняка улучшится.


Слайд 4Процедура Clear
uses GraphABC;
begin
Window.Title := 'Демонстрация простой анимации';
var y :=

200;
Brush.Color := clGreen;
for var x := 70 to 500 do
begin
Window.Clear(clWhite);
Circle(x,y,50);
Sleep(3);
end;
end.

Слайд 5Задание
Измените скорость движения.
Пусть одновременно движутся две окружности.
Одна вниз, другая направо.
Заставьте окружность

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


Слайд 6Redraw
uses GraphABC;
begin
Window.Title := 'Анимация без мерцания';
var y := 200;

Brush.Color := clGreen;
// Отключаем рисование в окне
LockDrawing;
for var x := 70 to 500 do
begin
Window.Clear(clWhite);
Circle(x,y,50);
// Перерисовываем окно из внеэранного буфера
Redraw;
Sleep(3);
end; end.

Слайд 7
uses GraphABC; begin LockDrawing; for var i:=1 to 500 do begin

Window.Clear; Brush.Color := clGreen; Ellipse(i,100,i+100,200); Redraw; Sleep(1); end; end.

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

Если не удалось найти и скачать презентацию, Вы можете заказать его на нашем сайте. Мы постараемся найти нужный Вам материал и отправим по электронной почте. Не стесняйтесь обращаться к нам, если у вас возникли вопросы или пожелания:

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

Что такое ThePresentation.ru?

Это сайт презентаций, докладов, проектов, шаблонов в формате PowerPoint. Мы помогаем школьникам, студентам, учителям, преподавателям хранить и обмениваться учебными материалами с другими пользователями.


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

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