Codigo:
Public Class Form1
Dim rnd As New Random
Dim numero As Integer
Dim arreglo(14) As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Limpiamos el listbox
ListBox1.Items.Clear()
'Vamos a generar 14 numeros aleatorios
For i = 1 To 14
'Generamos numero aleatorio, verificamos si ya fue generado previamente
'De ser así volvemos a generarlo nuevamente, para esto usamos la funcion booleana Existe y le pasamos
'como parámetro de entrada el número aleatorio generado. Por lo tanto no saldrá de este ciclo mientras
'el número se encuentre repetido dentro del arreglo que definimos para estos efectos
Do
numero = rnd.Next(1, 33) 'Numero aleatorio comprendido entre 1 y 32
Loop While (Existe(numero) = True)
'Al llegar a este punto ya tenemos la certeza que el numero no esta repetido
'por lo tanto lo almacenamos en el arreglo y tambien lo mostramos en el listbox
arreglo(i) = numero
ListBox1.Items.Add(numero)
Next
End Sub
Function Existe(ByVal numero As Integer) As Boolean
'Se recorre el arreglo para verificar si el numero generado existe o no
For i = 0 To arreglo.Length - 1
If numero = arreglo(i) Then
Return True 'El numero existe
End If
Next
Return False 'Retornará falso si no encuentra el numero dentro del arreglo
End Function
End Class
_________________________________
==>DESCARGAR<==
viernes, 9 de octubre de 2015
sábado, 3 de octubre de 2015
VB.NET - Windows Form - Juego "Tic tac toe"
Hecho en Visual Studio 2010
Código:
___________________________________
Public Class Form1
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If i Mod 2 = 0 Then
Button1.Text = "0"
Else
Button1.Text = "X"
End If
If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button1.Text = Button4.Text And Button1.Text = Button7.Text And Button4.Text = Button7.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button1.Text = Button5.Text And Button1.Text = Button9.Text And Button5.Text = Button9.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If i Mod 2 = 0 Then
Button2.Text = "0"
Else
Button2.Text = "X"
End If
If Button2.Text = Button1.Text And Button2.Text = Button3.Text And Button1.Text = Button3.Text Then
MsgBox("El ganador es: " & Button2.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button2.Text = Button5.Text And Button2.Text = Button8.Text And Button5.Text = Button8.Text Then
MsgBox("El ganador es: " & Button2.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button2.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If i Mod 2 = 0 Then
Button3.Text = "0"
Else
Button3.Text = "X"
End If
If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button3.Text = Button5.Text And Button3.Text = Button7.Text And Button5.Text = Button7.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button3.Text = Button6.Text And Button3.Text = Button9.Text And Button6.Text = Button9.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button3.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If i Mod 2 = 0 Then
Button4.Text = "0"
Else
Button4.Text = "X"
End If
If Button4.Text = Button1.Text And Button4.Text = Button7.Text And Button1.Text = Button7.Text Then
MsgBox("El ganador es: " & Button4.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button4.Text = Button5.Text And Button4.Text = Button6.Text And Button5.Text = Button6.Text Then
MsgBox("El ganador es: " & Button4.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button4.Enabled = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If i Mod 2 = 0 Then
Button5.Text = "0"
Else
Button5.Text = "X"
End If
If Button5.Text = Button2.Text And Button5.Text = Button8.Text And Button2.Text = Button8.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button4.Text And Button5.Text = Button6.Text And Button4.Text = Button6.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button1.Text And Button5.Text = Button9.Text And Button1.Text = Button9.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button3.Text And Button5.Text = Button7.Text And Button3.Text = Button7.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button5.Enabled = False
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If i Mod 2 = 0 Then
Button6.Text = "0"
Else
Button6.Text = "X"
End If
If Button6.Text = Button3.Text And Button6.Text = Button9.Text And Button3.Text = Button9.Text Then
MsgBox("El ganador es: " & Button6.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button6.Text = Button5.Text And Button6.Text = Button4.Text And Button4.Text = Button5.Text Then
MsgBox("El ganador es: " & Button6.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button6.Enabled = False
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If i Mod 2 = 0 Then
Button7.Text = "0"
Else
Button7.Text = "X"
End If
If Button7.Text = Button1.Text And Button7.Text = Button4.Text And Button4.Text = Button1.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button7.Text = Button5.Text And Button7.Text = Button3.Text And Button5.Text = Button3.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button7.Text = Button8.Text And Button7.Text = Button9.Text And Button8.Text = Button9.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button7.Enabled = False
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If i Mod 2 = 0 Then
Button8.Text = "0"
Else
Button8.Text = "X"
End If
If Button8.Text = Button2.Text And Button8.Text = Button5.Text And Button2.Text = Button5.Text Then
MsgBox("El ganador es: " & Button8.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button8.Text = Button7.Text And Button8.Text = Button9.Text And Button7.Text = Button9.Text Then
MsgBox("El ganador es: " & Button8.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button8.Enabled = False
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If i Mod 2 = 0 Then
Button9.Text = "0"
Else
Button9.Text = "X"
End If
If Button9.Text = Button8.Text And Button9.Text = Button7.Text And Button7.Text = Button8.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button9.Text = Button5.Text And Button9.Text = Button1.Text And Button5.Text = Button1.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button9.Text = Button6.Text And Button9.Text = Button3.Text And Button6.Text = Button3.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button9.Enabled = False
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Application.Restart()
End Sub
End Class
_________________________________________
==>DESCARGAR<==
Código:
___________________________________
Public Class Form1
Dim i As Integer = 0
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If i Mod 2 = 0 Then
Button1.Text = "0"
Else
Button1.Text = "X"
End If
If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button1.Text = Button4.Text And Button1.Text = Button7.Text And Button4.Text = Button7.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button1.Text = Button5.Text And Button1.Text = Button9.Text And Button5.Text = Button9.Text Then
MsgBox("El ganador es: " & Button1.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button1.Enabled = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If i Mod 2 = 0 Then
Button2.Text = "0"
Else
Button2.Text = "X"
End If
If Button2.Text = Button1.Text And Button2.Text = Button3.Text And Button1.Text = Button3.Text Then
MsgBox("El ganador es: " & Button2.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button2.Text = Button5.Text And Button2.Text = Button8.Text And Button5.Text = Button8.Text Then
MsgBox("El ganador es: " & Button2.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button2.Enabled = False
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
If i Mod 2 = 0 Then
Button3.Text = "0"
Else
Button3.Text = "X"
End If
If Button1.Text = Button2.Text And Button1.Text = Button3.Text And Button2.Text = Button3.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button3.Text = Button5.Text And Button3.Text = Button7.Text And Button5.Text = Button7.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button3.Text = Button6.Text And Button3.Text = Button9.Text And Button6.Text = Button9.Text Then
MsgBox("El ganador es: " & Button3.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button3.Enabled = False
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
If i Mod 2 = 0 Then
Button4.Text = "0"
Else
Button4.Text = "X"
End If
If Button4.Text = Button1.Text And Button4.Text = Button7.Text And Button1.Text = Button7.Text Then
MsgBox("El ganador es: " & Button4.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button4.Text = Button5.Text And Button4.Text = Button6.Text And Button5.Text = Button6.Text Then
MsgBox("El ganador es: " & Button4.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button4.Enabled = False
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
If i Mod 2 = 0 Then
Button5.Text = "0"
Else
Button5.Text = "X"
End If
If Button5.Text = Button2.Text And Button5.Text = Button8.Text And Button2.Text = Button8.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button4.Text And Button5.Text = Button6.Text And Button4.Text = Button6.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button1.Text And Button5.Text = Button9.Text And Button1.Text = Button9.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button5.Text = Button3.Text And Button5.Text = Button7.Text And Button3.Text = Button7.Text Then
MsgBox("El ganador es: " & Button5.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button5.Enabled = False
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
If i Mod 2 = 0 Then
Button6.Text = "0"
Else
Button6.Text = "X"
End If
If Button6.Text = Button3.Text And Button6.Text = Button9.Text And Button3.Text = Button9.Text Then
MsgBox("El ganador es: " & Button6.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button6.Text = Button5.Text And Button6.Text = Button4.Text And Button4.Text = Button5.Text Then
MsgBox("El ganador es: " & Button6.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button6.Enabled = False
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
If i Mod 2 = 0 Then
Button7.Text = "0"
Else
Button7.Text = "X"
End If
If Button7.Text = Button1.Text And Button7.Text = Button4.Text And Button4.Text = Button1.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button7.Text = Button5.Text And Button7.Text = Button3.Text And Button5.Text = Button3.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button7.Text = Button8.Text And Button7.Text = Button9.Text And Button8.Text = Button9.Text Then
MsgBox("El ganador es: " & Button7.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button7.Enabled = False
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
If i Mod 2 = 0 Then
Button8.Text = "0"
Else
Button8.Text = "X"
End If
If Button8.Text = Button2.Text And Button8.Text = Button5.Text And Button2.Text = Button5.Text Then
MsgBox("El ganador es: " & Button8.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button8.Text = Button7.Text And Button8.Text = Button9.Text And Button7.Text = Button9.Text Then
MsgBox("El ganador es: " & Button8.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button8.Enabled = False
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
If i Mod 2 = 0 Then
Button9.Text = "0"
Else
Button9.Text = "X"
End If
If Button9.Text = Button8.Text And Button9.Text = Button7.Text And Button7.Text = Button8.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button9.Text = Button5.Text And Button9.Text = Button1.Text And Button5.Text = Button1.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
If Button9.Text = Button6.Text And Button9.Text = Button3.Text And Button6.Text = Button3.Text Then
MsgBox("El ganador es: " & Button9.Text)
Button1.Enabled = False
Button2.Enabled = False
Button3.Enabled = False
Button4.Enabled = False
Button5.Enabled = False
Button6.Enabled = False
Button7.Enabled = False
Button8.Enabled = False
Button9.Enabled = False
End If
i = i + 1
Button9.Enabled = False
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
Application.Restart()
End Sub
End Class
_________________________________________
==>DESCARGAR<==
Suscribirse a:
Entradas (Atom)
-
Diseñar un algoritmo que convierta grados celcius a fahrenheit dada la siguiente formula: fahrenheit = (Celcius/0.55)+32 Algoritmo... -
“Dado una cantidad de N notas de un estudiante, calcular:” Cuántas notas tiene reprobadas. Cuántas notas aprobadas. El promedio de not... -
Una ferretería necesita poder llevar el control del stock de un grupo de productos que tiene a la venta, entre otras funcionalidades. El...