Ejemplos en Visual Basic 2

 

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

41) Copiar carpetas y archivos    Bajar los fuentes

Permite copiar archivos aunque estén abiertos o en uso y también carpetas completas con sus contenidos y demás carpetas dependientes. Este programa y otros fueron inspirados por la Web Tutorial Sobre API

42) Extrae nombre o extensión   Bajar los fuentes

Método para extraer el nombre o la extensión de un archivo de la ruta completa del mismo.

43) Mira   Bajar los fuentes

Dibuja una mira que se mueve con el mouse. Este programa y otros fueron inspirados por la Web Tutorial Sobre API

44) API Vista Previa  Bajar los fuentes

Muestra una previa de una imagen en el cuadro de diálogo cargar imagen. Tutorial Sobre API

45) API para Memoria   Bajar los fuentes

Analiza el estado de la memoria de la Pc. Un buena forma para comprobar el estado de free de ésta, es abrir aplicaciones. Si vas rellenando una planilla Excel con datos (copias y pegas, verás como disminuye la memoria a la vez que la Pc se torna cada vez más lenta. Eso tal vez te aclara muchas cosas.

46) API Transparencia   Bajar los fuentes

Aplicar niveles de transparencia a un Formulario. Este programa y otros fueron inspirados por la Web Tutorial Sobre API

47) API Formas Circulares  Bajar los fuentes

Dibuja formas circulares irregulares (gráficas de torta). Este programa y otros fueron inspirados por la Web Tutorial Sobre API

48) Quitar Bordes  Bajar los fuentes

Permite quitar los bordes a un Form en tiempo de ejecución en forma sencilla.

49) API SendMessage() Última Línea   Bajar los fuentes

Mostrar la última línea de un textbox usando el API SendMesagge()

50) LoadPicture() en un array de imágenes   Bajar los fuentes

Utilización de un vector tipo Picture de 7 elementos en el que cargo imágenes del disco. Con un control scroll, permito asignar a un Image para ver la miniatura del la imagen y al hacer click en este último control, se amplía en otro Image de mayor tamaño. El ejemplo va acompañado de 7 imágenes bastante buenas. Hay un botón que permite descargar la imagen del vector.

51) Injerto de un Formulario Excel para sacarle el Zoom   Bajar los fuentes

Desde Excel, exporto un Form con .los controles que necesito y lo abro desde el Visual Basic para utilizar el recurso del Zoom. Es lo que se me ocurre ahora para esto. Luego veremos.

52) Información de los Discos   Bajar los fuentes

Se obtiene toda la información de las unidades de disco usando FileSystemObject.

53) Utilitario para Administrar Bases de Datos   Bajar los fuentes

Utilizando ADOX (ADODB) logro una interesante utilidad para Crear, Abrir  y Editar bases de datos en Access. También el programa muestra todos los detalles interiores de una base de datos; su fecha de creación, modificación, tamaño físico, cantidad de tablas, mostrando también los nombres de éstas y sus campos e, incluso los datos que contienen

Se logra renombrar, borrar y crear tablas y campos sin perder los datos que contienen. Obviamente el problema principal es que si manejamos muchos datos como el caso de un padrón de ciudadanos, la tarea se tornará muy lenta por la cantidad de registros que hay que procesar. Eso queda a criterio del que utilice este programa.

Dentro del código fuente, hay encerrado muchos secretos que son relevantes para el manejo de datos en Visual Basic.

Como siempre, el programa está sujeto a mejoras y revisiones y si alguien detecta algún error, puede comunicarlo.

Mejoras y novedades: El programa actualizado el 21/12/2009, permite imprimir las estructuras de cada tabla y también los nombres de todas las tablas contenidas en la Base de Datos.

54) Convertidor de Bases de Datos Access   Bajar los fuentes

Pequeño programa que permite convertir bases de datos Access a versiones 97, 2000 o 2002 utilizando Access.Application. Trato de mostrar alguna información sobre la base que se selecciona pero con respecto a la cantidad de tablas no es muy precisa. Si alguien lo mejora, me avisa y lo  publico a su nombre.

El programa también permite compactar y reparar la base de datos seleccionada.

55) API Reproductor de Waves   Bajar los fuentes

Usando el API PlaySound, controles Drive, Dir y File, he creado un pequeño programa que permite reproducir archivos de sonido Wav tomados de listas de los discos.
Para reproducir se pueden emplear dos métodos: Hacer un click en el nombre del fichero y luego click en el botón reproducir o, mejor, hacer doble click en el nombre del archivo de la lista.

56) API Reproductor de Música  Bajar los fuentes

Uso de la Función Api mciExecute para reproducir archivos de música en formatos Wav, Mid y Mp3.
Además; la función Api GetShortPathName para obtener los paths de los archivos en formato corto, CreateRoundRectRgn y SetWindowRgn para redondear el formulario.

Este programa cuenta también para generar un efecto "Fade" en el form y con un módulo de clase para producir efectos de colores degradados random en el form. Jejeje; casi nada creo!

57) Reproductor de Vídeo en un picture  Bajar los fuentes

Reproduce vídeos simples de los que abundan en Common\Graphics\Videos del Visual Studio (C:\Archivos de programa\Microsoft Visual Studio\Common\Graphics\Videos) en un controlo Picture usando el control Microsoft Multimedia Control 6.0 (MMControl).
Es algo pobre este control porque no toma cualquier vídeo y encima, sólo los .AVI, pero es bueno saber que existe y funciona.

58) Dimensiones de imágenes   Bajar los fuentes

Abre una imagen, la muestra e informa sus dimensiones utilizando una variable IPictureDisp.

59) API Conversor de imágenes   Bajar los fuentes

Utilitario que permite convertir imágenes a formato JPG en forma individual o grupal. Puedes convertir un archivo o un directorio entero. Los nuevos archivos los traslada a una carpeta incluida en la de la aplicación denominada \CONVERTIDOS.
Estoy utilizando para esta aplicación la Función API DIWriteJpg y una librería denominada DIjpg.dll que bajé de Internet desde la Web Recursos VBasic la cual recomiendo que visiten pues tiene un valioso material publicado sobre Visual Basic avanzado, pero muy bien explicado y sencillo.

60) Visualizador de Gif Animados    Bajar los fuentes

Es un control que te permite visualizar gifs animados en Visual Basic 6.0.

61) Dibujar, cargar y guardar imágenes   Bajar los fuentes

Sencillo ejemplo de la forma de cargar, dibujar y guardar imágenes con SavePicture.

62) DibuROF   Bajar los fuentes

Utilidad mucha más evolucionada para dibujar con el Mouse con trazos de diferentes colores en dos planos parecido al Paint del Windows (pero mucho peor jeje). Puedes cambiar los colores del fondo también, cargar imágenes y hacerles algunos retoques elementales. Cambiar el brillo y también imprimirlas con Printer.PaintPicture Picture1.Image, 0, 0.
Puedes controlar el grueso del trazo, teniendo medidas estándar con lápiz y pincel. Puedes borrar pues tienes una goma con diferentes grosores. Cuenta también con aerosol.
No es una maravilla pues le faltan muchas cosas que iré agregando cuando sepa cómo y tenga tiempo. En cada modificación que haga, publicaré la fecha. La fecha de publicación inicial fue 21/03/2007.

63) Api para cambiar el Papel Tapiz  Bajar los fuentes

Te permite cambiar el fondo del escritorio eligiendo el archivo que quieras con los modos centrado, mosaico y expandido. Puedes visualizar la imagen que vas a utilizar antes de aplicarla.

64) Ejemplo de Texto Vertical y Gif Animado   Bajar los fuentes

Un programa que muestra el uso de dos controles caseros. Uno escribe texto vertical y el otro visualiza Gif animados. Acompaño el ejemplo con ambos controles. Si no funciona, deberán agregar los controles de Proyecto - Componentes. Dejo en claro que ninguno de los dos controles es obra mía y que del texto vertical, tengo los fuentes por si a alguno le interesa ver o modificar el código. Con tiempo le haré algunas modificaciones.

65) Multi Reproductor y Grabador   Bajar los fuentes

Este programa que he creado, permite grabar audio en wav y convertirlo a Mp3 durante la grabación, pero esta etapa no siempre funciona bien, dependiendo de la longitud de la grabación. Sin embargo, sí graba en Wav y luego es posible convertirlo a Mp3.
También reproduce Wav, Midis, Mp3 y audio desde CD.
La grabación se puede ajustar para bajar o subir la calidad de audio. Un calidad baja, por ejemplo, permitiría crear archivos de poco peso para subir o enviar a través de la Web.
Todo lo que graba es vía micrófono (por ahora), esto permite grabar directamente desde parlantes cualquier sonido ambiental o sea que mientras reproduces o sintonizas radio, podrás grabar.
El programa funciona bien en Win XP, no en Win 98, pero estoy escribiendo un código para lograrlo. En cuando lo termine, lo subo.
Actualizado al 30/03/2007,

66) API para invertir imágenes   Bajar los fuentes

Permite invertir imágenes en forma horizontal y vertical.

67) Anagramas   Bajar los fuentes

Determina si dos palabras son anagramas.

68) Multiplicación Rusa  Bajar los fuentes

Este método se basa en multiplicar y dividir por dos, y luego hacer una suma final.
Dadas 2 variables A y B que se desean multiplicar. Se divide A sobre 2 tantas veces como se pueda y simultáneamente , se multiplica B por 2. Omitiendo los restos, los números impares que produce A, se suman al resultado final que produce B.
Bien hasta aquí, pero en la práctica, el programa no funciona bien pues no con todos los números hace el cálculo. Debe ser algún problema con el redondeo de los números. La cuestión es que no funciona, pero al menos pone el planteo de otro problema algorítmico peculiar.

Por cierto que si alguien resuelve este problema, tendrá mención de honor en esta Web pudiendo publicar su url y/o su correo.

69) Números Romanos  Bajar los fuentes

Otro ejemplo de conversión de arábigos a romanos hasta 3999. Aquí empleo vectores y reservo una posición de cada parte del Nº ingresado para que se ubique como millares, centenas, decenas y unidades. De esta forma, el esfuerzo se hace al armar los vectores, pero se minimiza el algoritmo para convertir. Un gran secreto es el de asignar el alfatexto con Format(T,"0000") para que los segmentos del Nº se sitúen correctamente.

70) Gráficas Estadísticas    Bajar los fuentes

Utilizando el control Mschart, genero gráficas de un lote de datos. Las gráficas pueden ser de diferente estilos a elección. Cuando descubra algo más, lo publico.
Lo bueno es que logro imprimir la gráfica mediante MSChart1.EditCopy para transferir al clipboard y de allí a un control picture  con Picture1.Picture = Clipboard.GetData(3) que es el que finalmente imprimirá con PaintPicture().

71) Carga desde un DataGrid a un ListView    Bajar los fuentes

A pedido este programa permite cargar registros desde un ListView haciendo click en un DataGrid.

72) Texto Capicúa    Bajar los fuentes

Ingresar una palabra de 5 letras y usando InStr() verificar que sea o no capicúa (palíndromo).

73) Option Compare Text    Bajar los fuentes

Un interesante recurso para facilitar la comparación entre cadenas de texto sin importar la exactitud de mayúsculas o minúsculas.

74) Función Shell() para activar el Explorador    Bajar los fuentes

Mediante la antiquísima función Shell() del Basic, se puede activar cualquier programa externo (siempre que haya memoria disponible). En este ejemplo, lo usaremos para activar el Explorador de Windows y poder recorrer los discos y carpetas de la Pc.

75) Reporte en Visual Basic   Bajar los fuentes

Ejemplo de generación de reportes (listados) usando el Data Report con el método Ado. Acompaño el ejemplo con un htm tutorial llamado Crear reporte en VB.htm. Seguro que a muchos esto le será de gran utilidad.

76) Reporte en Visual Basic simplificado   Bajar los fuentes

Otro ejemplo del uso del Data Report, pero más simple pues uso el control Adodc. Se trata aquí de un listado de libros.

77) API para controlar el volumen en Windows  Bajar los fuentes

Un conjunto de funciones Api's destinadas a controlar el volumen. Aquí se utiliza un controlHScroll para modificar el volumen con valores entre 0 y 100.
Se utilizan diversas funciones de la librería "winmm.dll" como ser: mixerOpen, mixerGetLineInfo, mixerGetLineControls, mixerClose, mixerGetNumDevs, mixerOpen, CopyStructFromPtr, CopyPtrFromStruct y otras delicias que nos dan algunos ejemplos de l intrincada madeja de las librerías API.

78) API para controlar el volumen en Windows con Slider  Bajar los fuentes

Misma rutina que la anterior pero usando un control Slider (parte de componentes Microsoft Windows Common Controls). En ninguna se reproduce sonidos, tan solo se controla el volumen. Pueden constatarlo mirando el nivel de volumen desde la barra de Estado.
Pueden poner un botón y colocar este código en él para abrir la consola del volumen de Windows.

Dim Vol
Vol = Shell("c:\windows\system32\sndvol32.exe", 1)

Y si desean le agregan esta sentencia para actualizar el Slider.

Slider2.Value = Vol

Pero si usan el HScroll usen esta

HScroll1.Value = Vol 

79) Reproductor de CD    Bajar los fuentes

Haciendo uso de la API para reproducir CD he creado este programa (usando códigos de otros y mejorándolos) que permite reproducir CD de audio. Más que nada es para documentar los diferentes comandos de esta librería. Las funciones están integradas en una librería de clases. Usa las funciones API mciGetErrorString y mciSendString y varios trucos interesantes.

Tiene barra de progreso, pasa de track en track y al terminar cierra la reproducción. Permite reproducción continua o al azar y cambia de track con un scroll. En breve subiré una grabadora de audio que permite grabar desde micrófono o mixer. Pronto la verán aquí (hoy es 5 de septiembre de 2008). Creo que será un bombazo!!

80) El Buscaminas en Visual Basic    Bajar los fuentes

Este buen código no es mío pero está muy bien realizado por eso lo subo.

 

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

25/02/2009