Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Найти количество делителей натурального числа. Сколько из них четных https://www.cyberforum.ru/ visual-basic/ thread400320.html
Помогите с 2-мя заданиями пожалуйста. 1)Табулирование функции 2) Найти количество делителей натурального числа. Сколько из них четных?
VB Вычисление суммы ряда
Помогите с лабораторной пожалуйста По заданной формуле члена последовательности с номером k составить две программы: -программу вычисления суммы первых n членов последовательности (k=1,2,3..,n);...
Нахождение максимального элемента кучи, добавление элемента, удаление элемента из кучи VB
Дано бинарное дерево-куча. Нужно найти максимальный элемент (корень дерева), добавить новый элемент, удалить максимальный элемент. Добавлено через 21 час 32 минуты не могли бы мне помочь...
VB Как на форме создать подобие вкладок Подскажите пожалуйста как на форме создать подобие вкладок? https://www.cyberforum.ru/ visual-basic/ thread400114.html
VB Проверить, если ли в наборе цифр - десятичные https://www.cyberforum.ru/ visual-basic/ thread399966.html
На вход программе подается набор символов, заканчивающийся точкой Напишитеэффективную, в том числе и по используемой памяти, которая сначала будет определять, есть ли в этом наборе...
VB Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот
1. Ввести строку, удалить из неё все цифры, а знаки “+” заменить на” –“ и наоборот. 1. Ввести произвольное число, посчитать сумму его цифр. 2. Ввести строку, напечатать строку наоборот. 3. Ввести...
VB Двумерный массив: В виде общей процедуры оформить вычисление суммы и расчет количества суммируемых элементов
Прошу помочь с задачей D = где xi – элементы одномерного массива X = (x1, x2,…x5); n = 7; a = 2; b = 3,5. В виде общей процедуры оформить вычисление суммы и расчет количества суммируемых...
VB Разработать форму, создающую и удаляющую панель инструментов в MS excel Разработать форму, создающую и удаляющую панель инструментов. Панель инструментов должна содержать объект типа msoControlEdit, из содержимого которого по завершении ввода должны удаляться все гласные... https://www.cyberforum.ru/ visual-basic/ thread399765.html
VB Есть ли какие-нибудь правила расстановки отступов в программном коде для его удобочитаемости? https://www.cyberforum.ru/ visual-basic/ thread399689.html
Есть ли какие-нибудь правила расстановки отступов в программном коде для его удобочитаемости?
VB Создать приложение, вычисляющее значения переменных по заданным расчетным формулам Помогите пожалуйста решить задачи: 1)Создать приложение, вычисляющее значения переменных по заданным расчетным формулам и наборам исходных данных. На экран вывести значения вводимых исходных данных... https://www.cyberforum.ru/ visual-basic/ thread399586.html
0 / 0 / 0
Регистрация: 23.11.2011
Сообщений: 12
0

Размещение объектов в пределах формы и отражение двух объектов при соприкосновении

06.12.2011, 18:13. Просмотров 1143. Ответов 1
Метки (Все метки)


Помогите с задачей, чтобы круг летал по форме и соприкасаясь с квадратом отталкивался от него.
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
Shape2.Top = Shape2.Top - 50
End If
If KeyCode = 37 And Shape2.Left >= 0 Then
Shape2.Left = Shape2.Left - 50
End If
If KeyCode = 39 And Shape2.Left + Shape2.Width + 900 <= Form1.Width Then
Shape2.Left = Shape2.Left + 50
End If
If KeyCode = 40 And Shape2.Top + Shape2.Height + 550 <= Form1.Height Then
Shape2.Top = Shape2.Top + 50
End If
If Shape2.Width > Form1.Width - 1550 Or Shape2.Height > Form1.Height - 1400 Then
Else
If KeyCode = 187 Then
Shape2.Width = Shape2.Width + 50
Shape2.Height = Shape2.Height + 50
End If
End If
If KeyCode = 189 Then
If Shape2.Width < 500 And Shape2.Height < 500 Then
Else
Shape2.Width = Shape2.Width - 20
Shape2.Height = Shape2.Height - 20
End If
End If
If KeyCode = 32 Then 
If Timer1.Enabled = True Then 'óñëîâèå åñëè òàéìåð âêëþ÷åí
Timer1.Enabled = False ' âûêëþ÷åíèå òàéìåðà
Else
Timer1.Enabled = True 'âêëþ÷åíèå òàéìåðà
End If
End If
End Sub
Private Sub Form_Load()
xdelta = 20: ydelta = 20 'ðàññòîÿíèå ñìåùåíèÿ îáúåêòà
X = Shape1.Top: Y = Shape1.Left 'íà÷àëüíîå ïîëîæåíèå
End Sub
Private Sub Timer1_Timer()
X = X + xdelta: Y = Y + ydelta 'ñìåùåíèå êðóãà ïî êîîðäèíàòàì
If (X < 20 Or X > Form1.ScaleWidth - 360 Or X <= Shape2.Width + Shape2.Left) Then      'èçìåíåíèå íàïðàâëåíèÿ äâèæåíèÿ ïî ãîðèçîíòàëè
xdelta = -xdelta 'óñëîâèÿ èçìåíåíèÿ íàïðàâëåíèÿ ïî ãîðèçîíòàëè
Beep
End If
If (Y < 20 Or Y > Form1.ScaleHeight - 360 Or Y <= Shape2.Height + Shape2.Top) Then    'èçìåíåíèå íàïðàâëåíèÿ äâèæåíèÿ ïî âåðòèêàëè
ydelta = -ydelta 'óñëîâèÿ èçìåíåíèÿ íàïðàâëåíèÿ ïî ãîðèçîíòàëè
Beep
End If
Shape1.Move X, Y 'ñìåùåíèå êðóãà
End Sub


Вернуться к обсуждению:
Размещение объектов в пределах формы и отражение двух объектов при соприкосновении
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
06.12.2011, 18:13
Готовые ответы и решения:

Размещение объектов только в пределах формы
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = 38 Then If Shape1.Top...

Удалить один из объектов и увеличить другой при соприкосновении объектов.
Как сделать так чтобы (Когда Sprite1 дотронулся до Sprite2 тогда sprite2 destroy и Sprite1 + size)...

Анимация: при соприкосновении двух объектов они должны образовать единое целое
Здравствуйте! Разбираюсь в анимациях Lazarus. Сделал так, чтобы два шарика (TShape) летали по форме...

Уничтожение объектов при соприкосновении
Может кто поможет. Начал делать простую игру. Пули летят и при попадании в движущийся объект...

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