Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/22: Рейтинг темы: голосов - 22, средняя оценка - 5.00
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29

Шарики отскакивают от стенок

27.04.2010, 12:36. Показов 4592. Ответов 12
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Сделал, чтобы 1 шарик отскакивал от стенок. А можете сделать, чтобы так себя вели 2 шарика и отталкивались друг от друга?
Вложения
Тип файла: rar ГРАФИКА.rar (2.9 Кб, 244 просмотров)
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
27.04.2010, 12:36
Ответы с готовыми решениями:

Шарики отскакивают от стенок
подскажите: как сделать что бы шары отталкивались от стенок?

Не отскакивают шарики
Помогите пожалуйста, я не могу сделать так, чтобы шарики тоскакивали от стенок абсолютно упруго(т.е. углы отклонения от перпендикуляра к...

Шарики отбиваются от стенок и друг от друга ...
реализовал шарик который отбивается от стенок. вот то что у меня получилось: #include <vcl.h> #pragma hdrstop #include...

12
здесь больше нет...
3376 / 1674 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
27.04.2010, 12:59
вот шарик и полка, второй шарик превратишь из полки
Анимация
1
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
27.04.2010, 15:45  [ТС]
Да блин, случайно туда запостил =(
Слабо представляю, как использовать ваш код. Есть мысль, что нужно добавить второй Circle и второй Timer, и проверять координаты X Y - первый круг , X1 Y1 - второй. Если они совпадают (+-100 ) то менять направление. Но это не к спеху. Позже подумаю.
0
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
04.05.2010, 20:37  [ТС]
Кто может подсказать как сделать для начала так, чтобы эти 2 шарика просто проходили через друг друга, а не так как получается? =(
УПД: чуточку поменял координаты на X2 = 1500 Y2 = 3000, стало выглядеть более нормально движение, но почему так мелькают? Хотя если убрать второй таймер, то отображается нормально?
Вложения
Тип файла: rar ГРАФИКА.rar (1.4 Кб, 56 просмотров)
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
04.05.2010, 20:47
в одном таймере крути
1
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
04.05.2010, 20:49  [ТС]
Цитата Сообщение от gaw Посмотреть сообщение
в одном таймере крути
а как бы замутить, чтобы они еще и отталкивались?)
p.s.я спать)
0
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
05.05.2010, 19:39  [ТС]
Чуточку изменил код, но не пойму почему они не отталкиваются. Скорее всего я не понимаю как задать условие их пересечения.
Вложения
Тип файла: rar ГРАФИКА.rar (1.4 Кб, 41 просмотров)
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
05.05.2010, 20:13
но это не совсем правильно , нужно учитывать взаимное расположение (углы) в момент удара
Вложения
Тип файла: rar Новая папка.rar (1.4 Кб, 115 просмотров)
1
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
05.05.2010, 20:50  [ТС]
Благодарю, я чуток ошибся. Да про углы это уже не суть важно, хотя и очень интересно)
Не пойму одно, почему значение 200 и 2*H дает разный результат?)
0
6644 / 1511 / 169
Регистрация: 09.01.2010
Сообщений: 4,298
05.05.2010, 21:11
"200 и 2*H " если ты имел ввиду 200 и 2*R, то в твоем коде R=0 (его над Dim R, R=...)
0
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
06.05.2010, 09:24  [ТС]
Это да, я малец напутал, я просто в теории на бумажке написал себе 2R и так и осталвил)) Странно, что если поменять 200 на 2*H(h=100), то и чушь получается)
0
здесь больше нет...
3376 / 1674 / 184
Регистрация: 03.02.2010
Сообщений: 1,219
13.05.2010, 17:04
Лучший ответ Сообщение было отмечено как решение

Решение

но это не совсем правильно , нужно учитывать взаимное расположение (углы) в момент удара
вот смотри - модель абсолютно упругого удара
если аккуратно уменьшать форму, шары сцепляются О_о
можно трение ввести, потерю энергии при ударе и, главное, массу, но это уже посложнее будет...
Вложения
Тип файла: rar Шары.rar (1.6 Кб, 111 просмотров)
2
2 / 2 / 0
Регистрация: 28.03.2010
Сообщений: 29
13.05.2010, 20:21  [ТС]
Признаю, ваше кунг-фу круче
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
13.05.2010, 20:21
Помогаю со студенческими работами здесь

Шарики двигаются внутри pictereBox-a и отталкиваются от стенок
Балуясь, написал программульку. Шарики двигаются внутри pictereBox-a и отталкиваются от стенок. Вот как это выглядит Вот выкладываю...

Шарики двигаются внутри pictereBox-a и отталкиваются от стенок.
Балуясь, написал программульку. Шарики двигаются внутри pictereBox-a и отталкиваются от стенок. Вот как это выглядит Хочется...

Завод производит шарики для подшипников. Бракуются шарики, диаметр которых отличается от стандарта на 0,1 мм. Найти дисп
Завод производит шарики для подшипников. Бракуются шарики, диаметр которых отличается от стандарта на 0,1 мм. Найти дисперсию нормального...

Отскакивание мячика от стенок
Нажимаю выполнить и не выполняется Uses Graphabc,Events,crt; var f:boolean; h,x1,y1,x2,y2,x3,y3,x4,y4:integer; ...

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


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

Или воспользуйтесь поиском по форуму:
13
Ответ Создать тему
Новые блоги и статьи
Программная установка даты и запрет ее изменения
Maks 02.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .
Вывод данных в справочнике через динамический список
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru