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

Формулировка задачи:

циклы. Создать приложение, имитирующее полёт бабочки. Для решения использовать заготовки в идее двух графических файлов, содержащее изображение бабочки. Полет бабочки начинается с нажатия кнопки "Лети" и заканчивается кнопкой "Стоп". Предусмотреть столкновение бабочки со стенками формы, в результате чего бабочка должна изменить направление своего полета на угол 45 градусов.

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

textual
                            Листинг программы 
                        
 
                            
                        
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