Ejemplos en Visual Basic 3

 

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

81) Piano midi    Bajar Fuentes

Un pianito que reproduce notas musicales. Habría que perfeccionarlo. Está hecho para un teclado yankee y hay algunas notas que están desubicadas para uno en español. Por ejemplo la nota / se obtiene con ç, la ; con ` (acento grave o el ^).
En este programa intervienen diversas funciones del API: midiOutGetNumDevs, midiOutGetDevCaps, midiOutClose, midiOutOpen y midiOutShortMsg, todas ellas pertenecientes a la librería winmm.dll.

82) Reloj Analógico   Bajar Fuentes

Un reloj analógico (con manecillas). Las agujas se mueven de acuerdo a la hora del Sistema y están realizadas con controles Shape. El diseño no me ha quedado muy bonito, pero contiene unos interesantes y simples códigos. El formulario es redondo y para moverlo debes emplear las cursoras, dado que no tiene la Barra de título,. Puedes cerrar con Esc o haciendo doble click en cualquiera de los números romanos de las horas.

83) Reloj Analógico Colorido  Bajar Fuentes

Un curioso y lindo reloj analógico. No es creación mí pero lo publico pues está bien hecho.

84) Otro buen Reloj Analógico   Bajar Fuentes

Otro código de reloj analógico que no es mío pero es muy bueno. Le agregué el sonido del tick para mejorarlo un poco.

85) Buscador de mp3   Bajar Fuentes

Este programa puede enviar a la basura al Ares, Torrent y otros. Es una maravilla!! Permite descargar música de Internet a una velocidad increíble.
Lo único malo que tiene es que no fui capaz de hacerlo yo. JeJeJe! Dejo el programa intacto y contiene todos los créditos de sus autores. Creo que es lo mejor que tengo de material en esta Web.
Habrá que estudiar el código y ver qué más se le puede hacer.

86) Generador ASCII   Bajar Fuentes  (Subido el 6/12/2009)

Genera la Tabla ASCII entre el 31 al 255 y la muestra distribuida en un grupo de controles Picture. Estos controles usan la fuente Arial, si cambias por otras fuentes, los códigos varían. Uso de la fiunción CHR().

87) Ejemplo de ItemData   Bajar Fuentes  (Subido el 8/12/2009)

Ejemplo de propiedades de los ListBox y ComboBox AddItem, ItemData, List, Listindex y NewIndex. El ejemplo simula un pequeño facturador muy rudimentario y poco consistente, pero permite asumir alguna idea.

88) Ejemplos ADO   Bajar Fuentes  (Subido el 12/12/2009)

Primer ejemplo de un conjunto que explica el manejo completo de ADO. Apunta este tutorial a controlar Bases de Datos usando las rutinas de ADO.
Este ejemplo indica la forma de abrir una base de datos y obtener la lista de todas sus tablas. Se utiliza la referencia Microsoft ADO Ext. 2.8 for DDL and Security para obtener los códigos de ADOX.Catalog necesarios para listar las tablas mencionadas. Primero deberán estudiar este código y luego ver los otros ejemplos que iré subiendo.

89) Ejemplos ADO2   Bajar Fuentes  (Subido el 12/12/2009)

Segundo ejemplo de la serie de ADO. Aquí se explica el método de mostrar los campos de una tabla.
La referencia del proyecto empleada es: Microsoft Activex Data Objects 2.8 Library. Con las propiedades de Fields; Name, Type y ActualSize, se muestran el nombre, tipo y tamaño de cada campo.
Los types de cada campo son valores numéricos. Para obtener el tipo de campo en forma alfanumérica, se puede implementar una rutina que analice e informe. Algo así:

Dim Tipo$
Select Case rs.Fields(I).Type
   Case 202: Tipo = "Texto"
   Case 2: Tipo= "Numérico Entero"
   Case 3: Tipo= "Numérico Entero Largo"
   Case 203:.Tipo= "Memo"
   Case 6: Tipo= "Moneda"
   Case 7: Tipo= "Fecha/Hora"
   Case 11: Tipo= "Si/No"
End Select

90) Ejemplos ADO3   Bajar Fuentes  (Subido el 21/12/2009)

Con Dim cn As ADODB.Connection y Dim rs As ADODB.Recordset comienza este ejemplo de navegación usando ADO.

91) Ejemplos ADO4   Bajar Fuentes  (Subido el 21/12/2009)

Este ejercicio contempla una gran actividad en el manejo de bases de datos. Permite la navegación en una base de datos de preguntas y respuestas que se utiliza en un programita de juego cultural (el famoso "Juego de Mente").  También permite agregar, borrar y modificar registros, o sea que realiza el ABM.
Las referencias del proyecto son: Microsoft Activex Data Objects 2.8 Library y Microsoft Data Binding Collection VB 6.0 (SP4). Bajando el fuente, no deberán preocuparse por dichas referencias pues ya están cargadas en él.
La declaración principal de variables comienza así:

Option Explicit
Const cad$ = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= "
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cmd As New ADODB.Command
Dim Ruta$, I%, Tipo$, FindLastName$, Ok%

Lo novedoso de este ejemplo, es que muestra la forma de establecer las propiedades DataSource y DataField de los controles de texto, la configuración de un DataGrid y las propiedades RowSource y ListField de un objeto DataCombo. Algo así:

Sub Conectar()
Ruta = App.Path & "\ahorcado.mdb"
Dim cn As New ADODB.Connection
' Abriendo la base de datos
cn.CursorLocation = adUseClient
cn.ConnectionString = cad & Ruta
Set rs = New ADODB.Recordset
cn.Open cn
With cmd
.ActiveConnection = cn
.CommandText = "select * from Datos order By Pregunta"
End With
' Abriendo el recordset
With rs
' Propiedades del rs
.CursorType = adOpenStatic ' adOpenKeyset
.LockType = adLockOptimistic
' Abriendo el control
.Open cmd
End With

Set DataGrid1.DataSource = rs
DataGrid1.Columns(0).Width = 3800
DataGrid1.Columns(1).Width = 2000

Set Preg.DataSource = rs
Set Resp.DataSource = rs
Preg.DataField = rs.Fields(0).Name
Resp.DataField = rs.Fields(1).Name
Set DataCombo1.RowSource = rs
DataCombo1.ListField = rs.Fields(0).Name
Caption = "Preguntas y Respuestas " & rs.RecordCount

End Sub

 

' Y esta sería la forma de cerrar las conexiones a la base de datos.

Sub Desconectar()
Set rs = Nothing
Set cn = Nothing
Set cmd = Nothing
End Sub

92) Ejemplos ADO5   Bajar Fuentes  (Subido el 22/12/2009)

Cortito y elocuente ejemplo para conectar una base de datos con ADO y asignar la vista a un control Datagrid. El motivo de este pequeño ejemplo es porque noto mucha confusión con el manejo de esta referencia. A muchos les fracasa esto por el uso incorrecto de las declaraciones. Es que hay tantas variantes que pienso que ni los de Microsft saben qué es cada cosa.
La referencia del proyecto es: Microsoft Activex Data Objects 2.8 Library. Es mejor que bajen el fuente del ejemplo para estudiarlo.

Option Explicit
Private Const Cad$ = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
Dim I%
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim Ruta$

Private Sub Form_Load()
Ruta = "C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB"
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open Cad & Ruta
Set rs = New Recordset
rs.Open "Select * From Proveedores order By NombreContacto Asc", cn, adOpenStatic, adLockOptimistic
Set DataGrid1.DataSource = rs
End Sub

Private Sub Form_Unload(Cancel As Integer)
' Desconexión
rs.MoveFirst ' evitando error de fila no disponible
' Cierra
If rs.State = adStateOpen Then
rs.Close
End If

' descarga
If Not rs Is Nothing Then
Set rs = Nothing
End If
Set cn = Nothing
End Sub

93) Encriptador   Bajar Fuentes  (Subido el 29/12/2009)

Ejemplo de dos funciones para encriptar y desencriptar un texto.

94) Botonera de Menúes lateral   Bajar Fuentes  (Subido el 26/03/2010)

Se trata de una interfaz para una gestión comercial. La particularidad es que está construida dentro de un MDIForm y el acceso a todos los menús se hace desde una botonera lateral. Trabaja a modo de marcos Web, pero sin las desventajas que estos generan. No tiene ninguna actividad cada sección, pero se puede aprender y adoptar para crear una buena aplicación dinámica, con navegación sencilla.

Pueden analizar aquí algunos trucos en el manejo de los MDIForm y los Form Child con cierto control en el Resize.

El MDI tiene un picture cargado, si no lo usan, pueden mejorar un poco el Resize. Entenderán cuando lo vean.

95) Dar vuelta las figuritas   Bajar Fuentes  (Subido el 05/04/2010)

Ejemplo con 49 botones en array con un picture diferente cada uno. De una sencilla forma, al hacer clicks, podemos dar vuelta los pictures de uno a otro botón. Todo el código se limita a 10 líneas. Es más trabajoso diseñar el conjunto de botones que el código en cuestión. Puede servir para desarrollar algún juego.

96) Multiplicación Rusa   Bajar Fuentes  (Subido el 17/03/2011)

El ejercicio de la Multiplicación Rusa que no funcionaba bien, está aquí solucionado, gracias a la participación de Gustavo cuya página pueden visitar aquÍ: www.webcron.com.ar
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

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

28/11/2013