Ejemplos en Visual Basic

 

Programación

C++
Clipper
COBOL
Conceptos
Pascal
QuickBasic
Javascript
VBScript
Php
Temario
Visual.Net
Visual Basic 1
Visual Basic 2
Visual Basic 3
Utilidades
Calculadora
Descargas
Diccionario
Distancias
Gif Animados
Hora Mundial
Links
Mapas
Medidas
Tarjetas
Traductor
Comunicación
Contacto
Chat
Libro
Foro
Historia
Noticias
Tagboard
Top Fierro
Ranqueles
Vótame
Principal
Portada

1)  Sencillo extractor de Iconos  Bajar los fuentes

El Botón Mostrar Iconos: Toma iconos de un ImageList y los pone como puntero del Mouse (izquierdo). El derecho regenera el clásico puntero Flecha.

Extraer: Copia el icono a un Control Image.

Guardar: Los almacena en disco como archivos de iconos (*.ico).

2)  Agregar Imágenes a un Control ImageList

Componentes

1 ImageList: Este control se carga desde Proyectos - Complementos (Ctrl T), figura como Microsoft Windows Common Controls 6.0 (SP6).

 

1) Cargar el Control desde el Menú Proyectos - Componentes (Ctrl T)
2) Colocarlo en el Formulario

3) Click con el derecho sobre el Control - Click en Propiedades (ventana contextual)


4) Las casillas que se observan permiten definir la resolución de la imagen que se desea. Por ejemplo un icono es 32 x 32.

 

 

5) Pestaña Imágenes

 

6) Insertar imagen...

7) Aceptar

 

 

3) Armar una Botonera de Herramientas con un Toolbar y un ImageList

Componentes

1 ImageList:
1 Toolbar: Este control se carga (al igual que ImageList) desde Proyectos - Complementos (Ctrl T), figura como Microsoft Windows Common Controls 6.0 (SP6).

1) Cargar los controles desde el Menú Proyectos - Componentes (Ctrl T)

2) Colocarlos en el Formulario

3) Click con el derecho sobre el Control - Click en Propiedades (ventana contextual)

4) En ImageList abrir y disponer de la lista el control ImageList que cargamos (ver Imagen Página de Propiedades a nuestra derecha).

5) Click en pestaña Botones

6) Click en Insertar botón

7) En Image escribir 1

8) En Key escribir el nombre del botón (ej. Kitana). Importante dado que este será el nombre del menú a la hora de codificar.

9) Repetir el 7, 8 y 9 hasta completar

10) Aplicar (opcional, permite ver las imágenes que se van cargando). Mediante los botoncitos de Index, podemos recorrer la lista de botones, para cambios.

El Style, en su opción 4  tbrSeparator, nos permite colocar un separador de bloques

Para eliminar un botón está el botón Quitar botón.

 

Resultado Final:

 

4) Números a letras Bajar los fuentes

Permite convertir números de hasta 999 Millones a letras.

 

5) Multivisión          Bajar los fuentes       intouchviewer.dll

Utilización del Viewer, control que permite explorar y abrir cualquier tipo de archivo dado que funciona como el explorador de Windows, reconociendo y asociando archivos con sus programas correspondientes. Así, un .doc, al asociarse al Word, es abierto por este o un .xls por Excel, etc. Si definimos la propiedad URL con una dirección Web, se conecta a dicha dirección, como si fuera un navegador. No es "la maravilla" pero, creo que se debe estudiar un poco este control.

El control Viewer debe habilitarse desde Proyectos - Complementos tildando la casilla "InTouchViewer 1.0 Type Library". Es un componente del Visual Estudio.Net por eso que lo agrego en el archivo de fuentes. Las librerías pueden ser copiadas a Windows\System o Windows\System32 si se desea disponer de este control para futuras aplicaciones.

Además empleo el CommonDialog "Microsoft Common Dialog Control 6.0" y los controles Imagelist y Toolbar (ambos, ya explicados, se cargan tildando la casilla "Microsoft Windos Common Controls 6.0").

6) El Gato (_TaTeTí)   Bajar los fuentes

El popular aunque aburrido juego del Gato (TaTeTí en Argentina). Ignoro quién sea su autor, pero lo publico porque está muy bien realizado y es bastante instructivo. Felicitaciones para el autor.

7) Método Drag  Bajar los fuentes

Ejemplo del método Drag

Cuando arrastres algún nombre de archivo desde el cuadro del Filelist hacia el picture, notarás que puedes hacer aparecer la imagen en este último.

8) Reproductor de Sonidos y Música   Bajar los fuentes

Este reproductor lo creé con el control MMControl y toma los mp3, los formatos de sonido más clásicos y las pistas de CD.

9) Diccionario de Los Nombres Propios  Bajar los fuentes

Un modesto diccionario de nombres propios con más de 2800 registros.

10) Listview   Bajar los fuentes

Pequeño ejemplo para cargar un Listview

11) Serie de Fibonacci  Bajar los fuentes

Emite la serie de Fibonacci hasta 640 incrustándola en un ListBox para poder visualizarla. Esta serie se incrementa sumando los dos valores anteriores. 1,2,3,5,8,11, etc. En la Enciclopedia Encarta pueden encontrar una breve reseña. He publicado ejemplos similares en C++, Pascal y Qbasic.

12) Verificación del CUIT   Bajar los fuentes

Código de Verificación del CUIT (Argentina) en VBasic

13) Verificación del CUIT con Máscara   Bajar los fuentes

Una vez más se averigua el Código de Verificación del CUIT, esta vez empleando el MaskEdBox (Editor de Máscaras), que es un cuadro de texto con formato. Se activa el componente con CTRL T y tildando la casilla de Microsoft Masked Edit Control 6.0. En propiedades de este control se tipea ##-########-# en la propìedad Mask (máscara).

14) Carga de ListView con Tabla de Base de Datos en ADO  Bajar los fuentes

En este ejemplo expongo la forma en que se puede abrir una base de datos y cargar un ListView mediante ADO, sin usar ningún control de manejo de Tablas. El ejemplo, creo, está bastante más simplificado que en otros que he tenido la desgracia de intentar comprender. Observen el uso de App.Path para poder abrir sin error la Base de Datos desde cualquier carpeta y/o disco. En el ejemplo utilizo una base de dados Libros.Mdb que contiene los campos Autor, Titulo y Genero, todos de titpo Texto. Sería preferible que se bajen los fuentes para facilitar su estudio dado que allí envío la Base de Datos (pero; gustos son gustos decía uno mientras comía vidrio molido). La habilitación de la Tabla es corta (son las 2 líneas de General y las 4 primeras del Form Load, todo lo demás es para rellenar el ListView.

Debido al uso de ADO, deberán cargar la referencia ActiveX Data Objects. ¿Cómo?; desde el Menú Proyecto-Referencias y tildando la casilla de verificación de ActiveX Data Objects 2.7 Library (o menor), hacer click en Aceptar.

15) Analizador de Números Primos  Bajar los fuentes

Permite ingresar números e informar si son o no primos, si lo son, los carga en un ListBox. Lamentablemente, no puedo permitir ingresos mayores a 15 dígitos (pese a usar variables double) porque me las convierte a notación científica y me deforma la cifra agregándole ceros al final. Si alguien resuelve este problema, podría avisarme (agradecido). Tal vez algún día me inspire y cambie el método...

16) Conversión de Números Decimales a Binarios   Bajar los fuentes

Programa que conviertes números decimales a binarios.

17) Ingreso y validación de CUIT y búsqueda en una Tabla   Bajar los  fuentes

Aquí, aparte de ingresar y validar un CUIT, buscamos en una tabla en Access a quién corresponde dicho CUIT, mostrando su Razón Social y Domicilio. Todo esto generado en modo ADO.

18) Introducción de Datos y Ordenamiento en 4 ListBox   Bajar los fuentes

Este ejercicio permite introducir datos en 4 Textbox, ordenarlos manejando vectores por criterio de nombres y DNI. Con orden ascendente o descendente. Utilización de un Módulo para declarar variables universales (para ser aceptadas en cualquier Formulario. Presenta el Main Menu 3 Opciones: Ingresar Datos, Ordenar y Salir. .

19)  ADO Sincronizado  Bajar los fuentes

Este ejemplo muestra como, utilizando un módulo, se puede manejar una tabla desde diferentes formularios al mismo tiempo y en forma sincrónica.

20)  El Mayor de los 3    Bajar los fuentes

Una vez más el clásico ¿cuál es el mayor de los tres?

21) Decimal a Binario y Binario a Decimal  Bajar los fuentes

Permite convertir nros. decimales a binarios y viceversa. Este programa se puede controlar comparando las cifras con la calculadora del Windows en modalidad científica, ingresando el número decimal y observando la conversión al tildar la casilla Bin o al revés. Es mucho mejor usar la calculadora científica, pero si esto hubieran pensado los que generaron el código de esta calculadora, no habría ninguna "calculadora científica" (así de científico).
Ingresar en Text Decimal y click en Binario para convertir  a Decimal  a Binario o ingresar en Text Binario y Click en Decimal para convertir Binario a Decimal

22) Uso del Control Tabbed Dialog (SSTab)   Bajar los fuentes

Definan el TabCaption, la fuente y el color de cada ficha. Además la propiedad Orientation permite que las solapas o pestañas, queden debajo, a la izquierda o a la derecha (arriba es el default). El Style tiene 2 variantes, pero no hay grandes diferencias. Pueden configurar la altura y la cantidad de solapas (TabsPerRow).
 

En este caso logré hacer una breve investigación con un control que jamás había observado. Se trata del SSTab (así lo bautizó alguien). Es un cuadro de diálogo con solapas y me ha parecido de utilidad. En este ejemplo no realizo nada importante, tan sólo lo implemento y hago algunas tonterías con este control. Estúdienlo y saquen conclusiones.
Para configurarlo por edición, hagan click con el botón derecho sobre el control y en la contextual ingresen por "Propiedades", lo que mostrará el siguiente cuadro de diálogo:

23)  Animator     Bajar los fuentes

.

Uso del control de animación. Este control permite reproducir animaciones .Avi, siempre que no tengan sonido, si lo tuvieran, se supone que el control se cuelga por error. Muchas de estas animaciones pueden ser halladas en la carpeta Common\Graphics\Videos que viene con la instalación del Visual Studio o en el CD-Rom del instalador.

24)   Facturador    Bajar los fuentes

Este programa es un modesto Editor de Facturas. Está realizado sin grandes sofisticaciones para tratar de ser "algo entendible". Si le aumento las validaciones para perfeccionarlo, de seguro lo complico más. Para ingresar una línea, se debe hacer un click en la primera columna de la Tabla de Artículos (izquierda), "la que muestra los Códigos", luego poner una cantidad en el InputBox() que aparecerá y... listo. No otorgo borrado de filas ni de Planilla, por lo que antes comenté (simplificación), pero para "vaciar" una fila, basta con hacer doble click en la fila que corresponda de la planilla de la factura (derecha). Utilizo una conexión ADO, es decir, no hay controladores externos y la tabla de artículos la cargo en un ListView, con lo que el ejemplo reúne una gran variedad de recursos de utilidad didáctica (creo). Si tienes intención de comenzar a escribir tu propio facturador, este es un buen ejemplo pero, deberás mejorarlo por tu cuenta. La base de datos que adjunto tiene un gran número de tablas que no utilizo en este ejemplo, pero sí, en mi Gestión Urano, las dejo para que sirva de inspiración a quienes deseen mejorar este bosquejo de facturador. ¡Que la Fuerza les acompañe! (Especialmente en el baño).

25)  ADO Sincronizado 2           Bajar los fuentes

Variante del Ado Sincronizado. Permite buscar por diferentes campos.

26) Compactador de Bases Access  Bajar los fuentes

Este programa tuve que crearlo para lograr una eficiente compactación de bases de datos en versiones 97 o anteriores. Está totalmente probado y funciona con gran eficacia. Deberán incorporar en Proyecto - Referencias el Microsoft DAO 3.6 Object Library para que funcione. Al compactar el programa informa el nombre, versión, cantidad de tablas y tamaños en Kb de la base de datos (antes y después). También informa lo Kb. que disminuyeron durante la compresión.

27) Ordenar un ListBox   Bajar los fuentes

Permite ordenar un listbox en forma ascendente, descendente y también restaurar sus datos originales. Utilizo vectores dinámicos y empleo ReDim lo que hace más didáctico este programa. Además ordenamiento burbuja. Diría que lo analicen pues está comentado.

28) Ordenar un ListBox   Bajar los fuentes

Semejante al Nº 27 pero sin vectores, es decir, utilizando un listbox que se ordena a sí mismo.

29) Dados al Azar  Bajar los fuentes

Oprimiendo un botón hacemos salir un dado al azar. Uso del RND, RANDOMIZE y LoadPicture()

30) ToolBar lateral   Bajar los fuentes

Ejemplo elemental de uso de un ToolBar ubicado como barra de menúes en el extremo izquierdo de un Form. Se logra en las propiedades generales (F4) del VBasic poniendo propiedad Align como 3 - VbAlignLeft y en las de custome (botón derecho sobre el control ToolBar) Wrappable activado.

31) Archivos Secuenciales   Bajar los fuentes

Un pequeño programita didáctico sobre tratamiento de archivos secuenciales en Visual Basic (aunque es aplicable a QBasic también). Incluye el uso de un MsflexGrid, lo que lo hace más interesante aun. Es posible cargar datos, guardarlo, abrir el archivo con ese u otro nombre y generar archivos nuevos con otros nombres. Los campos, en este ejemplo siempre son los mismos (nombre y edad). Calculo que analizando un poco el programa (que es pequeño para resultar más entendible), pueden hacerse cosas mejores.

32) Números Random con estadísticas   Bajar los fuentes

Genera números al azar, los carga en un list box, cuyo tamaño es también al azar. Muestra cuál es el mayor y el menor.

33) Obtener el Nombre de la Pc   Bajar los fuentes

Informa el nombre de la Pc que ejecuta esta aplicación. Se utiliza una función GetComputerName que invoca a la librería kernel. El nombre de la Pc aparece en el Caption del Forma al momento de arranque. Es fácil de entender y el código fuente es muy pequeño (unas 6 líneas). La idea es permitir saber qué máquina está operando en una Red Local.

34) Ordenamiento de una Matriz de Números   Bajar los fuentes

Carga de números enteros a una matriz de 3 filas por 2 columnas y luego a una grilla para poder mostrarlos. Hay un botón que permite recargar la matriz (y la grilla) y otro que permite ordenarla por burbuja ascendente. Dada la complejidad de manejar las coordenadas de una matriz, paso la matriz a un vector de 6 elementos, lo ordeno y luego transfiero los datos a la matriz. Quizás alguien quiera hacer el ordenamiento directamente sobre la matriz (es probable), pero es más entendible y sencillo de esta forma (creo).
En este ejercicio, utilizo un control Grid1, por lo que es posible aprender a usar otro control, aparte del manejo de matriz y ordenamiento de vector, temas muy pedidos en los exámenes.

35) Exportar una tabla Access a una Word   Bajar los fuentes

Envío de una tabla de Access (adjunta al ejemplo) a una tabla en Word. Se debe declarar en Proyectos la referencia a Microsoft Word o al menos verificar que sea la versión vigente (yo tengo la 10 en este proyecto).

36) Obtener los valores RGB a partir de un long de color   Bajar los fuentes

Mediante un array de botones genero backcolor random creando una botonera. Al hacer click en cada botón, toma el color de fondo y lo aplica a un picture mientras desglosa el long en los tres integer del RGB().

37) Enviar las filas de un textbox a un listbox   Bajar los fuentes

Utilizando split() se envía el contenido de un textbox multiline, línea por línea, a un listbox. Esto puede servir para imprimir campos memos controlando saltos de página.

38) Utilizar el corrector ortográfico del Word   Bajar los fuentes

Permite la corrección ortográfica de un textbox utilizando esa herramienta del Word.

39) Buscar texto en un documento Word    Bajar los fuentes

Busca textos dentro un documento Word informando si está o no.

40) Ejemplo de caída y rebote   Bajar los fuentes

Simula la caída y consiguientes rebotes de una pelota de fútbol. Se pueden ajustar parámetros por programación.

Kéfir

Portada
Alimentar
Algo Más
Bacterias
Dudas
Kéfir de Agua
Kéfir de Leche
Estudio
Integrar la Red
Internacional
Obtención
Red de Kéfir
Recetas
Técnicas
Testimonios
Usos
Esparcimiento
Chistes
Espacios
Gemas
Humor Gráfico
Isla
Juegos
Libros
Luján
Lourdes
Nombres
Numerología
Parque
Presentaciones
Recetario
Reserva
Tu Ip
Vídeos
Astrología
Celta
China
Egipcia
Zodiaco
   

Enero de 2004

Computación Ricardo y Red de Kéfir Argentina
Ciudad Autónoma de Buenos Aires
República Argentina

24/12/2013