{"id":550,"date":"2013-11-02T12:53:40","date_gmt":"2013-11-02T11:53:40","guid":{"rendered":"http:\/\/labalec.fr\/erwan\/?p=550"},"modified":"2013-11-16T14:06:23","modified_gmt":"2013-11-16T13:06:23","slug":"vb-net-and-xna-article-2","status":"publish","type":"post","link":"https:\/\/labalec.fr\/erwan\/?p=550","title":{"rendered":"VB.Net and XNA : Article 2 (moving texture)"},"content":{"rendered":"

In previous articles, we have seen what is needed to code with XNA<\/a> and also the basics of an XNA class<\/a>.<\/p>\n

Lets now have a look at the small XNA app below : a bouncing ball.<\/p>\n

-We declare some global variables
\n-we load our content (here : a sprite = a bleu ball) in the loadcontent<\/strong> xna method
\n-we call our updatesprite method in the update<\/strong> xna method which will take care of the moving position
\n-we draw our sprite in the draw<\/strong> xna method using the update spritepos<\/p>\n

Attached to this post is the complete source code and compiled executable : xna_demo_1<\/a><\/p>\n

Enjoy !<\/p>\n


\nImports Microsoft.Xna.Framework
\nImports Microsoft.Xna.Framework.Graphics
\nImports Microsoft.Xna.Framework.Input<\/p>\n

Public Class Game
\n Inherits Microsoft.Xna.Framework.Game
\n 'Fields in our game graphic manager etc'
\n Dim graphics As GraphicsDeviceManager
\n Dim spriteBatch As SpriteBatch
\n '
\n 'Texture that we will render'
\n Private mTexture As Texture2D
\n 'Set the coordinates to draw the sprite at'
\n Private spritePos As Vector2 = Vector2.Zero
\n 'X and Y speed of the sprite'
\n Private XSpeed As Single = 80
\n Private YSpeed As Single = 120
\n 'Vector2 used for the speed of the sprite'
\n Private spriteSpeed As New Vector2(XSpeed, YSpeed)<\/p>\n

Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n End Sub<\/p>\n

Protected Overrides Sub Initialize()
\n MyBase.Initialize()
\n End Sub<\/p>\n

Protected Overrides Sub LoadContent()
\n MyBase.LoadContent()
\n ' Create a new SpriteBatch, which can be used to draw textures.'
\n spriteBatch = New SpriteBatch(GraphicsDevice)
\n '
\n 'Load the texture'
\n 'We are using Stream , not a content (xnb format)
\n Dim textureStream As System.IO.Stream = New System.IO.StreamReader(Application.StartupPath + \"\\bille_bleu1.png\").BaseStream
\n 'Loading the texture'
\n mTexture = Texture2D.FromStream(GraphicsDevice, textureStream)
\n End Sub<\/p>\n

Protected Overrides Sub UnloadContent()
\n MyBase.UnloadContent()
\n End Sub<\/p>\n

Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n 'Allows the game to exit'
\n Dim newState As KeyboardState = Keyboard.GetState
\n If newState.IsKeyDown(Keys.Q) Then Application.Exit()
\n 'The method that will update our sprite position'
\n UpdateSprite(gameTime)
\n MyBase.Update(gameTime)
\n End Sub<\/p>\n

Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n GraphicsDevice.Clear(Color.CornflowerBlue)
\n 'Draw the sprite'
\n spriteBatch.Begin(SpriteSortMode.BackToFront, BlendState.AlphaBlend)
\n spriteBatch.Draw(mTexture, spritePos, Color.White)
\n spriteBatch.End()
\n MyBase.Draw(gameTime)
\n End Sub<\/p>\n

Private Sub UpdateSprite(ByVal gameTime As GameTime)
\n 'The function move the sprite and check if its on the limits of the screen so it can bounce back'
\n Dim intMaxX As Integer
\n Dim intMinX As Integer = 0
\n Dim intMaxY As Integer
\n Dim intMinY As Integer = 0<\/p>\n

'move the sprite by speed scaled by elapsed time'
\n spritePos += spriteSpeed * CSng(gameTime.ElapsedGameTime.TotalSeconds)
\n 'Get the max. X and Y coordinates'
\n intMaxX = graphics.GraphicsDevice.Viewport.Width - mTexture.Width
\n intMaxY = graphics.GraphicsDevice.Viewport.Height - mTexture.Height
\n 'Check the sprite if its at some of the edges of the screen and then reverce the speed of the sprite'
\n If spritePos.X > intMaxX Then
\n 'Check if the sprite is at the maximum X coordinates of the screen if so reverse the speed'
\n spriteSpeed.X *= -1
\n spritePos.X = intMaxX<\/p>\n

ElseIf spritePos.X < intMinX Then\n 'Check if the sprite is at the minimum X coordinates of the scree and reverse the speed'\n spriteSpeed.X *= -1\n spritePos.X = intMinX\n End If\n\n If spritePos.Y > intMaxY Then
\n 'Check if the sprite is at the maximum Y coordinates of the screen if so reverse the speed'
\n spriteSpeed.Y *= -1
\n spritePos.Y = intMaxY<\/p>\n

ElseIf spritePos.Y < intMinY Then\n 'Check if the sprite is at the minimum Y coordinates of the scree and reverse the speed'\n spriteSpeed.Y *= -1\n spritePos.Y = intMinY\n End If\n\n End Sub\nEnd Class\n\n<\/code><\/p>\n

https:\/\/labalec.fr\/erwan\/wp-content\/uploads\/2013\/11\/xna02.mp4<\/a><\/video><\/div>\n","protected":false},"excerpt":{"rendered":"

In previous articles, we have seen what is needed to code with XNA and also the basics of an XNA class. Lets now have a look at the small XNA app below : a bouncing ball. -We declare some global variables -we load our content (here : a sprite = a bleu ball) in the […]<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[34,35],"tags":[],"class_list":["post-550","post","type-post","status-publish","format-standard","hentry","category-dotnet","category-xna","category-34-id","category-35-id","post-seq-1","post-parity-odd","meta-position-corners","fix"],"_links":{"self":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/550","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=550"}],"version-history":[{"count":7,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/550\/revisions"}],"predecessor-version":[{"id":600,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/550\/revisions\/600"}],"wp:attachment":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=550"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=550"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=550"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}