Одновременное передвижение обьектов!?как

[Shasha]

Здравствуйте!
пытаюсь сделать игру танки, необходимо, что бы за одной клавой было несколько игроков...
если писать так:
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = ...
то при движении обькта нажав клавишу передвигающую второй обьект, движение первого останавливается...
как сделать, что бы по нажати одвременном танки могли передвигаться?
пытался таймер втулить, ничего не получается!
приведите пожалуйста работающий пример.
зарание спасибо.

[alibek]

Смотри KeyDown.

[Shasha]

Смотри KeyDown.

Смотрел.и кеуап тоже смотрел.
как программа сможет выполнить другой иф если предыдущий ещё не окончен!?

[alibek]

Значит, плохо смотрел.

[GB826]

Код: Выделить всё


Dim Keyb(255) As Boolean

Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  Keyb(KeyCode) = False
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Keyb(KeyCode) = True
End Sub



Соответственно обработка

Код: Выделить всё


      if Keyb(vbKeyUp) Then
        Tank1.Up
      ElseIf Keyb(vbKeyDown) Then
        Tank1.Down
      ElseIf Keyb(vbKeyRight) Then
        Tank1.Right
      ElseIf Keyb(vbKeyLeft) Then
        Tank1.Left
      End If

[Shasha]

на форуме у меня 2 пикчербокса. Picture1 и Picture2 аля танки.
далее то что нужно доработать

Код: Выделить всё

Private Sub Form_KeyPress(KeyAscii As Integer)
'Picture1
If KeyAscii = 52 Then
   Picture1.Left = Picture1.Left - 50
  End If
 
  If KeyAscii = 54 Then
   Picture1.Left = Picture1.Left + 50
  End If
 
 
  If KeyAscii = 53 Then
   Picture1.Top = Picture1.Top + 50
  End If


  If KeyAscii = 56 Then
   Picture1.Top = Picture1.Top - 50
  End If




'Picture2

  If KeyAscii = 97 Then
   Picture2.Left = Picture2.Left - 50
  End If
 
  If KeyAscii = 100 Then
   Picture2.Left = Picture2.Left + 50
  End If
 
 
  If KeyAscii = 115 Then
   Picture2.Top = Picture2.Top + 50
  End If


  If KeyAscii = 119 Then
   Picture2.Top = Picture2.Top - 50
  End If

End Sub

в таком виде пикчеры перемещаются клаваим wasd(1) и 8456(2)
но по очереди!!!

[GAGArin]

По пять состояний на танк +один таймер. При дауне включаем состояние, при апе выключаем...

[Zoomie]

Ээээ... ты брось такое дело!

При трех игроках в моей гаме системный динамик уже хрипел! Используй DirectInput

[Shasha]

Дайти мне рабочий пример, что бы дват танка двигались одновременно,кто нить!!!