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

Объявление

Наш баннер

Сайт Обучонок содержит исследовательские работы и проекты учащихся, темы творческих проектов по предметам и правила их оформления, обучающие программы для детей.
Будем благодарны, если установите наш баннер!
Баннер сайта Обучонок
Код баннера:
<a href="https://obuchonok.ru/" target="_blank"> <img src="https://obuchonok.ru/banners/banob2.gif" width="88" height="31" alt="Обучонок. Исследовательские работы и проекты учащихся"></a>
Все баннеры...

Значение свойства Interval выставлено 100.
Используется счетчик увеличения на величину скорости.


Величина свойства Left изображения будет принимать увеличивающиеся значения пока меньше или равна вычисленному пути.

Результатом работы данного процесса есть визуальное отображение движения изображения.
Движение в одном направлении кораблей

Procedure TForm1.Timer1Timer(Sender: TObject);
begin
If i<=put1 then begin
i:=i+sk1; Image1.Left:=i;
end
else begin Timer1.Enabled:=False;i:=0;end;
end;

Объявление

Статистика