Programación vb inmortal

Probado, adopte si está satisfecho, gracias

Dim istop

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMillisegundos As Long)

Private Sub Command1_ Click( )

Aleatorizar temporizador

Atenuar play1, play2

Atenuar play1xue, play2xue

istop = 0

play1 = InputBox("Nombre del jugador 1")

Si LTrim(play1) = "" Entonces play1 = "PLAY1"

play2 = InputBox("Jugador 2

Si LTrim(play2) = "" Entonces play2 = "PLAY2"

play1xue = Int(100 100 * Rnd)

play2xue = Int(100 100 * Rnd)

Hacer Mientras (play1xue gt; 0 Y play2xue gt; 0)

curplay = 1

Si curplay = 1 Entonces

ss = Int( Rnd * 15 5)

play2xue = play2xue - ss

List1.AddItem (play1 & "punched" & play2 & "one punch, " & play2 & " vida perdida " amp; ss amp; ".Remaining Life" amp; play2xue)

End If

DoEvents

curplay = 2

If curplay = 2 Entonces

ss = Int(Rnd * 15 5)

play1xue = play1xue - ss

List1.AddItem (play2 amp; play2xue) AddItem ( play2 & "punched" & play1 & "one punch", & play1 & "life loss" & ss & ", restante life" & play1xue)

Finalizar si

DoEvents

Si istop = 1 Entonces istop = 0: Salir de Sub

Dormir 1000

Bucle

Si play1xue lt 0 Entonces

List1.AddItem ( play1 amp; "¡En serio fuera de combate!")

Else

List1.AddItem ( play2 amp; "¡Lesiones graves fuera de combate!")

Finalizar si

Fin Sub

Sub Comando Privado2_Click()

istop = 1

Fin Sub