бег лошадей по прямой

@alecsGirl · Регистрация: 24.10.2013

Студворк — интернет-сервис помощи студентам

скажите как сделать чтоб 4 лошади( Image) бежали по прямой и первая которая добежит до финиша выигрывала. Как сделать полосу финиша?? и как сделать чтоб программа считала какая первая из лошадей прибежала
???

Добавлено через 1 час 36 минут
Загрузила лошадок) добавила движение лошадей) незнаю как сделать чтоб картинки начинали двигаться только по нажатию по кнопке. Незнаю как нарисовать линию которую лошади должны пересекать при финише и не знаю как вывести какая лошадь выиграла(((

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
procedure TForm1.Button1Click(Sender: TObject);
begin
 timer1.Enabled:=true; // по кнопке запускаем таймер
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var x,y:integer;
begin
randomize;             // движение картинок в разном порядке но в одну сторону
image1.Left:=image1.Left+random(25);
image2.Left:=image2.Left+random(25);
image3.Left:=image3.Left+random(25);

@FIL · 18.12.2013, 18:58

Сообщение от alecsGirl

а можете обьяснить момент как сделать чтоб определить какая лошадь пересекла линию?

Проверяй значение св-ва Left у каждой каринки. У кого оно первым перевалит за определенное значение - та и выиграла.

@alecsGirl · 23.12.2013, 22:24 **[ТС]**

Сообщение от FIL

Проверяй значение св-ва Left у каждой каринки. У кого оно первым перевалит за определенное значение - та и выиграла.

можете например написать??? я всё сделала)) установила Shape, нужно когда одна из трех картинок пересекла его то и выдалось сооющение что это она)

@MaximFegorsk · 23.12.2013, 22:47

if image1.Left > Form1.Width - первая лошадь победила
if image2.Left > Form1.Width - вторая лошадь победила
if image3.Left > Form1.Width - третья лошадь победила

Новые блоги и статьи Все статьи Все блоги /
Асинхронный приём данных из COM-порта Argus19 01.05.2026 Асинхронный приём данных из COM-порта Купил на aliexpress термопринтер QR701. Он оказался странным. Поключил к Arduino Nano. Был очень удивлён. Наотрез отказывается печатать русские буквы. Чтобы. . .	попытка написать игровой сервер на C++ pyirrlicht 29.04.2026 попытка написать игровой сервер на плюсах с открытым бесконечным миром. возможно получится прикрутить интерпретатор питон для кастомизации игровой логики. что есть на текущий момент:. . .	Контроль уникальности выбранного документа-основания при изменении реквизита Maks 28.04.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРемонтСпецтехники", разработанного в КА2. Задача: уведомлять пользователя, если указанная заявка (документ-основание). . .	Благородство как наказание Maks 24.04.2026 У хорошего человека отношения с женщинами всегда складываются трудно. А я человек хороший. Заявляю без тени смущения, потому что гордиться тут нечем. От хорошего человека ждут соответствующего. . .
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .

@MaximFegorsk 32 / 53 / 9 Регистрация: 05.12.2013 Сообщений: 261
	23.12.2013, 22:47
	if image1.Left > Form1.Width - первая лошадь победила if image2.Left > Form1.Width - вторая лошадь победила if image3.Left > Form1.Width - третья лошадь победила 0