отрапляє повз біти, поточна гра закінчується і починається заново. М'ячик летить до тієї бите, від якої був пропущений удар. Гра закінчується тоді, коли захоче користувач. Для цього слід закрити форму (гру). br/>
2.3 Кодова частина програми з коментарями
Class Form1System.Windows.Forms.FormLeft_Bita_1 As Boolean = False 'Ця змінна відповідає за пересування біти 1, якщо Left_Bita_1 = False то біта не рухається вліво (або вправо, або стоїть), якщо True то рухається вліво Right_Bita_1 As Boolean = False 'Тут все аналогічноLeft_Bita_2 As Boolean = FalseRight_Bita_2 As Boolean = False
'Ці змінні відповідають за рух м'яча вгору або вниз, якщо Ball_Up = True то м'ячик рухається вгору, якщо Ball_Down = True то внізBall_Up As Boolean = FalseBall_Down As Boolean = False
'Ці змінні відповідають за рух м'яча, вліво або вправоBall_Left As Boolean = FalseBall_Right As Boolean = FalseSub Form1_KeyDown (ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown' При натисканні на будь-яку клавішу: e.KeyCode = Keys.F1 Then
'Якщо натиснута F1, то: _Up = True' Запускаємо м'ячик вгору () 'Запускаємо гру: Ife.KeyCode = Keys.A Then' Якщо натиснута клавіша A, то биту 1 рухаємо вліво (див. опис функції Dvijok) _Bita_1 = True_Bita_1 = FalseIf
'Тут все аналогічноe.KeyCode = Keys.D Then_Bita_1 = True_Bita_1 = FalseIfe.KeyCode = Keys.Left Then_Bita_2 = True_Bita_2 = FalseIfe.KeyCode = Keys.Right Then_Bita_2 = True_Bita_2 = FalseIfSubDvijok ()' Запускаємо вічний цікл.DoEvents () 'Це щоб цикл не зациклювався ()' Запускаємо функцію Granica, яка перевіряє чи не заїхала чи біта за краї форми, якщо заїхала то зупиняє її (тобто значення змінних відповідають за рух біт = False) Left_Bita_2 = True Then Bita2.Left = Bita2.Left - 1 Right_Bita_2 = True Then Bita2.Left = Bita2.Left + 1Left_Bita_1 = True Then Bita1.Left = Bita1.Left - 1Right_Bita_1 = True Then Bita1.Left = Bita1.Left + 1_Dvijenie () ' Функція рухає м'яч (див. опис функції) FunctionGranica () Bita1.Left <= 0 Then Left_Bita_1 = False 'Якщо біта 1 заїхала за лівий край форми то зупиняємо ееBita1.Left> = Me.Width - Bita1.Width Then Right_Bita_1 = False 'Якщо біта 1 заїхала за правий край форми то зупиняємо її (Я написала Me.Width - Bita1.Width тому що якщо написати просто Me.Width то біта буде повністю заходити за край форми, а якщо від ширини форми відняти ширину біти, то біта заходити за край форми не буде) Bita2.Left <= 0 Then Left_Bita_2 = FalseBita2.Left> = Me.Width - Bita1.Width Then Right_Bita_2 = FalseFunctionBall_Dvijenie () 'Функції Otskok_Bita_1 і Otskok_Bita_2 при сталкновеніі м'яча з битою, направляють його в різні сторони_Bita_1 () _Bita_2 ()
'Тут м яч рухається, взависимости від того, куди ...
