summaryrefslogtreecommitdiffhomepage
path: root/es-es/visualbasic-es.html.markdown
blob: a84dda5ac4377b7e3ac5eec2e6846cb20b3906cc (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
---
language: Visual Basic
contributors:
    - ["Brian Martin", "http://brianmartin.biz"]
translators:
    - ["Adolfo Jayme Barrientos", "https://github.com/fitojb"]
filename: learnvisualbasic-es.vb
lang: es-es
---

```visualbasic
Module Module1

    Sub Main()
        ' Un vistazo rápido a las aplicaciones de consola de Visual Basic antes
        ' de que profundicemos en el tema.
        ' El apóstrofo inicia una línea de comentario.
        ' Para explorar este tutorial dentro del Compilador de Visual Basic,
        ' he creado un sistema de navegación.
        ' Dicho sistema se explicará a medida que avancemos en este
        ' tutorial; gradualmente entenderás lo que significa todo.
        Console.Title = ("Aprende X en Y minutos")
        Console.WriteLine("NAVEGACIÓN") 'Mostrar 
        Console.WriteLine("")
        Console.ForegroundColor = ConsoleColor.Green
        Console.WriteLine("1. Salida «Hola, mundo»")
        Console.WriteLine("2. Entrada «Hola, mundo»")
        Console.WriteLine("3. Calcular números enteros")
        Console.WriteLine("4. Calcular números decimales")
        Console.WriteLine("5. Una calculadora funcional")
        Console.WriteLine("6. Uso de bucles «Do While»")
        Console.WriteLine("7. Uso de bucles «For While»")
        Console.WriteLine("8. Declaraciones condicionales")
        Console.WriteLine("9. Selecciona una bebida")
        Console.WriteLine("50. Acerca de")
        Console.WriteLine("Elige un número de la lista anterior")
        Dim selection As String = Console.ReadLine
        Select Case selection
            Case "1" 'Salida «hola, mundo»
                Console.Clear() 'Limpia la consola y abre la subrutina privada
                SalidaHolaMundo() 'Abre la subrutina privada nombrada
            Case "2" 'Entrada «hola, mundo»
                Console.Clear()
                EntradaHolaMundo()
            Case "3" 'Calcular números enteros 
                Console.Clear()
                CalcularNumerosEnteros()
            Case "4" 'Calcular números decimales
                Console.Clear()
                CalcularNumerosDecimales()
            Case "5" 'Una calculadora funcional
                Console.Clear()
                CalculadoraFuncional()
            Case "6" 'Uso de bucles «Do While»
                Console.Clear()
                UsoBuclesDoWhile()
            Case "7" 'Uso de bucles «For While»
                Console.Clear()
                UsoBuclesFor()
            Case "8" 'Declaraciones condicionales
                Console.Clear()
                DeclaracionCondicional()
            Case "9" 'Declaración «If/Else»
                Console.Clear()
                DeclaracionIfElse() 'Selecciona una bebida
            Case "50" 'Cuadro de mensaje «Acerca de»
                Console.Clear()
                Console.Title = ("Aprende X en Y minutos :: Acerca de")
                MsgBox("Tutorial escrito por Brian Martin (@BrianMartinn")
                Console.Clear()
                Main()
                Console.ReadLine()

        End Select
    End Sub

    'Uno - He usado números para guiarme por el sistema de navegación anterior
    'cuando regrese posteriormente a implementarlo.

    'Usamos subrutinas privadas para separar distintas secciones del programa. 
    Private Sub SalidaHolaMundo()
        'Título de la aplicación de consola
        Console.Title = "Salida «Hola, mundo» | Aprende X en Y minutos"
        'Usa Console.Write("") o Console.WriteLine("") para mostrar salidas.
        'Seguido por Console.Read(), o bien, Console.Readline()
        'Console.ReadLine() muestra la salida en la consola.
        Console.WriteLine("Hola, mundo")
        Console.ReadLine()
    End Sub

    'Dos
    Private Sub EntradaHolaMundo()
        Console.Title = "«Hola, mundo, soy...» | Aprende X en Y minutos"
        ' Variables
        ' Los datos que introduzca un usuario deben almacenarse.
        ' Las variables también empiezan por Dim y terminan por As VariableType.

        ' En este tutorial queremos conocer tu nombre y hacer que el programa
        ' responda a este.
        Dim nombredeusuario As String
        'Usamos «string» porque es una variable basada en texto.
        Console.WriteLine("Hola, ¿cómo te llamas? ") 'Preguntar nombre de usuario.
        nombredeusuario = Console.ReadLine() 'Almacenar nombre del usuario.
        Console.WriteLine("Hola, " + nombredeusuario) 'La salida es Hola, nombre
        Console.ReadLine() 'Muestra lo anterior.
        'El código anterior te hará una pregunta y mostrará la respuesta.
        'Entre otras variables está Integer, la cual usaremos para números enteros.
    End Sub

    'Tres
    Private Sub CalcularNumerosEnteros()
        Console.Title = "Calcular números enteros | Aprende X en Y minutos"
        Console.Write("Primer número: ") 'Escribe un núm. entero, 1, 2, 104, etc
        Dim a As Integer = Console.ReadLine()
        Console.Write("Segundo número: ") 'Escribe otro número entero.
        Dim b As Integer = Console.ReadLine()
        Dim c As Integer = a + b
        Console.WriteLine(c)
        Console.ReadLine()
        'Lo anterior es una calculadora sencilla
    End Sub

    'Cuatro
    Private Sub CalcularNumerosDecimales()
        Console.Title = "Calcular con tipo doble | Aprende X en Y minutos"
        'Por supuesto, nos gustaría sumar decimales.
        'Por ello podríamos cambiar del tipo Integer al Double.

        'Escribe un número fraccionario, 1.2, 2.4, 50.1, 104.9 etc
        Console.Write("Primer número: ")
        Dim a As Double = Console.ReadLine
        Console.Write("Segundo número: ") 'Escribe el segundo número.
        Dim b As Double = Console.ReadLine
        Dim c As Double = a + b
        Console.WriteLine(c)
        Console.ReadLine()
        'Este programa puede sumar 1.1 y 2.2
    End Sub

    'Cinco
    Private Sub CalculadoraFuncional()
        Console.Title = "La calculadora funcional | Aprende X en Y minutos"
        'Pero si quieres que la calculadora reste, divida, multiplique y
        'sume.
        'Copia y pega lo anterior.
        Console.Write("Primer 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

        'Mediante las líneas siguientes podremos restar,
        'multiplicar y dividir los valores a y b
        Console.Write(a.ToString() + " + " + b.ToString())
        'Queremos dar un margen izquierdo de 3 espacios a los resultados.
        Console.WriteLine(" = " + c.ToString.PadLeft(3))
        Console.Write(a.ToString() + " * " + b.ToString())
        Console.WriteLine(" = " + d.ToString.PadLeft(3))
        Console.Write(a.ToString() + " - " + b.ToString())
        Console.WriteLine(" = " + e.ToString.PadLeft(3))
        Console.Write(a.ToString() + " / " + b.ToString())
        Console.WriteLine(" = " + f.ToString.PadLeft(3))
        Console.ReadLine()

    End Sub

    'Seis
    Private Sub UsoBuclesDoWhile()
        'Igual que la subrutina privada anterior
        'Esta vez preguntaremos al usuario si quiere continuar (¿sí o no?)
        'Usamos el bucle Do While porque no sabemos si el usuario quiere
        'usar el programa más de una vez.
        Console.Title = "Uso de bucles «Do While» | Aprende X en Y minutos"
        Dim respuesta As String 'Usamos la variable «String» porque la resp. es texto
        Do 'Comenzamos el programa con
            Console.Write("Primer 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.Write(a.ToString() + " + " + b.ToString())
            Console.WriteLine(" = " + c.ToString.PadLeft(3))
            Console.Write(a.ToString() + " * " + b.ToString())
            Console.WriteLine(" = " + d.ToString.PadLeft(3))
            Console.Write(a.ToString() + " - " + b.ToString())
            Console.WriteLine(" = " + e.ToString.PadLeft(3))
            Console.Write(a.ToString() + " / " + b.ToString())
            Console.WriteLine(" = " + f.ToString.PadLeft(3))
            Console.ReadLine()
            'Preguntar si el usuario quiere continuar. Desafortunadamente,
            'distingue entre mayúsculas y minúsculas.
            Console.Write("¿Quieres continuar? (s / n)")
            'El programa toma la variable, la muestra y comienza de nuevo.
            respuesta = Console.ReadLine
        'La orden que hará funcionar esta variable es en este caso «s»
        Loop While respuesta = "s"

    End Sub

    'Siete
    Private Sub UsoBuclesFor()
        'A veces el programa debe ejecutarse solo una vez.
        'En este programa contaremos a partir de 10.

        Console.Title = "Uso de bucles «For» | Aprende X en Y minutos"
        'Declarar Variable y desde qué número debe contar en Step -1,
        'Step -2, Step -3, etc.
        For i As Integer = 10 To 0 Step -1 
            Console.WriteLine(i.ToString) 'Muestra el valor del contador
        Next i 'Calcular el valor nuevo
        Console.WriteLine("Iniciar") '¡¡Comencemos el programa, nene!!
        Console.ReadLine() '¡¡ZAS!! - Quizá me he emocionado bastante :)
    End Sub

    'Ocho
    Private Sub DeclaracionCondicional()
        Console.Title = "Declaraciones condicionales | Aprende X en Y minutos"
        Dim nombredeUsuario As String = Console.ReadLine
        Console.WriteLine("Hola, ¿cómo te llamas? ") 'Preguntar nombre de usuario.
        nombredeUsuario = Console.ReadLine() 'Almacena el nombre de usuario.
        If nombredeUsuario = "Adam" Then
            Console.WriteLine("Hola, Adam")
            Console.WriteLine("Gracias por crear este útil sitio web")
            Console.ReadLine()
        Else
            Console.WriteLine("Hola, " + nombredeUsuario)
            Console.WriteLine("¿Has visitado www.learnxinyminutes.com?")
            Console.ReadLine() 'Termina y muestra la declaración anterior.
        End If
    End Sub

    'Nueve
    Private Sub DeclaracionIfElse()
    Console.Title = "Declaración «If / Else» | Aprende X en Y minutos"
        'A veces es importante considerar más de dos alternativas.
        'A veces, algunas de estas son mejores.
        'Cuando esto sucede, necesitaríamos más de una declaración «if».
        'Una declaración «if» es adecuada para máquinas expendedoras.
        'En las que el usuario escribe un código (A1, A2, A3) para elegir.
        'Pueden combinarse todas las elecciones en una sola declaración «if».

        Dim seleccion As String = Console.ReadLine 'Valor de la selección
            Console.WriteLine("A1. para 7Up")
            Console.WriteLine("A2. para Fanta")
            Console.WriteLine("A3. para Dr. Pepper")
            Console.WriteLine("A4. para Coca-Cola")
            Console.ReadLine()
            If selection = "A1" Then
                Console.WriteLine("7up")
                Console.ReadLine()
            ElseIf selection = "A2" Then
                Console.WriteLine("fanta")
                Console.ReadLine()
            ElseIf selection = "A3" Then
                Console.WriteLine("dr. pepper")
                Console.ReadLine()
            ElseIf selection = "A4" Then
                Console.WriteLine("coca-cola")
                Console.ReadLine()
            Else
                Console.WriteLine("Selecciona un producto")
                Console.ReadLine()
            End If

    End Sub

End Module
```

## Referencias

Aprendí Visual Basic en la aplicación de consola. Esta me permitió entender los principios de la programación para, posteriormente, aprender otros lenguajes con facilidad.

He creado un <a href="http://www.vbbootcamp.co.uk/" Title="Tutorial de Visual Basic">tutorial de Visual Basic</a> más exhaustivo para quienes quieran saber más.

Toda la sintaxis es válida. Copia el código y pégalo en el compilador de Visual Basic y ejecuta (F5) el programa.