Control Usuario + Ejercicio "Tateti"

[Severino]

Primero va el de control de usuario:
Psar a mayúscula la primer letra, no permitir escribir números ni borrar y una perlita, el que toca el botón que dice "Tocame", puede reclamar un premio de 10 pesos en tesorería.
 

Posted on: Septiembre 18, 2007, 11:32:28 y Aca, el ejercicio de tateti. La parte de chequear el tateti la hice con IF, hay una manera mejor de hacerlo con for peor no esatba inspirado...

Posted on: Septiembre 18, 2007, 11:34:27 Recuerden q hay q estar logueado para descargar adjuntos

[archivo adjunto borrado por el administrador]

[Pac-man]

Lo hice simple, el primero que pulsa es X y luego va iterando con el pulsa si es par o impar para saber si es X o O

Código: (vbnet) [Seleccionar]

Public Class UserControl1

    Dim boton As New List(Of Button)
    Dim pulsa As Integer
    Dim XO() As String = {"X", "O"}

    Private Sub UserControl1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        boton.Add(uno)
        boton.Add(dos)
        boton.Add(tres)
        boton.Add(cuatro)
        boton.Add(cinco)
        boton.Add(seis)
        boton.Add(siete)
        boton.Add(ocho)
        boton.Add(nueve)

        AddHandler uno.Click, AddressOf tateti
        AddHandler dos.Click, AddressOf tateti
        AddHandler tres.Click, AddressOf tateti
        AddHandler cuatro.Click, AddressOf tateti
        AddHandler cinco.Click, AddressOf tateti
        AddHandler seis.Click, AddressOf tateti
        AddHandler siete.Click, AddressOf tateti
        AddHandler ocho.Click, AddressOf tateti
        AddHandler nueve.Click, AddressOf tateti

        jugardenuevo()

    End Sub

    Private Sub jugardenuevo()

        pulsa = 1

        For i As Integer = 0 To boton.Count - 1
            boton(i).Text = ""
            boton(i).Font = New System.Drawing.Font("Microsoft Sans Serif", 48.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
            boton(i).BackColor = Color.Red
            boton(i).TabIndex = i + 1
        Next
    End Sub


    Private Sub tateti(ByVal sender As System.Object, ByVal e As System.EventArgs)

        Dim pulsado As Integer = (CType(sender, Button).TabIndex - 1)

        For i As Integer = 0 To 8
            If (pulsado = i) And ((pulsa Mod 2) <> 0) Then
                boton(i).Text = "X"
            End If
            If (pulsado = i) And ((pulsa Mod 2) = 0) Then
                boton(i).Text = "O"
            End If
        Next

        For i As Integer = 0 To 1
            If (uno.Text = XO(i) And dos.Text = XO(i) And tres.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (cuatro.Text = XO(i) And cinco.Text = XO(i) And seis.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (siete.Text = XO(i) And ocho.Text = XO(i) And nueve.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (uno.Text = XO(i) And cuatro.Text = XO(i) And siete.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (dos.Text = XO(i) And cinco.Text = XO(i) And ocho.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (tres.Text = XO(i) And seis.Text = XO(i) And nueve.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (tres.Text = XO(i) And cinco.Text = XO(i) And siete.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
            If (uno.Text = XO(i) And cinco.Text = XO(i) And nueve.Text = XO(i)) Then MessageBox.Show("Ganastes " + XO(i) + "") : pulsa = 9
        Next

        pulsa += 1

        If (pulsa = 10) Then
            jugardenuevo()
        End If

    End Sub

End Class



[Pac-man]

Para buscar el TATETI en el codigo anterior use este  ...

Código: (vbnet) [Seleccionar]

For i As Integer = 0 To 1
        If (uno.Text = XO(i) And dos.Text = XO(i) And tres.Text = XO(i)) Then pulsa = 10
        If (uno.Text = XO(i) And cuatro.Text = XO(i) And siete.Text = XO(i)) Then pulsa = 10
        If (uno.Text = XO(i) And cinco.Text = XO(i) And nueve.Text = XO(i)) Then pulsa = 10
        If (dos.Text = XO(i) And cinco.Text = XO(i) And ocho.Text = XO(i)) Then pulsa = 10
        If (tres.Text = XO(i) And seis.Text = XO(i) And nueve.Text = XO(i)) Then pulsa = 10
        If (tres.Text = XO(i) And cinco.Text = XO(i) And siete.Text = XO(i)) Then pulsa = 10
        If (cuatro.Text = XO(i) And cinco.Text = XO(i) And seis.Text = XO(i)) Then pulsa = 10
        If (siete.Text = XO(i) And ocho.Text = XO(i) And nueve.Text = XO(i)) Then pulsa = 10
Next

se puede remplazar por este tambien ...

Código: (vbnet) [Seleccionar]

For j As Integer = 0 To 1
  For i As Integer = 0 To 6
    If (boton(i).Text = XO(j) And boton(i + 1).Text = XO(j) And boton(i + 2).Text = XO(j)) Then pulsa = 10
  Next
  For i As Integer = 0 To 2
    If (boton(i).Text = XO(j) And boton(i + 3).Text = XO(j) And boton(i + 6).Text = XO(j)) Then pulsa = 10
    If (boton(i).Text = XO(j) And boton(4).Text = XO(j) And boton(8 - i).Text = XO(j)) Then pulsa = 10
  Next
Next

[archivo adjunto borrado por el administrador]

[elpibe]

ahi hay un error y ademas el boton salir no anda 

[Severino]

si lo del error era que me equivoque y puse lo de un if en un else. Y el boton salir si anda :S
Fijate ahora

[elpibe]

ta bien 

[Infero]

Aca dejo el mio, la verdad para haber ido a 4 clases voy bien... un poco de problemas al principio pero bien.

No ta terminado, este, el que deje en la facu si , por que en la segunda jugada tengo un problemita con el contador de jugadas y termina la partida antes de marcar todos los casilleros... igual lo tengo identificado lo jodon..

 

[archivo adjunto borrado por el administrador]

[elpibe]

me gusta la dedicatoria del boton salir 

[Severino]

me gusta la dedicatoria del boton salir