{"id":574,"date":"2013-11-03T23:09:50","date_gmt":"2013-11-03T22:09:50","guid":{"rendered":"http:\/\/labalec.fr\/erwan\/?p=574"},"modified":"2014-03-01T15:21:07","modified_gmt":"2014-03-01T14:21:07","slug":"vb-net-and-xna-article-4-moving-a-texture","status":"publish","type":"post","link":"https:\/\/labalec.fr\/erwan\/?p=574","title":{"rendered":"VB.NET and XNA : Article 4 (keyboard input)"},"content":{"rendered":"

This time, lets see how to use the keyboard input to move a texture around since the update and draw event have no secrets for us anymore \ud83d\ude42
\nAnd from now on, we’ll use XNA content files (see previous article).<\/p>\n

Lets use the KeyboardState class and its GetState method.
\nAnd upon specific keypress (if newState.IsKeyDown(Keys.Right) …) lets update the X and Y of our texture.<\/p>\n

As always, the full project : xna_demo_3<\/a> .<\/p>\n


\nImports Microsoft.Xna.Framework
\nImports Microsoft.Xna.Framework.Graphics
\nImports Microsoft.Xna.Framework.Audio
\nImports Microsoft.Xna.Framework.Content
\nImports Microsoft.Xna.Framework.Media
\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 '
\n Dim font1 As SpriteFont
\n Dim msg As String
\n '
\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<\/p>\n

Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n 'graphics.ToggleFullScreen()<\/p>\n

End Sub<\/p>\n

Protected Overrides Sub Initialize()
\n 'TODO: Add your initialization logic here'
\n MyBase.Initialize()
\n msg = \"hello world\"
\n End Sub
\n Protected Overrides Sub LoadContent()
\n ' TODO: use this.Content to load your game content here'
\n MyBase.LoadContent()
\n ' Create a new SpriteBatch, which can be used to draw textures.'
\n spriteBatch = New SpriteBatch(GraphicsDevice)
\n 'Loading the texture'
\n mTexture = Content.Load(Of Texture2D)(\"bille\")
\n 'lets create a font
\n font1 = Content.Load(Of SpriteFont)(\"myfont\")<\/p>\n

End Sub
\n Protected Overrides Sub UnloadContent()
\n MyBase.UnloadContent()
\n 'TODO: Unload any non ContentManager content here'
\n End Sub
\n Protected Overrides Sub Update(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n 'Allows the game to exit'
\n If GamePad.GetState(PlayerIndex.One).Buttons.Back = ButtonState.Pressed Then
\n Me.Exit()
\n End If
\n 'TODO: Add your update logic here'<\/p>\n

updateinput(gameTime)<\/p>\n

MyBase.Update(gameTime)<\/p>\n

End Sub
\n Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)
\n GraphicsDevice.Clear(Color.CornflowerBlue)
\n 'TODO: Add your drawing code here'
\n 'Draw the sprite'
\n spriteBatch.Begin(SpriteSortMode.BackToFront, BlendState.AlphaBlend)
\n spriteBatch.DrawString(font1, msg, New Vector2(20.0F, 20.0F), Color.White)
\n spriteBatch.Draw(mTexture, spritePos, Color.White)
\n spriteBatch.End()
\n MyBase.Draw(gameTime)
\n End Sub<\/p>\n

Private Sub updateinput(ByVal gameTime As GameTime)
\n Dim newState As KeyboardState
\n newState = Keyboard.GetState<\/p>\n

If (newState.IsKeyDown(Keys.Right)) Then
\n spritePos.X = spritePos.X + 10
\n msg = \"right \" & spritePos.X & \",\" & spritePos.Y
\n End If<\/p>\n

If (newState.IsKeyDown(Keys.Left)) Then
\n spritePos.X = spritePos.X - 10
\n msg = \"left \" & spritePos.X & \",\" & spritePos.Y
\n End If<\/p>\n

If (newState.IsKeyDown(Keys.Up)) Then
\n spritePos.Y = spritePos.Y - 10
\n msg = \"up \" & spritePos.X & \",\" & spritePos.Y
\n End If<\/p>\n

If (newState.IsKeyDown(Keys.Down)) Then
\n spritePos.Y = spritePos.Y + 10
\n msg = \"down \" & spritePos.X & \",\" & spritePos.Y
\n End If
\n End Sub
\nEnd Class
\n<\/code><\/p>\n

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

This time, lets see how to use the keyboard input to move a texture around since the update and draw event have no secrets for us anymore \ud83d\ude42 And from now on, we’ll use XNA content files (see previous article). Lets use the KeyboardState class and its GetState method. And upon specific keypress (if newState.IsKeyDown(Keys.Right) […]<\/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-574","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\/574","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=574"}],"version-history":[{"count":5,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/574\/revisions"}],"predecessor-version":[{"id":604,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/574\/revisions\/604"}],"wp:attachment":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=574"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=574"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=574"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}