Создать приложение, имитирующее полёт бабочки - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д