його направили функції Otskok_Bita_1 і Otskok_Bita_2Ball_Up = True Then Ball.Top = Ball.Top - 1Ball_Down = True Then Ball.Top = Ball.Top + 1Ball_Left = True Then Ball.Left = Ball.Left - 1Ball_Right = True Then Ball.Left = Ball.Left + 1_Granica () 'Ця функція відповідає за відскік м'яча від граніцFunctionOtskok_Bita_2 ()' Функція відповідає за завдання напрямки м'яча, при сталкновеніі з битою 2Ball.Top <= Bita2.Top + Bita2.Height + 7 Then 'Якщо м'яч знаходиться на одній висоті з битою 2 (+ Bita2.Height - прібовляем висоту біти, тому що якщо цього не написати, то м'яч буде заглиблюватися про нижній край біти (а + 7 щоб виглядало більш реально)) Ball.Left> = Bita2.Left - 25 And Ball.Left <= Bita2.Left + 25 Then 'Ball.Left> = Bita2.Left - 25 - якщо координати м'яча знаходяться там же де координати (-25 - це ширина м'ячі) біти або далі І координати м'ячі менше координат біти + 25 (Ball.Left <= Bita2.Left + 25 (вся біта в ширину = 100)), то (щоб було більш зрозуміло, подивися на малюнок 2, розташований після коду). Вобщем це відскік від лівого краю біти:
'Направляємо м'яч влево_Left = True_Right = False
'Направляємо м'яч вніз_Up = False_Down = TrueIfBall.Left <= Bita2.Left + 100 And Ball.Left> = Bita2.Left + 75 Then' Тут аналогічно, тільки відскік від правої частини біти_Left = False_Right = True_Up = False_Down = TrueIfBall.Left> Bita2.Left + 25 And Ball.Left = Bita1. Top - Bita1.Height - 7 ThenBall.Left> = Bita1.Left - 25 And Ball.Left <= Bita1.Left + 25 Then_Left = True_Right = False_Up = True_Down = FalseIfBall.Left <= Bita1.Left + 100 And Ball.Left> = Bita1.Left + 75 Then_Left = False_Right = True_Up = True_Down = FalseIfBall.Left> Bita1.Left + 25 And Ball.Left = Me.Width Then 'Якщо м'ячик зіткнувся з правою стінкою, то міняємо його направленіе_Left = True_Right = FalseIfBall.Top <= Bita2.Top Or Ball.Top> = Bita1.Top Then 'Якщо м'ячик відлітає за биту, то ставимо його в центр.Left = 176.Top = 172_Left = False_Right = FalseIfFunctionSub Form1_KeyUp (ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyUp 'Якщо яка - небудь клавіша віджата: e.KeyCode = Keys.Left Then Left_Bita_2 = False' Якщо віджата клавіша Left, то якщо Bita 2 рухалася вліво, то вона останавліваетсяe.KeyCode = Keys.Right Then Right_Bita_2 = False 'Тут все аналогічноe.KeyCode = Keys.A Then Left_Bita_1 = Falsee.KeyCode = Keys.D Then Right_Bita_1 = FalseSu...
