Juego Piedra, Papel y Tijeras

[Aleks]

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:


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

El source:


Para ver los enlaces debes ser usuario Crear Usuario o 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:


Para ver los enlaces debes ser usuario Crear Usuario o Hacer Sesion

[[p3ll3]]

  , esta bueno el code pero mejor el disenio . 

[Espectro Infernal]

Esta buenoe l juego. M egusto el diseño. Aún así hubiese ehcho el Form más grande puesto a que cuesta leer las letras un poco... Y que tal ni no hubiese puntuaciones negativas? Quizás no se hacia tan largo una partida

Muy bueno por eso

Bytes, Espectro Infernal.

[Aleks]

Me alegra que les haya gustado, lo que dice espectro es es verdad, pero lo que paso fue esto:

El progama lo hice en mi laptop, y como no me conecto nunca  con el, pues lo pase a otro equipo para colgarlo a la red, entonces , en ese pc  no estaban las mismas fuentes que utilice para el programa, y cuando hice la captura salieron las fuentes por defecto, adems se pusieron mas chiquis, ya que para los scores use una fuente tipo LCD y para los textos una fuente un poco mas grande, por eso se ve asi la interfaz.

Suertes !

[cØdΣβūSΣr]

jaja muy entretenido tocayoo!.....la verdad me ha gustado, ahora me pegare algunas viciadas^^ ........






saludos

[gigiosun]

jajaja, es muy bueno, se agradece muchooo