Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.56/9: Рейтинг темы: голосов - 9, средняя оценка - 4.56
1Николай1
0 / 0 / 0
Регистрация: 07.06.2011
Сообщений: 23
1

Какой код нужно ввести чтобы мяч менял направление при столкновении с границей или с прямоугольником?

04.10.2011, 20:15. Просмотров 1683. Ответов 2
Метки нет (Все метки)

Расположить на форме таймер, фигуру «круг» и фигуру «прямо-угольник». Разработать приложение, которое работает следующим образом:
• прямоугольник выполняет роль лапты, он перемещается влево и вправо при нажатии клавиш.
• круг - это мячик, который постоянно прямолинейно двигается, при столкновении с границами формы или лаптой меняет свое на-правление на противоположное.

ВОПРОС Какой код нужно ввести чтобы мяч менял направление при столкновении с границей или с прямоугольником?
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.10.2011, 20:15
Ответы с готовыми решениями:

Движение шарика, смена направление при столкновении с границей или другим объектом
Расположить на форме таймер, фигуру «круг» и фигуру «прямо-угольник». Разработать приложение,...

Код меняет только нужный столбец, а нужно, чтобы он менял определенную строку
Код меняет только нужный столбец, а нужно чтобы он менял определенную строку procedure...

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

Нужно чтобы при прокрутке списка элементов последний элемент не менял своего положения
как сделать так чтобы при прокрутке списка элементов последний элемент не менял своего положения ?...

Найти направление движущейся окружности при столкновении с устойчивой окружностью в двумерном пространстве
Как определить следующее направление движущейся окружности при столкновении с устойчивой...

2
MultiVan
59 / 59 / 4
Регистрация: 13.08.2011
Сообщений: 165
05.10.2011, 00:34 2
ну кто поможет?
Мне тоже интересно!
0
NIch
400 / 311 / 74
Регистрация: 17.03.2010
Сообщений: 1,120
05.10.2011, 00:50 3
Лучший ответ Сообщение было отмечено 1Николай1 как решение

Решение

Как то так...
Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
//Задаем глобальные переменные Direct и Y
// Нажание на кнопку старт
OnStartClick;
begin
  Timer.Enabled := true;
  Direct := true;// Вниз
  Y := 50;// Начальная координата где то посередине
end;
// Перемещение
function Move(Y1 : word; Dir : boolean): word;
begin
  if Dir = true then
    Move := Y1 + 1
  else
    Move := Y1 - 1;
end;
// Таймер
OnTimer;
begin
  if (Y = 100) or (Y = 0) then // если прямоугольник (Y=100) или потолок (Y=0)
    Direct := not Direct;// меняем направление
  Y := Move(Y, Direct);// вычисляем координату
end;
0
Вложения
Тип файла: rar Новая папка.rar (162.8 Кб, 96 просмотров)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.10.2011, 00:50

Нужно чтобы фон сайта рандомно менял цвет с интервалом в 2-3 секунды
Нужно чтобы фон сайта рандомно менял цвет с интервалом в 2-3 секунды и самое главное,что кол-во...

Какой код необходимо ввести для того, чтобы нельзя было два раза вводить запятую в textbox?
Какой код необходимо ввести для того, чтобы нельзя было два раза вводить запятую в textbox?

Какой проект нужно создать, чтобы приведенный код заработал?
Доброго времени суток. Есть одна проблема. Дан листинг программы, которая состоит из двух cpp...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru