Juego de Sorteo(tipo ruleta) para la UEFA Champios League

Hola todos los seguidores de mi blog, esta vez les voy a compartir un jueguito que ice en Visual Studio.NET 2010, bueno les cuento un poquito, 3 de mis amigos de la U y yo jugamos PES2010 y era un poco fastidioso estar sorteando con papelitos para ver quienes se enfrentan para jugar y es así como nació la necesidad de crear un sistemita que haga el sorteo de los equipos que van a jugar(4 jugadores).

Les explico como funciona, se trata de sortear entre 4 jugadores que tienen sus equipos pre-definidos para sortear que jugadores se enfrentaran, antes de programar fue necesario en una hoja colocar todas las alternativas posibles para que cada jugador rote por todos los PictureBox.

Ahora si pasemos a la descripción de la programación :
creen un fomulario con los siguientes controles:

luego de crear el formulario con los controles correspondientes, agregaremos un cotrol Timer1 a nuestro formulario.

Código Fuente: Timmer1.. ingresamos al Timmer1 para colocar el código:


  Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        'Inicializar la clase Random   

        ' generar un random entre 1 y 5   

        Dim Random As New Random()
        Dim numero As Integer = Random.Next(1, 7)
'el siguiente código recibe el numero que genera la función random y entra al caso correspondiente para mostrar que combinación es la que aparcera en pantalla.(Recuerden que les dije que antes de programar, en una hoja puse las combinaciones posibles para que los jugadores pasen por todos los picturebox)

        Select Case (numero)
            Case (1)
' este código carga una imagen al picturebox
'imagen del jugador
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
'Imagen de la insignia 
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
'imagen del jugador
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
'imagen de la insignia
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
            Case (2)
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
            Case (3)
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
            Case (4)
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
            Case (5)
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
            Case (6)
                Me.PictureBox1.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\3.jpg")
                Me.PictureBox5.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\33.png")
                Me.PictureBox2.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\2.jpg")
                Me.PictureBox7.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\22.png")
                Me.PictureBox3.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\1.jpg")
                Me.PictureBox8.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\11.png")
                Me.PictureBox6.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\4.jpg")
                Me.PictureBox9.Image = System.Drawing.Image.FromFile("C:\Users\juan\Documents\Visual Studio 2010\Projects\UEFA-Champioms\Imagenes\44.png")
        End Select

    End Sub


Codigo Fuente: Del button2


  Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Label10.Visible = True
        Label11.Visible = True
        Me.Timer1.Enabled = True
        Me.Timer1.Start()

    End Sub


Codigo fuente: del button2


   Private Sub Button2_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'Me.Label1.Text = z.ToString


        Me.Timer1.Enabled = False
        Timer1.Stop()

    End Sub

Listo luego de eso pueden probar su sistemita esta chvr

No se olvides de comentar o preguntar para poder resolver cualquier duda que tengan