Juego Piedra, Papel y Tijeras

Piedra, Papel y Tijeras By ALeks

ScreenShot:

Código:

Private Sub Image6_Click()
MsgBox "Made By Aleks", vbInformation
End
End Sub

Private Sub Image7_Click()
Display.Caption = ""
Mensaje1.Visible = True
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
Display.Caption = ""
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoJ.Caption = 0
PuntajeAcumuladoC.Caption = 0
End Sub

Private Sub Imagen1_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen1.Picture
temporizador1.Enabled = True
End Sub

Private Sub Imagen2_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen2.Picture
temporizador1.Enabled = True
End Sub

Private Sub Imagen3_Click()
Mensaje1.Visible = False
Let Jugador.Picture = Imagen3.Picture
temporizador1.Enabled = True
End Sub

Private Sub temporizador1_Timer()
'Escoge la jugada del pc al azar, el valor debe ser 1 o 2 o 3
Let temporizador1.Interval = temporizador1.Interval + 2
Randomize Timer
1 q = Int(Rnd * 3) + 1
If q = 1 And Imagen1.Picture <> Computador.Picture Then Let Computador.Picture = Imagen1.Picture Else If q = 1 Then GoTo 1
If q = 2 And Imagen2.Picture <> Computador.Picture Then Let Computador.Picture = Imagen2.Picture Else If q = 2 Then GoTo 1
If q = 3 And Imagen3.Picture <> Computador.Picture Then Let Computador.Picture = Imagen3.Picture Else If q = 3 Then GoTo 1
If temporizador1.Interval = 31 Then
Let temporizador1.Enabled = False
Let temporizador1.Interval = 1

'Empate
If Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1

PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1
PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption - 1
PuntajeC.Caption = PuntajeC.Caption - 1
Display.Caption = "Hay un empate , Ninguno gana"

' Papel le gana a piedra
ElseIf Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Papel le gana a Piedra"
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Papel le gana a Piedra "

' Piedra le gana a Tijera
ElseIf Jugador.Picture = Imagen2.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Piedra le gana a Tijera"
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen2.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Piedra le gana a Tijeras "

'Tijeras le gana a Papel
ElseIf Jugador.Picture = Imagen3.Picture And Computador.Picture = Imagen1.Picture Then
PuntajeJ.Caption = PuntajeJ.Caption + 2
Display.Caption = "Tu Ganas - Tijeras le gana a Papel"
ElseIf Jugador.Picture = Imagen1.Picture And Computador.Picture = Imagen3.Picture Then
PuntajeC.Caption = PuntajeC.Caption + 2
Display.Caption = "Tu Pierdes - Tijeras le gana a Papel"
End If
If PuntajeJ.Caption >= 8 Then
Mensaje1.Visible = True
Mensaje1.Caption = "Superaste al puntaje maximo por partida"
Display.Caption = "Juego Terminado - Tu Ganas la Partida "
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoJ.Caption = PuntajeAcumuladoJ.Caption + 1
End If
If PuntajeC.Caption >= 8 Then
Mensaje1.Visible = True
Mensaje1.Caption = "El PC supero el puntaje maximo por partida"
Display.Caption = "Juego Terminado - El PC Gana la partida"
Jugador.Picture = Interfax.Picture
Computador.Picture = Interfax.Picture
PuntajeJ.Caption = 0
PuntajeC.Caption = 0
PuntajeAcumuladoC.Caption = PuntajeAcumuladoC.Caption + 1
End If
End If
End Sub

El ejecutable:

Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

El source:

Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

Como les dije es una bobada pero esta ligado a un tuto de diseño grafico que hice para hacer botones para webs y aplicaciones:

Necesitas ser usuario para ver los enlaces Crear Usuario Hacer Sesion

	Bienvenido(a), Visitante. Favor de ingresar o registrarse. ¿Perdiste tu email de activación? - Octubre 07, 2008, 05:37:48