Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - ka0s

#161
Cita de: YST en  9 Abril 2009, 21:18 PM
Luego de ganaste, perdiste ,empate , pones un MsgBox que haga la pregunta , si la respuesta es si ( VBYes ) pues oculatas todas las imagenes y listo =P

Estoy tratando de hacer eso de la siguiente manera:

Código (vb) [Seleccionar]

If imgpiedra.Visible = True And imgpiedra2.Visible = True Then
    resp = MsgBox ("EMPATE!! ¿Querés jugar de nuevo?"), vbQuestion + vbYesNo, "Resultado"
    If resp = vbYes Then
        Frame1.Enabled = True
        imgpiedra.Visible = False
        imgpapel.Visible = False
        imgtijera.Visible = False
    ElseIf resp = vbNo Then
        End
    End If


Pero al tratar de probar la aplicación me dice Sintax Error, y me marca la 2da línea del código anterior. Eso me aparecio desde que puse una variable adelante de todo. Pero viendo tutoriales vi que lo usan así y no tienen problema y a mi me tira ese error :S.

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

EDITT.... YA PUDE SOLUCIONAR ESTO..
muchas gracias de nuevo y disculpen :$
#162
Okz, eso lo solucioné. Muchas gracias.
Con respecto a que pregunté, volver a jugar o no? Como puedo hacer?
Donde tendría que ubicar el bucle?

Saludos!
#163
Bueno como había comentado, estoy haciendo un Piedra, Papel O Tijera.
Y mi duda es la siguiente:

Una vez que elegis la opción y ganás, perdés o empatas el programa se queda ahi. Probando y probando todavía no se me ocurrio como hacer para volver a preguntar si volver a jugar o no. Se que se haría con un bucle pero probé y todavía no lo saqué.

Pensé que funcionaría con la función load (para volver a cargar el form) pero no funcionó. Les dejo el código:

Código (vb) [Seleccionar]
Private Sub image1_Click()
Frame1.Enabled = False
imgpiedra.Visible = True

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpiedra.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpiedra.Visible = True And imgpapel2.Visible = True Then
   MsgBox ("PERDISTE!!")
ElseIf imgpiedra.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("GANASTE")
End If
End Sub

Private Sub image2_Click()
imgpapel.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpapel.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgpapel.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpapel.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("PERDISTE!!")
End If

End Sub

Private Sub image3_Click()
imgtijera.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgtijera.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("PERDISTE!!")
ElseIf imgtijera.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgtijera.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("EMPATE!!")
End If
End Sub



Y la otra duda que tengo es que porqué una vez compilado y ejecutado varias veces, el proceso siempre queda abierto? Yo juego una partida, lo cierro y vuelvo a abrir y tengo el proceso anterior abierto. Les dejo una imágen.



Como ven, ya había cerrado el juego pero el proceso se seguía ejecutando. La verdad me parece rarísimo, nunca me había sucedido.

Esas son mis dos dudas, muchas gracias como siempre

Salu2!
#164
Aclaro que al final me funciona todo correctamente.
Muchas gracias nuevamente Novlucker :)

Saludos!
#165
Muchas gracias nuevamente Novlucker, voy a poner mi código con otro "problema" que surgió (creo que es problema xD)

Código (vb) [Seleccionar]
Private Sub image1_Click()
Frame1.Enabled = False
imgpiedra.Visible = True

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpiedra.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpiedra.Visible = True And imgpapel2.Visible = True Then
   MsgBox ("PERDISTE!!")
ElseIf imgpiedra.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("GANASTE")
End If
End Sub

Private Sub image2_Click()
imgpapel.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgpapel.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgpapel.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("EMPATE!!")
ElseIf imgpapel.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("PERDISTE!!")
End If

End Sub

Private Sub image3_Click()
imgtijera.Visible = True
Frame1.Enabled = False

Randomize (Timer)
alea = Int((3 - 1 + 1) * Rnd + 1)

If alea = 1 Then
    imgpiedra2.Visible = True
ElseIf alea = 2 Then
    imgpapel2.Visible = True
ElseIf alea = 3 Then
    imgtijera2.Visible = True
End If

If imgtijera.Visible = True And imgpiedra2.Visible = True Then
    MsgBox ("PERDISTE!!")
   
ElseIf imgtijera.Visible = True And imgpapel2.Visible = True Then
    MsgBox ("GANASTE!!")
ElseIf imgtijera.Visible = True And imgtijera2.Visible = True Then
    MsgBox ("EMPATE!!")
End If
End Sub



Así lo hice yo pero probando siempre da casi igual como te decía en el anterior post. Ahora da aleatorio por ejemplo algo asi:  Piedra, Piedra, Piedra, Papel, Tijera.
Y si cierro el programa empieza Tijera Tijera Tijera, Piedra :P. Siempre da los mismos o no se si fue casualidad.

Como dije les dejo el código por ahi algo esta mal.

Muchas gracias nuevamente!
#166
Cita de: Novlucker en  8 Abril 2009, 21:34 PM
Antes de comenzar con el rnd (Random), pon "Randomize", sin comillas, con eso inicias la semilla del random y ya no se repite cada vez que lo ejecutas  :P

Es igual a esto:
http://foro.elhacker.net/scripting/vbscomo_usar_randomize-t247133.0.html
(es vbs pero la aplicación es la misma)

Saludos

Hola Novlucker, gracias por responder tan rapido.
Vi el post que me pusiste arriba. Probé eso y me dio aleatorios PERFECTAMENTE.

Randomize
for i = 1 to 3
msgbox rnd()
next

El único problema es que los daba poniendo decimales. Como puedo hacer para que sea redondeados? o sea 1 o 2 o 3 y no 0.234, 1,657 etc...

Muchas gracias!
#167
Buenas...
Tengo un problema con nº aleatorios en VB, probé muchísimos códigos de como generarlos pero siempre me repite los mismos números.
Lo que estoy haciendo es un "Piedra, papel o Tijera" y poniendo que cuando salga el número 1 muestre piedra, número 2 muestre papel y número 3 muestra tijera.

Pero como dije, todos los códigos que encontré en google no me sirvieron, o sea genera números aleatorios pero siempre que se vuelve a ejecutar el programa sigue con los mismos numeros. Siempre comienza igual.

Por ejemplo:
Elijo piedra y me sale papel xD.
Cierro el programa vuelvo a hacer lo mismo y me sale PAPEL.
O sea que siempre hace la misma secuencia de numeros, aleatorios pero la misma secuencia.

Espero que hayan entendido y me puedan a ayudar...

Muchas gracias!
#168
Juegos y Consolas / Re: counter strike 1.6
6 Marzo 2008, 02:59 AM
Tendrias que buscar servers en google
Una vez que encuentras las direcciones IP
las agregas a tus favoritos en "find servers" y listo
doble clickeas la direccion y ya puedes jugar por internet :D

Salu2!
#169
Len en VB nos dice el valor númerico de caracteres de una cadena.

Ejemplo:
Código (vb) [Seleccionar]

Dim TamanoCadena As Long

Dim MiCadena As String

MiCadena = "Mi nick es ka0s"

TamanoCadena = Len(MiCadena)


Y eso devolvería un número, en este caso 15
#170
Con que programa lo instalan el bt info?
con el nokia pc suite?
hay que pasar el archivo a .jad por lo que lei o estoy equivocado?

Muchas gracias

Saludos!