Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.84/19: Рейтинг темы: голосов - 19, средняя оценка - 4.84
1 / 1 / 0
Регистрация: 22.02.2013
Сообщений: 39
1

Создать приложение, имитирующее полёт бабочки

17.03.2013, 14:27. Показов 3775. Ответов 4
Метки нет (Все метки)

циклы.

Создать приложение, имитирующее полёт бабочки. Для решения использовать заготовки в идее двух графических файлов, содержащее изображение бабочки. Полет бабочки начинается с нажатия кнопки "Лети" и заканчивается кнопкой "Стоп". Предусмотреть столкновение бабочки со стенками формы, в результате чего бабочка должна изменить направление своего полета на угол 45 градусов.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
17.03.2013, 14:27
Ответы с готовыми решениями:

Разработать приложение, имитирующее упрощенный аналог игры "Кто хочет стать миллионером"
Разработать приложение,имитирующее упрощенный аналог игры <Кто хочет стать миллионером!> ....

Создать приложение, имитирующее среду визуальной разработки приложений
Создать приложение, имитирующее среду визуальной разработки приложений. Форма приложения должна...

Приложение, имитирующее работу букмекерской конторы
Необходимо приложение, имитирующее работу букмекерской конторы. Помогите пожалуйста

Разработать приложение, имитирующее очередь печати принтера
Разработать приложение, имитирующее очередь печати принтера. Должны быть клиенты, посылающие...

4
es geht mir gut
11492 / 4724 / 1181
Регистрация: 27.07.2011
Сообщений: 11,433
18.03.2013, 05:33 2
Не совсем то, но может пригодиться.
Вложения
Тип файла: rar Новая папка.rar (53.3 Кб, 66 просмотров)
1
Модератор
6772 / 2789 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
18.03.2013, 08:32 3
Лучший ответ Сообщение было отмечено как решение

Решение

Я думаю, что всё гораздо проще с эти заданием
Весь код
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
Dim SpeedX As Integer
Dim SpeedY As Integer
 
Private Sub Command1_Click()
Timer1.Enabled = True ' Бабочка летит
End Sub
 
Private Sub Command2_Click()
Timer1.Enabled = False ' Бабочка остановлена
End Sub
 
Private Sub Form_Load()
SpeedX = 500 ' Скорость движения
SpeedY = 500 ' Скорость движения
Timer1.Interval = 300 ' + Скорость крыльев
Timer1.Enabled = False
Command1.Caption = "Лети"
Command2.Caption = "Стоп"
End Sub
 
Private Sub Timer1_Timer()
' Анимация из двух изображений ( одно расположено над другим)
If Picture1.Visible = True Then
Picture1.Visible = False
Picture2.Visible = True
Else
Picture2.Visible = True
Picture2.Visible = False
Picture1.Visible = True
End If
' Синхронное движение 2-х изображений
 
Picture1.Left = Picture1.Left - SpeedY
Picture1.Top = Picture1.Top - SpeedX
Picture2.Left = Picture2.Left - SpeedY
Picture2.Top = Picture2.Top - SpeedX
 
' На границах формы меняем направление на 45 гр.
If Picture2.Top < 1 Or Picture2.Top > Form1.ScaleHeight - Picture2.ScaleHeight Then SpeedX = -SpeedX
If Picture2.Left < 1 Or Picture2.Left > Form1.ScaleWidth - Picture2.ScaleWidth Then SpeedY = -SpeedY
End Sub
Создать приложение, имитирующее полёт бабочки


Готовый проект с изображениями
Butterfl.zip
4
1 / 1 / 0
Регистрация: 22.02.2013
Сообщений: 39
19.04.2013, 11:50  [ТС] 4
добавьте пожалуйста цикл в задачу, т к надо именно с циклом
в остальном задача отличная
0
Модератор
6772 / 2789 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
19.04.2013, 13:59 5
Цитата Сообщение от e46 Посмотреть сообщение
именно с циклом
Таймер из кода убираем. Для задержки вводим Sleep, процедуру движения вешаем на первую кнопку.
Реализуем цикл вида*
Visual Basic
1
2
3
Do While условие
    Операторы
Loop

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
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Dim SpeedX As Integer
Dim SpeedY As Integer
Dim EnabledFly As Boolean
 
Private Sub Command1_Click()
EnabledFly = True ' Бабочка летит
 
Do While EnabledFly
' Анимация из двух изображений ( одно расположено над другим)
If Picture1.Visible = True Then
Picture1.Visible = False
Picture2.Visible = True
Else
Picture2.Visible = True
Picture2.Visible = False
Picture1.Visible = True
End If
Sleep 300
' Синхронное движение 2-х изображений
 
Picture1.Left = Picture1.Left - SpeedY
Picture1.Top = Picture1.Top - SpeedX
Picture2.Left = Picture2.Left - SpeedY
Picture2.Top = Picture2.Top - SpeedX
 
' На границах формы меняем направление на 45 гр.
If Picture2.Top < 1 Or Picture2.Top > Form1.ScaleHeight - Picture2.ScaleHeight Then SpeedX = -SpeedX
If Picture2.Left < 1 Or Picture2.Left > Form1.ScaleWidth - Picture2.ScaleWidth Then SpeedY = -SpeedY
DoEvents
Loop
 
End Sub
 
Private Sub Command2_Click()
EnabledFly = False ' Бабочка остановлена
End Sub
 
Private Sub Form_Load()
SpeedX = 500 ' Скорость движения
SpeedY = 500 ' Скорость движения
Command1.Caption = "Лети"
Command2.Caption = "Стоп"
End Sub
* По желанию можно переделать на любой из возможных в VB6. Советую прочитать справку и сделать ещё пару-тройку вариантов на эту тему.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
19.04.2013, 13:59

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

Разработать консольное приложение, имитирующее работу простого калькулятора
Разработать консольное приложение, эмитирующее работу простого калькулятора.

Как создать форму в виде бабочки?
Всем доброго времени суток, очень большая просьба рассказать как сделать форму в виде бабочки в...

Рисование бабочки
рисование бабочки в с++ builder


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

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

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