[XNA] PauseMenu Grundbaustein

    • VB.NET

      [XNA] PauseMenu Grundbaustein

      Hallo,

      ich hab vorhin mal das hier hingekritzelt:

      Spoiler anzeigen

      VB.NET-Quellcode

      1. ''' <summary>
      2. ''' This is the main type for your game
      3. ''' </summary>
      4. Public Class PauseMenu
      5. Inherits Microsoft.Xna.Framework.DrawableGameComponent
      7. Enum State
      8. Rein
      9. Raus
      10. Nichts
      11. End Enum
      12. Private WithEvents graphics As GraphicsDeviceManager
      13. Private WithEvents spriteBatch As SpriteBatch
      14. Private bgtexture As Texture2D
      15. Private Size As Vector2
      16. Private Point As Vector2
      17. Private Drawen As Boolean = True
      18. Private statemod As State = State.Nichts
      19. Public Sub New(ByVal game As Game, ByVal spriteBatch As SpriteBatch)
      20. MyBase.New(game)
      21. Me.spriteBatch = spriteBatch
      22. Size = New Vector2(game.Window.ClientBounds.Width, game.Window.ClientBounds.Height)
      23. Point = New Vector2(0 - game.Window.ClientBounds.Width, 0)
      24. End Sub
      26. ''' <summary>
      27. ''' Allows the game to perform any initialization it needs to before starting to run.
      28. ''' This is where it can query for any required services and load any non-graphic
      29. ''' related content. Calling MyBase.Initialize will enumerate through any components
      30. ''' and initialize them as well.
      31. ''' </summary>
      32. Public Overrides Sub Initialize()
      33. ' TODO: Add your initialization logic here
      35. MyBase.Initialize()
      36. End Sub
      38. ''' <summary>
      39. ''' LoadContent will be called once per game and is the place to load
      40. ''' all of your content.
      41. ''' </summary>
      42. Protected Overrides Sub LoadContent()
      43. ' Create a new SpriteBatch, which can be used to draw textures.
      44. 'spriteBatch = New SpriteBatch(GraphicsDevice)
      45. bgtexture = Game.Content.Load(Of Texture2D)("bgtexture")
      47. ' TODO: use Me.Content to load your game content here
      48. MyBase.LoadContent()
      50. End Sub
      52. ''' <summary>
      53. ''' UnloadContent will be called once per game and is the place to unload
      54. ''' all content.
      55. ''' </summary>
      56. Protected Overrides Sub UnloadContent()
      57. ' TODO: Unload any non ContentManager content here
      58. End Sub
      60. ''' <summary>
      61. ''' Allows the game to run logic such as updating the world,
      62. ''' checking for collisions, gathering input, and playing audio.
      63. ''' </summary>
      64. ''' <param name="gameTime">Provides a snapshot of timing values.</param>
      65. Public Overrides Sub Update(ByVal gameTime As GameTime)
      66. Dim val As Integer = +5
      67. If statemod = State.Raus Then
      68. val = +5
      69. ElseIf statemod = State.Rein Then
      70. val = -5
      71. End If
      72. If statemod = State.Raus Then
      73. If Point.X + Game.Window.ClientBounds.Width = Game.Window.ClientBounds.Width / 2 / 2 Then
      75. Else
      76. Point.X += val
      77. End If
      78. End If
      79. If statemod = State.Rein Then
      80. If Point.X + Game.Window.ClientBounds.Width = 0 Then
      81. 'statemod = State.Raus
      82. Else
      83. Point.X += val
      84. End If
      85. End If
      87. MyBase.Update(gameTime)
      88. End Sub
      90. ''' <summary>
      91. ''' This is called when the game should draw itself.
      92. ''' </summary>
      93. ''' <param name="gameTime">Provides a snapshot of timing values.</param>
      94. Public Overrides Sub Draw(ByVal gameTime As GameTime)
      96. 'GraphicsDevice.Clear(Color.CornflowerBlue)
      97. spriteBatch.Begin()
      98. 'spriteBatch.End()
      99. spriteBatch.Draw(bgtexture, New Rectangle(Point.X, Point.Y, Game.Window.ClientBounds.Width, Game.Window.ClientBounds.Height), New Color(0, 0, 210, 200))
      101. spriteBatch.End()
      102. ' TODO: Add your drawing code here
      103. MyBase.Draw(gameTime)
      104. End Sub
      106. Sub Reinfahren(ByVal steps As Integer)
      107. statemod = State.Rein
      108. End Sub
      110. Sub Rausfahren(ByVal steps As Integer)
      111. statemod = State.Raus
      112. End Sub
      113. End Class



      Ich weiss, mieser Codestil, bla bla....
      Die Verwendung sollte klar sein.
      Nur falls jemand das braucht.

      Grüße