!!! Lo de arriba es publicidad
Algunos codigos que pueden ser de utilidad. + Bases de datos, iconos, todo en VB6
http://www.4shared.com/rar/JBTnEF6o/Proyectos_VB6.html

---

Usar una lista como un vector para el calculo de la media
Ingresas los datos mediante additeem a una lista, a la que habras puesto sort = true (ordenamiento automatico)en tiempo de diseño, luego de cargados los valores, con listcount sabes cual es la cantidad de valores ingresados, y si lo dividis /2 te dara la ubicacion del valor medio

En el load del formulario podes poner
(previo a colocar la lista con la propiedad srted = true, y si no queres que se vea ponele visible=false)



Un ejemplo practico, manejo de una inmobiliaria
http://www.4shared.com/rar/F8sJL80Rba/AEMInmob.html
Este proyecto tiene operaciones hechas mediante crystal repport versio 8, y la base de datos está desactualizada, por lo que primero tienen que tener instalado el crystal report (si buscan encontrarán en la pagina anterior el vinculo del CD) y luego cambiarle las fechas a la base de datos o borrar sus registros, cargando registros nuevos para que funcione.





  Este es uno de los formularios, donde se detalla el pago mensual del alquiler, segun el contrato que se llena en microsoft word en forma automatica cuando se acuerda un alquiler

Seguramente necesitara algunas correcciones, pero puede servir de orientacion para los programadores

----------------------------------------------------------------------------------------------------------------
Un formulario de usuario y passwor que habilita un formulario contenedor MDI donde se desarrolla todo el programa
Consta de un combo donde se cargan los usuarios, y una lista oculta (visible=false) donde se cargan las password este procedimiento se efectua en el load del formulario. Es posible usar otro formulario en vez de un MDI, y tambien efectuar la carga de datos desde una base de datos, donde la contraseña estará encriptada (para evitar que la lea cualquiera)
Este es el codigo en el formulario

Private Sub Aceptar_Click()

If Text1.Text = List1.List(Combo1.ListIndex) Then

MDI1.Show

Else

Text1.Text = ""

    If Combo1.ListIndex < 0 Then

    MsgBox "Debe haber un usuario", vbInformation, "Procedimiento Incorrecto"

    Exit Sub

    End If

MsgBox "Password Incorrecto", vbCritical, "Datos incorrectos"

End If

'Recordar que este formulario no debe

'ser hijo del mdi y se formulario de inicio

'en propiedades del proyecto

 

End Sub

 

 

Private Sub Combo1_Change()

List1.List (Combo1.ListIndex)

End Sub

 

Private Sub Form_Load()

Combo1.Clear

List1.Clear

Text1.Text = ""

Combo1.AddItem "Manuel"

List1.AddItem "miclave"

Combo1.AddItem "Pedro"

List1.AddItem "visita"

Combo1.AddItem "Juliana"

List1.AddItem "contador"

End Sub

'//Se carga el usuario en un combo, y simultaneamente

'su password en una lista visible=false

 http://www.4shared.com/rar/Udsoi2Oeba/VerPassword.html

 

---------------------------------------------------------------------------------------------------------
A continuacion, como tomar el formulario completo de vbasic6 y pegarlo en un documento de word
http://www.4shared.com/rar/a9GwQU_mce/Copiarform_y_pegar_en_word.html
ver proyecto similar en VB.Net

---

Ahora subire una aplicacion creada para la administrcion de una biblioteca, la conexion de la base de datos, se hace en una maquina servidor (que estará encendida y conectad mientras se opere en ese ámbito) y las otras pc, se conectan a travez de una conexion ftp, 
Antes que nada descargamos el proyecto en
http://www.4shared.com/rar/kDnKD1L4ce/Biblioteca.html
Alli tenemos el proyecto con el ejecutable, el cual a nuestors fines no nos sirve, porque tenemos otros vinculos, asi que lo eliminamos (biblioteca.exe)
Tambien tenemos una pagina web, donde hay ayuda para que el formulario de ayuda funcione, ya que corrige errores
generados al modernizar el explorador de internet y el manejo del vinculo.
La ayuda es una pagina html, que se puede hacer con cualquier editor html, esta está hecho con el front page de Microsoft
La contraseña es 123 para iniciar el acceso a la ejecución del proyecto, asi que lo pueden hacer correr sin problemas.
Esta carpeta estaria en el servidor, en la raiz de uno de sus discos, porque de aquí compartiremos la base de datos
Una vez que modifiquemos el programa a nuestro gusto, podemos volver a crear el ejecutable, el que dejaremos en la misma carpeta, para que encuentre todos los enlaces que necesite.
Luego seleccionamos la carpeta donde está la base de datos (conexion)  y en propiedades de la misma, ponemos compartida (con o sin contraseña) no es preoucupante por no ser material de riezgo. Cuando se trata de negocios, es importante que nadie acceda a nuestra carpeta, y tambien podemos ponerle contraseña a la base de datos, para que se ejecute solo con el programa adjunto

Ahora nos vamos a las otras pc
En las otras pc, ingresamos con el boton derecho en eqipo o mi pc, alli vamos a conectar a unidad de red, y visualizamos la carpeta compartida en red desde la pc cliente. Si no nos importa la velocidad, podemos ejecutar el exe desde la misma carpeta, si queremos mayor velocidad, solo usamos la base de datos, trayendo todo el proyecto(una copia) a la pc cliente, Eso implica que tendra que tener instalado tambien el Visual Basic 6, y así poder ejecutarlo y generar el exe
En este caso, le designamos una letra comun a todas las pc, a la unidad que va a crearse desde la red por ejemplo T
y podemos mudar el ejecutable a otras pc sin que tengan el vbasic6 instalado, haciendo la conexion al servidor en su carpeta compartida, y andará en todas como si fueran una sola pc.
Cuando el transito de datos entre los clientes y el servidor se hace contínuo, es importante preservar la integridad de los datos, entonces hya recursos para evitar que se pueda estar operando simultaneamente y se toma ademas una copia de la base de datos por si ocurre algun problema que pueda atentar contra la integridad de los datos almacenados.
Para quien se inerese en hacer esto, busque el tema de transacciones en ado, y como hacer backup en VB6.
Si Dios quiere, lo desarrollaré mas adelante, como asimismo a bases de datos compartidas desde internet



En nuestro caso, la diferencia de la conexion entre el programa que se ejecuta en el servidor y el que se ejecuta en ellllllos clientes estará en:
Abrir modulo, codigo

A continuación un proyecto de un juego clásico, echo en VB6, Los barquitos o Batalla Naval
De aqui podes descargar el proyecto completo:
https://www.4shared.com/rar/Q5kB-u7ica/battle.html
En este proyecto usamos un contenedor de imagenes para guardar las distintas imagenes que se usan en el juego, la intencion es que cuando se haga el ejecutable, estas imagenes queden incluídas en el mismo y no tengan que ir en una carpeta adjunto al mismo.
Ademas se hace el caudriculado de la batalla naval, mediante una matrix de objretos image, que tienen la propiedad strech que permite ser debidamente rellenados por la imagen que se les cargue, independiente del tamaño original de la misma.
Se juega con varias propiedades de estos controles, como la inhabilitación o la visible=false para marcar los cuadros que ya han sido torpedeados, tanto como por el jugador, como por su oponente virtual (la PC)
Teniendo en cuenta la incapacidad de razonar de la pc se le han dado mayor cantidad de disparos al azar, para hacer el juego mas interesante, y el tablero de la pc, que es un formulario bastante semejante al del usuario, permanece oculto hasta el final del juego.
En una versión mas elaborada, se podría establecer que los tiros de la pc, despues que acierta una vez, dejen de ser al azar y se limiten al entorno del cuadro donde se ha producido el primer acierto, lo cual daría cierta  inteligencia al juego, el cual no deja de ser atractivo y divertido así como está.












Lo de abajo es publicidad, no pertenece al desarrollo o al comentario que se hace en esta pagina