Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - Евгений Ипатов -

Visual Basic 5.0/6.0 - Разработка игр

Все примеры / Разработка игр

Картинка бегает по форме

Автор: Евгений Ипатов | добавлено: 06.03.2010, 12:43 | просмотров: 3557 (1+) | комментариев: 0 | рейтинг: *x0
Простой пример бегающей картинки по форме. Пригодится начинающим гейммейкерам.

Код

Private Sub Command1_Click()
Text6.Text = 0
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If (KeyCode = vbKeyDown) Then
Cls
x = Val(Text2.Text)
i = Val(Text1.Text)
Image1.Move x, i
'Text1.Text = Val(Text1.Text) + 50
Timer2.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer1.Interval = 200
proverka
End If

If (KeyCode = vbKeyUp) Then
Cls
x = Val(Text2.Text)
i = Val(Text1.Text)
Image1.Move x, i
'Text1.Text = Val(Text1.Text) - 50
Timer1.Interval = 0
Timer3.Interval = 0
Timer4.Interval = 0
Timer2.Interval = 200
proverka
End If

If (KeyCode = vbKeyRight) Then
Cls
i = Val(Text1.Text)
x = Val(Text2.Text)
Image1.Move x, i
'Text2.Text = Val(Text2.Text) + 50
Timer1.Interval = 0
Timer2.Interval = 0
Timer4.Interval = 0
Timer3.Interval = 200
proverka
End If

If (KeyCode = vbKeyLeft) Then
Cls
i = Val(Text1.Text)
x = Val(Text2.Text)
Image1.Move x, i
'Text2.Text = Val(Text2.Text) - 50
Timer1.Interval = 0
Timer2.Interval = 0
Timer4.Interval = 200
Timer3.Interval = 0
proverka
End If

End Sub
Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
i = Val(Text1.Text)
x = Val(Text2.Text)
Image1.Move x, i
End Sub


Private Sub proverka()
If Val(Text2.Text) = 4800 Then
If Val(Text1.Text) = 0 Then

If Int(Rnd * 20) = 0 Then Text3 = 0
If Int(Rnd * 20) = 1 Then Text3 = 480
If Int(Rnd * 20) = 2 Then Text3 = 960
If Int(Rnd * 20) = 3 Then Text3 = 480
If Int(Rnd * 20) = 4 Then Text3 = 480
If Int(Rnd * 20) = 5 Then Text3 = 480
If Int(Rnd * 20) = 6 Then Text3 = 480
If Int(Rnd * 20) = 7 Then Text3 = 480
If Int(Rnd * 20) = 8 Then Text3 = 480
If Int(Rnd * 20) = 9 Then Text3 = 480
If Int(Rnd * 20) = 10 Then Text3 = 480
If Int(Rnd * 20) = 11 Then Text3 = 480
If Int(Rnd * 20) = 12 Then Text3 = 480
If Int(Rnd * 20) = 13 Then Text3 = 480
If Int(Rnd * 20) = 14 Then Text3 = 480
If Int(Rnd * 20) = 15 Then Text3 = 480
If Int(Rnd * 20) = 16 Then Text3 = 480
If Int(Rnd * 20) = 17 Then Text3 = 480
If Int(Rnd * 20) = 18 Then Text3 = 480
If Int(Rnd * 20) = 19 Then Text3 = 480

End If
End If
End Sub

Private Sub Timer1_Timer()
Text1 = Val(Text1.Text) + 480
Image1.Move Val(Text2.Text), Val(Text1.Text)
proverka
End Sub

Private Sub Timer2_Timer()
Text1.Text = Val(Text1.Text) - 480
Image1.Move Val(Text2.Text), Val(Text1.Text)
proverka
End Sub

Private Sub Timer3_Timer()
Text2.Text = Val(Text2.Text) + 480
Image1.Move Val(Text2.Text), Val(Text1.Text)
proverka
End Sub

Private Sub Timer4_Timer()
Text2.Text = Val(Text2.Text) - 480
Image1.Move Val(Text2.Text), Val(Text1.Text)
proverka
End Sub
Обратите внимание
Язык Visual Basic 6.0 является устаревшим. Многие примеры, размещенные на нашем сайте, были созданы еще во времена Windows 98 и могут не работать в современных операционных системах.
Если у вас возникнут какие-либо проблемы или вопросы, вы можете обратиться за помощью на наш форум.
Об авторе

Евгений Ипатов

Нет информации об авторе...

См. также:
Профиль автора
Евгений Ипатов
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики