Normas del foro

Curso Hacker
Bienvenido(a), Visitante. Favor de ingresar o registrarse.
¿Perdiste tu email de activación? - Noviembre 18, 2008, 03:06:40
Inicio Ayuda Ingresar Registrarse
Visita: Articulos - Juegos Gratis - Da Foros

Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Juego. A ver que opinan. 0 Usuarios y 1 Visitante están viendo este tema. « anterior próximo »
Páginas: [1] Ir Abajo Imprimir
Autor Tema: Juego. A ver que opinan.  (Leído 325 veces)
registrosmardirossian
Colaborador
*****
Desconectado Desconectado

Mensajes: 671



Ver Perfil WWW Email
« en: Noviembre 12, 2006, 09:51:27 »
Se llama CarOne lo estuve creando, y quiciera que me den una mano, con respecto al alamacenamiento del nombre del jugador y su nivel o pantalla, todo esto almacenado en un txt





'Declaracion de Variables

Dim T As Integer
Dim Dificultad As String
Dim Vel As Integer
Dim AumentoV As Integer
Dim Level As Integer
Dim Leveln As Integer


Private Sub cmdComenzar_Click()

inicio:

'Semaforo

lblMsj.Visible = False
imgSR.Visible = False
imgSA.Visible = False
imgSV.Visible = False
imgRuta.Visible = True
imgRuta.Top = -10800
imgRuta.Left = 0
imgCuadraditos.Visible = False
cmdComenzar.Enabled = False

For a = 1 To 4
       lblMsj.Caption = a
       Refresh
            For b = 1 To 99999
            lblMsj.Caption = a
            Next b
    Next a
   
    imgSemOFF.Visible = False
    imgSR.Visible = True
   
        For c = 1 To 6
            lblMsj.Caption = c
            Refresh
                    For d = 1 To 99999
                    lblMsj.Caption = c
                    Next d
        Next c
       
        imgSR.Visible = False
        imgSA.Visible = True
       
            For e = 1 To 6
                lblMsj.Caption = e
                Refresh
                    For f = 1 To 99999
                    lblMsj.Caption = e
                    Next f
            Next e
           
            imgSA.Visible = False
            imgSV.Visible = True
           
                For g = 1 To 6
                    lblMsj.Caption = g
                    Refresh
                        For h = 1 To 99999
                        lblMsj.Caption = g
                        Next h
                Next g

'Mensaje de Inicio de Carrera

lblMsj.Visible = True
lblMsj.Caption = "Echa Tierra!! " + Hombre

'Corre Pista

imgRuta.Top = imgRuta.Top + 435
M = 1
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 2
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 3
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left = 0 Then
                GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g
               
imgRuta.Top = imgRuta.Top + 435
M = 4
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 5
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g
imgRuta.Top = imgRuta.Top + 0
M = 6
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 7
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 8
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 9
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 10
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 11
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 12
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 13
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 14
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 15
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g
imgRuta.Top = imgRuta.Top + 0
M = 16
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 17
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 18
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 19
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 20
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 21
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g
imgRuta.Top = imgRuta.Top + 0
M = 22
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 23
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 24
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 25
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 26
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 27
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 28
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 29
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 30
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 31
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g
imgRuta.Top = imgRuta.Top + 0
M = 32
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 33
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 34
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 35
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 36
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left = 0 Then
                GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g
               
imgRuta.Top = imgRuta.Top + 435
M = 37
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                      Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 38
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                    For h = 1 To 999999
                        Next h
                Next g
imgRuta.Top = imgRuta.Top + 435
M = 39
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 40
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 41
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 600 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 0
M = 42
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 43
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 44
'lblMsj.Caption = M
DoEvents
            If imgArojo.Left And imgAverde.Left And imgAazul.Left = 30 Then
            GoTo Perdi
            End If
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 45
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 46
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 47
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
M = 48
'lblMsj.Caption = M
DoEvents
                For g = 1 To Vel
                 For h = 1 To 999999
                   Next h
                Next g

imgRuta.Top = imgRuta.Top + 435
imgCuadraditos.Visible = True

               For g = 1 To 50
                 For h = 1 To 999999
                   Next h
                Next g
               
GoTo Ganaste

'Juego Ganado

Ganaste:

lblMsj.Caption = "Ganaste!! " + Hombre
imgCuadraditos.Visible = True

Level = 1
Leveln = Leveln + Level
AumentoV = 1
Vel = Vel - AumentoV

lblnpantalla.Caption = Leveln
               For g = 1 To 50
                 For h = 1 To 999999
                   Next h
                Next g
               
'Almacenando Puntaje




GoTo inicio

'Juego Perdido

Perdi:
         imgRuta.Visible = False
         imgArojo.Visible = False
         imgAverde.Visible = False
         imgAazul.Visible = False
                For g = 1 To 25
                 For h = 1 To 999999
                   Next h
                Next g
lblMsj.Caption = "Perdiste " + Hombre
               

End Sub

Private Sub cmdNuevo_Click()

'Ajustando Opciones de CarOne

imgArojo.Visible = False
imgAverde.Visible = False
imgAazul.Visible = False

imgRojo.Visible = True
imgVerde.Visible = True
imgAzul.Visible = True

optRojo.Enabled = True
optVerde.Enabled = True
optAzul.Enabled = True

imgRuta.Visible = False
cmdComenzar.Enabled = False
lblnpantalla.Caption = "0"

imgSR.Visible = False
imgSA.Visible = False
imgSV.Visible = False
imgSemOFF.Visible = True

'Barra de dificultad con el color predeterminado

If hsbDificultad.Value = 1 Then
       txtDificultad.BackColor = RGB(255, 151, 1)
       Else
        If hsbDificultad.Value = 2 Then
        txtDificultad.BackColor = RGB(255, 118, 1)
        Else
          If hsbDificultad.Value = 3 Then
          txtDificultad.BackColor = RGB(255, 77, 1)
          End If
        End If
       End If
       
'Botones de Opcion sin seleccion

optRojo.Value = False
optVerde.Value = False
optAzul.Value = False

imgRuta.Top = -10800

V1 = 10

End Sub

Private Sub hsbDificultad_Change()

'Nivel de Dificultad

txtDificultad.Text = CStr(hsbDificultad.Value)
Dificultad = CInt(txtDificultad.Text)

If Dificultad = 1 Then
    Vel = 20
    txtDificultad.BackColor = RGB(255, 151, 1)
    Else
     If Dificultad = 2 Then
     Vel = 10
     txtDificultad.BackColor = RGB(255, 118, 1)
        Else
         If Dificultad = 3 Then
        Vel = 5
        txtDificultad.BackColor = RGB(255, 77, 1)
End If
End If
End If

End Sub

Private Sub Form_Load()
hsbDificultad.Value = 1
Vel = 20
End Sub


Private Sub imgDer_Click()

'Flecha o Cursor de movimiento hacia la derecha

imgArojo.Left = 600
imgAverde.Left = 600
imgAazul.Left = 600

End Sub

Private Sub imgIzq_Click()

'Flecha o Cursor de movimiento hacia la izquierda

imgArojo.Left = 30
imgAverde.Left = 30
imgAazul.Left = 30

End Sub

Private Sub MEditores_Click()
Car.Visible = False
frmEdit.Visible = True

End Sub

Private Sub MSalir_Click()

'Menu Salir

End
End Sub

Private Sub optAzul_Click()

'Boton de opcion auto Ford color Azul

imgRojo.Visible = True
imgVerde.Visible = True
imgAzul.Visible = False

imgArojo.Visible = False
imgAverde.Visible = False
imgAazul.Visible = True

optRojo.Enabled = False
optVerde.Enabled = False

cmdComenzar.Enabled = True

End Sub

Private Sub optRojo_Click()

'Boton de opcion auto Ferrari color Rojo

imgRojo.Visible = False
imgVerde.Visible = True
imgAzul.Visible = True

imgArojo.Visible = True
imgAverde.Visible = False
imgAazul.Visible = False

optVerde.Enabled = False
optAzul.Enabled = False

cmdComenzar.Enabled = True

End Sub

Private Sub optVerde_Click()

'Boton de opcion auto Chevrolet color Verde

imgRojo.Visible = True
imgVerde.Visible = False
imgAzul.Visible = True

imgArojo.Visible = False
imgAverde.Visible = True
imgAazul.Visible = False

optRojo.Enabled = False
optAzul.Enabled = False

cmdComenzar.Enabled = True

End Sub


-----------------------------------------------------------------------------------------------------

Bueno espero comentarios, sobre todo el q me solucinen el tema de como almacenar el nombre del jugador y su nivel en un txt, y tambien como hacer para que el coche se mueva por medio de LeftArrow y RightArrow, o sea las flechitas del teclado izquierda y derecha.

Gracias

Link no actualizado pero funciona


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

Salu2 Grin Grin Grin Grin
*EOF*
« Última modificación: Noviembre 12, 2006, 10:51:45 por registrosmardirossian » En línea
Suerte
SAlu2 Cheesy Cheesy Cheesy Cheesy
*EOF*


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Web
DrakoX
Habitual
*****
Desconectado Desconectado

Mensajes: 365


favor@depreguntar.com
Ver Perfil
« Respuesta #1 en: Noviembre 13, 2006, 01:07:30 »
En línea
sNipeR-
Visitante
« Respuesta #2 en: Noviembre 13, 2006, 01:23:10 »
Citar
Bueno espero comentarios, sobre todo el q me solucinen el tema de como almacenar el nombre del jugador y su nivel en un txt

Tambien puedes guardar la configuraciones en el registro.
Investiga sobre el SaveSetting y GetSetting.

Salu2
En línea
darknessfeatsunny
Visitante
« Respuesta #3 en: Noviembre 13, 2006, 01:55:54 »
esta muy imaginativo tu game....yo tengo otros que ice ace un siglo y medio cuando empece en esto del vb....el problema esqe ya no tengo ni el code,pero los guarde de recuerdo...jejeje...

se los pongo aqi:


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion

me gustaria que me dieran una critica acerca de eyos...realmente uno de los dos engancha...

un saludo
En línea
darknessfeatsunny
Visitante
« Respuesta #4 en: Noviembre 13, 2006, 02:06:26 »
ay un peque problem con el link,lo intentare arreglar...
En línea
darknessfeatsunny
Visitante
« Respuesta #5 en: Noviembre 13, 2006, 02:24:54 »
ya lo arregle.pulsar "Misjuegos" en la pag web que aparece....

un saludo...y a ver que opinan
En línea
registrosmardirossian
Colaborador
*****
Desconectado Desconectado

Mensajes: 671



Ver Perfil WWW Email
« Respuesta #6 en: Noviembre 13, 2006, 06:00:51 »
Muy divertido el de Futbol, jaja

Gracias por la atencion y por los comentarios.

Suerte
Salu2 Grin Grin Grin Grin
*EOF
En línea
Suerte
SAlu2 Cheesy Cheesy Cheesy Cheesy
*EOF*


Necesitas ser usuario para ver los enlaces Crear Usuario  Hacer Sesion
Web
Páginas: [1] Ir Arriba Imprimir 
Comunidad Underground Hispana  |  Programacion  |  Programación  |  Visual Basic y Net (Moderador: ANYD00M)  |  Tema: Juego. A ver que opinan. « anterior próximo »
Ir a:  


Ranking-Hits
Powered by SMF 1.1.7 | SMF © 2006-2007, Simple Machines LLC