﻿<?xml version='1.0' encoding='UTF-8'?><rss version="2.0" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>A1VBCode Forums / Classic Visual Basic (VB 6 or earlier) / Game Programming </title><generator>InstantForum.NET v4.1.1</generator><description>A1VBCode Forums</description><link>http://www.a1vbcode.com/vbforums/</link><webMaster>forums@a1vbcode.com</webMaster><lastBuildDate>Thu, 29 Jul 2010 18:38:56 GMT</lastBuildDate><ttl>20</ttl><item><title>car race vb8</title><link>http://www.a1vbcode.com/vbforums/Topic27065-8-1.aspx</link><description>hello guys im a newbie in vb. i just want to how can i make  layout like a super car race by  Ashwani Kumar in vb 8 because there some toolbar that are different from vb 6 to vb 8..plsss i need help..</description><pubDate>Fri, 20 Feb 2009 03:32:24 GMT</pubDate><dc:creator>arjen17</dc:creator></item><item><title>solitaire games</title><link>http://www.a1vbcode.com/vbforums/Topic28281-8-1.aspx</link><description>[font=Comic Sans MS][size=5][b]Hi everyone!! ahmm....is there anyone  who can help me in solving a solitaire game?&lt;br&gt;i mean is there anyone here who knows how to move, or drag those cards with a score and gametimer...? coz honestly im just a beginner...and im not that expert in this field...but i want to learn more about this matter..and i want to learn what are the functions to be used to have a solitaire game..[/b][/size][/font]</description><pubDate>Tue, 13 Oct 2009 04:06:04 GMT</pubDate><dc:creator>chriszy</dc:creator></item><item><title>Game-ready model shops</title><link>http://www.a1vbcode.com/vbforums/Topic28355-8-1.aspx</link><description>I'm making a list of game-ready model shops, if you know another ones please tell me ^^ here's what I've found so far:&lt;BR&gt;(alphabetically sorted)&lt;/P&gt;&lt;P&gt;&lt;b&gt;3dbud.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://img118.imageshack.us/img118/8018/83767809.jpg"&gt;&lt;BR&gt;(fantasy characters - animals - monters) - &amp;lt;they have just updated new monsters and characters&amp;gt;&lt;BR&gt;&lt;A href="http://3dbud.com"&gt;http://3dbud.com&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;b&gt;3drt.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://3drt.com/3dm/characters/real-zombies/characters-real-zombies-3d_01.jpg"&gt;&lt;BR&gt;(fantasy - scifi characters - animals - monters) &amp;lt;new zombie pack&amp;gt;&lt;BR&gt;&lt;A href="http://3drt.com"&gt;http://3drt.com&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;b&gt;adenfall.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.adenfall.com/modelalbum1/bedroom_render.jpg"&gt;&lt;BR&gt;(game objects)&lt;BR&gt;&lt;A href="http://adenfall.com"&gt;http://adenfall.com&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;b&gt;arteria-gaming.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.arteria-gaming.com/fantheme/fanthemelogo.jpg"&gt;&lt;BR&gt;(game objects)&lt;BR&gt;&lt;A href="http://arteria-gaming.com"&gt;http://arteria-gaming.com&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;b&gt;cubixstudio.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.cubixstudio.com/products/FemaleNPC/FemaleNPC_CloseUp.jpg"&gt;&lt;BR&gt;(fantasy - scifi characters)&lt;BR&gt;&lt;A href="http://cubixstudio.com"&gt;http://cubixstudio.com&lt;/A&gt;&lt;BR&gt;&lt;b&gt;&lt;BR&gt;dexsoft-games.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.dexsoft-games.com/textures/images/fantasy/dungeon_tomb/tomb_banner3.jpg"&gt;&lt;BR&gt;(game objects - fantasy - scifi characters) &amp;lt;new cool fantasy characters&amp;gt;&lt;BR&gt;&lt;A href="http://dexsoft-games.com"&gt;http://dexsoft-games.com&lt;/A&gt;&lt;BR&gt;&lt;b&gt;&lt;BR&gt;frogames.net&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.frogames.net/frogames_images/bandeau_2.jpg"&gt;&lt;BR&gt;(game objects - fantasy - scifi characters) &amp;lt;mmorpg character pack&amp;gt;&lt;BR&gt;&lt;A href="http://frogames.net"&gt;http://frogames.net&lt;/A&gt; &lt;/P&gt;&lt;P&gt;&lt;b&gt;gamebeep.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://img142.imageshack.us/img142/962/26031368.jpg"&gt;&lt;BR&gt;(game objects - fantasy - scifi characters)&lt;BR&gt;&lt;A href="http://gamebeep.com"&gt;http://gamebeep.com&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&lt;b&gt;game-stuff.com&lt;/b&gt;&lt;BR&gt;&lt;img src="http://www.game-stuff.com/architect/windmill_1/02.jpg"&gt;&lt;BR&gt;(game objects - game levels)&lt;BR&gt;&lt;A href="http://game-stuff.com"&gt;http://game-stuff.com&lt;/A&gt;</description><pubDate>Wed, 11 Nov 2009 01:17:15 GMT</pubDate><dc:creator>Tinlau</dc:creator></item><item><title>animation help needed</title><link>http://www.a1vbcode.com/vbforums/Topic29152-8-1.aspx</link><description>hi     ive got a  problem  in this program everything animates fine until i change   (antnum to 11) &lt;/P&gt;&lt;P&gt;the animation stops could some one tell me why?&lt;/P&gt;&lt;P&gt;im attaching zip file&lt;/P&gt;&lt;P&gt;thanks</description><pubDate>Tue, 13 Apr 2010 14:47:33 GMT</pubDate><dc:creator>flyhigh427</dc:creator></item><item><title>10 year old wants to make a video game</title><link>http://www.a1vbcode.com/vbforums/Topic18885-8-1.aspx</link><description>Hello everyone. &lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;My 10 year old nephew has asked me to teach him to make a video game and being the super keen uncle that I am said that I would without the first idea of how to make one. I do have a reasonable knowledge of Visual Basic and so thought I would use that to make something super simple at first and figure he and I can work on improvements from there. When I was a kid they had these books of code that you could just copy onto the computer and you had a simple working game and as you learned more you could alter these and build on the. Does anyone know of anything like that for VB or even C++? Any help would be greatly appreciated.&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /&gt;&lt;o:p&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt; &lt;/FONT&gt;&lt;/o:p&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;Thank you all in advance&lt;/FONT&gt;&lt;/P&gt;&lt;P class=MsoNormal style="MARGIN: 0in 0in 0pt"&gt;&lt;FONT face="Times New Roman" color=#000000 size=3&gt;G&lt;/FONT&gt;</description><pubDate>Mon, 29 May 2006 10:39:25 GMT</pubDate><dc:creator>Saprobic</dc:creator></item><item><title>Illumination in 3D</title><link>http://www.a1vbcode.com/vbforums/Topic28250-8-1.aspx</link><description>Hi,&lt;br&gt;&lt;br&gt;If you like 3D Graphics programming, I have some interesting code which deals with adding light to a 3D scene.&lt;br&gt;&lt;br&gt;http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=72519&amp;lngWId=1&lt;br&gt;&lt;br&gt;Hope it is informative.&lt;br&gt;&lt;br&gt;Regards.</description><pubDate>Wed, 07 Oct 2009 02:19:19 GMT</pubDate><dc:creator>bytelogik</dc:creator></item><item><title>HSC program</title><link>http://www.a1vbcode.com/vbforums/Topic26728-8-1.aspx</link><description>Well, what I thought I would do is a carnival of games, so far I've created a shooting game and a darts game. I've just started on a falling bricks game and i'm having trouble, i've done the images and the bricks are falling randomly and can move the person, now i need some help on the collision again.&lt;br&gt;I also have a game on whack a mole but havnen't started that one so any tips on beginning this would be helpful. Thanks in advace &lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/Smile.gif" border="0" title="Smile"&gt;</description><pubDate>Wed, 14 Jan 2009 17:55:14 GMT</pubDate><dc:creator>MichaelBui</dc:creator></item><item><title>Star Trek RPG Game</title><link>http://www.a1vbcode.com/vbforums/Topic25059-8-1.aspx</link><description>Hello, I am working on a Star Trek RPG based off of the Star Trek RPG by Decipher.&lt;/P&gt;&lt;P&gt;The game is taking a while to make (one person can only do so much), and I am not experianced with the more advanced form of VB Programming, if anyone would like to be involved in creating a Star Trek RPG please reply to this thread.&lt;/P&gt;&lt;P&gt;I also have a question, I am trying to make a bounding box for the buildings on the maps I'm using, how do I do that?&lt;/P&gt;&lt;P&gt;I have a Star Trek Community web site that I'm putting together for those interested in Star Trek, the main reason I built the site is so Star Trek Game designers have a place to meet.&lt;/P&gt;&lt;P&gt;I am going to post my game there for people to test, I am also going to make it so othe people can do the same with thier games as well.&lt;/P&gt;&lt;P&gt;If you are interested  check out startrekcommunity.net </description><pubDate>Thu, 29 May 2008 18:38:01 GMT</pubDate><dc:creator>KTC_88</dc:creator></item><item><title>Hello, help with DirectDraw</title><link>http://www.a1vbcode.com/vbforums/Topic27225-8-1.aspx</link><description>Greetings,&lt;/P&gt;&lt;P&gt;i've been programming with Bitblt (VB6) for a while and i'm trying to learn DirectDraw7.&lt;/P&gt;&lt;P&gt;I'm trying to use BltFast to convert this background into a tiled map.&lt;/P&gt;&lt;P&gt;actually, i was sucessfull of making tiles, but when the sprites run over the background i get visual errors,&lt;/P&gt;&lt;P&gt;so it seems i'm having problems with refreshing the background.&lt;/P&gt;&lt;P&gt;here's the unedited code i started with.&lt;/P&gt;&lt;P&gt;my question is, what do i have to change to make this a tiled map in BltFast?&lt;/P&gt;&lt;P&gt;&lt;FONT color=#33bb33&gt;Option Explicit&lt;BR&gt;Option Base 0&lt;BR&gt;&lt;BR&gt;'Windows &lt;/FONT&gt;&lt;A class=kLink oncontextmenu="return false;" id=KonaLink2 &amp;#111;nmouseover=adlinkMouseOver(event,this,2); style="POSITION: static; TEXT-DECORATION: underline! important" &amp;#111;nclick=adlinkMouseClick(event,this,2); &amp;#111;nmouseout=adlinkMouseOut(event,this,2); href="http://www.xtremevbtalk.com/showthread.php?t=304851#" target=_top&gt;&lt;FONT style="FONT-WEIGHT: 400; FONT-SIZE: 10pt; COLOR: blue! important; FONT-FAMILY: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; POSITION: static" color=#33bb33&gt;&lt;SPAN class=kLink style="FONT-WEIGHT: 400; FONT-SIZE: 10pt; COLOR: blue! important; FONT-FAMILY: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; POSITION: relative"&gt;API&lt;/SPAN&gt;&lt;/FONT&gt;&lt;/A&gt;&lt;FONT color=#33bb33&gt; functions and structures&lt;BR&gt;Private Declare Function GetTickCount _&lt;BR&gt;    Lib "kernel32" () As Long&lt;BR&gt;&lt;BR&gt;'program constants&lt;BR&gt;Const SCREENWIDTH As Long = 640&lt;BR&gt;Const SCREENHEIGHT As Long = 480&lt;BR&gt;Const MAXFRAMERATE As Long = 100&lt;BR&gt;Const NUMSPRITES As Long = 30&lt;BR&gt;&lt;BR&gt;'program controls&lt;BR&gt;Dim WithEvents Picture1 As PictureBox&lt;BR&gt;&lt;BR&gt;'DirectDraw variables&lt;BR&gt;Dim objDX As DirectX7&lt;BR&gt;Dim ddraw As DirectDraw7&lt;BR&gt;Dim objDDClip As DirectDrawClipper&lt;BR&gt;Private ddcKey As DDCOLORKEY&lt;BR&gt;&lt;BR&gt;'primary display surface variables&lt;BR&gt;Dim ddScreen As DirectDrawSurface7&lt;BR&gt;Private ddsdScreen As DDSURFACEDESC2&lt;BR&gt;Private rScreen As RECT&lt;BR&gt;&lt;BR&gt;'double buffer variables&lt;BR&gt;Dim ddBackBuffer As DirectDrawSurface7&lt;BR&gt;Private ddsdBackBuffer As DDSURFACEDESC2&lt;BR&gt;Dim rBackBuffer As RECT&lt;BR&gt;&lt;BR&gt;'background image variables&lt;BR&gt;Dim ddBackground As DirectDrawSurface7&lt;BR&gt;Private ddsdBackground As DDSURFACEDESC2&lt;BR&gt;Dim rBackground As RECT&lt;BR&gt;&lt;BR&gt;'sprite variables&lt;BR&gt;Dim ddSprites(NUMSPRITES) As DirectDrawSurface7&lt;BR&gt;Dim SpriteX(NUMSPRITES) As Long&lt;BR&gt;Dim SpriteY(NUMSPRITES) As Long&lt;BR&gt;Dim SpeedX(NUMSPRITES) As Long&lt;BR&gt;Dim SpeedY(NUMSPRITES) As Long&lt;BR&gt;Private ddsdSprite As DDSURFACEDESC2&lt;BR&gt;Dim rSprite As RECT&lt;BR&gt;&lt;BR&gt;'program variables&lt;BR&gt;Dim rTemp As RECT&lt;BR&gt;Dim bRunning As Boolean&lt;BR&gt;Dim n As Long&lt;BR&gt;&lt;BR&gt;Private Sub Form_Load()&lt;BR&gt;    Static lStartTime As Long&lt;BR&gt;    Static lCounter As Long&lt;BR&gt;    Static lNewTime As Long&lt;BR&gt;    &lt;BR&gt;    bRunning = True&lt;BR&gt;    Randomize GetTickCount&lt;BR&gt;    &lt;BR&gt;    'set up the main form&lt;BR&gt;    With Form1&lt;BR&gt;        .Width = SCREENWIDTH * Screen.TwipsPerPixelX&lt;BR&gt;        .Height = SCREENHEIGHT * Screen.TwipsPerPixelY&lt;BR&gt;        .AutoRedraw = False&lt;BR&gt;        .ClipControls = False&lt;BR&gt;        .KeyPreview = True&lt;BR&gt;        .ScaleMode = 3&lt;BR&gt;        .BorderStyle = 1&lt;BR&gt;        .Show&lt;BR&gt;    End With&lt;BR&gt;&lt;BR&gt;    'create the PictureBox control&lt;BR&gt;    Set Picture1 = Controls.Add("VB.PictureBox", "Picture1")&lt;BR&gt;    With Picture1&lt;BR&gt;        .AutoRedraw = False&lt;BR&gt;        .BorderStyle = 1&lt;BR&gt;        .ClipControls = False&lt;BR&gt;        .ScaleMode = 3&lt;BR&gt;        .BackColor = RGB(0, 0, 0)&lt;BR&gt;        .Left = 0&lt;BR&gt;        .Top = 0&lt;BR&gt;        .Width = Form1.ScaleWidth&lt;BR&gt;        .Height = Form1.ScaleHeight&lt;BR&gt;        .Visible = True&lt;BR&gt;    End With&lt;BR&gt;&lt;BR&gt;    'create the DirectX object&lt;BR&gt;    Set objDX = New DirectX7&lt;BR&gt;    &lt;BR&gt;    'create the DirectDraw object&lt;BR&gt;    Set ddraw = objDX.DirectDrawCreate("")&lt;BR&gt;&lt;BR&gt;    'set up primary display surface&lt;BR&gt;    ddraw.SetCooperativeLevel Picture1.hWnd, DDSCL_NORMAL&lt;BR&gt;    ddsdScreen.lFlags = DDSD_CAPS&lt;BR&gt;    ddsdScreen.ddsCaps.lCaps = DDSCAPS_PRIMARYSURFACE&lt;BR&gt;    ddsdScreen.lWidth = SCREENWIDTH&lt;BR&gt;    ddsdScreen.lHeight = SCREENHEIGHT&lt;BR&gt;    Set ddScreen = ddraw.CreateSurface(ddsdScreen)&lt;BR&gt;    &lt;BR&gt;    'set surface rectangle&lt;BR&gt;    rScreen.Bottom = ddsdScreen.lHeight&lt;BR&gt;    rScreen.Right = ddsdScreen.lWidth&lt;BR&gt;    &lt;BR&gt;    'create the clipper object&lt;BR&gt;    Set objDDClip = ddraw.CreateClipper(0)&lt;BR&gt;    objDDClip.SetHWnd Picture1.hWnd&lt;BR&gt;    ddScreen.SetClipper objDDClip&lt;BR&gt;    &lt;BR&gt;    'create the back buffer&lt;BR&gt;    ddsdBackBuffer.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT&lt;BR&gt;    ddsdBackBuffer.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN&lt;BR&gt;    ddsdBackBuffer.lWidth = SCREENWIDTH&lt;BR&gt;    ddsdBackBuffer.lHeight = SCREENHEIGHT&lt;BR&gt;    Set ddBackBuffer = ddraw.CreateSurface(ddsdBackBuffer)&lt;BR&gt;    rBackBuffer.Bottom = ddsdBackBuffer.lHeight&lt;BR&gt;    rBackBuffer.Right = ddsdBackBuffer.lWidth&lt;BR&gt;    &lt;BR&gt;    'load the background image&lt;BR&gt;    ddsdBackground.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT&lt;BR&gt;    ddsdBackground.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN&lt;BR&gt;    ddsdBackground.lWidth = SCREENWIDTH&lt;BR&gt;    ddsdBackground.lHeight = SCREENHEIGHT&lt;BR&gt;    Set ddBackground = ddraw.CreateSurfaceFromFile(App.Path &amp;amp; _&lt;BR&gt;        "\blueyellow.bmp", ddsdBackground)&lt;BR&gt;    rBackground.Bottom = ddsdBackground.lHeight&lt;BR&gt;    rBackground.Right = ddsdBackground.lWidth&lt;BR&gt;    ddBackBuffer.BltFast 0, 0, ddBackground, rBackground, _&lt;BR&gt;        DDBLTFAST_WAIT&lt;BR&gt;    &lt;BR&gt;    'set up the sprite information&lt;BR&gt;    ddsdSprite.lFlags = DDSD_CAPS Or DDSD_WIDTH Or DDSD_HEIGHT&lt;BR&gt;    ddsdSprite.ddsCaps.lCaps = DDSCAPS_OFFSCREENPLAIN&lt;BR&gt;    ddsdSprite.lWidth = 64&lt;BR&gt;    ddsdSprite.lHeight = 64&lt;BR&gt;    ddcKey.low = 0&lt;BR&gt;    ddcKey.high = 0&lt;BR&gt;    &lt;BR&gt;    'load the sprites&lt;BR&gt;    For n = 0 To NUMSPRITES&lt;BR&gt;        Set ddSprites(n) = ddraw.CreateSurfaceFromFile(App.Path &amp;amp; _&lt;BR&gt;            "\directx.bmp", ddsdSprite)&lt;BR&gt;        rSprite.Bottom = ddsdSprite.lHeight&lt;BR&gt;        rSprite.Right = ddsdSprite.lWidth&lt;BR&gt;        SpriteX(n) = Random(SCREENWIDTH - ddsdSprite.lWidth)&lt;BR&gt;        SpriteY(n) = Random(SCREENHEIGHT - ddsdSprite.lHeight)&lt;BR&gt;        Do Until SpeedX(n) &amp;lt;&amp;gt; 0&lt;BR&gt;            SpeedX(n) = Random(6) - 3&lt;BR&gt;        Loop&lt;BR&gt;        Do Until SpeedY(n) &amp;lt;&amp;gt; 0&lt;BR&gt;            SpeedY(n) = Random(6) - 3&lt;BR&gt;        Loop&lt;BR&gt;        ddSprites(n).SetColorKey DDCKEY_SRCBLT, ddcKey&lt;BR&gt;    Next n&lt;BR&gt;    &lt;BR&gt;    'main game loop&lt;BR&gt;    Do While bRunning&lt;BR&gt;        lCounter = GetTickCount - lStartTime&lt;BR&gt;        If lCounter &amp;gt; lNewTime Then&lt;BR&gt;            'update game display&lt;BR&gt;            Game_Update lCounter&lt;BR&gt;            'update frame count&lt;BR&gt;            lNewTime = lCounter + 1000 / MAXFRAMERATE&lt;BR&gt;        End If&lt;BR&gt;        DoEvents&lt;BR&gt;    Loop&lt;BR&gt;    &lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)&lt;BR&gt;    If KeyCode = 27 Then Shutdown&lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)&lt;BR&gt;    Shutdown&lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;Private Sub Form1_Click()&lt;BR&gt;    Shutdown&lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;Private Sub Picture1_Click()&lt;BR&gt;    Shutdown&lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;Private Sub Shutdown()&lt;BR&gt;    bRunning = False&lt;BR&gt;    Form1.Hide&lt;BR&gt;    ddraw.RestoreDisplayMode&lt;BR&gt;    ddraw.SetCooperativeLevel Picture1.hWnd, DDSCL_NORMAL&lt;BR&gt;    Set ddraw = Nothing&lt;BR&gt;    Set objDX = Nothing&lt;BR&gt;    End&lt;BR&gt;End Sub&lt;BR&gt;&lt;BR&gt;&lt;/FONT&gt;&lt;A class=kLink oncontextmenu="return false;" id=KonaLink3 &amp;#111;nmouseover=adlinkMouseOver(event,this,3); style="POSITION: static; TEXT-DECORATION: underline! important" &amp;#111;nclick=adlinkMouseClick(event,this,3); &amp;#111;nmouseout=adlinkMouseOut(event,this,3); href="http://www.xtremevbtalk.com/showthread.php?t=304851#" target=_top&gt;&lt;FONT style="FONT-WEIGHT: 400; FONT-SIZE: 10pt; COLOR: blue! important; FONT-FAMILY: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; POSITION: static"&gt;&lt;FONT color=#33bb33&gt;&lt;SPAN class=kLink style="FONT-WEIGHT: 400; FONT-SIZE: 10pt; COLOR: blue! important; FONT-FAMILY: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; POSITION: relative"&gt;Public &lt;/SPAN&gt;&lt;SPAN class=kLink style="FONT-WEIGHT: 400; FONT-SIZE: 10pt; COLOR: blue! important; FONT-FAMILY: verdana, geneva, lucida, 'lucida grande', arial, helvetica, sans-serif; POSITION: relative"&gt;Function&lt;/SPAN&gt;&lt;/FONT&gt;&lt;/FONT&gt;&lt;/A&gt;&lt;FONT color=#33bb33&gt; Random(ByVal lNum As Long) As Long&lt;BR&gt;    Random = CLng(lNum * Rnd)&lt;BR&gt;End Function&lt;BR&gt;&lt;BR&gt;Public Sub Game_Update(ByVal MS As Long)&lt;BR&gt;    Static lTimer As Long&lt;BR&gt;    Static lStart As Long&lt;BR&gt;    Static lCounter As Long&lt;BR&gt;&lt;BR&gt;    'start counting draw time&lt;BR&gt;    lStart = GetTickCount&lt;BR&gt;&lt;BR&gt;    'erase sprites&lt;BR&gt;    For n = 0 To NUMSPRITES&lt;BR&gt;        rTemp.Left = SpriteX(n)&lt;BR&gt;        rTemp.Top = SpriteY(n)&lt;BR&gt;        rTemp.Right = rTemp.Left + ddsdSprite.lWidth&lt;BR&gt;        rTemp.Bottom = rTemp.Top + ddsdSprite.lHeight&lt;BR&gt;        ddBackBuffer.BltFast SpriteX(n), SpriteY(n), ddBackground, _&lt;BR&gt;            rTemp, DDBLTFAST_WAIT&lt;BR&gt;    Next n&lt;BR&gt;    &lt;BR&gt;    'move and draw the sprites&lt;BR&gt;    For n = 0 To NUMSPRITES&lt;BR&gt;        'update X position&lt;BR&gt;        SpriteX(n) = SpriteX(n) + SpeedX(n)&lt;BR&gt;        If SpriteX(n) &amp;lt; 1 Then&lt;BR&gt;            SpeedX(n) = -SpeedX(n)&lt;BR&gt;            SpriteX(n) = 1&lt;BR&gt;        ElseIf SpriteX(n) + ddsdSprite.lWidth &amp;gt; SCREENWIDTH Then&lt;BR&gt;            SpeedX(n) = -SpeedX(n)&lt;BR&gt;            SpriteX(n) = SCREENWIDTH - ddsdSprite.lWidth - 1&lt;BR&gt;        End If&lt;BR&gt;&lt;BR&gt;        'update Y position&lt;BR&gt;        SpriteY(n) = SpriteY(n) + SpeedY(n)&lt;BR&gt;        If SpriteY(n) &amp;lt; 1 Then&lt;BR&gt;            SpeedY(n) = -SpeedY(n)&lt;BR&gt;            SpriteY(n) = 1&lt;BR&gt;        ElseIf SpriteY(n) + ddsdSprite.lHeight &amp;gt; SCREENHEIGHT Then&lt;BR&gt;            SpeedY(n) = -SpeedY(n)&lt;BR&gt;            SpriteY(n) = SCREENHEIGHT - ddsdSprite.lHeight - 1&lt;BR&gt;        End If&lt;BR&gt;&lt;BR&gt;        'draw the sprite&lt;BR&gt;        rTemp.Left = SpriteX(n)&lt;BR&gt;        rTemp.Top = SpriteY(n)&lt;BR&gt;        rTemp.Right = SpriteX(n) + ddsdSprite.lWidth&lt;BR&gt;        rTemp.Bottom = SpriteY(n) + ddsdSprite.lHeight&lt;BR&gt;        ddBackBuffer.Blt rTemp, ddSprites(n), rSprite, _&lt;BR&gt;            DDBLT_WAIT Or DDBLT_KEYSRC&lt;BR&gt;    Next n&lt;BR&gt;    &lt;BR&gt;    'copy double buffer to the screen&lt;BR&gt;    objDX.GetWindowRect Picture1.hWnd, rScreen&lt;BR&gt;    ddScreen.Blt rScreen, ddBackBuffer, rBackBuffer, DDBLT_WAIT&lt;BR&gt;&lt;BR&gt;    'count the frames per second&lt;BR&gt;    If MS &amp;gt; lTimer + 1000 Then&lt;BR&gt;        lStart = GetTickCount - lStart&lt;BR&gt;        Form1.Caption = "FPS = " &amp;amp; lCounter &amp;amp; ", MS = " &amp;amp; lStart&lt;BR&gt;        lTimer = MS&lt;BR&gt;        lCounter = 0&lt;BR&gt;    Else&lt;BR&gt;        lCounter = lCounter + 1&lt;BR&gt;    End If&lt;BR&gt;End Sub&lt;/FONT&gt;</description><pubDate>Tue, 10 Mar 2009 18:51:04 GMT</pubDate><dc:creator>Wolfstrike</dc:creator></item><item><title>VB 2008, multiple choice quiz!</title><link>http://www.a1vbcode.com/vbforums/Topic27121-8-1.aspx</link><description>I'm a College student and im making a project right now for my VB class.&lt;/P&gt;&lt;P&gt;It's going to be a multiple choice programm, with 13 catagories and in each catagory 10 questions.&lt;/P&gt;&lt;P&gt;I'm quite new to VB and codes/programing, if anyone has anything helpful to share, that would be greatly appreciated, thanks!</description><pubDate>Wed, 25 Feb 2009 08:49:25 GMT</pubDate><dc:creator>lax87</dc:creator></item><item><title>MEMORY GAME</title><link>http://www.a1vbcode.com/vbforums/Topic26911-8-1.aspx</link><description>how can i show the pictures for 5 seconds then flip it back to show the back part of the card to continue on the game proper.&lt;br&gt;i managed to use 2 timers but the second timer did not run as I want. &lt;br&gt;&lt;br&gt;here are the codes:&lt;br&gt;Private Sub Timer1_Timer()&lt;br&gt;Image1.Visible = True&lt;br&gt;Image2.Visible = True&lt;br&gt;Image3.Visible = True&lt;br&gt;Image4.Visible = True&lt;br&gt;Image5.Visible = True&lt;br&gt;Image6.Visible = True&lt;br&gt;End Sub&lt;br&gt;&lt;br&gt;Private Sub Timer2_Timer()&lt;br&gt;Picture1.Visible = True&lt;br&gt;Picture2.Visible = True&lt;br&gt;Picture3.Visible = True&lt;br&gt;Picture4.Visible = True&lt;br&gt;Picture5.Visible = True&lt;br&gt;Picture6.Visible = True&lt;br&gt;Timer2.Enabled = once&lt;br&gt;End Sub &lt;br&gt;&lt;br&gt;ANOTHER PROBLEM:&lt;br&gt;how can I make the two pictures stay if they matched then flip back if they don't?&lt;br&gt;by using tags? how? &lt;br&gt;&lt;br&gt;PS&lt;br&gt;&lt;br&gt;I'm using VB 6 just as our computer teacher asked us.&lt;br&gt;Please tell me what's wrong with what I did.&lt;br&gt;&lt;br&gt;Help me please! &lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/BigGrin.gif" border="0" title="BigGrin"&gt;</description><pubDate>Sat, 31 Jan 2009 01:13:11 GMT</pubDate><dc:creator>imkoala</dc:creator></item><item><title>8 number puzzle game in vb6</title><link>http://www.a1vbcode.com/vbforums/Topic26721-8-1.aspx</link><description>please help me with my project in 8 number puzzle game&lt;br&gt;please help me with the code</description><pubDate>Wed, 14 Jan 2009 01:06:51 GMT</pubDate><dc:creator>funkmaster24</dc:creator></item><item><title>my question about???</title><link>http://www.a1vbcode.com/vbforums/Topic26529-8-1.aspx</link><description>It has to do with the same old story I've posted weeks ago..... and I'm so angry about VB. Net (1.1) ....&lt;br&gt;&lt;br&gt;Someone solve me this one, please:&lt;br&gt;----------------------------------------&lt;br&gt;Public Class Thinger&lt;br&gt;&lt;br&gt;  Private arrThings As ArrayList&lt;br&gt;&lt;br&gt;  Public Sub New()&lt;br&gt;    Me.arrThings = New ArrayList()&lt;br&gt;  End Sub&lt;br&gt;&lt;br&gt;  Public Sub AddThing(String thingId)&lt;br&gt;    Dim x As New Thing(thingId)&lt;br&gt;    Me.arrThings.Add(x)&lt;br&gt;  End Sub&lt;br&gt;&lt;br&gt;  Public Function GetThings() As Thing()&lt;br&gt;    Return CType(Me.arrThings.ToArray(?#@!?), Thing())&lt;br&gt;  End Function&lt;br&gt;&lt;br&gt;End Class</description><pubDate>Tue, 23 Dec 2008 04:39:59 GMT</pubDate><dc:creator>vikas</dc:creator></item><item><title>My picture is showing white</title><link>http://www.a1vbcode.com/vbforums/Topic21823-8-1.aspx</link><description>I have imported a picture (JPEG) for a game and where it should be transparent it shows white. So it would help if you could tell me how to fix it.</description><pubDate>Tue, 01 May 2007 09:13:20 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>controls</title><link>http://www.a1vbcode.com/vbforums/Topic26258-8-1.aspx</link><description>hey im making (or trying to) a game and i want to know how to make the person go diagnal and also be able to shoot&lt;P&gt;and walls and gravity(im new to vb)&lt;/P&gt;&lt;P&gt;and my parents dont let me download so...(can you PLEASE just put the code for the things)</description><pubDate>Sun, 16 Nov 2008 12:30:04 GMT</pubDate><dc:creator>austinst</dc:creator></item><item><title>Whack a mole game</title><link>http://www.a1vbcode.com/vbforums/Topic22061-8-1.aspx</link><description>can someone help me out? or like... send me a step by step so I can not fail and be happy and prospherous? thanks :]</description><pubDate>Mon, 04 Jun 2007 23:22:20 GMT</pubDate><dc:creator>Fent00zler</dc:creator></item><item><title>image rotation around x-axis(x-rotation)</title><link>http://www.a1vbcode.com/vbforums/Topic22737-8-1.aspx</link><description>I am developing a graphic application for album creation in vb.net 2005.&lt;/P&gt;&lt;P&gt;I have to rotate image around x-axis(x-rotation).&lt;/P&gt;&lt;P&gt;Anyone have idea how can i do that?</description><pubDate>Sat, 18 Aug 2007 01:49:24 GMT</pubDate><dc:creator>riazulhaq</dc:creator></item><item><title>Playing a video on a surface</title><link>http://www.a1vbcode.com/vbforums/Topic24545-8-1.aspx</link><description>Hi all. If you havent realized by now lol, I want to play a video on a DirectDrawSurface in DirectX7. Is this possible? If not, is there an alternative method of playing videos that wont make my DirectX fullscreen window minimize? I'm using the ActiveMovie Control Type Library which unfortunately makes my app minimize every time I want to play something (a video). Also, it obviously wont allow me to have a video play in the background and have my other surfaces move around in the foreground or something cool like that XD. Any ideas? Thanks &lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/BigGrin.gif" border="0" title="BigGrin"&gt;</description><pubDate>Sun, 06 Apr 2008 00:28:08 GMT</pubDate><dc:creator>kazamamakoto</dc:creator></item><item><title>How to send email</title><link>http://www.a1vbcode.com/vbforums/Topic25031-8-1.aspx</link><description>I want to how to send an email to a known address using vb</description><pubDate>Wed, 28 May 2008 03:14:30 GMT</pubDate><dc:creator>TheProgrammer</dc:creator></item><item><title>softwares needed to do game programming...???</title><link>http://www.a1vbcode.com/vbforums/Topic24768-8-1.aspx</link><description>Hi....&lt;br&gt;&lt;br&gt;ex: I want to create a counter strike game.....&lt;br&gt;&lt;br&gt;What are the softwares need to install to do game programming....???&lt;br&gt;and&lt;br&gt;What would be the minimum system requirements????&lt;br&gt;&lt;br&gt;somebody....????&lt;br&gt;&lt;br&gt;&lt;br&gt;</description><pubDate>Tue, 29 Apr 2008 13:40:30 GMT</pubDate><dc:creator>harrylennox</dc:creator></item><item><title>card game help</title><link>http://www.a1vbcode.com/vbforums/Topic21820-8-1.aspx</link><description>i need to make a way to get the cards in a memory card game in a random order each time. i can get the cards in a random order however i do not no how 2 get the cards to appear in pairs in the random order.</description><pubDate>Tue, 01 May 2007 00:56:09 GMT</pubDate><dc:creator>melkor</dc:creator></item><item><title>Screen size and Computer Resolution</title><link>http://www.a1vbcode.com/vbforums/Topic24790-8-1.aspx</link><description>Hi, I'm trying to create an RPG using Visual Basic 2005. &lt;/P&gt;&lt;P&gt;This is my second time for trying to make a game on this scale, the first game I tried to make had a problem with the screen size, when I played it on a smaller screen resolution part of the screen was hidden.&lt;/P&gt;&lt;P&gt;What size should I make my screen or what can I do to make my game workable on full screen for all screen resolutions?</description><pubDate>Wed, 30 Apr 2008 18:49:33 GMT</pubDate><dc:creator>KTC_88</dc:creator></item><item><title>Does gaming need a widescreen</title><link>http://www.a1vbcode.com/vbforums/Topic24072-8-1.aspx</link><description>&lt;FONT face="Courier New" color=#bb5555 size=3&gt;I am buying a new pc mainly for gaming and just wondering if I really need a widescren lcd monitor? &lt;BR&gt;Does a widescreen monitor make any difference for games or should i save myself around €500 by keeping my current 19inch lcd which seems to be in fine condition? I plan to have a 768MB nVidia GeForce 8800 GTX graphics card if that makes any difference to the subject.&lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/Wink.gif" border="0" title="Wink"&gt;&lt;img align="absmiddle" src="http://www.a1vbcode.com/vbforums/Skins/Classic/Images/EmotIcons/Tongue.gif" border="0" title="Tongue"&gt;&lt;/FONT&gt;&lt;BR&gt;</description><pubDate>Fri, 01 Feb 2008 03:58:40 GMT</pubDate><dc:creator>chaky</dc:creator></item><item><title>Xtremely Important DirectX Real-Time Character Animation</title><link>http://www.a1vbcode.com/vbforums/Topic23748-8-1.aspx</link><description>&lt;br&gt;Hi to all Visual Basic-DirectX Programmers,&lt;br&gt;&lt;br&gt;I am developing a character animation program just like Poser in DirectX 8.1. I know that it is possible to animate the frames in .X files by parsing the .X file and manipulate the frames in run-time. Although, the route to it seems to be very long instead of direct frame trasformation.&lt;br&gt;&lt;br&gt;If anyone of you have directly transformed the Frame Rotation matrix in runtime please help me in writing similar code.&lt;br&gt;&lt;br&gt;I expect the process in following steps:&lt;br&gt;&lt;br&gt;1) Loading .X file into program ..................(done)&lt;br&gt;2) Loading SkinMesh Information.&lt;br&gt;3) Transforming Frame Matrix.&lt;br&gt;4) Updating Frames&lt;br&gt;5) Display Skinned Mesh.&lt;br&gt;&lt;br&gt;I have read most of skinned mesh documents, but I still find them confusing.&lt;br&gt;&lt;br&gt;What I want just is rotate a character body part in run-time using Frame Transformation Matrix.&lt;br&gt;&lt;br&gt;Thanks in advance.&lt;br&gt;&lt;b&gt;&lt;/b&gt;</description><pubDate>Tue, 11 Dec 2007 07:46:59 GMT</pubDate><dc:creator>vbinterface</dc:creator></item><item><title>Hex Editing or something like it.</title><link>http://www.a1vbcode.com/vbforums/Topic23350-8-1.aspx</link><description>I'm using VB 6.0 and I'm trying to make an editor for an old playstation game. I'm using CDmage to extract files off of the CD. I can use a hex editor to edit the files, but I want to us VB to automate the process and make it more user friendly. I'm not a total newb with VB but what I'm looking to do, I might as well be. I've looked at over 100 pages here of code and programs looking for something that I can use to build on. I found one good hex editor, but it's quite complex for me and the author wrote it with almost no comments so I'm not making heads or tails of it. I'm hoping that someone can help me with some simple coding to edit in hex, I don't actually want to display the hex at all, just have it so users can select something out of a list box and have my program change the file I'm editing. I'm not sure I'm making myself clear but any help would be much appreciated.</description><pubDate>Thu, 18 Oct 2007 02:06:09 GMT</pubDate><dc:creator>Oblivion_Of_Pain</dc:creator></item><item><title>Using Dance Pad (Mad Catz USB) within VB6</title><link>http://www.a1vbcode.com/vbforums/Topic22548-8-1.aspx</link><description>I am looking for help (sample code) for working with dance pads, am trying to develop excersice program for CP kids that  easy to tailor to kids ablity. How do I open the device in VB and does anyone know data sequence when pad is stepped on, it appears to be a 10 button input (game controller) device after it is installed with some information on X and Y location with some data on rotation.</description><pubDate>Sat, 21 Jul 2007 09:02:20 GMT</pubDate><dc:creator>GAITman</dc:creator></item><item><title>drawImage problems</title><link>http://www.a1vbcode.com/vbforums/Topic22456-8-1.aspx</link><description>&lt;SPAN&gt; &lt;P&gt;&lt;FONT size=4&gt;Hi, i'm completely new to VB but not at all new to programming. I'm trying to create a very basic first program with Visual Basic .Net 2005 but keep getting an error that I have no idea how to handle.&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT size=4&gt;My code:&lt;/FONT&gt;&lt;/P&gt;&lt;FONT color=#0000ff size=2&gt;&lt;P&gt;Public&lt;/FONT&gt;&lt;FONT color=#000000 size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Class&lt;/FONT&gt;&lt;FONT size=2&gt;&lt;FONT color=#000000&gt; Form1&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Private&lt;/FONT&gt;&lt;FONT size=2&gt; mImage &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;As&lt;/FONT&gt;&lt;FONT size=2&gt; Image&lt;/P&gt;&lt;P&gt;&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Private&lt;/FONT&gt;&lt;FONT size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Sub&lt;/FONT&gt;&lt;FONT size=2&gt; Panel1_Paint(&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;ByVal&lt;/FONT&gt;&lt;FONT size=2&gt; sender &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;As&lt;/FONT&gt;&lt;FONT size=2&gt; System.Object, &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;ByVal&lt;/FONT&gt;&lt;FONT size=2&gt; e &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;As&lt;/FONT&gt;&lt;FONT size=2&gt; System.Windows.Forms.PaintEventArgs) &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Handles&lt;/FONT&gt;&lt;FONT size=2&gt; Panel1.Paint&lt;/P&gt;&lt;P&gt;mImage = Bitmap.FromFile(&lt;/FONT&gt;&lt;FONT color=#800000 size=2&gt;"C:\valve2.bmp"&lt;/FONT&gt;&lt;FONT size=2&gt;)&lt;/P&gt;&lt;/FONT&gt;&lt;FONT size=2&gt;&lt;P&gt;e.Graphics.DrawImage(mImage, 5, 5)&lt;/P&gt;&lt;P&gt;&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;End&lt;/FONT&gt;&lt;FONT size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Sub&lt;/P&gt;&lt;/FONT&gt;&lt;FONT size=2&gt;&lt;P&gt;&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Private&lt;/FONT&gt;&lt;FONT size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Sub&lt;/FONT&gt;&lt;FONT size=2&gt; Form1_Load(&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;ByVal&lt;/FONT&gt;&lt;FONT size=2&gt; sender &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;As&lt;/FONT&gt;&lt;FONT size=2&gt; System.Object, &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;ByVal&lt;/FONT&gt;&lt;FONT size=2&gt; e &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;As&lt;/FONT&gt;&lt;FONT size=2&gt; System.EventArgs) &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Handles&lt;/FONT&gt;&lt;FONT size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;MyBase&lt;/FONT&gt;&lt;FONT size=2&gt;.Load&lt;/P&gt;&lt;P&gt;&lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;End&lt;/FONT&gt;&lt;FONT size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Sub&lt;/P&gt;&lt;P&gt;End&lt;/FONT&gt;&lt;FONT color=#000000 size=2&gt; &lt;/FONT&gt;&lt;FONT color=#0000ff size=2&gt;Class&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT color=#0000ff size=2&gt;&lt;/FONT&gt; &lt;/P&gt;&lt;P&gt;&lt;FONT size=4&gt;My error:&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT size=4&gt;Request for the permission of type 'System.Security.Permissions.FileIOPermission, mscorlib, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089' failed.&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT size=4&gt;This error targets line 4, the "mImage = ..." part. The image exists and is located where I declare it to be. I have a form and a panel in design view. I don't know what else is wrong, but the troubleshooting tells me to use "isolated storage" (no idea what that is) or obtain/follow security permissions. Can anyone help?&lt;/FONT&gt;&lt;/P&gt;&lt;P&gt;&lt;FONT size=4&gt;(When i strip the program down to &lt;EM&gt;just &lt;/EM&gt;that line --the mImage assignment line-- i get the error even then) &lt;/FONT&gt;&lt;/P&gt;&lt;/SPAN&gt;</description><pubDate>Thu, 12 Jul 2007 11:03:25 GMT</pubDate><dc:creator>BTowal</dc:creator></item><item><title>How to move a sprite with DirectX 7?</title><link>http://www.a1vbcode.com/vbforums/Topic22311-8-1.aspx</link><description>Yo ppl =P I've tried several times to learn directX but this time I actually got it lol (^_^) anywayz, Im trying to expand my knowledge step by step, and the next step for me is to gain the power to set the .left and .top values of the objects I load as DirectDrawSurfaces and thus be able to move them around the screen (I can use both windowed mode and full screen mode, so it doesnt matter which approach u have used) and well, anyone who can give me a hand in accomplishing this task I shall bestow my thanks and blessings upon lol.</description><pubDate>Mon, 25 Jun 2007 08:10:41 GMT</pubDate><dc:creator>kazamamakoto</dc:creator></item><item><title>Making An Object do a circle</title><link>http://www.a1vbcode.com/vbforums/Topic15095-8-1.aspx</link><description>how do i make  a object to move in  a curve or a circle..........so far my object can move up down , left right etc diagonal but not in a circle or a curve how do i make it do a circle? thanks</description><pubDate>Wed, 23 Nov 2005 20:54:01 GMT</pubDate><dc:creator>halo2ring</dc:creator></item><item><title>Rotating a picture or shape</title><link>http://www.a1vbcode.com/vbforums/Topic21965-8-1.aspx</link><description>I was wondering if it was possible to rotate or flip a picture or shape during run time.</description><pubDate>Tue, 22 May 2007 13:39:34 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>how can i set a program to keep pressting 1 key</title><link>http://www.a1vbcode.com/vbforums/Topic21936-8-1.aspx</link><description>hi,, hwo can i make a program to keep hitting enter</description><pubDate>Wed, 16 May 2007 11:50:01 GMT</pubDate><dc:creator>teha908</dc:creator></item><item><title>My Frogger Game</title><link>http://www.a1vbcode.com/vbforums/Topic21769-8-1.aspx</link><description>&lt;STRONG&gt;' This is my first real game and I decided that the best thing to do would&lt;BR&gt;' be frogger but There is two things that are making it hard&lt;BR&gt;' I have used adobe photoshop to make my characters but the parts of the&lt;BR&gt;' pictures that are supposed to be transparent ( I think it might be because&lt;BR&gt;' I used a bitmap but the other is my speed of the cars, please help.&lt;BR&gt;' I haven't made the collision detection yet though.&lt;BR&gt;&lt;/STRONG&gt;&lt;P&gt;Option Explicit&lt;BR&gt;Dim level As Integer&lt;BR&gt;Public x As Integer&lt;BR&gt;Dim win As Boolean&lt;BR&gt;Dim speed(1 To 4) As Integer&lt;BR&gt;Dim car As Integer&lt;BR&gt;Dim lives As Integer&lt;/P&gt;&lt;P&gt;Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)&lt;BR&gt;    Select Case KeyCode&lt;BR&gt;        Case vbKeyLeft&lt;BR&gt;            shpman.Left = shpman.Left - 200&lt;BR&gt;        Case vbKeyRight&lt;BR&gt;            shpman.Left = shpman.Left + 200&lt;BR&gt;        Case vbKeyUp&lt;BR&gt;            shpman.Top = shpman.Top - 490&lt;BR&gt;        Case vbKeyDown&lt;BR&gt;            shpman.Top = shpman.Top + 490&lt;BR&gt;    End Select&lt;BR&gt;    &lt;BR&gt;    If shpman.Top &amp;lt; 255 Then&lt;BR&gt;        MsgBox "You win!"&lt;BR&gt;        shpman.Top = 2650&lt;BR&gt;        shpman.Left = 2040&lt;BR&gt;        win = True&lt;BR&gt;    Else&lt;BR&gt;        win = False&lt;BR&gt;    End If&lt;BR&gt;    &lt;BR&gt;    &lt;STRONG&gt;If win = True Then&lt;BR&gt;        For x = 1 To 4&lt;BR&gt;            speed(x) = Int((level * 2) * 15 * Rnd)&lt;BR&gt;        Next x&lt;BR&gt;    End If&lt;BR&gt;&lt;/STRONG&gt;    &lt;BR&gt;End Sub&lt;/P&gt;&lt;P&gt;Private Sub form_load()&lt;BR&gt;    frminfo.Show&lt;BR&gt;    tmrcommove.Enabled = True&lt;BR&gt;    frmgame.Hide&lt;/P&gt;&lt;P align=left&gt;    tmrcommove.Interval = 4&lt;BR&gt;&lt;BR&gt;    &lt;BR&gt;   &lt;STRONG&gt; For x = 1 To 4&lt;BR&gt;            speed(x) = Int((level * 2) * 15 * Rnd)&lt;BR&gt;    Next x&lt;BR&gt;&lt;/STRONG&gt;End Sub&lt;/P&gt;&lt;P&gt;Private Sub tmrcommove_Timer() &lt;STRONG&gt;' when this timer goes of it make the cars move&lt;/STRONG&gt;&lt;BR&gt;    tmrcommove.Interval = 4&lt;BR&gt;    &lt;BR&gt;    &lt;STRONG&gt;For x = 1 To 2&lt;BR&gt;        shpcar(x).Left = shpcar(x).Left - speed(1) ' these are the cars going left&lt;BR&gt;    Next x&lt;BR&gt;    &lt;BR&gt;    For x = 3 To 4&lt;BR&gt;        shpcar(x).Left = shpcar(x).Left - speed(2) ' these are other cars going left&lt;BR&gt;    Next x                                                                       ' but at different speed&lt;BR&gt;    &lt;BR&gt;    For x = 1 To 4&lt;BR&gt;        shpcar(x).Left = shpcar(x).Left + speed(3) ' cars going right as different speed&lt;BR&gt;    Next x&lt;BR&gt;    &lt;BR&gt;    For x = 7 To 8&lt;BR&gt;        shpcar(x).Left = shpcar(x).Left + speed(2)' cars going right different speed&lt;BR&gt;    Next x&lt;BR&gt;&lt;/STRONG&gt;End Sub&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;' something isn't letting the cars move, they just stay in the same place and flash &lt;/STRONG&gt;&lt;/P&gt;&lt;P&gt;&lt;STRONG&gt;' repeatedly so I am really stumped&lt;/STRONG&gt;&lt;BR&gt;</description><pubDate>Wed, 25 Apr 2007 09:10:08 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>using ip addresses</title><link>http://www.a1vbcode.com/vbforums/Topic21932-8-1.aspx</link><description>I was wondering how to use an ip address to play two player games and just type it in and go, is it hard? or simple, and to do that will I need to make a separate form for each player (sending and recieving)?</description><pubDate>Wed, 16 May 2007 09:04:26 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>I would like to be able to make a decent game with graphics for the first time.</title><link>http://www.a1vbcode.com/vbforums/Topic21633-8-1.aspx</link><description>I am a newby, I started two months ago, I wish to make some games. I have looked at some source codes but I am still clueless. So it would help so much if any one could tell me how to use  vbkey controls and use the registry for high scores.</description><pubDate>Fri, 13 Apr 2007 09:18:05 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>Coding a Game Character</title><link>http://www.a1vbcode.com/vbforums/Topic19208-8-1.aspx</link><description>I know this has been asked before but I didn't get a clear enough answer. How do you code a character to move around a screen?  I also want to know some good websites that have code snippets I believe there called, for rpg types of games.  I've looked hours on the internet but I can't find websites that tell you these types of things.</description><pubDate>Mon, 19 Jun 2006 21:42:16 GMT</pubDate><dc:creator>Link</dc:creator></item><item><title>Tips And Tricks To Making GAmes For The First Time</title><link>http://www.a1vbcode.com/vbforums/Topic21700-8-1.aspx</link><description>I have looked all over for game making instruction a I've only found samples and source codes, nothing that can or will teach what every thing means and how to use the commands and keywords.</description><pubDate>Thu, 19 Apr 2007 08:56:05 GMT</pubDate><dc:creator>DevinM</dc:creator></item><item><title>For all game programmers</title><link>http://www.a1vbcode.com/vbforums/Topic15369-8-1.aspx</link><description>I'm creating a game right now and time and time again, i come across the problem of needing an artist. Does anyone know if there are any free sites that allow you to get free pictures that others have donated?? weapon pictures (for my rpg)... a space ship for a shooter that i'm making .. i don't know where to stop. Now yes, i have created my own pictures and designed my own levels . But i'm spending more time on the actual pictures that the game itself. &lt;P&gt;Please does anyone know of a site that will free me of all this art work and so I can concentrate on Programming?</description><pubDate>Sat, 10 Dec 2005 23:30:26 GMT</pubDate><dc:creator>Im confused2321</dc:creator></item><item><title>Thirteen card game</title><link>http://www.a1vbcode.com/vbforums/Topic21114-8-1.aspx</link><description>As my sub and desc implies, i am trying to create the 'thirteen' card game with VB. It has been going great until i got up 2 making the computer opponent AI, which is proving to be very difficult. If anyone out there has successfully made the 13 card game, could u please send it to me at &lt;A href="mailto:jasonlovessaori@hotmail.com"&gt;jasonlovessaori@hotmail.com&lt;/A&gt;? Thank u very much</description><pubDate>Thu, 11 Jan 2007 01:54:07 GMT</pubDate><dc:creator>kazamamakoto</dc:creator></item><item><title>Does someone wants to build "Reversi" with me?</title><link>http://www.a1vbcode.com/vbforums/Topic20442-8-1.aspx</link><description>Well. Im new on this forum. so first of all hello everybody.&lt;br&gt;&lt;br&gt;I want to build with someone a game called "Reversi". I guess you know this game, but if not:&lt;br&gt;-all about reversi: http://en.wikipedia.org/wiki/Reversi&lt;br&gt;-play reversi: http://www.darkfish.com/turncoat/Turncoat.html&lt;br&gt;&lt;br&gt;&lt;br&gt;Acually, I want to build it 1 On 1 (2 players), and not player VS computer.&lt;br&gt;But how do you want, I don't really care...&lt;br&gt;&lt;br&gt;&lt;br&gt;So, if someone wants to build it with me he could just post here and give here ICQ or Messenger or whatever...&lt;br&gt;Thanks on time.&lt;br&gt;</description><pubDate>Sat, 14 Oct 2006 10:43:09 GMT</pubDate><dc:creator>talika_g</dc:creator></item><item><title>Some More Question to be solved.....</title><link>http://www.a1vbcode.com/vbforums/Topic19076-8-1.aspx</link><description>Hello to all of u, Manku_D here &lt;/P&gt;&lt;P&gt;Since my want to make some games but there r some problem and i m struck in that and cannot find the solution plz help me.&lt;/P&gt;&lt;P&gt;01. How to make player shoot (by gun or simple).&lt;/P&gt;&lt;P&gt;02. What is the theory of X and Y coordinates plz tell me this (urgent)&lt;/P&gt;&lt;P&gt;03. How to save and Load game.&lt;/P&gt;&lt;P&gt;04. If any one can tell me simple gravity.&lt;/P&gt;&lt;P&gt;05. How to make any thing like picture box (solid).&lt;/P&gt;&lt;P&gt;06. How to make an image moving in random direction.&lt;/P&gt;&lt;P&gt;07. How to run Gif files ( for my enemy and player)&lt;/P&gt;&lt;P&gt;       There r some other question too but i will ask them later.&lt;/P&gt;&lt;P&gt;If u know any one of the problems solution then plz tell me.&lt;/P&gt;&lt;P&gt;Do not reply telling that there is a example on the net i have searched and i cannot find how to do these tasks.&lt;/P&gt;&lt;P&gt;One more thing is that don't mind my language because my english is not very good.&lt;/P&gt;&lt;P&gt;Thanks for each and every help.</description><pubDate>Fri, 09 Jun 2006 14:48:49 GMT</pubDate><dc:creator>Manku_D</dc:creator></item></channel></rss>