Объектно-ориентированное программирование с помощью Microsoft Visual Basic

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

жимает F1, то шарик начинает движение (рис. 3)

 

Рисунок 3

 

Можно начинать двигать биты вправо и в лево клавишами A и D для биты 1(нижняя), Right и left для биты 2(верхняя). (рис. 4)

Рисунок 4

Рисунок 5

 

Рисунок 6

Рисунок 7

 

Если мячик попадает мимо биты, текущая игра заканчивается и начинается заново. Мячик летит к той бите, от которой был пропущен удар. Игра заканчивается тогда, когда захочет пользователь. Для этого следует закрыть форму (игру).

 

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

=Me.Width-Bita1.WidthThenRight_Bita_1=False1(Me.Width-Bita1.WidthMe.Width,,)Bita2.Left= Me.Width - Bita1.Width Then Right_Bita_2 = FalseFunctionBall_Dvijenie() Функции Otskok_Bita_1 и Otskok_Bita_2 при сталкновении мяча с битой, направляют его в различные стороны_Bita_1()_Bita_2()

=Bita2.Left-25AndBall.Left= Bita2.Left - 25 - если координаты мяча находятся там же где координаты(-25 - это ширина мяча) биты или дальше И координаты мяча меньше координат биты + 25(Ball.Left <= Bita2.Left + 25 (вся бита в ширину = 100)), то(чтобы было более понятно, посмотри на рисунок 2, расположенный после кода). Вобщем это отскок от левого края биты:

Направляем мяч влево_Left = True_Right = False

=Bita2.Left+75Then