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

Visual Basic

¬ойти
–егистраци€
¬осстановить пароль
 
 
Viktor Grishko
0 / 0 / 0
–егистраци€: 20.12.2016
—ообщений: 26
#1

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

28.12.2016, 20:25. ѕросмотров 510. ќтветов 27
ћетки нет (¬се метки)

Ќужно написать программу, чтобы шар двигалс€ по такой траектории. Ќе могу пон€ть, что и как делать. ћогу заставить шар двигатьс€ шар с кра€ в край, только, что надо не получаетс€. ѕомогите, пожалуйста!

Ўар по траектории!
Similar
Ёксперт
41792 / 34177 / 6122
–егистраци€: 12.04.2006
—ообщений: 57,940
28.12.2016, 20:25
«дравствуйте! я подобрал дл€ вас темы с ответами на вопрос Ўар по траектории! (Visual Basic):

«аставить шар двигатьс€ по траектории - Visual Basic
—тоит задача: нужно заставить шар двигатьс€ по траектории. Ќачало в центре верхней линии PictureBox, он должен, как бы, пройти по...

—может ли шар радиуса R пройти - Visual Basic
—может ли шар радиуса R пройти в ромбообразное отверстие со стороной P и острым углом Q?

ƒвижение объекта по круговой траектории - Visual Basic
«адача: сделать так, чтобы предмет двигалс€ по круговой траектории, но можно было регулировать скорость объекта.  ак сделать этот...

 огда биль€рдный шар попал в лузу, нужно чтобы таймер останавливалс€ - Visual Basic
 огда биль€рдный шар попал в лузу, нужно чтобы таймер останавливалс€..  ак это сделать? ¬от проект:

—оздание анимации "Ћетающий шар" на Visual Basic - Visual Basic
Ќарод, помогите, не могу пон€ть, каким образом это осуществить. Ќа €зыке программировани€ V.B. написать прог-у "летающий м€чик", котора€...

Ќужно при нажатии на кнопку "—тарт" маленький шар начинает движение вокруг большого по линии - Visual Basic
ƒоброго времени суток. «натоки Basic'a, помогите написать код. «адача по информатике следующа€: Ќужно при нажатии на кнопку "—тарт",...

Ќадоела реклама? «арегистрируйтесь и она исчезнет полностью.
SoftIce
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 1
28.12.2016, 22:05 #16
ј какую скорость вы хотите изменить? ¬ моем коде за скорость отвечают dx и dy
Viktor Grishko
0 / 0 / 0
–егистраци€: 20.12.2016
—ообщений: 26
28.12.2016, 22:14  [“—] #17
 огда € добавил ваш код к моему, давно написанному. ” мен€ не запускались мои, то есть, шар отказывалс€ ходить от кра€ к краю и квадрат тоже. ѕисало, что "к" не задана. я задал ее. «апустил еще разок. ѕишет, что теперь команда, котора€ отвечает за скорость шара в моих кусках кода переполнена. я не могу пон€ть, как это она переполнена и в чем проблема.

¬аш код работает.

ƒобавлено через 2 минуты
» после того как € "к" задал как Dim k as double или Integer или Single, все перепробовал, как вы видите, ничего не мен€етс€. ѕишет, что переполнена или по английски overfull
SoftIce
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 1
28.12.2016, 22:17 #18
÷итата —ообщение от Viktor Grishko ѕосмотреть сообщение
к моему, давно написанному
„то у вас сейчас? ћожно посмотреть?
Viktor Grishko
0 / 0 / 0
–егистраци€: 20.12.2016
—ообщений: 26
28.12.2016, 22:21  [“—] #19
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
49
50
51
52
53
Option Explicit
Dim dx As Single, dy As Single, x As Single, y As Single
 
Private Sub Form_Load()
P1.ScaleMode = 3
    P1.FillColor = vbBlue
    P1.Scale (-10, 10)-(10, -10)
    x = 0
    y = 9
    dx = -0.01
    dy = -0.01
    P1.FillStyle = 0
    P1.AutoRedraw = True
End Sub
 
Private Sub √К√Ґa√§√∞√*√≤_Click()
P1.Cls
P1.Scale (-10, 10)-(10, -10)
P1.FillStyle = 0
For y = 10 To -9 Step -0.5
P1.Line (-y, y)-(-y + 3, y - 3), vbBlue, BF
For k = -10000 To 100000 Step 0.1
Next k
P1.Cls
Next y
P1.Line (9, -9)-(10, -10), vbBlue, BF
End Sub
 
Private Sub √Шa√∞_Click()
P1.Cls
P1.Scale (-10, 10)-(10, -10)
P1.FillStyle = 0
For y = 10 To -9 Step -0.5
P1.FillColor = vbBlue
P1.Circle (y, y), 1, vbBlue
For k = -10000 To 100000 Step 0.1
Next k
P1.Cls
Next y
P1.Circle (-9, -9), 1, vbBlue
End Sub
 
Private Sub √Ш√±√Т_Click()
    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
End Sub
ƒобавлено через 44 секунды
–азные закарючки это vb так по русски пишет

ƒобавлено через 42 секунды
первый это квадрат
второй это шар
третье это шар с траекторией
SoftIce
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 1
28.12.2016, 22:26 #20
÷итата —ообщение от Viktor Grishko ѕосмотреть сообщение
–азные закарючки это vb так по русски пишет

первый это квадрат
второй это шар
третье это шар с траекторией
„тобы закорючек не было включайте русский €зык клавиатуры во врем€ копировани€.

ј какое вообще задание? Ќе охота ваш код исправл€ть, проще заново написать.
Viktor Grishko
0 / 0 / 0
–егистраци€: 20.12.2016
—ообщений: 26
28.12.2016, 22:40  [“—] #21
—оздайте движущийс€ шар, траектори€ с кра€ в край и остановкой в конце. “ак же с квадратом.(движение с право на лево)

—оздайте движущийс€ шар, траектори€ движени€ которого приведена на рисунке ниже. “очка начала движени€ Ц центр верхней границы PictureBox. “ам же шар должен остановитьс€ по завершении движени€.

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

ƒобавлено через 1 минуту
Ўар с верхнего правого угла в нижний левый
квадрат с верхнего левого в правый нижний. ѕростите, что сразу не уточнил
SoftIce
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 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
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 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
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 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
’орошо, пон€л.
≈ще раз спасибо) — наступающим вас)
SoftIce
9982 / 3514 / 902
–егистраци€: 27.07.2011
—ообщений: 8,376
«авершенные тесты: 1
28.12.2016, 23:20 #28
÷итата —ообщение от Viktor Grishko ѕосмотреть сообщение
— наступающим вас)
—пасибо! » ¬ас тоже! » успехов в учЄбе
MoreAnswers
Ёксперт
37091 / 29110 / 5898
–егистраци€: 17.06.2006
—ообщений: 43,301
28.12.2016, 23:20
ѕривет! ¬от еще темы с ответами:

 акова веро€тность вынуть из урны: белый шар; черный шар; синий шар - “еори€ веро€тностей
¬ урне 3 белых и 5 черных шара.  акова веро€тность вынуть из урны: а) белый шар б) черный шар в) синий шар

¬ыбранный шар оказалс€ белым.  акова веро€тность того, что этот шар вынут из первой урны? - “еори€ веро€тностей
»меютс€ 2 одинаковые урны. ¬ первой урне 7 белых и 3 черных шара, а во второй - 6 белых и 4 черных. Ќаудачу выбираетс€ урна и из нее наугад...

–азработать программу ручного ввода с клавиатуры произвольной траектории с изображением вводимой траектории на экране - C++
–азработать программу ручного ввода с клавиатуры произвольной траектории с изображением вводимой траектории на экране. “очки траектории...

шар поверхность которого не покрыли лаком через некоторое врем€ растрескалс€ а шар покрытый лаком осталс€ целый, почему? - ‘изика
ќдин вопрос - одна тема! «дравствуйте помогите решить задачи по ћ “ текс задач: 4 »з сырова дерева выточены два шара поверхность...


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

»ли воспользуйтесь поиском по форуму:
Yandex
ќбъ€влени€
28.12.2016, 23:20
ќтвет —оздать тему
ќпции темы

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