Índice Temático
Básico » Intermedio » Avanzado
Básico » Intermedio » Avanzado
Básico » Intermedio » Avanzado
Es un lenguaje orientado a objetos y eventos que soporta encapsulación, herencia y polimorfismo.
Es una mejora a Visual Basic formando parte de Visual Studio y compartiendo el entorno de desarrollo con Microsoft Visual C++ .NET, Microsoft Visual C# .NET, etc.
El Entorno de Desarrollo recibe el nombre de Entorno de Desarrollo de Microsoft Visual Studio .NET. Este entorno es personalizable y contiene todas las herramientas necesarias para construir programas para Microsoft Windows.
El Entorno de Desarrollo contiene múltiples ventanas y múltiples funcionalidades y es por consecuencia llamado un entorno de desarrollo integrado (integrated development environment IDE).
La ventana central es la ventana de diseño (Designer Window), la cual contiene el formulario a desarrollar.
La caja de herramientas (ToolBox) se localiza de lado izquierdo. En el extremo derecho tenemos la ventana de explorador de soluciones (Solution Explorer).
La ventana de propiedades (Properties window) contiene tres partes:
Es necesario tener instalado el Visual Studio .NET, al ejecutarlo se presenta una página de inicio, en caso de no presentarse entonces de clic en Help/Show Start Page. En esta página será posible establecer su perfil, por ejemplo identificarse como Desarrollador Visual Studio o más especifico como Desarrollador Visual Basic con lo cual Visual Studio configura de inmediato el entorno de desarrollo para programar en Visual Basic.
Para iniciar un nuevo proyecto, de clic en la opción Projects y clic en el botón [New Project], esta acción abre una ventana donde se indicará el archivo a abrir, los proyectos Visual Basic .NET tiene la extensión .vbproj. Una vez que abre el projecto si la página de inicio estaba visible continuará así y en el Explorador de Soluciones (Solution Explorer) se cargan los archivos correspondientes al proyecto.
En Visual Basic .NET existen dos archivos:
.vbproj, el cual contiene información específica para una
determinada tarea de programación..sln, el cual contiene información relacionada
con uno o más proyectos. Este tipo de archivo puede administrar varios projectos relacionados
entre sí y son similares a los archivos de grupos de proyecto (.vbg) en Visual Basic 6
Si la solución tiene un único proyecto, abrir el archivo de proyecto .vbproj o el archivo de solución
.sln tiene el mismo resultado, pero si la solución es multiproyecto entonces deberá
abrir el archivo de solución.
Best Practices: Procure siempre abrir el archivo de solución .sln.
Los formularios en Visual Basic .NET tienen la extensión .vb. Se mostraran a manera de pestañas
la página de inicio, la vista de diseño y el código del formulario.
Para evitar el acoplamiento de ventanas, mientras arrastre la ventana pulse la tecla [Ctrl], si desea integrar la ventana como pestaña entonces arrastre la ventana sobre otras pestañas y libere.
El control Image desaparece en Visual Studio.
Ya no tendrá que utilizar el tabulador para identar su código.
Visual Studio .NET tiene una nueva herramienta que comparte con Visual Basic, Visual C++, Visual C#, etc.
llamada .NET Framework que además es una interfaz subyacente que forma parte del propio sistema operativo Windows.
La estrucutra de .NET Framework es por Clases mismas que puede incorporar a sus proyectos
a través de la instrucción Imports, por ejemplo una de sus Clases es System.Math
la cual soporta los siguientes métodos
| Método | Descripción |
Abs(n) | Calcula el valor absoluto de n |
Atan(n) | Calcula el arcotangente de n en radianes |
Cos(n) | Calcula el coseno del ángulo n expresado en radianes |
Exp(n) | Calcula el constante de e elevada a n |
Sign(n) | Regresa -1 si n es menor que cero, 0 si n es cero y +1 si n es mayor a cero |
Sin(n) | Calcula el seno del ángulo n expresado en radianes |
Sqr(n) | Calcula la raíz cuadrada de n. |
Tan(n) | Calcula la tangente del ángulo n expresado en radianes |
La declaración de Imports debe ser a nivel de formulario:
Imports System.Math
Public Class Form1
.
.
.
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs)-
Handles MyBase.Load
txtOutput.Text += Sqrt(9) & vbNewLine
.
.
.
La biblioteca de clases .NET es una biblioteca de clases incluida en el
Microsoft .NET Framework y está diseñada para ser la base sobre las cuales las aplicaciones .NET son construidas.
La biblioteca .NET contiene un número considerable de clases con código reutilizable,
para ayudar a controlar esta complejidad .NET utiliza namespaces,
colecciones de clases relacionadas.
De clic en el botón [New Project] o File/New/Project, como tipo de proyecto seleccione Visual Basic Project, como plantilla seleccione Windows Application, por último indique la ubicación donde desea almacenar su proyecto. Al dar clic Visual Studio configura el entorno de desarrollo y crea un directorio con el mismo nombre que especifico para la aplicación.
Las aplicaciones Windows creadas con Visual Basic .NET tienen la extensión .exe
mismas que podrán ser ejecutadas en cualquier equipo que tenga instalado Microsoft Windows.
Visual Basic .NET instala de de manera automática los archivos de soporte, incluyendo
las bibliotecas de vínculos dinámicos y archivos de .NET framework.
Visual Studio puede crear dos tipos de archivos ejecutables:
Debug - Compilación de depuración, se utiliza cuando se prueba y depura un programa (Default).Release - Versión de edición, se utiliza cuando se termina el programa siendo esta una versión optimizada de menor tamañoPara crear un archivo ejecutable, de clic en Build/Configuration Manager para decidir sobre el tipo de archivo ejecutable, además de otras opciones como la plataforma para la cual desea crear la aplicación.
De clic en Build/Build Solution.
Lo que Visual Basic hace es crear una directorio binaria dentro del directorio que contiene el proyecto y compilará el código fuente, dando como resultado un archivo .exe con el nombre de su aplicación.
Programación Orientada a Eventos
Visual Basic .NET soporta la Programación Orientada a Eventos en la cual las aplicaciones reconocen y responden a eventos.
Un Evento es una acción o acontecimiento reconocido por algunos objetos para los cuales es necesario escribir el código para responder a dicho evento. Los eventos pueden ocurrir como resultado de una acción del usuario (onClick), por invocación a través de código o disparados por el sistema (Timer Tick Event).
Un Manejador de Eventos contiene código que responde a eventos particulares. Un desarrollador diseña cuidadosamente sus aplicaciones determinando los controles disponibles para el usuario y los eventos apropiados asociados a estos controles, entonces, el desarrollador escribe el código para integrar los eventos consistentes con el diseño de la aplicación.
Un procedimiento es un conjunto de sentencias que realizan una acción lógica. Existen tres tipos de procedimientos en Visual Basic .NET:
Visual Basic .NET para los manejadores de eventos utiliza una convención estándar la cual combina el nombre del objeto seguido de un guión bajo y el nombre del evento.
Private|Public Sub objeto_Evento(parámetros) handles Objeto.Evento
sentencias
End Sub
Cada manejador de eventos provee dos parámetros, el primer parámetro llamado sender
provee una referencia al objeto que dispara el evento, el segundo parámetro es un objeto
cuyo tipo de dato depende del evento que es manejado. Ambos parámetros son pasados por valor.
Si un parámetro es declarado por referencia ByRef el parámetro apunta al argumento actual.
Por default los argumentos se pasan por valor ByVal el parámetro es una copia local del argumento.
Return.Cuando es declarada una variable también se define su ámbito, el ámbito de una variable es la región de código en la cual la variable se referencia directamente. Existen dos tipos de ámbitos de las variables:
Convenciones para el nombre de los controles
Es recomendable utilizar convenciones para el nombre de los controles, es decir, que al momento de dar lectura al código sea fácil de entender y comprender, por lo que el establecimiento de convenciones ayuda a identificar que control se empleo, por ejemplo, si emplea un control botón emplee siempre como prefijo btn depués completelo con un nombre descriptivo acorde a la funcionalidad que este tendrá.
| Control | Prefijo |
Button |
Btn |
Label |
Lbl |
PictureBox |
Pic |
Timer |
Tmr |
Text Box |
Txt |
List Box |
Lst |
Combo Box |
Cbo |
Check Box |
Chk |
Radio Button |
Rad |
Control Button (antes CommandButton)
El control CommandButton en Visual Basic .NET recibe el nombre de Button,
la propiedad Caption ahora recibe el nombre de Text, ocurre lo mismo
para el caso del control Label.
El control Label ahora su propiedad Caption recibe el nombre de Text
y por ejemplo la antes propiedad Alignment ahora recibe el nombre de TextAlign
la cual tiene más opciones de alineación.
El control TextBox tiene una capacidad de almacenamiento de 32 Kbytes de texto.
El control DateTimePicker muestra por defecto la fecha actual que es posible
modificar a través de su propiedad value.
Este control puede mostrar fechas u horas, si desea mostrar horas utilice:
nombreControl.Format = DateTimePickerFormat.Time
A través de este control es posible abrir el navegador por default y acceder a un URL especifico:
LinkLabel1.LinkVisited = True
System.Diagnostics.Process.Start(LinkLabel1.Text)
Donde LinkLabel1.Text es el valor que tiene asignado la propiedad Text
por ejemplo file:///C:/pagina.html si quiere probar sin tener acceso a internet o si quiere probar
con acceso a internet seria http://www.elSitioWeb.com.
Si requiere especificar el navegador con el cual desea abrir el URL basta con señalarlo:
System.Diagnostics.Process.Start("firefox.exe", LinkLabel2.Text)
'La página se mostrara utilizando el navegador firefox
Es necesario señalar algo importante del código y adentrarnos a la programación .NET,
ya que el método Start de la clase Process inicia en memoria un
proceso de programa ejecutable para el navegador.
La clase Process hace mucho más que eso pero la parte a destacar es que
forma parte de la biblioteca de objetos System.Diagnostics la
cual los programadores Visual Basic .NET llaman espacio de nombres System.Diagnostics.
En cuanto al método Process.Start destaca que además de abrir una página web
puede ser utilizado para ejecutar otras aplicaciones:
System.Diagnostics.Process.Start(LinkLabel3.Text)
'Donde el valor de LinkLabel3.Text es "winword"
El método Start utiliza 2 argumentos, el primero especifica la aplicación a emplear
y el segundo especifica el archivo que abrira la aplicación, es decir, el siguiente ejemplo
abre el archivo indicado con Microsoft Excel:
System.Diagnostics.Process.Start("excel", "c:\pagos.xls")
Controles Anteriores y Otros Controles
Es posible utilizar antiguos controles ActiveX y utilizarlos con algunas limitaciones, teniendo como restricción técnica que deberán estar en un contenedor, por ejemplo de clic con el botón derecho en el separador Windows Forms seleccione la opción Add/Remove items y aparecerá una ventana donde dará clic en el folder COM Components y eligira el componente que desea agregar.
El Control MainMenu agrega menús a un programa, el manú se configura mediante sus propiedades.
Para agregar un menú simplemente seleccione el control MainMenu el cual de manera automática se ajusta al tamaño del formulario, este menú es de fácil manipulación pues basta con escribir el nombre para las opciones y a través del menú popup es posible modificarlo.
Una vez agregado el control MainMenu también se agrega un panel debajo del formulario
la cual recibe el nombre de Bandeja de Componentes a través del cual
será posible definir y modificar sus propiedades.
Ahora bien lo que se muestra en la parte superior del formulario es un representación visual del menú misma que recibre el nombre de diseñador de menú, pero el objeto menú principal se muestra en la parte inferior dentro de la bandeja de componentes.
Para definir teclas de acceso para las opciones del menú, continua con la forma de hacerlo
en Visual Basic 6 que es anteponiendo al caracter al cual deseamos hacer referencia el símbolo &
Si después de escribir las opciones de su menú desea cambiar el orden basta con seleccionar y mover la opción a la posición deseada.
Si desea eliminar una opción del menú basta con seleccionarla y pulsar la tecla [Supr] o [Del].
Para agregar código a cada opción del menú basta con dar doble clic sobre la opción deseada:
Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MenuItem2.Click
MsgBox("opción 1_1")
End Sub
Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MenuItem3.Click
MsgBox("opción 1_2")
End Sub
Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MenuItem5.Click
MsgBox("opción 2_1")
End Sub
Val, regresa el número contenido en un argumento, se detiene en el primer caracter no numérico.CDbl, regresa un valor double si el argumento puede ser convertido a doubleIsNumeric, regresa True si el argumento puede ser convertido a doubleRnd, regresa un valor random entre 0 y 1Abs, regresa el valor absoluto de un número (es necesario importar System.Math)Int, regresa la parte entera de un númeroFormatCurrency, regresa un string formateado a moneda y redondeado a dos decimalesFormar(expr,str), convierte una expresión a un formato string específico.
Visual Basic .NET provee funciones financieras como Pmt(Rate,Nper,PV) para determinar
pagos mensuales y FV(Rate,Nper,Pmt) para determinar el valor futuro de una
anualidad basada en pagos fijos periodicos e intereses de tasa fija.
En Visual Basic .NET existen funciones a través de las cuales es posible manipular el tiempo y la hora:
TimeString, regresa la hora actual del sistema.DateString, regresa la fecha actual del sistema.Now, regresa un valor codificado que representa la hora y fecha actual del sistema.Hour(hora), regresa el número de hora actual del sistema.Minute(hora), regresa el número de minuto actual del sistema.Second(hora), regresa el múmero del segundo actual del sistema.Day(fecha), regresa el número del día actual del sistema.Month(fecha), regresa el número de mes actual del sistema.Year(fecha), regresa el año actual del sistema.Weekday(fecha), regresa el número que representa el día de la semana. (1 = Domingo, 2 = Lunes, ...).
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button1.Click
txtTimeString.Text = TimeString
End Sub
Private Sub DateString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button2.Click
txtDateString.Text = DateString
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button3.Click
txtNow.Text = Now
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button4.Click
txtHour.Text = Hour(Now)
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button5.Click
txtMinute.Text = Minute(Now)
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button6.Click
txtSecond.Text = Second(Now)
End Sub
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button7.Click
txtDay.Text = Microsoft.VisualBasic.DateAndTime.Day(Now)
End Sub
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button8.Click
txtMonth.Text = Month(Now)
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button9.Click
txtYear.Text = Year(Now)
End Sub
Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles Button10.Click
txtWeekday.Text = Weekday(Now)
End Sub
Visual Basic .NET cuanta con siete tipos de cuadro de dialogo que facilitan la construcción de interfaz de usuario:
OpenFileDialog, obtiene unidad, nombre de directorio y nombre de un archivo existente.SaveFileDialog, obtiene unidad, nombre de directorio y nombre para un archivo nuevo.FontDialog, para que el usuario seleccione una configuración para la fuente.ColorDialog, para que el usuario seleccione un color de una paleta.PrintDialog, para que el usuario defina opciones de impresiónPrintPreviewDialog, muestra al usuario una vista previa de impresión.PageSetupDialog, para que el usuario controle las opciones de configuración de página.Al momento de diseñar la interfaz de usuario los controles de cuadro de dialogo no aparecen en la pantalla pero si se muestran visibles al pie de la misma, pudiendo acceder a sus propiedades para configurar el control.
Si requiere hacer visible el cuadro de dialogo en modo ejecución tendrá que emplear el método ShowDialog().
El método ShowDialog() regresa un valor denominado DialogResult,
indicando el botón del cuadro de diálogo en el que el usuario dio clic.
El control OpenFileDialog representa un dialogo preconfigurado para seleccionar un archivo que será abierto.
La propiedad InitialDirectory especifica el directorio inicial desplegado por la caja de dialogo de archivo.
La propiedad Filter determina el formato de archivos que podrán ser presentados en la caja de dialogo,
para desplegar la caja de dialogo de archivo se utiliza su método ShowDialog, la propiedad FileName
mantiene es un string que contiene el nombre del archivo seleccionado.
Suponga un ejercicio donde tiene un control OpenFileDialog y otro PictureBox,
a través del cuadro de dialogo es posible seleccionar una imagen, misma que será cargada y presentada
por el control de imagen (*.bmp, *.emf, *.wmf, *.ico, *.cur, *.jpg, *.jpeg, *.png, *.gif), es posible
utilizar el método Filter para especificar solamente los archivos que tengan el formato
especificado (entre formato y formato se utiliza como separador el símbolo | pipe):
ofd.Filter = "formato 1|*.jpg|formato 2|*.bmp"
ofd.ShowDialog()
pb.Image = System.Drawing.Image.FromFile(ofd.FileName)
Dim dr
dr = ofd.ShowDialog()
MsgBox(dr)
La siguiente línea descarga el control de imagen:
pb.Image = Nothing
El control ColorDialog representa un dialogo preconfigurado que despliega la caja de dialogo de color estándar,
permitiendo al usuario seleccionar el color o definir un color personalizado, para desplegar
la caja de dialogo de color se utiliza su método ShowDialog, la propiedad color mantiene
el color seleccionado por el usuario.
Es posible agregar el control ColorDialog al formulario aunque esté no este visiblemente contenido en el formulario pero si visible en la bandeja de componentes o es posible agregar el control ColorDialog a través de código declarando un objeto de este tipo.
REM Agregando un control ColorDialog al formulario
Private Sub BtnBgColor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnBgColor.Click
CD.ShowDialog()
LblText.BackColor = CD.Color
End Sub
REM Declarando un objeto tipo ColorDialog via código
Private Sub BtnForeColor_Click(ByVal sender As System.Object
, ByVal e As System.EventArgs) _
Handles BtnForeColor.Click
Dim FC As New ColorDialog
FC.ShowDialog()
LblText.ForeColor = FC.Color
End Sub
El control FontDialog representa un dialogo preconfigurado que despliega la caja de dialogo de fuente estándar,
por default la caja de dialogo muestra cajas de listas para la fuente, estilo-fuente, y tamaño, cajas de chequeo
para efectos como subrayado o tachado, también muestra un ejemplo de como la fuente podría aparecer, para desplegar
la caja de dialogo de fuente se utiliza su método ShowDialog, la propiedad font mantiene
el color seleccionado por el usuario.
Es posible agregar el control FontDialog al formulario aunque este no esté visiblemente contenido en el formulario pero si visible en la bandeja de componentes o es posible agregar el control FontDialog a través de código declarando un objeto de este tipo.
Private Sub BtnFont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnFont.Click
Dim FD As New FontDialog
FD.ShowDialog()
LblText.Font = FD.Font
End Sub
El control PrintDialog es una caja de dialogo preconfigurada,
utilizada para seleccionar una impresora, escoger las páginas a imprimir y determinar otras características
de impresión en aplicaciones Windows.
Es posible habilitar al usuario para imprimir varias partes de sus documentos: imprimir todo,
imprimir un rango de páginas o imprimir una selección.
La propiedad Document se establece con un objeto PrintDocument,
para desplegar la caja de dialogo de impresión utilice el método ShowDialog,
la caja de dialogo de impresión almacena la configuración del usuario en el objeto PrintDocument
y para imprimir utilice el método Print.
El control PrintPreviewDialog es una caja de dialogo preconfigurada,
para presentar como podría ser el documento cuando se imprima.
La propiedad Document se establece con un objeto PrintDocument,
el cual tiene propiedades que describen que será impreso y la habilidad para imprimir dentro de una aplicación Windows,
para desplegar la caja de dialogo de impresión-previa utilice el método ShowDialog,
El control PageSetupDialog es una caja de dialogo preconfigurada
que permite al usuario manipular la configuración de páginas, incluyendo margenes
y orientación del papel.
La propiedad Document se establece con un objeto PrintDocument,
para desplegar la caja de dialogo de PageSettings utilice el método ShowDialog,
la selección del usuario se almacena en la propiedad PageSettings y debería
entonces ser copiado al objeto PrintDocument.
Visual Basic .NET no permite el uso del tipo de dato Variant y todas las variables
deberán ser declaradas por las instrucciones Dim nombreVarible as tipoDato.
Dim es la abreviatura de Dimensión, que sirve para reservar espacio para la variable.
La sentencia Dim especifica el nombre de la variable y su tipo de dato asociado.
Las variables deben tener un nombre único llamado Identificador, los identificadores se forman siguiendo las siguientes reglas:
Recomendaciones:
Una novedad en Visual Basic .NET es la declaración e inicialización de variables, ya que es posible hacer esto al mismo tiempo:
Dim nombreVariable as tipoDato = valorInicial
Si no se define un tipo de dato para la variable, entonces asume el tipo de dato por default que es Object.
Es posible declarar variables como se hacia en Visual Basic 6, si emplea la instrucción Option Explicit Off.
Option Explicit Off
Private Sub Form1_Load(ByVal sender As System.Object
, ByVal e As System.EventArgs)_
Handles MyBase.Load
v = "xxx" & 5
MsgBox(v)
End Sub
End Class
Visual Basic .NET incorpora la instrucción Option Strict si desea que los tipos de datos en las operaciones
sean del mismo tipo y evitar la conversión y perdida de datos.
A través de la función InputBox es posible manipular la entrada de datos por parte del usuario,
pudiendo almacenar en una variable los datos ingresados por este.
Dim sRespuesta As String
sRespuesta = InputBox("Password : ", "Usuario", , 500, 500)
If sRespuesta <> vbNullString Then
MsgBox("Validación de usuario y password pendiente...")
Else
MsgBox("Es necesario proporcionar su password")
End If
El primer parámetro que recibe esta función es un texto indicativo para el usuario, un texto para el título de la ventana, un valor inicial para el campo donde el usuario ingresará datos, un número que representa la coordenada X y otro número que representa la coordenada los cuales indican la posición en donde se presentará la ventana de ingreso de datos.
Los tipos de datos numericos en Visual Basic .NET se agrupan en dos categorias: enteros y de punto flotante.
Los tipos de datos numericos a su vez se agrupan en, Byte, Short, Integer y Long.
Los tipos de datos de punto flotante son Single y Double.
Los tipos de datos Char almacenan un sólo caracter en formato Unicode.
Los tipos de datos String almacenan una secuencia de caracteres Unicode.
Unicode es un sistema internacional de codificación de 16-bit que cubre valores para más de 45,000 caracteres. Un caracter Unicode es almacenado como un valor numerico sin signo de 16-bit, de 0 a 65535. Los primeros 128 (0-127) caracteres Unicode corresponden al conjunto de caracteres ASCII. Del 32 al 127 corresponden a caracteres alfanumericos y simbolos para un teclado US. Del 128 al 255 representan caracteres especiales.
El tipo de dato Boolean es un valor sin signo el cual es interpretado como falso o verdadero.
El tipo de dato Date almacena fechas y tiempo, el rango de valores posible es del 12:00:00 AM Enero 1 al 31 de Diciembre del 9999 11:59:59 PM. Los valores para las fechas deben ser encerrados entre el signo # y con el formato m/d/aaaa, por ejemplo #12/7/1971#.
El tipo de dato Object es el tipo de dato universal en Visual Basic .NET y es también el tipo de dato por default para las variables que son declaradas sin especificar su tipo de dato.
| Tipo de Dato | Tamaño |
|
Función de Conversión | Validación de Conversión | ||||
Boolean |
2 bytes |
|
CBool |
Cualquier dato de tipo String o valor numérico | ||||
Byte |
1 byte |
|
CByte |
De 0 a 255, las fracciones se redondean | ||||
Char |
2 bytes |
|
CByte |
Cualquier expresión String válida o valor en el rango de 0 a 65535 | ||||
Date |
8 bytes |
|
CDate |
Cualquier expresión válida de fecha y tiempo | ||||
Decimal |
16 bytes |
|
CDec |
Números comprendidos en su rango | ||||
Double (punto foltante de doble precisión) |
8 bytes |
|
CDbl |
Números comprendidos en su rango | ||||
Integer |
4 bytes |
|
CInt |
Números comprendidos en su rango | ||||
Long |
8 bytes |
|
CLng |
Números comprendidos en su rango | ||||
Object |
4 bytes |
Object
|
CObj |
Cualquier expresión válida | ||||
Short |
2 bytes |
|
CShort |
Números comprendidos en su rango, las fracciones son redondeadas | ||||
Single (punto decimal de precision simple) |
4 bytes |
|
CSng |
Números comprendidos en su rango, las fracciones son redondeadas | ||||
String |
4 bytes | Depende de la plataforma en la que se integre | CStr |
Aproximadamente 2 billones de caracteres Unicode. | ||||
Tipos de Datos Definidos por el Usuario : Structure
Visual Basic permite al desarrollador crear sus propios tipos de datos,
esto es posible.NET a través del empleo de la instrucción Structure, ejemplo:
Structure Persona
Dim sNombre As String
Dim nEdad As Integer
Dim dFechaNac As Date
End Structure
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs)_
Handles MyBase.Load
Dim Empleado As Persona
Empleado.sNombre = "Gerardo Ángeles Nava"
Empleado.nEdad = 33
Empleado.dFechaNac = "21 / 9 / 1971"
txtOutput.Text = Empleado.sNombre & vbNewLine
txtOutput.Text += Empleado.nEdad & vbNewLine
txtOutput.Text += Empleado.dFechaNac
End Sub
Cada variable declarada dentro de la estructura es llamado un member.
Definición una estructura vacia:
Dim Empleado As Persona = {}
Una constante es aquella que almacena un valor que no es posible cambiar durante la ejecución del programa.
Se recomienda que el nombre de una constante sea escrito en su totalidad en mayúsculas.
Const PI As Double = 3.14159265
Si desea que la constante esté disponible para todos los formularios y módulos de la aplicación deberá
ser declarada en un módulo y anteponer a su declaración la palabra reservada Public.
REM Escribir en un Módulo
Public Const PI As Double = 3.14159265
Visual Basic .NET dispone de los siguientes operadores matemáticos:
| Operador | Descripción |
+ | Suma |
- | Resta |
* | Multiplicación |
/ | División |
\ | División entera (parte entera de la división) |
Mod | Residuo (resto de la división entera) |
^ | Exponenciación (elevar a una potencia) |
& | Concatenación de Cadenas |
Dim nInc As Integer
For nInc = 1 To 10
If nInc Mod 2 = 0 Then
txtOutput.Text += nInc & " es par " & vbNewLine
Else
txtOutput.Text += nInc & " no es par " & vbNewLine
End If
Next
txtOutput.Text += "10/0 = " & CStr(10 / 0)
La división entre 0 no está permitida en los cálculos matemáticos ya que produce un resultado infinito, en la versión Visual Basic 6 hacer esto produce un error de ejecución 11 "División entre 0", pero en Visual Basic .NET se maneja esta situación automáticamente y muestra un valor de Infinito.
Ponga atención en el siguiente código y tenga cuidado al comparar resultados ya que el valor
que regresa la excepción del cálculo matemático entre 0 es Infinito con la primer letra en mayúscula:
If CStr(10 / 0) = "infinito" Then
MsgBox("manejador de cálculo")
Else
MsgBox("No es lo mismo -infinito- e -Infinito-")
End If
If CStr(10 / 0) = "Infinito" Then MsgBox("manejador de cálculo")
Los operadores aritméticos requieren operadores numéricos
(^,*,/,\,Mod,+,-)
y producen resultados numéricos.
El operador de concatenación (&) String requiere operadores String y producen resultados String.
Los operadores Comparativos requieren operadores Comparativos (>,<,>=,<=,=,<>)
y producen un resultado lógico (True or False).
Los operadores Lógicos requieren operadores Lógicos (NOT,AND,OR,XOR)
y producen un resultado lógico.
Visual Basic .NET incorpora nuevos operadores abreviados que facilitan la escritura de código, por ejemplo:
x = x + 1 'Antes escribia
x += 1 'Ahora puede escribir
| Operadores Abreviados |
+= |
-= |
*= |
/= |
\= |
^ |
&= |
A continuación se muestra el orden de precedencia/prioridad/jerarquía de los operadores en Visual Basic .NET
| Precedencia de Operadores |
( ) |
^ |
- |
*/ |
\ |
Mod |
+- |
Trataremos de destacar las novedades y cambios en cuando lo referente a Visual Basic .NET y citaremos la referencia al Tutorial de Visual Basic 6.
A manera de resumen recordaremos que For se utiliza cuando se conoce de antemano
el número de iteracciones a ejecutarse. Do se utiliza cuando no se conoce de antemano
el número de iteraciones a ejecutarse. Si al menos debe ejecutarse 1 iteración es necesario
colocar la expresión condicional al final del ciclo. Evite ciclos infinitos, para ello
asegurese de que estos ciclos tengan una expresión condicional de salida. Utilice
Until a diferencia de While cuando requiera que la expresión
condicional sea la contraria, por ejemplo con While la expresión condicional
podría ser A <> B y con Until podría ser A = B.
La única sentencia de control que tiene un cambio relevante sintacticamente es While
ya que antes se escribia While ... Wend ahora es necesario escribir While ... End While.
Visual Basic .NET incorpora 2 nuevos operadores lógicos para utilizarlos en las sentencias de control, a continuación se mostrará la tabla de operadores lógicos anteriores y nuevos:
| Operadores Lógicos | Descripción |
And |
Las 2 expresiones deben ser verdaderas |
Or |
Alguna de las 2 expresiones es verdadera |
Not |
Negación del resultado de la expresión |
Xor |
Si 1 y sólo 1 de las expresiones es verdadera |
AndAlso |
Si la primer y segunda condición son verdaderas |
OrElse |
Si la primer o segunda condición es verdadera |
Los nuevos operadores lógicos AndAlso y OrElse reciben el nombre
de sistema de corto-circuito.
Dim nCalificacion As Integer = 0
If nCalificacion <= 0 AndAlso nCalificacion / 0 Then
MsgBox("Error de lógica")
Else
MsgBox("Continuar cálculo")
End If
Parece que el operador lógico AndAlso como OrElse nos ahorran escribir un If
dentro de otro If/else y quizá evitar un error en tiempo de ejecución.
Dim nCalificacion As Integer = 0
If nCalificacion < 0 OrElse nCalificacion / 0 Then
MsgBox("Error de lógica")
Else
MsgBox("Continuar cálculo")
End If
La sentencia de control Do ... Loop es la sentencia general iterativa,
la cual permite ejecutar repetitivamente un grupo de sentencias hasta que una condición sea cumpla.
Existen cuatro versiones de la sentencia Do ... Loop :
Do While condición
sentencias
Loop
Do Until condición
sentencias
Loop
Do
sentencias
Loop While condición
Do
sentencias
Loop Until condición
La sentencia Exit permite salir inmediatamente de una decisión,
ciclo o procedimiento.
A través del control Timer es posible ejecutar una instrucción
en un intervalo de tiempo especifico, este Timer se activa
estableciendo su propiedad Interval con el valor True
y se ejecutará hasta que por medio de la acción del usuario lo detenga
o se desactive el temporizador.
Cuando agrega un Timer este no es visible en el formulario
pero si en la parte inferior de la pantalla (Bandeja de Componentes), justo debajo del formulario.
En Visual Basic .NET el nombre del control cambia su nombre por Timer_Tick
Por ejemplo si desea que se ejecute una acción cada segundo, será necesario cambiar
el valor de la propiedad Interval a 1000 milisegundos.
Para iniciar la ejecución del propio Timer es necesario establecer
el valor de la propiedad Enabled a True.
Para detencer la ejecución del Timer es necesario invocar el método Stop().
Dim i As Integer = 0
Private Sub btnInicio_Click(ByVal sender As System.Object
, ByVal e As System.EventArgs) _
Handles btnInicio.Click
Timer1.Enabled = True
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles Timer1.Tick
lblTic.Text = CStr(i)
i += 1
End Sub
Private Sub btnFin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnFin.Click
Timer1.Stop()
End Sub
Visual Basic .NET provee la función Rnd() la cual
genera un valor aleatorio (random) entre 0.0 y 1.0
Private Sub BtnMakeRnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnMakeRnd.Click
TxtOut.Text = Rnd()
End Sub
Note que cada vez que da clic al botón se genera un número aleatorio (random) y se muestra en la caja de texto, pero cierre el programa y ejecutelo de nuevo, notará que siempre dá la misma secuencia de números, es por ello que a estos números se les llame pseudo-aleatorios.
Si requiere obtener un número entero a partir del número generado,
en vez de la fracción, entonces multipliquelo por 10 y después redondeelo
utilizando la función de redondeo de la clase Math
Private Sub BtnMakeRnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnMakeRnd.Click
TxtOut.Text = Rnd()
TxtOut2.Text = TxtOut.Text * 10
TxtOut3.Text = Math.Round(TxtOut.Text * 10)
End Sub
Otra manera de obtener la parte entera es utilizar la función Int,
si desea que el número generado se encuentre en un rango,
solamente tiene que hacer una multiplicación del número del límite superior:
Private Sub BtnMakeRnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnMakeRnd.Click
If Trim(TxtRange.Text) <> vbNullString Then
TxtOut4.Text = Int(Rnd() * (TxtRange.Text + 1))
Else
TxtOut.Text = Rnd()
TxtOut2.Text = TxtOut.Text * 10
TxtOut3.Text = Math.Round(TxtOut.Text * 10)
End If
End Sub
Salida, los números generados comprenden el rango de 0 a límite superior.
La función Rnd crea siempre la misma secuencia de números aleatorios,
para crear un auténtico número aleatorio utilice el método Randomize la cual utiliza el reloj
de la PC para crear un punto de inicio aleatorio el cual será utilizado después por la función Rnd.
Private Sub BtnRndmize_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnRndmize.Click
VBMath.Randomize() ' Initialize random-number generator.
TxtOut.Text = Rnd()
End Sub
El método Randomize pertenece a la Clase Microsoft.VisualBasic.VBMath.
Existen 3 tipos básicos de errores, los fáciles de encontrar, solucionar y que no causan problemas de mantenimiento (sintaxis), los difíciles de encontrar, solucionar y que causan probelmas potenciales de mantenimiento (lógica):
Run-time error '13': Type mismatch
Ahora en Visual Basic .NET un error en tiempo de ejecución genera una excepción, lo cual significa que esta situación excepcional requiere de un manejo especial.
Los errores lógicos son errores en el diseño o implementación de la solución que provocan un comportamiento incorrecto. Por ejemplo piense en que se requiere obtener un promedio y alguien diseño o implemento la siguiente formula:
nPromedio = Calificacion1 + Calificacion2 / 2
Si la formula se escribe tal cual, la precedencia de operadores nos indica que sumará la Calificacion1 al resultado de la división de la Calificacion2 / 2, lo cual no es el promedio, lo que estariamos esperando es que primero hiciera una sumatoria y después realizara una división, el error aquí es que harían falta unos paréntesis.
nPromedio = (Calificacion1 + Calificacion2) / 2
La razón por la cual son los errores más dificiles de corregir es porque la mayoria de los escenarios funciona sin problema, pero vasta con que un escenario no se cumpla para hacer fallar el programa.
En el siguiente ejemplo el compilador no detecta que se trata de acceder a un índice que no existe, por lo que al intentar acceder se genera una excepción:
Dim a
a = "uno.dos.tres"
a = a.Split(".")
MsgBox(a(3)) ' el elemento 3 no existe, el arreglo inicia en el elemento 0 y termina en 2
Una de las potencialidades de Visual Basic a diferencia de otros poderosos lenguajes es que tiene integrada una herramienta de depuración de errores, con la cual es posible ejecutar el código:
Una novedad en Visual Basic .NET es que los puntos de interrupción se mantienen aún si se cierra Visual Basic .NET
A través del depurador de Visual Basic .NET es posible abrir una ventana que nos permita conocer el valor que tienen las variables en cierto momento o para requerir de una ayuda auxiliar.
La Ventana de Comandos nos permite escribir por ejemplo un objeto y al escribir la notación de punto (.) aparecen las propiedades y métodos de este objeto, por ejemplo escriba:
>file.
Para abrir o activar esta ventana de clic en Debug/Windows/Inmediate, esta ventana es capaz de soportar dos modos:
Para cambiar de un modo a otro simplemente escriba:
>cmd, si está en modo Inmediato y se desea pasar a modo Comando>immed, si está en modo Comando y se desea pasar a modo InmediatoVentana de Comandos - Inmediata
La Ventana de Comandos - Inmediata, nos permite evaluar o conocer el valor de una variable por ejemplo
si su programa utiliza una variable llamada sNombre y quiere conocer que valor tiene
entonce en la ventana de comandos en modo inmediato, escriba:
?sNombre
A continuación se presentará su valor.
El control ListBox hace visible una lista de items,
donde el usuario puede seleccionar items en la lista utilizando los clics del mouse.
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) -
Handles MyBase.Load
LstBox.Items.Add("Red")
LstBox.Items.Add("Green")
LstBox.Items.Add("Blue")
End Sub
Private Sub LstBox_SelectedIndexChanged(ByVal sender As System.Object
, ByVal e As System.EventArgs) _
Handles LstBox.SelectedIndexChanged
LstBoxOut.Items.Add(LstBox.SelectedItem)
End Sub
Private Sub LstBoxOut_SelectedIndexChanged(ByVal sender As System.Object
, ByVal e As System.EventArgs) _
Handles LstBoxOut.SelectedIndexChanged
LstBoxOut.Items.Remove(LstBoxOut.SelectedItem)
End Sub
La función IsNumeric() regresa un valor booleano el cual
indica cuando una expresión puede ser evaluada como un número.
Esta función es básica de una aplicación para validar la entrada correcta de datos de tipo numérico.
Private Sub btnIsNumber_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnIsNumber.Click
If IsNumeric(TxtInput.Text) Then
MsgBox("Si es número")
Else
MsgBox("No es número")
End If
End Sub
Tendrá que hacer su función de validación tan robusta como la requiera, por ejemplo una validación previa en una entrada de datos, seria pensar que el usuario intento dar un número pero al escribir, sin desearlo digito un espacio, para la perspectiva del usuario novato, quizá vea que efectivamente escribio un número y no le toma importancia a los espacios en blanco, por lo tanto lo primero que tendriamos que realizar es la eliminación de los espacios en blanco, pero no sólo los que probablemente esten al inicio, sino los que también estén en la parte intermedia y los que estén en la parte final, para la eliminación de los espacios en blanco al inicio y al final de la entrada del usuario podriamos utilizar una sola función Trim, pero, ¿Qué hay de los espacios en blanco intermedios?.
Visual Basic .NET provee mecanismos para la eliminación de espacios en blanco contenidos en un string a través de las siguientes funciones:
LTrim, regresa un string que contiene una copia de un string especifico al cual se eliminaron los espacios en blanco contenidos al inicio del string.RTrim, regresa un string que contiene una copia de un string especifico al cual se eliminaron los espacios en blanco contenidos al final del string.Trim, regresa un string que contiene una copia de un string especifico al cual se eliminaron los espacios en blanco contenidos al inicio y al final del string.
Un control CheckBox indica cuando un valor particular esta encendido o apagado, verdadero o falso, si o no,
puede ser utilizado también para seleccionar múltiples items de una lista de opciones.
Un control RadioButton permite al usuario seleccionar sólo un item
de una lista de opciones.
El evento KeyPress es utilizado para capturar la tecla digitada por el usuario.
Este evento distingue entre letras mayúsculas y minúsculas. El segundo argumento
del este evento expone dos propiedades: Handled y KeyChar, la propiedad KeyChar
es el caracter correspondiente a la tecla digitada. La propiedad Handled
es un valor booleano, si se establece este valor como True
entonces indicamos al formulario que no procese el evento.
El siguiente ejemplo evita que se digite un número:
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
If IsNumeric(e.KeyChar) Then e.Handled = True
End Sub
El siguiente ejemplo válida que la entrada unicamente acepte números (permite borrar la entrada):
Private Sub TextBox1_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
REM If IsNumeric(e.KeyChar) Then e.Handled = True
If (Asc(e.KeyChar)) >= 48 And (Asc(e.KeyChar)) <= 57
Or (Asc(e.KeyChar)) = System.Windows.Forms.Keys.Back Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
El siguiente ejemplo válida que la entrada unicamente acepte letras (permite borrar la entrada):
Private Sub txtLetras_KeyPress(ByVal sender As Object, ByVal _
e As System.Windows.Forms.KeyPressEventArgs) Handles txtLetras.KeyPress
If (Asc(e.KeyChar)) >= 65 And (Asc(e.KeyChar)) <= 90 Or _
(Asc(e.KeyChar)) >= 97 And (Asc(e.KeyChar)) <= 122 Or _
(Asc(e.KeyChar)) = System.Windows.Forms.Keys.Back Then
e.Handled = False
Else
e.Handled = True
End If
End Sub
El control Windows Media Player reproduce video y archivos de sonido en distintos formatos, incluyendo MPEG, AVI, WAV y MIDI.
Este control no es parte de la caja de herramientas estándar, para agregarlo seleccione Add/Remove ToolBox Items/COM/Windows Media Player
Private Sub BtnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnOpen.Click
Dim OFD As New OpenFileDialog
OFD.ShowDialog()
wmp.openPlayer(OFD.FileName)
End Sub
Sin duda una de las grandes novedades de Visual Basic .NET es la instrucción Try - Catch.
El mecanismo Try - Catch sirve para atrapar errores, tal como lo hace
On Error Goto, Resume y Resume Next pero estructural y conceptualmente
diferente.
Con el mecanismo Try - Catch es posible escribir manejadores de errores estructurados
ofreciendo una manera eficaz de resolver los errores en tiempo de ejecución.
Los mecanismos previos a Try - Catch continuan vigentes, incluso existe un
nuevo método llamado Err.GetException, que obtiene la excepción que ocurrio al momento
de generarse el error.
¿Qué es un error en tiempo de ejecución?, no es más que un error inesperado del cual un programa en Visual Basic .NET no se puede recuperar, por no poderse completar una instrucción entonces Visual Basic .NET no tiene instrucciones precisas que ejecutar en estos casos cuando se genera el error.
Para lidiar con los errores en tiempo de ejecución Visual Basic tiene este nuevo mecanismo
Try - Catch para controlar los errores, ya que este mecanismo atrapa el error
definiendo las acciones a seguir cuando se identifica el error.
Algo importante a anazalir y diseñar es cuando y como integrar un mecanismo Try - Catch.
Así que debera emplearse en aquellas situaciones suceptibles a error.
La manera en que debe utilizar este mecanismo es la siguiente:
Try
sentencia(s) que pueden generar un error en tiempo de ejecución
Catch
(el error se genero)
sentencia(s) que definen las acciones a seguir ya que se genero el error
Finally
sentencia(s) que reestablecen las condiciones antes de generarse el error.
End Try
La palabra reservada Finally es opcional.
El código contenido dentro de un bloque Try recibe el nombre de código protegido,
porque evita la interrupción del programa o aplicación y ejecuta las instrucciones contenidas
en Catch.
Para probar más de una condición de error en tiempo de ejecución utilice la sentencia Catch When:
Try
'Evaluar expresión
Catch When Err.Number = 13
'Ocurrio un error de tipo de datos, no coinciden los tipos
Catch When Err.Number = 6
'Ocurrio un error en el control del índice, desbordamiento
Catch
'Controlar el error
End Try
Por último, este mecanismo al igual que las sentencias de control tiene una manera
de salir del bloque ya sea este Try o Catch
a través del empleo de la instrucción Exit try, pero
si contiene una sentencia Finally el código contenido en esta
si se ejecuta, únicamente aplica para Try y Catch
pues el objetivo de Finally es precisamente el ejecutar
pase lo que pase su contenido.
Try
'sentencia(s) que pueden generar un error en tiempo de ejecución
'Bajo determinada condición Exit try
Catch
'(el error se genero)
'sentencia(s) que definen las acciones a seguir ya que se genero el error
'Bajo determinada condición Exit try
Finally
'sentencia(s) que reestablecen las condiciones antes de generarse el error.
End Try
Recordemos que el objeto Err
tiene propiedades utiles como Number para obtener el número de error que se produjo,
Description para obtener una descripción del error ocurrido, todo
ello referente al último error ocurrido.
La novedad en Visual Basic .NET en lo referente a módulos es que ahora el módulo tiene instrucciones de inicio y fin que lo delimitan:
Otra novedad en Visual Basic .NET es que los argumentos de los procedimientos se pasan ByVal,
es decir, no se modifica el valor original de la variable sino que se manda una copia
del valor, por lo que quizá sea necesario la mayor parte de las veces indicar que se pasan ByRef.
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer = 5
multiplica(i)
MsgBox(i)
End Sub
Module miModulo
Sub multiplica(ByVal j As Integer)
j *= j
End Sub
End Module
Salida: 5
Si cambia ByVal por ByRef la Salida es 25.
Al invocar un procedimiento Visual Basic .NET de manera automática encierra entre paréntesis los argumentos.
Sin duda la mayor novedad para las funciones es que ahora es posible utilizar la sintaxis Return
para regresar el resultado y seguira vigente hacerlo como se hacia en Visual Basic 6, que era
utilizar el nombre de la función y asignarle el resultado.
Cuando la función encuentre la palabra reservada Return de manera inmediata se detiene
su ejecución y regresará si se establecio en su caso un valor.
Las funciones que son declaradas en los módulos estándar por defecto son públicas.
Recuerde que la diferencia entre una función y un procedimiento es que la función regresa valores y el procedimiento no.
Matrices/Arrays/Arreglos/Vectores
Optaremos por referirnos a esta estrutura como Arreglo.
La novedad para los arreglos en Visual Basic .NET es que el índice comienza en 0
y no podrá utilizarse la opción Option Base para redefinirlo, es decir, darle cualquier otro valor.
Efectos de las arreglos basados en 0:
Dim aColores(2) As String
aColores(0) = "Rojo"
aColores(1) = "Verde"
aColores(2) = "Azul"
ToLBound regresará siempre el valor 0 porque el límite inferior de un arreglo es 0UBound regresará como valor el número de elementos menos 1
Dim aNumeros() As Integer = {10, 20, 30, 40, 50}
Dim i As Integer
txtOut.Text += "Left Bound : " & LBound(aNumeros) & vbNewLine
txtOut.Text += "Upper Bound : " & UBound(aNumeros) & vbNewLine
For i = 0 To UBound(aNumeros)
txtOut.Text += i & " : " & aNumeros(i) & vbNewLine
Next
Redim en la declaración inicialRedim para cambiar la dimensión a un arreglo existentePara los arreglos dinámicos debe tenerse en mente que al declarar el arreglo su tamaño será definido como el número de elementos menos 1.
Una vez declarado un arreglo no es posible cambiar el número de dimensiones utilizando Redim,
es decir si se declaro un arreglo unidimensional con Redim no podrá redefinirlo como bidimensional.
Redim Preserve, si modifica la dimensión de una matriz que ya contenga datos, estos se perderán,
ya que al ejecutar la instrucción Redim el contenido del arreglo dinámico se definirá a su valor predeterminado
0 o null, muy bueno para eliminar el contenido de un arreglo, pero muy malo si
se desea mantener los valores, por lo que la solución para no eliminar los valores al redefinir un arreglo
es utilizar la instrucción Preserve. La única regla es respetar el número de dimensiones original.
Existe una limitación, ya que sólo es posible cambiar el tamaño de la última dimensión, si es que el arreglo tiene más de una dimensión. En el caso de arreglos unidimensionales podría parecer no tener restricción.
Dim aMultidimensional(,,,) As Integer
ReDim aMultidimensional(10, 20, 30, 40)
ReDim Preserve aMultidimensional(10, 20, 30, 80)
La Clase Array provee métodos para crear, manipular, buscar y ordenar arreglos,
por lo que sirven como la clase base para todos los arreglos en el runtime del lenguaje común.
Forma parte la biblioteca .NET.
La Clase Array contiene el método Sort
el cual recibe como argumento un arreglo y su objetivo
es ordenar el contenido del arreglo:
Dim i As Integer
Dim aNumeros(9) As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
For i = 0 To 9
Randomize()
aNumeros(i) = Rnd() * 9
Next
ShowElements(aNumeros, ListBox1)
End Sub
Private Sub ShowElements(ByRef a As Array, ByVal list As ListBox)
For i = 0 To 9
list.Items.Add(a(i))
Next
End Sub
Private Sub BtnOrder_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles BtnOrder.Click
Array.Sort(aNumeros)
ShowElements(aNumeros, ListBox2)
End Sub
Las colecciones se utilizan o sirven para contener objetos, por ejemplo:
'Declarar una variable del tipo Control para representar controles de formulario
Dim ctrl As Control
Private Sub Form1_Load(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles MyBase.Load
Dim i As Integer = 1
For Each Me.ctrl In Controls
If ctrl.Name <> "x" Then
ctrl.Text = "boton " & i
i += 1
End If
Next
End Sub
Manipulación de Archivos de Texto
En Visual Basic .NET existen nuevas funciones para el manejo de archivos de texto proporcionandas
por el objeto Filesystem:
FileOpen(numeroArchivo,directorioNombreArchivo,modoApertura), abre un archivo de texto para entrada y salida.
Donde el primer argumento es un número entre 1 y 255 cuya función es controlar los archivos abiertos
que tiene un programa, en el segundo argumento se especifica la ruta y nombre del archivo
que deseamos abrir y por último es necesario especificar en que modo se abrira el archivo, es decir,
si deseamos agregar datos nuevos utilizamos el método Append, si deseamos leer su contenido
utilizamos output, si deseamos escribir input o también es posible abrirlo en modo binario binary
o en modo aleatorio random.
ofd.Filter = "txt|*.txt|ini|*.ini|log|*.log|inf|*.inf"
ofd.ShowDialog()
FileOpen(1, ofd.FileName, OpenMode.Input)
Precaución, tenga cuidado con el modo de apertura de archivos
ya que si abre un archivo con Output se elimina
el contenido del archivo dejandolo vacio y en espera de nuevos datos.
Cuando requiera leer su contenido utilice Input.
LineInput, lee una línea de entrada desde el archivo de texto.
Dim sOutAux As String
If Not EOF(1) Then
sOutAux = txtOut.Text
txtOut.Text = vbNullString
txtOut.Text += sOutAux & nLine & " : " & LineInput(1) & vbNewLine
nLine += 1
Else
MsgBox("Fin de archivo, no hay más líneas que leer")
End If
EOF, comprueba el final del archivo de texto.
If EOF(1) Then MsgBox("Fin de archivo")
FileClose, cierra el archivo de texto.
FileClose(1)
Utilice TextBox.Select(1,0) para eliminar la selección de texto.
Como nota aclaratoria los archivos de texto son diferentes a los archivos de documentos, los cuales
tienen códigos de formato, cuando nos referimos a archivos de texto entiendase un archivo
que contiene únicamente caracteres reconocibles y quizá su formato sea txt, ini,
log o inf.
PrintLine(numeroArchivo, objeto), esta función escribe datos con formato a un archivo secuencialEl siguiente ejemplo ilustra el ejemplo algunas de las funciones de manipulación de archivos de texto:
Dim nLine As Integer = 1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
btnLine.Enabled = False
btnClose.Enabled = False
btnSave.Enabled = False
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnOpen.Click
ofd.Filter = "txt|*.txt|ini|*.ini|log|*.log|inf|*.inf"
ofd.ShowDialog()
FileOpen(1, ofd.FileName, OpenMode.Input)
btnOpen.Enabled = False
btnLine.Enabled = True
btnSave.Enabled = True
End Sub
Private Sub btnLine_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnLine.Click
If Not EOF(1) Then
txtOut.Text += nLine & " : " & LineInput(1) & vbNewLine
nLine += 1
Else
MsgBox("Fin de archivo, no hay más líneas que leer")
btnLine.Enabled = False
btnClose.Enabled = True
txtOut.Select(1, 0)
End If
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnClose.Click
FileClose(1)
btnSave.Enabled = False
btnClose.Enabled = False
End Sub
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnSave.Click
sfd.Filter = "Archivos de texto txt|*.txt"
sfd.ShowDialog()
If sfd.FileName <> vbNullString Then
FileOpen(2, sfd.FileName, OpenMode.Output)
PrintLine(2, txtOut.Text)
FileClose(2)
MsgBox("Archivo almacenado")
End If
End Sub
Concat hace posible concatenar cadenas de texto.
UCase o método ToUpper, para convertir una cadena a mayúsculas.
LCase o método ToLower, para convertir una cadena a minúsculas.
Len o método Length, para determinar el número de caracteres que tiene una cadena.
Mid o método Substring, obtiene un número fijo de caracteres a partir de una posición dada de una cadena.
(El primer elemento de una cadena tiene el índice 0).
InStr o método IndexOf, si una cadena se encuentra contenida en otra regresa la posición a partir de la cual encontro la cadena.
Trim o método Trim, elimina los caracteres en blanco iniciales y finales de una cadena.
Remove, para eliminar caracteres de la parte central de una cadena.
Insert, para agregar caracteres a la parte central de una cadena.
StrCmp, compara cadenas y detecta diferencias en el uso de mayúsculas y minúsculas,
regresa los siguientes valores:
-1, sorts ahead 0, las cadenas son iguales1, sorts afterEjemplo:
Dim s As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
lblTitulo.Text = s.Concat(" ", "www", ".", "informatique", ".", "com", ".", _
"mx", " ", "Tutoriales de Programación ")
End Sub
Private Sub btnLower_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnLower.Click
txtOut.Text = lblTitulo.Text.ToLower
End Sub
Private Sub btnUpper_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnUpper.Click
txtOut.Text = lblTitulo.Text.ToUpper
End Sub
Private Sub btnLen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnLen.Click
txtOut.Text = lblTitulo.Text.Length
End Sub
Private Sub btnSubStr_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnSubStr.Click
txtOut.Text = lblTitulo.Text.Substring(14)
End Sub
Private Sub btnIndexOf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnIndexOf.Click
txtOut.Text = lblTitulo.Text.IndexOf("informatique")
End Sub
Private Sub btnTrim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnTrim.Click
txtOut.Text = lblTitulo.Text.Trim
End Sub
Private Sub btnRemove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnRemove.Click
txtOut.Text = lblTitulo.Text.Remove(lblTitulo.Text.IndexOf("informatique"), 12)
End Sub
Private Sub btnInsert_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnInsert.Click
txtOut.Text = lblTitulo.Text.Insert(0, "http://")
End Sub
Private Sub btnStrComp_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnStrComp0.Click
txtOut.Text = StrComp(lblTitulo.Text, lblTitulo.Text, CompareMethod.Binary) & _
" is equal."
End Sub
Private Sub btnStrComp_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) -
Handles btnStrComp1.Click
txtOut.Text = StrComp(lblTitulo.Text, UCase(lblTitulo.Text), CompareMethod.Binary) & _
" sorts after."
End Sub
Private Sub btnStrCompL1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnStrCompL1.Click
txtOut.Text = StrComp(lblTitulo.Text, "abc" & lblTitulo.Text & "abc"
, CompareMethod.Binary) & _
" sorts ahead."
End Sub
Chr, regresa el caracter asociado con el código ASCII especificado.Asc, regresa un valor entero el cual representa el código ASCII del caracter correspondiente.
A través de estas funciones es posible determinar el código ASCII de una letra o su propio código ASCII,
es decir, por ejemplo si deseamos obtener el código ASCII de la letra 'a' entonces empleados
la función Asc, si conocemos el código ASCII y deseamos saber el caracter asociado
a este entonces empleamos la función Chr
Visual Basic .NET cuando hace una comparación entre cadenas se basa en el código ASCII de cada uno de los
caracteres que compone la cadena por lo que una comparación entre las cadenas "A" = "a"
da como resultado False, pues en realidad estaria comparando 65 y 97.
Dim bResultado As Boolean = ("A" = "a")
MsgBox(bResultado & " : (" & Asc("A") & " = " & Asc("a") & ")")
La automatización (automation) es una tecnología basada en el estándar de interoperabilidad denominado Modelo de Objetos Componentes (COM).
El objetivo de automatización es utilizar las funciones de una aplicación en otra aplicación.
Las aplicaciones basadas en Windows que exponen sus objetos se denominan aplicaciones objeto o servidoras y los programas que utilizan estos objetos se denominan aplicaciones controladoras o clientes.
Por ejemplo si desea utilizar Excel desde Visual Basic .NET :
Dim xlsApp As Excel.Application
xlsApp = CType(CreateObject("Excel.Application"), Excel.Application)
Nota: si no agrega la referencia entonces no tendrá disponibles las referencias del objeto Excel. En Visual Basic 6 era posible emplear la técnica enlace en tiempo de ejecución en la cual se declaraba una variable de tipo objeto y en tiempo de ejecución se asignaba un tipo de aplicación específico, esta técnica ya no se recomienda.
Lo recomendable es emplear la técnica de enlace en tiempo de compilación donde se asigna en tiempo de diseño un tipo a las variables que almacenan los objetos Automatización, para ser enlazados a los datos durante la compilación.
A través de la función CType es el mecanismo que durante la compilación devuelve el tipo
de aplicación específica a la variable de aplicación.
Ejemplo:
Dim xlsApp As Excel.Application
Dim xlsBook As Excel.Workbook
Dim xlsSheet As Excel.Worksheet
Dim sFile As String
xlsApp = CType(CreateObject("Excel.Application"), Excel.Application)
xlsBook = CType(xlsApp.Workbooks.Add, Excel.Workbook)
xlsSheet = CType(xlsBook.Worksheets(1), Excel.Worksheet)
xlsSheet.Cells(1, 1) = "www"
xlsSheet.Cells(1, 2) = "informatique"
xlsSheet.Cells(1, 3) = "com"
xlsSheet.Cells(1, 4) = "mx"
xlsSheet.Range("B1").Font.Bold = True
xlsSheet.Application.Visible = False
sFile = "c:\prueba" & Now.Day & Now.Month & Now.Year
& Now.Hour & Now.Minute & Now.Second & ".xls"
xlsSheet.SaveAs(sFile)
xlsSheet = Nothing
xlsBook.Close()
xlsBook = Nothing
xlsApp.Quit()
xlsApp = Nothing
MsgBox("Se ha creado el archivo : " & sFile)
Al crear este tipo de aplicaciones deberá tener un buen dominio de su funcionamiento, ya que
puede observar a través del administrador de programas que al iniciar la aplicación
se crea un objeto excel.exe, al emplear Excel.Application desde Visual Basic .NET
se crea otro objeto EXCEL.EXE y solo se cierran estos objetos hasta
que se cierre la aplicación, por lo que será necesario una buena administración de las aplicaciones
a fin de no dejarlas abiertas o que originen conflictos con otras aplicaciones que el usuario abra o cierre.
Es posible utilizar el método Process.Start para iniciar cualquier aplicación que se encuentre
registrada en el Sistema. Si la extensión del archivo a ejecutar es reconocida por el Sistema no será necesario
especificar su ubicación.
Por ejemplo para iniciar la calculadora de Windows:
System.Diagnostics.Process.Start("calc.exe")
Una vez que inica una aplicación Visual Basic .NET no puede detenerla. La solución es utilizar una de las nuevas funciones de Visual Studio referentes al control de procesos en Windows.
De clic a la sección Components agregue el componente Process, de clic a su propiedad
StartInfo y asigne el valor calc.exe a su propiedad FileName,
es posible pasar argumentos al abrir la aplicación para ello asigne los valores correspondientes a las propiedad
Arguments.
De esta manera para abrir una aplicación utilice el método Start() y para cerrarla el método CloseMainWindow().
También es posible cerrar aplicaciones utilizando el método Kill, pero tenga cuidado ya que
esta técnica no le permitira almacenar los cambios realizados en su trabajo..
Será posible incluir clases como Threading y Diagnostics para manipular
vía código, no serán necesarios si únicamente emplea Start y CloseMainWindow
Private Sub btnCalc_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnCalc.Click
System.Diagnostics.Process.Start("calc.exe")
End Sub
Private Sub btnOpen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnOpen.Click
Proc.Start()
End Sub
Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
Handles btnClose.Click
Proc.CloseMainWindow()
End Sub
La distribución de aplicaciones en Visual Studio .NET se hacen agregando un proyecto de instalación distribuida a la solución que se desea distribuir. Será necesario configurar el proyecto de instalación distribuida para el tipo de instalación que desee ejecutar.
Una aplicación se ensambla en cuatro elementos:
| MiAplicacion.exe | |||
|
|||
|
Cuando la aplicación queda ensamblada, el sistema operativo no tendrá que registrar formalmente las aplicaciones para poder ejecutarlas ya que estas son comprensibles y autodescriptibles para el sistema.
Es posible instalar una aplicación Visual Studio .NET copiando unicamente el ensamblado generado en un equipo que tenga instalado .NET Framework.
Para crear un proyecto de instalación distribuida solo es necesario ejecutar el asistente para proyectos de instalación. Este proyecto puede ser personalizado unicamente definiendo sus propiedades.
Para crear un programa de instalación completo, los archivos de instalación distribuida deberán incluir el .NET Framework redistribuible.
Pasos para la creación de un proyecto de instalación distribuida:
.msi (windows installer) que podrá utilizar para instalar su aplicación..exe y pruebelo (aqui también se encuentra el archivo .msi).
Un formulario en Visual Basic .NET hereda sus propiedades de la Clase System.Windows.Forms.Form.
Para abrir un formulario especifico en Visual Basic .NET digamos que más que novedad
es algo un poco más tedioso, pues antes de poder abrir el formulario es necesario
crear una variable del tipo del formulario que deseamos abrir y despues
utilizar el método Show (que abre el formulario en modo no-modal) de esta variable objeto.
Dim frm2 As New Form2
frm2.Show()
La forma en que Visual Basic 6 abre formularios recibe el nombre de generación implícita de instancias, pero Visual Basic .NET exige que se declare específicamente una variable de tipo formulario antes de utilizarlo.
Ahora en Visual Basic .NET para abrir un formulario de manera Modal es necesario
especificarlo a través del método ShowDialog,
Dim frm2 As New Form2
frm2.ShowDialog()
Para definir las coordenadas a partir de las cuales se desea ubicar el formulario en la pantalla
en Visual Basic .NET existe una propiedad llamada DesktopBounds,
la cual únicamente puede ser leida o definida en tiempo de ejecución y recibe como
argumentos las dimensiones de un rectángulo en pares (esquina superior izquierda y esquina inferior derecha).
Estas coordenadas se expresan en píxeles y toman como referencia la parte superior izquierda de la pantalla.
Dim oRect As New Rectangle(0, 0, 300, 300)
frm2.DesktopBounds = oRect
Otra forma de establecer la posición de un formulario durante el tiempo de diseño, pero con menos opciones
es la propiedad StartPosition, cuyo valor de argumento define la posición que tendrá el formulario.
frm2.StartPosition = FormStartPosition.CenterScreen
Es posible manipular el estado minimizado, maximizado y restaurado de las ventanas a través de las propiedades correspondientes:
WindowState = FormWindowState.Minimized
WindowState = FormWindowState.Maximized
WindowState = FormWindowState.Normal
También es posible establecer el tamaño máximo o mánimo de las ventanas:
Dim nMax As New Size(200, 200)
MaximumSize = nMax
WindowState = FormWindowState.Maximized
La Clase StreamReader es una opción más del .NET Framework para la manipulación de archivos de texto.
Esta clase entre otros contiene un método ReadToEnd cuya objetivo es leer un archivo
desde la posición actual hasta el final.
Para hacer uso de la esta clase es necesario incluir la biblioteca de Clase System.IO
al principio del código del formulario.
Imports System.IO
Public Class Form1
.
.
.
Dim sr As StreamReader
sr = New StreamReader("c:\Test.txt")
txtOut.Text = sr.ReadToEnd
sr.Close()
La Clase StreamReader está diseñada para la entrada de caracteres, el archivo
a ser leido puede ser abierto utilizando la función File.OpenText(path),
donde path especifica la ubicación del archivo, así como el archivo de entrada.
Una vez que el reader (lector) tiene asignado un archivo abierto una serie de métodos stream reader (flujo de lectura) pueden ser invocados para leer la información del archivo:
Stream = Flujo
Buffer = espacio de memoria diseñada para el almacenamiento temporal de datos
| Método | Descripción |
Close |
Cierra el StreamReader y libera cualquier recurso del sistema asociado al reader |
Peek |
Regresa el próximo caracter disponible pero no lo consume. |
Read |
Lee el próximo caracter o próximo conjunto de caracteres de la entrada stream |
ReadBlock |
Lee una cantidad máxima de caracteres del stream actual y escribe los datos al buffer |
ReadLine |
Lee una línea de caracteres del stream actual y regresa los datos como string |
ReadToEnd |
Lee un stream desde la posición actual hasta el final del stream |
La Clase StreamWriter está diseñada para la salida de caracteres,
el archivo de escritura puede ser asignado utilizando la función File.CreateText(path),
donde path especifica la ubicación del archivo, así como el archivo de salida:
Una vez que el writer tiene asignado un archivo abierto, una serie de métodos writer pueden ser invocados para escribir información al archivo:
Stream = Flujo
Buffer = espacio de memoria diseñada para el almacenamiento temporal de datos
| Método | Descripción |
Close |
Cierra el actual StreamWriter y el stream subyacente |
Flush |
Limpia el buffer para el actual writer y provoca que cualquier dato contenido en el buffer sea escrito al stream subyacente |
Write |
Escribe al stream |
WriteLine |
Escribe datos tal y como son especificados por los parámetros sobrecargados, seguidos de una línea de terminación. |
Creación de controles en tiempo de ejecución
En Visual Basic .NET, es posible agregar controles en tiempo de ejecución, siguiendo una sintaxis similar a esta:
Dim btnOK As New Button
btnOK.Text = "OK"
btnOK.Location = New Point(312, 150)
Me.Controls.Add(btnOK)
Tenga cuidado de que sus controles al momento de agregarlos no queden debajo de otros controles ocultandolos ante la mirada del usuario.
Existen nuevas propiedades para los controles que hacen posible manejar automáticamente su posición
Dock y Anchor, por ejemplo el valor de la propiedad Dock
puede ser Bottom con lo cual el control se ajusta al tamaño del formulario
y queda posicionado en la parte inferior de la pantalla:
btnDock.Dock = DockStyle.Bottom
Otros posibles valores son:
DockStyle.TopDockStyle.FillDockStyle.LeftDockStyle.RightDockStyle.None, para anular el funcionamiento de los valores anterioresEstablecer el objeto de inicio
También en Visual Basic .NET es posible establecer el punto de inicio de la aplicación, ya que puede contener múltiples formularios es necesario especificar con cual iniciara la aplicación o también puede contar con múltiples procedimientos por lo que también podrá definir uno de ellos como punto de partida.
Para configurar el punto de inicio seleccione Project/Properties y especique el objeto de inicio (Startup object) que puede ser un formulario o procedimiento.
Si requiere de una aplicación Visual Basic .NET sin interfaz gráfica, es p