Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Module Module1
- Sub Main()
- Dim A1, A2, A3, B1, B2, B3, C1, C2, C3, WIN, Casa As String
- A1 = " "
- B1 = " "
- C1 = " "
- A2 = " "
- B2 = " "
- C2 = " "
- A3 = " "
- B3 = " "
- C3 = " "
- WIN = ""
- Casa = ""
- Do While WIN = ""
- Console.Write("Jogador 1, em que casa quer jogar? -> ")
- Casa = Console.ReadLine
- Do While Casa <> "A1" And Casa <> "B1" And Casa <> "C1" And Casa <> "A2" And Casa <> "B2" And Casa <> "C2" And Casa <> "A3" And Casa <> "B3" And Casa <> "C3"
- Console.Write("Erro. Introduza um valor válido -> ")
- Casa = Console.ReadLine
- Loop
- If Casa = "A1" Then
- If A1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A1 = "X"
- End If
- End If
- If Casa = "B1" Then
- If B1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B1 = "X"
- End If
- End If
- If Casa = "C1" Then
- If C1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C1 = "X"
- End If
- End If
- If Casa = "A2" Then
- If A2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A2 = "X"
- End If
- End If
- If Casa = "B2" Then
- If B2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B2 = "X"
- End If
- End If
- If Casa = "C2" Then
- If C2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C2 = "X"
- End If
- End If
- If Casa = "A3" Then
- If A3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A3 = "X"
- End If
- End If
- If Casa = "B3" Then
- If B3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B3 = "X"
- End If
- End If
- If Casa = "C3" Then
- If C3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C3 = "X"
- End If
- End If
- Console.WriteLine(" | A | B | C |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
- Console.WriteLine("----------------")
- If (A1 = "X" And B1 = "X" And C1 = "X") Or (A2 = "X" And B2 = "X" And C2 = "X") Or (A3 = "X" And B3 = "X" And C3 = "X") Or (A1 = "X" And B2 = "X" And C3 = "X") Or (A3 = "X" And B2 = "X" And C1 = "X") Or (A1 = "X" And A2 = "X" And A3 = "X") Or (B1 = "X" And B2 = "X" And B3 = "X") Then
- WIN = "1"
- Console.WriteLine("O jogador 1 ganhou.")
- ElseIf (A1 = "O" And B1 = "O" And C1 = "O") Or (A2 = "O" And B2 = "O" And C2 = "O") Or (A3 = "O" And B3 = "O" And C3 = "O") Or (A1 = "O" And B2 = "O" And C3 = "O") Or (A3 = "O" And B2 = "O" And C1 = "O") Or (A1 = "O" And A2 = "O" And A3 = "O") Or (B1 = "O" And B2 = "O" And B3 = "O") Then
- WIN = "2"
- Console.WriteLine("O jogador 2 ganhou.")
- End If
- If WIN = "" Then
- Console.Write("Jogador 2, em que casa quer jogar? -> ")
- Casa = Console.ReadLine
- Do While Casa <> "A1" And Casa <> "B1" And Casa <> "C1" And Casa <> "A2" And Casa <> "B2" And Casa <> "C2" And Casa <> "A3" And Casa <> "B3" And Casa <> "C3"
- Console.Write("Erro. Introduza um valor válido -> ")
- Casa = Console.ReadLine
- Loop
- If Casa = "A1" Then
- If A1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A1 = "O"
- End If
- End If
- If Casa = "B1" Then
- If B1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B1 = "O"
- End If
- End If
- If Casa = "C1" Then
- If C1 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C1 = "O"
- End If
- End If
- If Casa = "A2" Then
- If A2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A2 = "O"
- End If
- End If
- If Casa = "B2" Then
- If B2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B2 = "O"
- End If
- End If
- If Casa = "C2" Then
- If C2 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C2 = "O"
- End If
- End If
- If Casa = "A3" Then
- If A3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- A3 = "O"
- End If
- End If
- If Casa = "B3" Then
- If B3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- B3 = "O"
- End If
- End If
- If Casa = "C3" Then
- If C3 <> " " Then
- Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
- Else
- C3 = "O"
- End If
- End If
- Console.WriteLine(" | A | B | C |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
- Console.WriteLine("----------------")
- Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
- Console.WriteLine("----------------")
- If (A1 = "X" And B1 = "X" And C1 = "X") Or (A2 = "X" And B2 = "X" And C2 = "X") Or (A3 = "X" And B3 = "X" And C3 = "X") Or (A1 = "X" And B2 = "X" And C3 = "X") Or (A3 = "X" And B2 = "X" And C1 = "X") Or (A1 = "X" And A2 = "X" And A3 = "X") Or (B1 = "X" And B2 = "X" And B3 = "X") Then
- WIN = "1"
- Console.WriteLine("O jogador 1 ganhou.")
- ElseIf (A1 = "O" And B1 = "O" And C1 = "O") Or (A2 = "O" And B2 = "O" And C2 = "O") Or (A3 = "O" And B3 = "O" And C3 = "O") Or (A1 = "O" And B2 = "O" And C3 = "O") Or (A3 = "O" And B2 = "O" And C1 = "O") Or (A1 = "O" And A2 = "O" And A3 = "O") Or (B1 = "O" And B2 = "O" And B3 = "O") Then
- WIN = "2"
- Console.WriteLine("O jogador 2 ganhou.")
- End If
- End If
- Loop
- Console.ReadLine()
- End Sub
- End Module
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement