{"id":646,"date":"2013-11-22T23:40:28","date_gmt":"2013-11-22T22:40:28","guid":{"rendered":"http:\/\/labalec.fr\/erwan\/?p=646"},"modified":"2013-11-22T23:40:28","modified_gmt":"2013-11-22T22:40:28","slug":"vb-net-and-xna-article-10-a-simple-progressbar","status":"publish","type":"post","link":"https:\/\/labalec.fr\/erwan\/?p=646","title":{"rendered":"VB.Net and XNA : Article 10 \u2013 A simple progressbar"},"content":{"rendered":"

Sometimes you need a simple progressbar in your XNA game to display game points, life, etc.<\/p>\n

Lets do it quick and simple with rectangles only:
\n-One gray rectangle for the fix bar, and one red rectangle for the moving bar (use +\/- keys).
\n-a very simple math formula to draw the current value against the width of the bar : progressbar_width * progressbar_value \/ progressbar_max<\/p>\n

The sourcecode : Here<\/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 Dim spritebatch As SpriteBatch
\n Dim dummyTexture As Texture2D
\n Dim progressbar_max = 100
\n Dim progressbar_value As Integer = progressbar_max
\n Dim progressbar_width As Integer = 250
\n Dim font As SpriteFont<\/p>\n

Public Sub New()
\n graphics = New GraphicsDeviceManager(Me)
\n Window.Title = \"Test\"
\n graphics.PreferredBackBufferWidth = 400
\n graphics.PreferredBackBufferHeight = 200
\n End Sub<\/p>\n

Protected Overrides Sub Initialize()
\n MyBase.Initialize()
\n End Sub
\n Protected Overrides Sub LoadContent()
\n spritebatch = New SpriteBatch(GraphicsDevice)
\n dummyTexture = New Texture2D(GraphicsDevice, 1, 1)
\n Dim c(0) As Color
\n c(0) = Color.White
\n dummyTexture.SetData(Of Color)(c)
\n '
\n font = Content.Load(Of SpriteFont)(\"xnb\\myfont\")
\n MyBase.LoadContent()
\n End Sub
\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 If Keyboard.GetState.IsKeyDown(Keys.Add) Then progressbar_value += 1
\n If Keyboard.GetState.IsKeyDown(Keys.Subtract) Then progressbar_value -= 1
\n If progressbar_value >= progressbar_max Then progressbar_value = progressbar_max
\n If progressbar_value <= 0 Then progressbar_value = 0\n MyBase.Update(gameTime)\n End Sub\n\n \n Protected Overrides Sub Draw(ByVal gameTime As Microsoft.Xna.Framework.GameTime)\n GraphicsDevice.Clear(Color.Blue)\n spritebatch.Begin()\n spritebatch.DrawString(font, progressbar_value, New Vector2(10, 10), Color.White)\n spritebatch.Draw(dummyTexture, New Rectangle(100, 10, progressbar_width, 10), Color.Gray)\n spritebatch.Draw(dummyTexture, New Rectangle(100, 10, progressbar_width * progressbar_value \/ progressbar_max, 10), Color.Red)\n spritebatch.End()\n MyBase.Draw(gameTime)\n End Sub\n\nEnd Class\n<\/code><\/p>\n

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

Sometimes you need a simple progressbar in your XNA game to display game points, life, etc. Lets do it quick and simple with rectangles only: -One gray rectangle for the fix bar, and one red rectangle for the moving bar (use +\/- keys). -a very simple math formula to draw the current value against 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-646","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\/646","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=646"}],"version-history":[{"count":1,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/646\/revisions"}],"predecessor-version":[{"id":649,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=\/wp\/v2\/posts\/646\/revisions\/649"}],"wp:attachment":[{"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=646"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=646"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/labalec.fr\/erwan\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=646"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}