Added visual basic translation from https://github.com/adambard/learnxinyminutes-docs/issues/448

1 files changed, 285 insertions, 0 deletions

diff --git a/pt-br/visualbasic-pt.html.markdown b/pt-br/visualbasic-pt.html.markdown
new file mode 100644
index 00000000..76cca567
--- /dev/null
+++ b/pt-br/visualbasic-pt.html.markdown
@@ -0,0 +1,285 @@
+---
+language: Visual Basic
+contributors:
+    - ["Brian Martin", "http://brianmartin.biz"]
+translators:
+    - ["AdrianoJP", "https://github.com/AdrianoJP"]
+lang: pt-br
+filename: learnvisualbasic-pt.vb
+---
+
+```vb
+Module Module1
+
+module Module1
+
+    Sub Main ()
+        ' Uma visão geral de console de aplicativos do Visual Basic antes de 
+        ' mergulharmos mais profundamente na linguagem
+        ' Aspas simples começam comentários.
+        ' Para Navegar este tutorial dentro do compilador do Visual Basic, 
+        ' eu criei um sistema de navegação.
+        ' Este sistema de navegação vai ser explicado conforme avançarmos no
+        ' tutorial, e você vai entender o que isso significa.
+        Console.Title = (" Saiba X em Y Minutes" )
+        Console.WriteLine ( "NAVEGAÇÃO" ) 'Mostrar
+        Console.ForegroundColor = ConsoleColor.Green
+        Console.WriteLine ("1. Saída Olá Mundo" )
+        Console.WriteLine ("2. Entrada Olá Mundo" )
+        Console.WriteLine ("3. Cálculando números inteiros " )
+        Console.WriteLine ("4. Calculando números decimais " )
+        Console.WriteLine ("5 . Calculadora de Trabalho " )
+        Console.WriteLine ("6. Usando Do While Loops " )
+        Console.WriteLine ("7. Usando Para While Loops " )
+        Console.WriteLine ("8 . Declarações condicionais " )
+        Console.WriteLine ("9. Selecione uma bebida" )
+        Console.WriteLine ("50 . About" )
+        Console.WriteLine ("Por favor, escolha um número da lista acima " )
+        Seleção Dim As String = Console.ReadLine
+        Select A seleção dos casos
+            Caso "1" 'Output HelloWorld
+                Console.clear () ' Limpa a aplicação e abre o sub privado
+                HelloWorldOutput () ' Nome Private Sub, Abre Private Sub
+            Caso "2" 'Olá entrada
+                Console.clear ( )
+                HelloWorldInput ( )
+            Caso de "3" 'Calculando Números Inteiros
+                Console.clear ( )
+                CalculatingWholeNumbers ( )
+            Caso "4" ' Números decimais Calculting
+                Console.clear ( )
+                CalculatingDecimalNumbers ( )
+            Caso "5" ' Calcculator Trabalho
+                Console.clear ( )
+                WorkingCalculator ( )
+            Caso "6" 'Usando Do While Loops
+                Console.clear ( )
+                UsingDoWhileLoops ( )
+            Caso de "7" 'Usando pois enquanto Loops
+                Console.clear ( )
+                UsingForLoops ( )
+            Caso "8" ' Instruções condicionais
+                Console.clear ( )
+                ConditionalStatement ( )
+            Caso "9" "Declaração If / Else
+                Console.clear ( )
+                IfElseStatement () ' Selecione uma bebida
+            Caso "50" 'Quem caixa de msg
+                Console.clear ( )
+                Console.Title = (" Saiba X em Y Minutos :: Quem " )
+                MsgBox (" Este tutorial é de Brian Martin ( @ BrianMartinn " )
+                Console.clear ( )
+                Main ()
+                Console.ReadLine ()
+
+        End Select
+    End Sub
+
+    ' Um - Eu estou usando números para ajudar com a navegação acima quando eu voltar
+    ' depois de construí-lo .
+
+    " Nós usamos subs privadas para separar diferentes seções do programa.
+    Private Sub HelloWorldOutput ()
+        ' Título de aplicativo do console
+        Console.Title = " Olá Mundo Ouput | Saiba X em Y Minutes"
+        'Use Console.Write ("") ou Console.WriteLine ("") para imprimir saídas.
+        " Seguido por Console.Read () alternativamente Console.ReadLine ()
+        ' Console.ReadLine () imprime a saída para o console.
+        Console.WriteLine ( "Olá Mundo" )
+        Console.ReadLine ()
+    End Sub
+
+    ' Dois
+    Private Sub HelloWorldInput ()
+        Console.Title = " Olá Mundo YourName | Saiba X em Y Minutes"
+        ' Variáveis
+        'Os dados inseridos por um usuário precisa ser armazenada .
+        ' As variáveis ​​também começar com um Dim e terminar com um Como VariableType .
+
+        ' Neste tutorial, nós queremos saber o que o seu nome, e faça o programa
+        ' Responder ao que é dito.
+        Nome de usuário Dim As String
+        " Nós usamos string como string é uma variável de texto baseado .
+        Console.WriteLine (" Olá, Qual é o seu nome? ") ' Peça ao usuário seu nome.
+        username = Console.ReadLine () ' armazena o nome usuários.
+        Console.WriteLine (" Olá " + nome do usuário) " A saída é Olá ' Seu nome '
+        Console.ReadLine () ' Outsputs acima.
+        ' O código acima irá lhe fazer uma pergunta seguiu imprimindo sua resposta.
+        " Outras variáveis ​​incluem Integer e usamos inteiro para números inteiros.
+    End Sub
+
+    "Três
+    Sub CalculatingWholeNumbers particulares ()
+        Console.Title = " Cálculo de Números Inteiros | Saiba X em Y Minutes"
+        Console.Write ("Primeiro número:") 'Digite um número inteiro, 1, 2, 50, 104 ect
+        Dim a As Integer = Console.ReadLine ()
+        Console.Write ("Segundo número:") 'Enter segundo número inteiro.
+        Dim b As Integer = Console.ReadLine ()
+        Dim c As Integer = a + b
+        Console.WriteLine ( c)
+        Console.ReadLine ()
+        " O texto acima é uma calculadora simples
+    End Sub
+
+    'Quatro
+    Sub CalculatingDecimalNumbers particulares ()
+        Console.Title = " Calculando com duplo | Saiba X em Y Minutes"
+        ' Claro que gostaria de ser capaz de somar decimais .
+        " Por isso, poderia mudar o acima de Integer para Double.
+
+        " Digite um número inteiro , 1,2 , 2,4 , 50,1 , 104,9 ect
+        Console.Write ("Primeiro número:")
+        Dim a As Double = Console.ReadLine
+        Console.Write ("Segundo número:") 'Enter segundo número inteiro.
+        Dim b As Double = Console.ReadLine
+        Dim c As Double = a + b
+        Console.WriteLine ( c)
+        Console.ReadLine ()
+        " Portanto, o programa acima pode adicionar até 1,1-2,2
+    End Sub
+
+    ' Cinco
+    Private Sub WorkingCalculator ()
+        Console.Title = " A Calculadora de Trabalho | Saiba X em Y Minutes"
+        " No entanto, se você gostaria que a calculadora para subtrair, dividir , múltiplos e
+        ' somar.
+        ' Copie e cole o código acima novamente .
+        Console.Write ("Primeiro número:")
+        Dim a As Double = Console.ReadLine
+        Console.Write ("Segundo número:") 'Enter segundo número inteiro.
+        Dim b As Integer = Console.ReadLine
+        Dim c As Integer = a + b
+        Dim d As Integer = a * b
+        Dim e As Integer = a - b
+        Dim f As Integer = a / b
+
+        " Ao adicionar as linhas abaixo , somos capazes de calcular a subtração ,
+        ' multply bem como dividir os valores de a e b
+        Console.Gravar ( a.ToString ( ) + " + " + b.ToString ( ) )
+        'Queremos pad as respostas para a esquerda por três espaços.
+        Console.WriteLine (" =" + c.ToString.PadLeft (3) )
+        Console.Gravar ( a.ToString ( ) + " * " + b.ToString ( ) )
+        Console.WriteLine (" =" + d.ToString.PadLeft (3) )
+        Console.Gravar ( a.ToString ( ) + " - " + b.ToString ( ) )
+        Console.WriteLine (" =" + e.ToString.PadLeft (3) )
+        Console.Write ( a.ToString () + "/" + b.ToString ())
+        Console.WriteLine (" =" + e.ToString.PadLeft (3) )
+        Console.ReadLine ()
+
+    End Sub
+
+    ' Seis
+    Sub UsingDoWhileLoops particulares ()
+        ' Assim como o sub privado anterior
+        ' Desta vez, perguntar se o usuário deseja continuar ( Sim ou Não ? )
+        ' Estamos usando Do While Loop , como não temos certeza se o usuário quer usar o
+        'programa mais de uma vez .
+        Console.Title = " UsingDoWhileLoops | Saiba X em Y Minutes"
+        Dim resposta As String ' Nós usamos a variável " String" como a resposta é um texto
+        Do ' Começamos o programa com
+            Console.Write ("Primeiro número:")
+            Dim a As Double = Console.ReadLine
+            Console.Write ("Segundo número:")
+            Dim b As Integer = Console.ReadLine
+            Dim c As Integer = a + b
+            Dim d As Integer = a * b
+            Dim e As Integer = a - b
+            Dim f As Integer = a / b
+
+            Console.Gravar ( a.ToString ( ) + " + " + b.ToString ( ) )
+            Console.WriteLine (" =" + c.ToString.PadLeft (3) )
+            Console.Gravar ( a.ToString ( ) + " * " + b.ToString ( ) )
+            Console.WriteLine (" =" + d.ToString.PadLeft (3) )
+            Console.Gravar ( a.ToString ( ) + " - " + b.ToString ( ) )
+            Console.WriteLine (" =" + e.ToString.PadLeft (3) )
+            Console.Write ( a.ToString () + "/" + b.ToString ())
+            Console.WriteLine (" =" + e.ToString.PadLeft (3) )
+            Console.ReadLine ()
+            ' Faça a pergunta , se o usuário deseja continuar? Infelizmente,
+            "é sensível a maiúsculas.
+            Console.Write ( "Deseja continuar? (Sim / não )")
+            " O programa pega a variável e imprime e começa de novo.
+            answer = Console.ReadLine
+        " O comando para a variável para trabalhar seria , neste caso, " sim "
+        Loop While resposta = "yes"
+
+    End Sub
+
+    ' Sete
+    Sub UsingForLoops particulares ()
+        ' Às vezes, o programa só precisa ser executado uma vez.
+        " Neste programa vamos estar em contagem regressiva a partir de 10.
+
+        Console.Title = " Usando Para Loops | Saiba X em Y Minutes"
+        'Declare variável e qual o número que deve contar para baixo na etapa 1,
+        ' Passo -2, -3 Passo ect.
+        Para i As Integer = 10 para 0 passo -1
+            Console.WriteLine ( i.ToString ) ' Imprime o valor do contador
+        Next i ' Calcular novo valor
+        Console.WriteLine ( "Start ") ' Vamos começar o bebê programa !
+        Console.ReadLine () ' POW ! - Talvez eu fiquei um pouco animado, então :)
+    End Sub
+
+    ' Oito
+    Private Sub ConditionalStatement ()
+        Console.Title = " Instruções condicionais | Saiba X em Y Minutes"
+        UserName Dim As String = Console.ReadLine
+        Console.WriteLine (" Olá, Qual é o seu nome? ") ' Peça ao usuário seu nome.
+        username = Console.ReadLine () ' armazena o nome usuários.
+        Se userName = " Adam " Então
+            Console.WriteLine (" Olá Adam " )
+            Console.WriteLine (" Obrigado por criar este site útil " )
+            Console.ReadLine ()
+        outro
+            Console.WriteLine (" Olá " + nome do usuário)
+            Console.WriteLine (" Você check-out www.learnxinyminutes.com " )
+            Console.ReadLine () ' Fins e imprime a declaração acima .
+        End If
+    End Sub
+
+    'Nove
+    Private Sub IfElseStatement ()
+    Console.Title = "Se Declaração / Else | Saiba X em Y Minutes"
+        'Às vezes é importante ter em conta mais de duas alternativas.
+        'Às vezes, há um bom número de outros.
+        'Quando este for o caso , mais do que uma if seria necessária .
+        'Uma instrução if é ótimo para máquinas de venda automática . Quando o usuário digita um código.
+        ' A1 , A2, A3 , ect para selecionar um item.
+        'Todas as opções podem ser combinadas em uma única if.
+
+        Seleção Dim Valor String = Console.ReadLine ' para a seleção
+            Console.WriteLine (" A1. Para Soda " )
+            Console.WriteLine (" A2. Para Fanta " )
+            Console.WriteLine (" A3 . Para Guaraná" )
+            Console.WriteLine (" A4. Para Coca Diet" )
+            Console.ReadLine ()
+            Se a seleção = "A1" Então
+                Console.WriteLine (" soda " )
+                Console.ReadLine ()
+            Seleção ElseIf = " A2 " Então
+                Console.WriteLine (" fanta " )
+                Console.ReadLine ()
+            Seleção ElseIf = " A3 " Então
+                Console.WriteLine ( "guaraná" )
+                Console.ReadLine ()
+            Seleção ElseIf = " A4 " Então
+                Console.WriteLine ( "coca diet" )
+                Console.ReadLine ()
+            outro
+                Console.WriteLine (" Por favor seleccione um produto" )
+                Console.ReadLine ()
+            End If
+
+    End Sub
+
+End Module
+
+```
+
+##Referências
+
+Aprendi Visual Basic no aplicativo de console. Isso me permitiu entender os princípios da programação de computador para continuar a aprender outras linguagens de programação facilmente.
+
+Eu criei um tutorial mais aprofundado do <a href="http://www.vbbootcamp.co.uk/" Title="Visual Basic Tutorial">Visual Basic</a> para aqueles que gostariam de saber mais.
+
+Toda a sintaxe deste tutorial é válida. Copie e cole o código no compilador do Visual Basic e execute (com o F5) o programa.