Visual basic

John Vargas
Jhonny gil
Visual Basic es un lenguaje de programación dirigido por eventos, desarrollado por Alan
Cooper para Microsoft. Este lenguaje de programación es un dialecto de BASIC, con
importantes agregados. Su primera versión fue presentada en 1991, con la intención de
simplificar la programación utilizando un ambiente de desarrollo que facilitó en cierta
medida la programaciónmisma. La última versión fue la 6, liberada en 1998, para la que
Microsoft extendió el soporte hasta marzo de 2008.
En 2001 Microsoft propuso abandonar el desarrollo basado en la API Win32 y pasar a
un framework o marco común de librerías, independiente de la versión del sistema
operativo, .NET Framework, a través de Visual Basic .NET (y otros lenguajes como C
Sharp (C#) de fácil transición de código entre ellos); fue el sucesor de Visual Basic 6.
Aunque Visual Basic es de propósito general, también provee facilidades para el
desarrollo de aplicaciones de bases de datosusando Data Access Objects, Remote Data
Objects o ActiveX Data Objects. Visual Basic contiene un entorno de desarrollo integrado
o IDE que integra editor de textos para edición del código fuente, un depurador,
un compilador (y enlazador) y un editor de interfaces gráficas o GUI

en Curso Visual Basic aprenderaprogramar.com
Option Explicit
Rem Declaración de variables
Dim Turismos%, Todoterrenos As Integer
Dim Capturismos!, Captodot As Single
Dim Necesidadescom As Single
Rem Contenido del formulario
Private Sub Form_Load()
Form1.Caption = "Cálculo de necesidades combustible"
Label1(0) = "Por favor introduzca estos datos"
Label1(1) = "Número de turismos"
Label1(2) = "Número de todoterrenos"
REM Curso Visual Basic aprenderaprogramar.com
Option Explicit On
Public Class Form1
REM Declaración de variables
Dim Turismos, Todoterrenos As Integer
Dim Capturismos, Captodot As Single
Dim Necesidadescom As Single
REM Contenido del formulario
Private Sub Form1_Load(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles MyBase.Load
Me.Text = "Cálculo de necesidades combustible"
Label1.Text = "Por favor introduzca estos datos"

1. Copiar el CD de Visual Basic en una carpeta vb6 en el disco duro
1. 1. en caso de error “Debe ejecutar el asistente de instalación antes de ejecutar este
programa de instalación”, ejecute el SETUP.exe Original antes de sobreescribirlo al
continuar con el paso 2, y seguir los pasos de instalación normales hasta que salga un
cartel de la compatibilidad de sistemas de x64. Solución vía Santi Casares
2. En esa nueva carpeta, copia todos los archivos de vb6setup en la carpeta principal
recien creada vb6
3. Ahora renombramos el archivo vb98ent.stf por acmsetup.stf. En algunas versiones como
la Profesional, busquen vs98pro.stf, y tengan en cuenta que vs es de Visual Studio, vb
de Visual Basic
4. Ahora, en vez de ejecutar el instalador mediante setup.exe ejecutamos acmsetup.exe.
Ten en cuenta de ejecutarlo como Administrador!!
Porque son necesarios estos cambios ?
Tanto setup como acmsetup utilizan guiones de instalación que le van informando que
archivo copiar y que dll y ocx registrar durante la instalación, justamente de eso se trata
“instalar una aplicación”. El guión de setup.exe es vb98ent.stf (o vs98pro.stf), pero como
dijimos setup.exe no funciona por tanto usaremos acmsetup.exe que requiere que el
guión se llame acmsetup.stf.
Label1(3) = "Capacidad de turismos (litros)"
Label1(4) = "Capacidad de todoterrenos (litros)"
Command1.Caption = "Aceptar"
End Sub
Rem Cálculo y muestra resultados
Private Sub Command1_Click()
Label2.ForeColor = vbBlack
Label2.FontBold = True
Turismos = Val(Text1(0))
Todoterrenos = Val(Text1(1))
Capturismos = Val(Text1(2))
Captodot = Val(Text1(3))
Necesidadescom = Turismos * Capturismos +
Todoterrenos * Captodot
Label2 = "Las necesidades totales de combustible son
de " & Necesidadescom & " litros"
End Sub
Label2.Text = "Número de turismos"
Label3.Text = "Número de todoterrenos"
Label4.Text = "Capacidad de turismos (litros)"
Label5.Text = "Capacidad de todoterrenos (litros)"
Button1.Text = "Aceptar"
End Sub
REM Cálculo y muestra resultados
Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
Label6.ForeColor = Color.Black
Label6.Font = New Font("Arial", 10, FontStyle.Bold)
Turismos = Val(TextBox1.Text)
Todoterrenos = Val(TextBox2.Text)
Capturismos = Val(TextBox3.Text)
Captodot = Val(TextBox4.Text)
Necesidadescom = Turismos * Capturismos + Todoterrenos *
Captodot
Label6.Text = "Las necesidades totales de combustible son de "
& Necesidadescom & " litros"
End Sub
End Class

Esa es la sencilla razón del copiado y renombre de archivo, con eso basta para tener
Visual Basic 6 instalado en nuestro Windows 7, incluyendo la versión de 64bits.
Debemos tener en cuenta que el ejecutable de VB6 debe ser configurado para ejecutar
como Administrador, de otra forma no grabará los cambios que realicemos en nuestros
fuentes VB6.
Tipos de datos
Un tipo de datos es la propiedad de un valor que determina su dominio (qué valores
puede tomar), qué operaciones se le pueden aplicar y cómo es representado

internamente por el computador, todos los valores que aparecen en un programa tienen
un tipo.
A continuación revisaremos los tipos de datos elementales de Python. Además de éstos,
existen muchos otros, y más adelante aprenderemos a crear nuestros propios tipos de
datos.
Una variable se declara para especificar su nombre y sus características. La instrucción de
declaración para variables es Instrucción Dim (Visual Basic). Su ubicación y contenido determinan
las características de la variable.
Para las reglas de denominación de variables y consideraciones, consulte Nombres de elementos
declarados
Los operadores aritméticos
Los operadores aritméticos se utilizan para realizar muchas de las operaciones
aritméticas habituales que implican el cálculo de valores numéricos representados por
literales, variables, otras expresiones, llamadas a funciones y propiedades, y
constantes. También se clasifican como operadores aritméticos los operadores de
desplazamiento de bits, que actúan al nivel de bits individuales de los operandos y
cambian sus modelos de bits a la izquierda o la derecha.
Puede sumar dos valores en una expresión con el + (Operador, Visual Basic) o restar un
valor de otro con el - (Operador, Visual Basic), como se muestra en el siguiente ejemplo.
VB
Dim x As Integer
x = 67 + 34
x = 32 - 12
La negación también utiliza el - (Operador, Visual Basic), pero con un solo operando,
como se puede ver en el ejemplo siguiente.
VB
Dim x As Integer = 65
Dim y As Integer
y = -x
La multiplicación y la división utilizan los * (Operador, Visual Basic) y / (Operador, Visual
Basic), respectivamente, como se muestra en el ejemplo siguiente.
VB
Dim y As Double
y = 45 * 55.23
y = 32 / 23
La exponenciación utiliza el ^ (Operador, Visual Basic), como se puede ver en el ejemplo
siguiente.
VB

Dim z As Double
z = 23 ^ 3
' The preceding statement sets z to 12167 (the cube of 23).
La división de enteros se lleva a cabo con el (Operador, Visual Basic). La división de
enteros devuelve el cociente, es decir, el número entero que representa el número de
veces que puede se puede dividir dividendo entre el divisor sin tener en cuenta el valor del
resto. El divisor y el dividendo deben ser tipos enteros
(SByte, Byte, Short, UShort, Integer, UInteger, Long y ULong) para este operador. Todos
los demás tipos deben convertirse antes a tipos enteros. El ejemplo siguiente ilustra la
división de enteros.
Los operadores relacionales
Los operadores relacionales comparan valores entre sí. Los operadores de comparación
son =, <>, <, >, <= y >=. Todos los operadores relacionales dan como resultado un
valor Boolean.
Los operadores relacionales tienen el siguiente significado general:
El operador = comprueba si dos operandos son iguales.
El operador <> comprueba si dos operandos no son iguales.
El operador < comprueba si el primer operando es menor al segundo operando.
El operador > comprueba si el primer operando es mayor que el segundo operando.
El operador <= comprueba si el primer operando es menor o igual que el segundo
operando.
El operador >= comprueba si el primer operando es mayor o igual que el segundo
operando.
Los operadores relacionales se definen para los tipos siguientes:
Byte, Short, Integer y Long. Los operadores comparan los valores numéricos de dos
operandos de números enteros.
Single y Double. Los operadores comparan los operandos según las reglas de la norma
IEEE 754.
Decimal. Los operadores comparan los valores numéricos de los dos operandos
decimales.
Sólo los operadores de igualdad (=) y desigualdad (<>) se definen para los tipos
siguientes:
Boolean. El operador = devuelve True si los dos operandos son True o los dos operandos
son False. El operador <> devuelve False si los dos operandos son True o los dos
operandos son False.
Date. Los operadores devuelven el resultado de la comparación de los valores de fecha y
hora.
Char. Los operadores devuelven el resultado de la comparación de los valores Unicode.
Aunque hay una ambigüedad lógica en la resolución de los operadores relacionales
cuando se resuelve con un operando Char y Short (porque los tipos se consideran
equivalentes), en la práctica se puede elegir cualquier operador porque los dos
operadores son semánticamente equivalentes.
Cadena. Los operadores devuelven el resultado de la comparación de dos valores
utilizando una comparación binaria o una comparación de texto. La comparación utilizada
se determina por el entorno de compilación y la instrucción Option Compare. Una

comparación binaria determina si es igual el valor numérico Unicode de los caracteres o si
lo son cada uno de los caracteres de cada cadena. Una comparación de texto realiza una
comparación de texto Unicode basada en la referencia cultural actual en uso en .NET
Framework. Cuando se realiza una comparación de cadenas, una referencia nula es
equivalente al literal de cadena "".
RelationalOperatorExpression ::=
Expression = Expression |
Expression < > Expression |
Expression < Expression |
Expression > Expression |
Expression < = Expression |
Expression > = Expression
Operadores lógicos y bit a bit en Visual Basic
Los operadores lógicos comparan expresiones Boolean y devuelven un
resultado Boolean.Los operadores And, Or, AndAlso, OrElse y Xor sonbinarios porque
toman dos operandos, mientras que el operador Not es unario porque toma un solo
operando.Algunos de estos operadores también pueden realizar operaciones lógicas bit a
bit en valores enteros.
Operador lógico unario
El Not (Operador, Visual Basic) realiza la negación lógica en una
expresión Boolean.Produce el contrario lógico de su operando.Si la expresión se evalúa
como True, Not devuelve False; si la expresión se evalúa
como False, Not devuelve True. Debido a que Object es la clase base de todos los tipos
de referencia en .NET Framework, este comportamiento es heredado por los tipos de
referencia que no reemplazan el métodoToString.
VB
Dim x, y As Boolean
x = Not 23 > 14
y = Not 23 > 67
' The preceding statements set x to False and y to True.
Operadores lógicos binarios
El And (Operador, Visual Basic) realiza la conjunción lógica de dos
expresiones Boolean.Si ambas expresiones se evalúan como True, Anddevuelve True.Si
al menos una de las expresiones se evalúa como False, And devuelve False.
El Or (Operador, Visual Basic) realiza la disyunción o inclusión lógicas de dos
expresiones Boolean.Si una de las expresiones o ambas se evalúan
como True, Or devuelve True.Si ninguna de las expresiones se evalúa
como True, Or devuelve False.
Xor (Operador, Visual Basic) realiza la exclusión lógica de dos expresiones Boolean.Si
exactamente una expresión, pero no ambas, se evalúa como True, Xor devuelve True.Si
ambas expresiones se evalúan como True o como False, Xor devuelve False.
En el siguiente ejemplo se muestra cómo utilizar los operadores And, Or y Xor.
VB

Dim a, b, c, d, e, f, g As Boolean
a = 23 > 14 And 11 > 8
b = 14 > 23 And 11 > 8
' The preceding statements set a to True and b to False.
c = 23 > 14 Or 8 > 11
d = 23 > 67 Or 8 > 11
' The preceding statements set c to True and d to False.
e = 23 > 67 Xor 11 > 8
f = 23 > 14 Xor 11 > 8
g = 14 > 23 Xor 8 > 11
' The preceding statements set e to True, f to False, and g to False.
Operadores de asignación (Visual Basic)
A continuación se recogen los operadores de asignación definidos en Visual Basic.
Operador =
Operador ^=
Operador *=
Operador /=
= (Operador)
Operador +=
Operador -=
Operador <<=
Operador >>=
Operador &=
Palabra reservada
En los lenguajes informáticos, una palabra reservada es una palabra que tiene un
significado gramatical especial para ese lenguaje y no puede ser utilizada como un
identificador de objetos en códigos del mismo, como ser variables.
Por ejemplo, en SQL, un usuario no puede ser llamado "group", porque la
palabra group es usada para indicar que un identificador se refiere a un grupo, no a un
usuario. Al tratarse de una palabra clave su uso queda restringido.Ocasionalmente la
especificación de un lenguaje de programación puede tener palabras reservadas que
están previstas para un posible uso en futuras versiones. En Javaconst y goto son
palabras reservadas — no tienen significado en Java, pero tampoco pueden ser usadas
como identificadores. Al reservar los términos pueden ser implementados en futuras
versiones de Java, si se desea, sin que el código fuente más antiguo escrito en Java deje
de funcionar.

Palabras reservadas e independencia del lenguaje
En la CLI de .NET, todos los lenguajes tienen que proporcionar un mecanismo para
utilizar los identificadores públicos que son palabras reservadas en ese lenguaje. .|. Para
ver por qué es necesario, supongamos que se define una clase en VB.NET como
Sigue :
Public Class this
End Class
Entonces, se compila esta clase en un ensamblado de .NET y se distribuye como parte de
un conjunto de herramientas. Un programador de C#, que quiere definir una variable de
tipo “this” encontraría un problema: “this” es una palabra reservada en C#. El siguiente
fragmento en C# no compilará:
this x = new this();
Un tema similar aparece cuando se accede a miembros, sobrescribiendo métodos
virtuales e identificando espacios de nombres. En C#, colocando la arroba (@) antes del
identificador, se forzará a ser considerado como un identificador en vez de una palabra
reservada por el compilador. El signo arroba no es considerado parte del identificador.
@this x = new @this();
Por consistencia, esta utilización también se permite en configuraciones no-públicas como
variables locales, nombres de parámetros y miembros privados.
Visual Basic con Salida en Consola
Tres ejemplos básicos para comprender el uso de las variables y
operadores, les dejo las capturas de pantalla del código y salida en consola
además de los códigos fuente editables. los ejemplos utilizan los comandos
de consola Red, ReadLine, Write , WriteLine que sirven para leer valores del
teclado y mostrarlos en pantalla.

Variables en Visual Basic .Net
Las variables son usadas dentro de ámbitos, el ámbito indica en qué lugar de la aplicación
desea utilizar la variable y puede ser una de las siguientes palabras claves. Dim, Static,
Private o Public.
Dim: Se puede utilizar a nivel de procedimiento y a nivel del formulario. Si se declara una
variable a nivel de procedimiento con la palabra Dim, Visual Basic reinicializa (borra su
contenido) la variable cada vez que ejecuta el procedimiento.
Ejemplo:
Dim valor As Integer
Static: Se utiliza solo a nivel del procedimiento. Cuando una variable se declara con la
palabra Static, Visual Basicno reinicializa la variable cada vez que se ejecuta el
procedimiento, solo lo hace la primera vez. Esto quiere decir que la variable conserva su
valor entre una llamada al procedimiento y otra.

Ejemplo:
Static x As Double
Private: Se utiliza solo a nivel del modulo e indica que la variable es privada; es decir, solo
va a ser reconocida dentro del módulo donde ha sido declarada.
Ejemplo:
Private c As String
Public: Se utiliza solo a nivel de módulo e indica que la variable es pública; es decir, va a
ser reconocida en toda la aplicación.
Public d As Date
Constantes en Visual Basic .Net
Es un elemento con un nombre determinado que mantiene un valor constante durante el
desarrollo de todo el programa el cual no se puede cambiar. Las constantes se definen
con la instrucción Const por ejemplo:
Const e = 10
Nota: La definición de las constantes puede empezar con las palabras Public o Private.
Para que sean públicas o privadas. Por defecto son privadas.
Comandos de Consola Visual Basic .Net
COMANDO FUNCION FORMA DE USO
Read
Captura o lee el dato que el usuario
ingresa.
VariableIngresada =
Console.Read
ReadLine
Captura o lee el dato que el usuario
ingresa, pero a la vez hace un cambio
de línea al terminar de leer el dato.
Variable = Console.ReadLine
Write
Para mostrar texto y datos calculados
o capturados
Console.Write(.Texto a Mostrar
{0},{1}, {2}, …, {n}., Var0, Var1,
Var2,..., Varn)
Console.Write(.Texto a Mostrar.)
WriteLine
Permite mostrar ya sea una cadena
texto o un dato numérico, y a la vez
hace un cambio de línea, después de
Console.WriteLine(.Texto a
Mostrar {0},{1}, {2}, ., {n}., Var0,
Var1, Var2,…, Varn)

haber mostrado el dato. Console.WriteLine(.Texto a
Mostrar.)
Ejemplos de Visual Basic .Net con Salida en Consola
Ejercicio para Calcular Área
SALIDA EN CONSOLA

CODIGO FUENTE
Module area
Sub Main()
Dim radio As Single
Dim area As Single
Dim circunferencia As Single
Const pi = 3.1415926
Console.Write("Ingrese el radio: ")
radio = Console.ReadLine
area = pi * radio ^ 2
circunferencia = 2 * pi * radio
Console.WriteLine("El area es : {0}", area)
Console.WriteLine("La circunferencia es : {0}", circunferencia)
Console.ReadKey()
End Sub
End Module

Aplicaciones de terminal o linea de comandos con Visual Basic.NET
Damos click en la pantalla de nuevo proyecto, y elegimos aplicación de consola:
Para escribir textos en la consola, utilizaremos el método WriteLine().
Este método escribe en la línea actual el valor que le pasemos por parámetro añadiendo
al final un "intro" o final de línea lo que provocará que el cursor pase a la siguiente línea.
Como primera aplicación escribiremos:
Código :
Console.WriteLine("Hola")
Console.WriteLine("Esta es mi primera aplicación de consola")

Ejecuta la aplicación dándole al botón de "play" de la barra de herramientas de arriba y
verás que funciona correctamente...
¿Habéis podido ver la aplicación? Igual no os ha dado tiempo porque se habrá mostrado
una pantalla negra con el contenido de la imagen de abajo y se habrá cerrado
inmediatamente. Pues si, el IDE de VB.NET la ha ejecutado y luego al vuelto otra vez al
IDE, porque no tenia la instrucción de que se esperase a cerrar.
Vamos a mejorarla poniendo algo parecido a una pausa al final. Podemos poner debajo
de las dos instrucciones el método ReadLine(): Ésta instrucción lee datos por teclado así
que esperará hasta que pulsemos Intro, de esta forma se nos quedará visible en pantalla.
Escribimos el código:
Código :

Console.WriteLine("Hola")
Console.WriteLine("Esta es mi primera aplicación de consola")
Console.ReadLine()
Y el resultado:
Ademas de poder escribir y mostrar el resultado de lo que se escribe, las aplicaciones de
consola pueden realizar operaciones matemáticas también, como por ejemplo:
Código :
'Escribimos una operación
Console.WriteLine(340 + 260)

Console.ReadLine()
Que da como resultado:
O por ejemplo:
Código :
'Escribimos una potencia
Console.WriteLine(3 ^ 2)

Console.ReadLine()
Y el resultado es:
Os habéis dado cuenta de que la línea en verde "'Escribimos una operacion:", ¿no ha
salido en pantalla? Eso es porque es un comentario, para ayudar con la comprension de
programaciones mas avanzadas y complejas.
Si queremos concatenar varios textos en una línea se puede hacer con el símbolo "&",

tanto para variables como para textos. Por ejemplo:
Código :
'Tenemos dos variables Nombre y Numero
'Declaramos la variable Nombre como una cadena de caracteres
Dim Nombre As String
'Declaramos la variable Numero como un numero
Dim Numero As Integer
Nombre="Wyrm"
Numero=27
Console.WriteLine ("Hola me llamo: " & Nombre & " y tengo " & Numero & " años.")
console.Readline
Debería quedarnos así:

Y al darle "Play" a la aplicación, nos muestra:
OPERACINES MATEMATICAS EN VISUAL
Este proyecto sirve para realizar operaciones matemáticas, como Suma, Multiplicación,
División y Resta desde Visual Basic 6.0 usando InputBox.
En cada inputbox se escribe el numero a calcular y en el último se digita el símbolo que
desea operar, como, +, -,*,/.
Al darle aceptar aparece un mensaje con el resultado.
Para este ejemplo escribiremos el siguiente código en el formulario:

Private Sub Form_Load()
Dim dato1 As String
Dim dato2 As String
Dim signo As String
dato1 = InputBox ("Digite el primer número para la operación:", _
"Operaciones Matemáticas")
dato2 = InputBox ("Digite el segundo número para la operación:", _
"Operaciones Matemáticas")
signo = InputBox ("Digite el símbolo correspondiente para " & _
"la operación que desea realizar." & _
"Símbolos: * / - +.", "Operaciones Matemáticas")
If signo = "+" Then
MsgBox ("El Resultado de la Suma es: ") & Val(dato1) + Val(dato2), , _
"Resultado de la suma"
ElseIf signo = "-" Then
MsgBox ("El Resultado de la Resta es: ") & Val(dato1) - Val(dato2), , _
"Resultado de la Resta"
ElseIf signo = "*" Then
MsgBox ("El Resultado de la Multiplicación es: ") & Val(dato1) * Val(dato2), , _
"Resultado de la Multiplicación"
ElseIf signo = "/" Then
MsgBox ("El Resultado de la División es: ") & Val(dato1) / Val(dato2), , _
"Resultado de la División"
Else
MsgBox "Algún dato incorrecto, sírvase corregirlo.", _
vbOKOnly + vbCritical, "Error"
End If
End Sub

Después de escribir el código anterior, presionamos F5 para ver el formulario.
Nos aparecerá un cuadro donde nos pide un número, en el escribiremos cualquier
número y le damos aceptar, como se muestra a continuación:
Después nos aparecerá otro recuadro donde nos pedirá el segundo número, como el
siguiente, también le damos aceptar:
Luego nos aparecerá el último inputbox, en ella digitamos: +, -, *, / ., como se muestra a
continuación:

Por último nos aparecerá un mensaje con la respuesta, como el que se muestra a
continuación:
Espero que les sirva de algo...

Visual basic

Más contenido relacionado

La actualidad más candente (19)

Destacado (20)

Similar a Visual basic (20)

Último (6)

Visual basic