4
« en: 11 de Mayo 2015, 12:36 »
Hola de nuevo : Alex pues si es bastante complicado y creo que empece muy fuerte, la teoría del juego la tengo porque soy vicioso de este juego, y soy consciente que es muy complicado. Bueno vamos al tema los picturebox los tengo en archivos de recurso del proyecto y definidos con el tag o el nombre a cada imagen, como ya comenté antes el problema lo tengo cuando hago click en una imagen o ficha. como puedo comparar una con otra? pregunto he existe la posibilidad de enumera las imagen ?? seria una opción, de todas formas le enviare el codígo del random y el click de una de las imagen. A ver qué hago mal. A continuación del random hay un select case que es el turno donde empieza el jugado con la 1ª ficha a colocar. gracias de nuevo sr. Alex.
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'MEZCLAR Y REPARTIR FICHAS
Dim listaimagenes As New List(Of Image)
For index = 1 To 28
Dim picture As PictureBox = Me.Controls.Item("PictureBox" + index.ToString())
listaimagenes.Add(picture.Image.Tag)
Next
Dim rnd As New Random(DateTime.Now.Millisecond)
For inde = 1 To 28
Dim pos As Integer = rnd.Next(listaimagenes.Count)
Dim picture As PictureBox = Me.Controls.Item("PictureBox" + inde.ToString())
picture.Image = listaimagenes(pos)
Timer1.Start()
listaimagenes.RemoveAt(pos)
Next
counter = 0
Timer1.Interval = 20
Timer1.Enabled = True
'Primero desabilitas los 4 botones
Button2.Visible = False
Button5.Visible = False
Button4.Visible = False
Button3.Visible = False
Dim temp As Integer = rnd.[Next](1, 4)
Select Case temp
Case 1
Button2.Visible = True
Button2.Enabled = True
Button2.Text = "Juego yo " & sender.tag
Button2.Focus()
Button2.BackColor = Color.Cyan
Exit Select
Case 2
Button3.Visible = True
Button3.Enabled = True
Button3.Text = "Juego yo " & sender.tag
Button3.Focus()
Button3.BackColor = Color.Cyan
Exit Select
Case 3
Button4.Visible = True
Button4.Enabled = True
Button4.Text = "Juego yo " & sender.tag
Button4.Focus()
Button4.BackColor = Color.Cyan
Exit Select
Case 4
Button5.Visible = True
Button5.Enabled = True
Button5.Text = "Juego yo " & sender.tag
Button5.Focus()
Button5.BackColor = Color.Cyan
Exit Select
Case Else
Exit Select
End Select
End Sub] Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
' IZQUIERDA
PictureBox1.Location = New Point(425, 200)
PictureBox1.Image.RotateFlip(RotateFlipType.Rotate270FlipNone)
PictureBox1.Width = 69
PictureBox1.Height = 50
Label2.Text = "Picture1" & sender.tag
Button4.Visible = False
Button3.Visible = True
Button3.BackColor = Color.Cyan
End Sub