エクセル　VBA　独学　excel vba コード　独学　学習　ブロック崩しゲーム

Option Explicit

Private Declare PtrSafe Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Dim bContinue As Boolean
Dim vx As Single
Dim vy As Single
Dim dt As Single
Dim x As Single
Dim y As Single
Dim Rk As Single
Dim n As Integer
Dim b_px(100) As Single
Dim b_py(100) As Single
Dim b_vx(100) As Single
Dim b_vy(100) As Single
Sub Ball()
  dt = Cells(9, 3)
  vx = Cells(6, 3)
  vy = Cells(6, 4)
  x = Cells(3, 7)
  y = Cells(3, 8)
  Rk = Cells(3, 11)
  bContinue = True
    CommandButton1.Caption = "STOP"
    Do
        Calculate
        x = x + vx * dt
        y = y + vy * dt
        Cells(3, 3) = x
        Cells(3, 4) = y
            Call ボールの壁反射
            Call ブロック崩し
            Call ラケット
    DoEvents
        Loop While bContinue = True
End Sub
Private Sub ボールの壁反射()
        Select Case Cells(3, 3).Value
            Case Is >= 9.65
                vx = -1 * vx
            Case Is <= 0.35
                vx = -1 * vx
        End Select

        Select Case Cells(3, 4).Value
            Case Is >= 9.65
                vy = -1 * vy
            Case Is <= 0.35

                vy = 0

        End Select
End Sub
Private Sub ブロック崩し()
        For n = 0 To 17
            b_px(n) = Cells(6 + n, 7)
            b_py(n) = Cells(6 + n, 8)
        
            If y > b_py(n) - 0.75 And y < b_py(n) + 0.75 Then
            
                If x < b_px(n) + 0.45 And x > b_px(n) - 0.45 Then
                
                    vy = -1 * vy
                    Cells(6 + n, 8) = 12
                Else
                
                End If
        
            Else

            End If

            If x > b_px(n) - 0.75 And x < b_px(n) + 0.75 Then
            
                If y < b_py(n) + 0.45 And y > b_py(n) - 0.45 Then

                    vx = -1 * vx

                    Cells(6 + n, 8) = 12
            
                Else
            
                End If

            Else

            
            End If

        Next n
End Sub
Private Sub ラケット()
    
    If GetAsyncKeyState(70) < 0 Then
        Rk = Rk - 0.3
    End If

    If GetAsyncKeyState(74) < 0 Then
        Rk = Rk + 0.3
    End If
        Cells(3, 11) = Rk

    If Cells(3, 4) > 1.5 Then
        ElseIf Cells(3, 3) > Rk + 1 Then
        ElseIf Cells(3, 3) < Rk - 1 Then
    Else
        vy = -1 * vy
    End If
End Sub
Private Sub CommandButton1_Click()
    If bContinue = True Then
        bContinue = False
        CommandButton1.Caption = "START"
    Else
        Call Ball
    End If
End Sub
Private Sub CommandButton2_Click()
    CommandButton2.Caption = "RESET"
        Cells(3, 3) = Cells(3, 7)
        Cells(3, 4) = Cells(3, 8)
    
    For n = 0 To 8
        Cells(6 + n, 8) = 9
    Next n

    For n = 0 To 8
        Cells(15 + n, 8) = 8
    Next n
End Sub
Private Sub ScrollBar1_Change()
    Cells(6, 3) = ScrollBar1.Value
    Cells(6, 4) = ScrollBar1.Value
End Sub