summaryrefslogtreecommitdiffhomepage
path: root/pt-br/visualbasic-pt.html.markdown
blob: 76cca56755a8a2eb4b235801f0ecaa5adbdc89bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
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.