Gato en visual studio

Solo disponible en BuenasTareas
  • Páginas : 7 (1569 palabras )
  • Descarga(s) : 0
  • Publicado : 28 de febrero de 2011
Leer documento completo
Vista previa del texto
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...
tracking img