Форум программистов, компьютерный форум CyberForum.ru

Visual Basic

Войти
Регистрация
Восстановить пароль
 
 
Viktor Grishko
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 26
#1

Шар по траектории! - Visual Basic

28.12.2016, 20:25. Просмотров 465. Ответов 27
Метки нет (Все метки)

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

Шар по траектории!
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.12.2016, 20:25     Шар по траектории!
Посмотрите здесь:

Visual Basic Движение объекта по круговой траектории
шар поверхность которого не покрыли лаком через некоторое время растрескался а шар покрытый лаком остался целый, почему?
Выбранный шар оказался белым. Какова вероятность того, что этот шар вынут из первой урны?
Во сколько раз радиус кривизны траектории протона больше радиуса кривизны траектории электрона
Какова вероятность вынуть из урны: белый шар; черный шар; синий шар
C++ Разработать программу ручного ввода с клавиатуры произвольной траектории с изображением вводимой траектории на экране
Visual Basic Нужно при нажатии на кнопку "Старт" маленький шар начинает движение вокруг большого по линии
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Viktor Grishko
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 26
28.12.2016, 22:40  [ТС]     Шар по траектории! #21
Создайте движущийся шар, траектория с края в край и остановкой в конце. Так же с квадратом.(движение с право на лево)

Создайте движущийся шар, траектория движения которого приведена на рисунке ниже. Точка начала движения – центр верхней границы PictureBox. Там же шар должен остановиться по завершении движения.

Добавлено через 9 минут
Квадрат слева на право*

Добавлено через 1 минуту
Шар с верхнего правого угла в нижний левый
квадрат с верхнего левого в правый нижний. Простите, что сразу не уточнил
SoftIce
9812 / 3344 / 846
Регистрация: 27.07.2011
Сообщений: 7,989
Завершенные тесты: 1
28.12.2016, 22:53     Шар по траектории! #22
Весь код
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
Option Explicit
Dim dx As Single, dy As Single, x As Single, y As Single, f As Boolean, i As Single
Private Sub Command1_Click()
    f = True
    x = 0
    y = 9
    Do
         P1.Cls
         P1.Circle (x, y), 1, vbBlue
         DoEvents
         y = y + dy
         x = x + dx
         If x < -9 Or x > 9 Then dx = -dx
         If y < -9 Or y > 9 Then dy = -dy
    Loop While f
End Sub
 
Private Sub Command2_Click()
    f = False
    For x = -8 To 8 Step 0.003
        P1.Cls
        P1.Line (x, -x)-(x + 1, -(x + 1)), vbBlue, BF
        DoEvents
    Next x
End Sub
 
Private Sub Command3_Click()
    f = False
    For x = -8 To 8 Step 0.003
        P1.Cls
        P1.Circle (-x, -x), 1, vbBlue
        DoEvents
    Next x
End Sub
 
Private Sub Form_Load()
    P1.ScaleMode = 3
    P1.FillColor = vbBlue
    P1.Scale (-10, 10)-(10, -10)
    dx = -0.01
    dy = -0.01
    P1.FillStyle = 0
    P1.AutoRedraw = True
End Sub
 
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    End
End Sub
Viktor Grishko
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 26
28.12.2016, 23:01  [ТС]     Шар по траектории! #23
Спасибо большое!))
Можно я к вам буду обращаться, когда мне, что-то будет не понятно? Надоедать не буду.

Добавлено через 57 секунд
И что за F и I ? за что они отвечают?
SoftIce
9812 / 3344 / 846
Регистрация: 27.07.2011
Сообщений: 7,989
Завершенные тесты: 1
28.12.2016, 23:05     Шар по траектории! #24
Цитата Сообщение от Viktor Grishko Посмотреть сообщение
И что за F и I
i не нужно, забыл убрать. А f - флаг движения шарика. Шарик будет двигаться, пока f=true
Viktor Grishko
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 26
28.12.2016, 23:08  [ТС]     Шар по траектории! #25
Цитата Сообщение от SoftIce Посмотреть сообщение
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Крайний вопрос, это что?
SoftIce
9812 / 3344 / 846
Регистрация: 27.07.2011
Сообщений: 7,989
Завершенные тесты: 1
28.12.2016, 23:16     Шар по траектории! #26
Цитата Сообщение от Viktor Grishko Посмотреть сообщение
это что?
Если убрать эту процедуру, то если закрыть форму крестиком во время движения шарика, то форма закроется, но рантайм останется, придётся дополнительно нажимать квадратик в IDE для остановки.
Viktor Grishko
0 / 0 / 0
Регистрация: 20.12.2016
Сообщений: 26
28.12.2016, 23:17  [ТС]     Шар по траектории! #27
Хорошо, понял.
Еще раз спасибо) С наступающим вас)
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
28.12.2016, 23:20     Шар по траектории!
Еще ссылки по теме:

Сможет ли шар радиуса R пройти Visual Basic
Visual Basic Создание анимации "Летающий шар" на Visual Basic
Когда бильярдный шар попал в лузу, нужно чтобы таймер останавливался Visual Basic
Во сколько раз радиус R1 кривизны траектории протона больше радиуса R2 кривизны траектории α-частицы?
Заставить шар двигаться по траектории Visual Basic

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

Или воспользуйтесь поиском по форуму:
SoftIce
9812 / 3344 / 846
Регистрация: 27.07.2011
Сообщений: 7,989
Завершенные тесты: 1
28.12.2016, 23:20     Шар по траектории! #28
Цитата Сообщение от Viktor Grishko Посмотреть сообщение
С наступающим вас)
Спасибо! И Вас тоже! И успехов в учёбе
Yandex
Объявления
28.12.2016, 23:20     Шар по траектории!
Ответ Создать тему
Опции темы

Текущее время: 13:07. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru