JUEGOS VISUAL BASIC 6.0

Bienvenidos chicos a nuestro Blog , espero que le guste mucho!

Esta es la manera en la que puedes hacer un juego en visual basics:
El juego que les  vamos a presentar es como mover a Ryu (Peleador de Street Fighter)

1er paso:  Entran al programa de Visual Basic:

Abrir un nuevo proyecto

2do paso:hacer click en Image y seleccionar la imagen de RYU

3er pasos:Añadir un label a color como "piso de Ryu"

4to paso:Hacer doble click en la mitad de la pantalla
5to paso: Para hacer que Ryu camine a la derecha,debes ingresar este codigo:
Dim x as integer
Dim paso as integer
Dim des as integer
(esta parte es quitando el form load)
Después
private sub Form_keydown(Keycode as integer,shift as intefer)
if keycode =39 then
x+200
'camina a la derecha
if paso =1 then
(la imagen como la hayas guardado de Ryu la cargas)
imgryu.picture=loadpicture("c:\RYU\camder1.gif")
paso=2
elseif paso=2 then
imgryu.picture=loadpicture("c:\RYU\camder2.gif")
elseif paso=3 then
imgryu.picture=loadpicture("c:\RYU\camder3.gif")
elseif paso=4 then
imgryu.picture=loadpicture("c:\RYU\camder4.gif")
paso=1
(Recuerden que la imagen debe de ser extension .GIF)
End If
6to paso:Cuando quieres que camine a la izquierda
if keycode =37 then
x-200
'camina a la izquierda
if paso =1 then
(la imagen como la hayas guardado de Ryu la cargas)
imgryu.picture=loadpicture("c:\RYU\camizq1.gif")
paso=2
elseif paso=2 then
imgryu.picture=loadpicture("c:\RYU\camizq2.gif")
elseif paso=3 then
imgryu.picture=loadpicture("c:\RYU\camizq3.gif")
elseif paso=4 then
imgryu.picture=loadpicture("c:\RYU\camizq4.gif")
paso=1
(Recuerden que la imagen debe de ser extension .GIF)
End If

End If

Imgryu.left= x

End Sub

7mo paso: si quieren que ryu camine moviendo las piernas tienen que poner esto(cambiando de imagenes):

Form Load
paso=1
End Sub
Muchas  gracias por visitar el Blog dejen comentarios!