Gato en visual studio

Páginas: 7 (1569 palabras) Publicado: 28 de febrero de 2011
Imports System.Console

Module Module1

Sub Main()

Dim ganador As String

WriteLine("Juego Gato")

WriteLine("Instucciones..")

WriteLine("1. El jugador 1 le corresponde el simbolo ``O´´; el jugador 2 le corresponde el simbolo ``X´´")

WriteLine("2. Se Introduce la posicion que se desea insetar el simbolo y consecutivamente se insertaautomatica el simbolo correspondiente")

WriteLine("Las coordenadas son las siguientes")

WriteLine("1|2|3")

WriteLine("4|5|6")

WriteLine("7|8|9")

WriteLine("3. NO se pueden realizar 2 turnos consecutivos")

WriteLine("Empezemos")

WriteLine()

ganador = turno()

If ganador = "Jugador 1" Thenganador = "Jugador 1"

WriteLine("El ganador es " & ganador)

ElseIf ganador = "Jugador 2" Then

ganador = "Jugador 2"

WriteLine("El ganador es " & ganador)

Else

WriteLine("Lo Siento.No ahi ganador.Intentenlo de Nuevo.")

End If

WriteLine()

WriteLine("Presione la tecla ENTER parasalir....")

ReadLine()

End Sub

Function turno() As String

Dim ganador As String

Dim num As Integer

Dim tabla(2, 2) As String

Dim cont As Integer = 1

For I As Integer = 0 To 2

For J As Integer = 0 To 2

tabla(I, J) = "-"

Next

Next

Do

ganador ="F"

If cont Mod 2 = 1 Then

WriteLine("Turno del jugador 1")

WriteLine("Introdusca el numero de la posicion")

num = ReadLine()

Select Case num

Case Is = 1

If tabla(0, 0) = "-" Then

tabla(0, 0) = "O"Expulsar(tabla)

checar_renglon(tabla, ganador)

If ganador = "F" Then

checar_columna(tabla, ganador)

If ganador = "F" Then

checar_diagonal(tabla, ganador)

If ganador = "F" Thenchecar_diagonal2(tabla, ganador)

End If

End If

End If

cont = cont + 1

Else

WriteLine("Esta posicion esta ocupada.")

End If

CaseIs = 2

If tabla(0, 1) = "-" Then

tabla(0, 1) = "O"

Expulsar(tabla)

checar_renglon(tabla, ganador)

If ganador = "F" Then

checar_columna(tabla, ganador)

If ganador = "F" Thenchecar_diagonal(tabla, ganador)

If ganador = "F" Then

checar_diagonal2(tabla, ganador)

End If

End If

End If

cont = cont + 1Else

WriteLine("Esta posicion esta ocupada.")

End If

Case Is = 3

If tabla(0, 2) = "-" Then

tabla(0, 2) = "O"

Expulsar(tabla)

checar_renglon(tabla, ganador)

If...
Leer documento completo

Regístrate para leer el documento completo.

Estos documentos también te pueden resultar útiles

  • visual studio
  • Visual studio
  • Herramienta de Visual Studio
  • Guia Visual Studio
  • Introduccion al visual studio 2008
  • Visual Studio 2015
  • HISTORIA DE VISUAL STUDIO
  • Punto De Ventas Visual Studio

Conviértase en miembro formal de Buenas Tareas

INSCRÍBETE - ES GRATIS