Программирование
Веб программирование

VB игра. Делаем основу PineBall`a

 
 

На форму кинь кнопку(Enabled=False), и PictureBox(Enabled = False, и Picture = "Картинка в виде мячика") и Text1(Enabled=False, Text = 0, Visible = False). Код:

Dim MoveLeft As Boolean
Dim MoveRight As Boolean 'Тип Boolean означает то что переменная может принимать только 2 значения True и False
Dim MBall As Boolean

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 'При нажатии на кнопку
If KeyCode = vbKeyF2 Then MoveBall 'Если нажата клав. F2 то запускаем шарик(т.е. функцию MoveBall)
If KeyCode = vbKeyLeft Then 'Если нажата стрелка влево то:
MoveRight = False 'Останавливаем(если он запущен) цикл, который биту перемещает в противоположное место
Do While MoveRight = False 'Делаем цикл до тех пор пока MoveLeft = False
DoEvents ' Это чтоб система реагировала на сигналы
Command1.Left = Command1.Left - 1 ' Перемещаем кнопку
Text1.Text = Text1.Text - 1 'Это немного цикл тормозит, а то бита очень быстро перемещается
MoveBall 'Запускаем функцию MoveBall
Loop
End If

' Здесь тоже самое только наоборот
If KeyCode = vbKeyRight Then
MoveLeft = False
Do While MoveLeft = False
DoEvents
Command1.Left = Command1.Left + 1
Text1.Text = Text1.Text + 1
MoveBall
Loop
End If
'Остонавливаем биту если нажата стрелка вниз
If KeyCode = vbKeyDown Then
MoveLeft = True
MoveRight = True
Do
DoEvents
MoveBall
Loop
End If
End Sub

Private Sub Form_Load()
'Устанавливаем начальные значения
MoveRight = True
MoveLeft = True
MBall = False
End Sub

Function MoveBall() 'Функция MoveBall
If MBall = False Then 'Если MBall = False то двигаем мяч вниз
Ball.Top = Ball.Top + 1
Else 'Если MBall <> False то двигаем мяч вверх
Ball.Top = Ball.Top - 1
End If
If Ball.Left - Command1.Left < 150 And Ball.Left - Command1.Left >= -320 And Ball.Top >= Command1.Top - 255 Then 'Если мяч ударяется от левый край биты то
MBall = True 'Посылаем его вверх
End If
End Function

Все, остальное сам доделай. Если сделаешь то шли мне на мыло, я помещю исходник на сайт в раздел Исходники.
Недоделанный Исходник качай здесь


Есть вопросы? Спроси на нашем форуме!!
вася [03.11.2012 13:27]

А КАК СДЕЛАТЬ ЧТО БЫ КАРТИНКА БЫЛА НЕ КВАДРАТИК А МЯЧ?

Кулхацкер [03.11.2012 15:06]

To вася: ручками, Васенька, ручками. Синусом да косинусом волшебным.

васька [04.11.2012 10:42]

И еще уменя проблема короче когда бита мяч отбивает мяч летит и невозвращается

васька [04.11.2012 10:47]

а теперь вообще мяч не отскакивает от биты



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.