الحلقة صفر من السلسلة 167 للبرمجة

كود :
Public Class Form1

' Insert Button with name: BtnBall

' Insert Button with name: btnStand

' Insert Timer with name: Timer1 



Private Grid As Integer = 20

Private GameSize As New Size(24, 20)

Private StandWidth As Integer = 4



Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.Height = 1.2 * GameSize.Height * Grid

Me.Width = GameSize.Width * Grid



With btnStand

.Text = ""

.Height = Grid

.Width = StandWidth * Grid

.Top = GameSize.Height * Grid

.Left = Grid * (GameSize.Width / 2 - StandWidth / 2)

End With

With btnBall

.Text = ""

.Height = Grid

.Width = Grid

.Top = 10 * Grid

.Left = 5 * Grid

End With

With Timer1

.Interval = 200

.Enabled = True

End With

End Sub



Private Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Me.MouseMove

btnStand.Left = e.X - btnStand.Width / 2

End Sub



Private BallDirection As New Point(-1, -1)



Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

With btnBall

.Left += BallDirection.X * Grid / 2

.Top += BallDirection.Y * Grid / 2



If .Left + Grid / 2 <= 0 Then BallDirection.X *= -1

If .Left + .Width + Grid / 2 >= Me.Width Then BallDirection.X *= -1



If .Top <= 0 Then BallDirection.Y *= -1

If .Top + .Height >= (GameSize.Height * Grid) Then

If .Left > btnStand.Left And (.Left + .Width) < (btnStand.Left + btnStand.Width) Then

BallDirection.Y *= -1

ElseIf .Top > Me.Height Then

.Left = GameSize.Width / 2 * Grid

.Top = 0

BallDirection = New Point(1, 1)

End If

End If

End With

End Sub

End Class