7 Y MEDIO

VISUAL STUDIO

~1~

PROYECTO JUEGO DE 7 Y MEDIO OBJETIVO Conseguir siete y media, es decir, que el valor de todas las cartas del jugador sume siete puntos y medio o bien se acerque el máximo a este valor sin pasarse. La banca juega contra cada uno de los puntos individualmente y su jugada ha de superar o igualar la de cada uno de ellos. En caso de empate, la banca gana TIPO BARAJA En el juego de las siete y media se utiliza la baraja española de 40 cartas ó cualquier baraja de 40 cartas que tenga 12 figuras y 28 cartas distribuidas en cuatro grupos cuyos valores sean consecutivos del 1 al 7. VALORES DE LAS CARTAS Cada una de las figuras vale medio punto. El resto de las cartas tiene el valor representado por su índice, es decir el valor indicado en la carta: el uno o as vale 1 punto; el dos, 2 puntos; el tres, 3 puntos; el cuatro, 4 puntos; el cinco, 5; el seis, 6 puntos, y el siete, 7. “J”, “Q” y “K”, valen medio punto. INICIO DEL JUEGO El primero en iniciar la partida es el jugador, pidiendo una carta tras otra hasta que decida plantarse o por el contrario se pase de 7,5, que automáticamente pierde y gana la banca.

Una vez acaba el jugador, jugará la banca Finalmente el ganador será el que más se acerca o llega a 7,5 INDICACIONES PARA LA APLICACIÓN Se debe cargar un array con las 40 cartas al inicio de la aplicación Al pulsar el botón IniciarPartida, el jugador recibe la primera carta Posteriormente irá pidiendo carta con el botón PedirCarta, hasta que se plante, con el botón Meplanto, o se pase de 7,5 Cada carta que sale debe quedar marcada en el array para que no vuelva a salir En el momento en que el jugador se pasa de 7,5 se debe recargar el array y reinicializar todo. Los botones y los labels aparecerán ocultos, salvo el botón IniciarPartida, y se irán mostrando en función de las necesidades del juego Hay un label para el jugador que irá guardando el valor acumulado, y otro para la Banca

7 Y MEDIO

VISUAL STUDIO

En primer lugar hacemos el formulario.

Las label donde van a ir las cartas de la banca se llaman: cartaBanca1, cartaBanca2, cartaBanca3, cartaBanca4 y cartaBanca5 Las label donde van a ir las cartas del jugador se llaman: cartaJugador1, cartaJugador2, cartaJugador3, cartaJugador4, cartaJugador5 El botón Iniciar: btnIniciarJuego El botón Otra Carta: btnOtraCarta El botón Me Planto: btnMePlanto

~2~

7 Y MEDIO

VISUAL STUDIO

~3~

Al comienzo del juego aparezca solo el botón Iniciar y al darle aparezca la primera carta del jugador:

Al pulsar el botón Iniciar, que aparezca la primera carta del jugador y los botones Otra Carta y Me Planto

7 Y MEDIO

VISUAL STUDIO

~4~

El código para que haga esto es el siguiente: Public Class Form1 Dim indiceCartaJugador As Integer Public Sub MostrarCartasJugador() Me.Controls("cartaJugador" & indiceCartaJugador.ToString()).Visible = True End Sub Private Sub btnIniciarJuego_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIniciarJuego.Click indiceCartaJugador = 1 MostrarCartasJugador() btnPedirCarta.Visible = True btnMePlanto.Visible = True End Sub End Class

El segundo paso es que además de mostrar la label de la primera carta del jugador que sale al darle a Inicio, le asigne un valor de la baraja. Creo una función que me cree una baraja en el array Dim Baraja(39) As String Public Sub CrearBaraja() 'Cargo el array con las 40 cartas de la baraja Dim numCarta As Integer = 0 For i As Integer = 0 To Baraja.GetUpperBound(0) If numCarta > 10 Then numCarta = 1 Baraja(i) = numCarta Else Baraja(i) = numCarta End If numCarta += 1 Next End Sub

Hay que elegir una carta al azar de esa baraja. Para ello creo una variable Random. Dim ValorAleatorio As New Random

Y la guardo en una variable (que puede ser integer) Dim cartaElegida As Integer cartaElegida = ValorAleatorio.Next(0, 39)

7 Y MEDIO

~5~

VISUAL STUDIO

Ahora ya tengo la posición del array de la baraja a la que quiero acceder. Sólo me queda acceder al array y asignar esa carta al Jugador. Para ello creo la siguiente función. Public Function cogerCartaJugador(ByVal a As Integer) ' Funcion que recibe como parametro la posicion del array ' Extraigo el valor en esa posicion, acumulo y paso el valor a las labels If Baraja(cartaElegida) 10 Then numCarta = 1 Baraja(i) = numCarta Else Baraja(i) = numCarta End If numCarta += 1 Next End Sub Public Sub MostrarCartasBanca() Me.Controls("cartaBanca" & indiceCartaBanca.ToString()).Visible = True End Sub

7 Y MEDIO

~6~

VISUAL STUDIO

Public Sub MostrarCartasJugador() Me.Controls("cartaJugador" & indiceCartaJugador.ToString()).Visible = True End Sub Public Function cogerCartaJugador(ByVal a As Integer) ' Funcion que recibe como parametro la posicion del array ' Extraigo el valor en esa posicion, acumulo y paso el valor a las labels If Baraja(cartaElegida)