| ■50790 / ) |
Re[9]: シューティングゲームのあたり判定について |
□投稿者/ 使い魔 (11回)-(2010/06/17(Thu) 22:02:37)
|
Private Sub Form1_PreviewKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.PreviewKeyDownEventArgs) Handles Me.PreviewKeyDown
Select Case e.KeyCode
Case Keys.Up
imgMain.Top = imgMain.Top - 50
Case Keys.Down
imgMain.Top = imgMain.Top + 50
Case Keys.Left
imgMain.Left = imgMain.Left - 50
Case Keys.Right
imgMain.Left = imgMain.Left + 50
Case Keys.Space
k = 0
Do Until b = 1
If TAMA(k).Visible = False Then
TAMA(k).Visible = True
Me.Timer1.Enabled = True
b = 1
Else
k = k + 1
End If
Loop
b = 0
End Select
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If TAMA(k).Top <= 0 Then
TAMA(k).Enabled = False
TAMA(k).Visible = False
Else
TAMA(k).Top = TAMA(k).Top - 40
End If
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
TAMA(a).Top = TAMA(a).Top -30
End Sub
自力でこんな感じなんですけど。（結構省略して載せました）
わからないのは、(k)と(a)の値を一緒にしたいのですが、それをどうやったらいいのか、ということです。
|
|
