Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Public Class Form1
- Private m_Actor As PacmanActor
- Private Sub btStart_Click(sender As Object, e As EventArgs) Handles btStart.Click
- m_Actor = New PacmanActor(pnField)
- m_Actor.StartUp(New Point(40, 30), New MovementRule())
- tmrTimer.Enabled = True
- End Sub
- Private Sub tmrTimer_Tick(sender As Object, e As EventArgs) Handles tmrTimer.Tick
- m_Actor.Move()
- If m_Actor.Done = True Then
- tmrTimer.Enabled = False
- MsgBox("Done!")
- m_Actor.ShutDown()
- End If
- End Sub
- End Class
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement