Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.61/18: Рейтинг темы: голосов - 18, средняя оценка - 4.61
15 / 15 / 3
Регистрация: 13.08.2014
Сообщений: 113

Анимация: шарик отскакивает от стенки

06.04.2015, 10:24. Показов 3774. Ответов 4
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Привет всем!!
Спасибо, что уделили время на прочтение этой темы!

Прошу вам помочь с анимацией такого типа.

Название: image.png
Просмотров: 119

Размер: 1,022 байт

Спасибо!!
0
Лучшие ответы (1)
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.04.2015, 10:24
Ответы с готовыми решениями:

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

Шарик отскакивает от краев формы
Шарик движется из левого верхнего угла формы. Достигнув одной из сторон формы, он отскакивает от нее «по закону отражения» и продолжает...

Игра на winapi в консоли: шарик иногда отскакивает нелогично, графика мерцает
Всем привет. Я пишу игру, где надо, отбивая шарик доской, сбивать блоки. Сделал визуализацию через winapi, а обработку нажатия клавиш и...

4
15 / 15 / 3
Регистрация: 13.08.2014
Сообщений: 113
06.04.2015, 17:52  [ТС]
Ап!
0
Модератор
10057 / 3902 / 884
Регистрация: 22.02.2013
Сообщений: 5,853
Записей в блоге: 79
06.04.2015, 20:04
Посмотри, возможно это https://www.cyberforum.ru/post4633781.html
0
es geht mir gut
 Аватар для SoftIce
11274 / 4760 / 1183
Регистрация: 27.07.2011
Сообщений: 11,439
06.04.2015, 20:10
Лучший ответ Сообщение было отмечено ARMEN97 как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Private Sub Command1_Click()
    Dim x As Single, y As Single, dx As Single, dy As Single
    Picture1.Scale (0, 200)-(100, 0)
    x = 0: y = 0: dx = 0.2: dy = 0.1
    Picture1.AutoRedraw = True
    Picture1.FillStyle = 0: Picture1.FillColor = vbRed
    Do
        Picture1.Cls
        Picture1.Circle (x, y), 2, vbRed
        DoEvents
        x = x + dx
        y = y + dy
        If (x > 100 Or x < 0) Then dx = -dx
        If (y > 200 Or y < 0) Then dy = -dy
    Loop
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
Миниатюры
Анимация: шарик отскакивает от стенки  
Вложения
Тип файла: rar Анимация.rar (4.0 Кб, 40 просмотров)
1
15 / 15 / 3
Регистрация: 13.08.2014
Сообщений: 113
07.04.2015, 16:42  [ТС]
Спасибо вам огромное!!
dy изменил на 0.2 и всё стало как мне нужно!

Спасибо!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
07.04.2015, 16:42
Помогаю со студенческими работами здесь

Сколько раз шарик ударится о стенки?
Траншея глубиной h и шириной L на краю которой лежит маленький мячик.Его толкают горизонтально и он падает вниз ударяясь о стенки.Сколько...

Шарик, летающий по экрану и ударяющийся об его стенки
Тут такая тема: срочно нужна помощь в создании задания на С++. С помощью графического редактора С++ необходимо создать программу в которой...

Сколько раз шарик ударится о стенки, пока не достигнет пола
Две абсолютно гладкие стальные плиты высотой 1,00 м помещены рядом и образуют щель шириной 4 см. В щель попадает горизонтально движущийся...

анимация шарик
здравствуйте ! Создал анимацию-подобно в бильярде,шарик ударяется о борт и отражается по тому же углу (то есть угол падения и отражения...

Нарисовать трапецию, которая будет двигаться от стенки до стенки, длины сторон трапеции задаются пользователем
Нарисовать трапецию, которая будет двигаться от стенки до стенки, длины сторон трапеции задаются пользователем.


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Новые блоги и статьи
Подстановка значения реквизита справочника в табличную часть документа
Maks 10.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .
Очистка реквизитов документа при копировании
Maks 09.04.2026
Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий
anaschu 08.04.2026
https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя
Maks 08.04.2026
Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка.
Hrethgir 08.04.2026
Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов.
anaschu 08.04.2026
работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики.
Hrethgir 07.04.2026
Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .
Горе от ума
kumehtar 07.04.2026
Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru