0votos

Juego: PARES O NONES en Gambas

por Guizans hace 10 días

Lo he hecho en Gambas, jugando el jugador contra el ordenador.

Juego: PARES O NONES Participantes: Por parejas/Indefido

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
' Gambas module file 
 
Public Sub Main() 
 
  Dim mon, manoJugador, manoOrdenador, total, ganadaOrdenador, ganadaJugador As Integer = 0 
  Dim jugada As Boolean = True 
  Dim jugadaOrdenador, jugadaJugador, tem As String = "" 
   
  Randomize 
   
  Print "Bienvenido al juego de PAR - IMPAR" 
  Print "El primero en elegir es el ordenador\n\n" 
   
  While True 
     
    If jugada Then 
      mon = Rand(1, 2) 
      jugadaOrdenador = IIf(mon = 1, "PAR", "IMPAR") 
      jugadaJugador = IIf(jugadaOrdenador = "PAR", "IMPAR", "PAR") 
      Print "El ordenador ha escogido " & jugadaOrdenador 
      Print "Tu jugada es " & jugadaJugador 
    Else 
      Print "Escoge PAR o IMPAR (1 o 2)" 
      Input tem 
      jugadaJugador = IIf(tem = "2", "IMPAR", "PAR") 
      jugadaOrdenador = IIf(jugadaJugador = "PAR", "IMPAR", "PAR") 
      Print "Tu jugada es " & jugadaJugador 
      Print "La del ordenador es " & jugadaOrdenador 
    Endif 
     
    Print "Escoge el número de dedos de la mano izquierda (1-5)" 
    Input tem 
    manoJugador = CInt(tem) 
    Print "Escoge el número de dedos de la mano derecha (1-5)" 
    Input tem 
    manoJugador += CInt(tem) 
     
    manoOrdenador = Rand(1, 5) + Rand(1, 5) 
    total = manoJugador + manoOrdenador 
    Print "La suma de todos los dedos es: " & total 
     
    If (total Mod 2) = 0 And jugadaJugador = "PAR" Then 
      Print "¡¡Has ganado!!" 
      Inc ganadaJugador 
    Else If (total Mod 2) = 0 And jugadaOrdenador = "PAR" Then 
      Print "¡¡Ha ganado el ordenador!!" 
      Inc ganadaOrdenador 
    Else If (total Mod 2) <> 0 And jugadaJugador = "IMPAR" Then 
      Print "¡¡Has ganado!!" 
      Inc ganadaJugador 
    Else If (total Mod 2) <> 0 And jugadaOrdenador = "IMPAR" Then 
      Print "¡¡Ha ganado el ordenador!!" 
      Inc ganadaOrdenador  
    Endif 
     
    Print "PARTIDAS GANADAS:" 
    Print "Ordenador: " & ganadaOrdenador 
    Print "Jugador: " & ganadaJugador 
     
    Print "¿Quieres jugar otra vez (S/N?)" 
    Input tem 
    If tem = "n" Or tem = "N" Then Break 
    jugada = IIf(jugada, False, True) 
  Wend 
 
End 

Comenta la solución

Tienes que identificarte para poder publicar tu comentario.