|
 |
|
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 |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|