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:
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!