daily pastebin goal
3%
SHARE
TWEET

Untitled

a guest Nov 22nd, 2017 56 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. Module Module1
  2.  
  3.     Sub Main()
  4.         Dim A1, A2, A3, B1, B2, B3, C1, C2, C3, WIN, Casa As String
  5.         A1 = " "
  6.         B1 = " "
  7.         C1 = " "
  8.         A2 = " "
  9.         B2 = " "
  10.         C2 = " "
  11.         A3 = " "
  12.         B3 = " "
  13.         C3 = " "
  14.         WIN = ""
  15.         Casa = ""
  16.         Console.WriteLine("   | A | B | C |")
  17.         Console.WriteLine("----------------")
  18.         Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
  19.         Console.WriteLine("----------------")
  20.         Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
  21.         Console.WriteLine("----------------")
  22.         Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
  23.         Console.WriteLine("----------------")
  24.         Do While WIN = ""
  25.             Console.Write("Jogador 1, em que casa quer jogar? -> ")
  26.             Casa = Console.ReadLine
  27.             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"
  28.                 Console.Write("Erro. Introduza um valor válido -> ")
  29.                 Casa = Console.ReadLine
  30.             Loop
  31.             If Casa = "A1" Then
  32.                 If A1 <> " " Then
  33.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  34.                 Else
  35.                     A1 = "X"
  36.                 End If
  37.             End If
  38.             If Casa = "B1" Then
  39.                 If B1 <> " " Then
  40.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  41.                 Else
  42.                     B1 = "X"
  43.                 End If
  44.             End If
  45.             If Casa = "C1" Then
  46.                 If C1 <> " " Then
  47.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  48.                 Else
  49.                     C1 = "X"
  50.                 End If
  51.             End If
  52.             If Casa = "A2" Then
  53.                 If A2 <> " " Then
  54.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  55.                 Else
  56.                     A2 = "X"
  57.                 End If
  58.             End If
  59.             If Casa = "B2" Then
  60.                 If B2 <> " " Then
  61.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  62.                 Else
  63.                     B2 = "X"
  64.                 End If
  65.             End If
  66.             If Casa = "C2" Then
  67.                 If C2 <> " " Then
  68.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  69.                 Else
  70.                     C2 = "X"
  71.                 End If
  72.             End If
  73.             If Casa = "A3" Then
  74.                 If A3 <> " " Then
  75.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  76.                 Else
  77.                     A3 = "X"
  78.                 End If
  79.             End If
  80.             If Casa = "B3" Then
  81.                 If B3 <> " " Then
  82.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  83.                 Else
  84.                     B3 = "X"
  85.                 End If
  86.             End If
  87.             If Casa = "C3" Then
  88.                 If C3 <> " " Then
  89.                     Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  90.                 Else
  91.                     C3 = "X"
  92.                 End If
  93.             End If
  94.  
  95.             Console.WriteLine("   | A | B | C |")
  96.             Console.WriteLine("----------------")
  97.             Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
  98.             Console.WriteLine("----------------")
  99.             Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
  100.             Console.WriteLine("----------------")
  101.             Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
  102.             Console.WriteLine("----------------")
  103.  
  104.             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
  105.                 WIN = "1"
  106.                 Console.WriteLine("O jogador 1 ganhou.")
  107.             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
  108.                 WIN = "2"
  109.                 Console.WriteLine("O jogador 2 ganhou.")
  110.             End If
  111.  
  112.  
  113.             If WIN = "" Then
  114.                 Console.Write("Jogador 2, em que casa quer jogar? -> ")
  115.                 Casa = Console.ReadLine
  116.                 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"
  117.                     Console.Write("Erro. Introduza um valor válido -> ")
  118.                     Casa = Console.ReadLine
  119.                 Loop
  120.                 If Casa = "A1" Then
  121.                     If A1 <> " " Then
  122.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  123.                     Else
  124.                         A1 = "O"
  125.                     End If
  126.                 End If
  127.                 If Casa = "B1" Then
  128.                     If B1 <> " " Then
  129.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  130.                     Else
  131.                         B1 = "O"
  132.                     End If
  133.                 End If
  134.                 If Casa = "C1" Then
  135.                     If C1 <> " " Then
  136.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  137.                     Else
  138.                         C1 = "O"
  139.                     End If
  140.                 End If
  141.                 If Casa = "A2" Then
  142.                     If A2 <> " " Then
  143.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  144.                     Else
  145.                         A2 = "O"
  146.                     End If
  147.                 End If
  148.                 If Casa = "B2" Then
  149.                     If B2 <> " " Then
  150.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  151.                     Else
  152.                         B2 = "O"
  153.                     End If
  154.                 End If
  155.                 If Casa = "C2" Then
  156.                     If C2 <> " " Then
  157.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  158.                     Else
  159.                         C2 = "O"
  160.                     End If
  161.                 End If
  162.                 If Casa = "A3" Then
  163.                     If A3 <> " " Then
  164.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  165.                     Else
  166.                         A3 = "O"
  167.                     End If
  168.                 End If
  169.                 If Casa = "B3" Then
  170.                     If B3 <> " " Then
  171.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  172.                     Else
  173.                         B3 = "O"
  174.                     End If
  175.                 End If
  176.                 If Casa = "C3" Then
  177.                     If C3 <> " " Then
  178.                         Console.WriteLine("Essa casa já foi usada, perdeu a sua jogada.")
  179.                     Else
  180.                         C3 = "O"
  181.                     End If
  182.                 End If
  183.  
  184.                 Console.WriteLine("   | A | B | C |")
  185.                 Console.WriteLine("----------------")
  186.                 Console.WriteLine(" 1 | " & A1 & " | " & B1 & " | " & C1 & " |")
  187.                 Console.WriteLine("----------------")
  188.                 Console.WriteLine(" 2 | " & A2 & " | " & B2 & " | " & C2 & " |")
  189.                 Console.WriteLine("----------------")
  190.                 Console.WriteLine(" 3 | " & A3 & " | " & B3 & " | " & C3 & " |")
  191.                 Console.WriteLine("----------------")
  192.  
  193.                 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
  194.                     WIN = "1"
  195.                     Console.WriteLine("O jogador 1 ganhou.")
  196.                 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
  197.                     WIN = "2"
  198.                     Console.WriteLine("O jogador 2 ganhou.")
  199.                 End If
  200.             End If
  201.         Loop
  202.         Console.ReadLine()
  203.     End Sub
  204.  
  205. End Module
RAW Paste Data
Top