Robert Gómez

Estos son los dos componentes que se van a utilizar para poder ver la base dedatos que hemos creado con anterioridad.

Esta parte vamos haber como se escribe el código del reloj y de la fecha.

Paso 14. Haciendo la Memoria del Proyecto

Aquí lo que he hecho hasta ahora de la memoria del proyecto:




1. Introducción:






a. ¿Por qué este proyecto?


El oficio de orfebre, es un oficio muy antiguo, y que cada día quedan menos, porqué es muy manual, y a medida que avanza la ciencia y la tecnología, todo se hace más de manera electrónica y informática, nadie hace trabajos a mano.






Un familiar mío tiene un negocio de orfebrería, (Trabajo artístico realizado sobre utensilios o adornos de metales preciosos) y para ayudar a llevar el negocio de manera más fluida, y que se pueda incorporar al avance tecnológico que estamos sufriendo, he creado un programa para llevar toda la orfebrería a nivel administrativo, contable y algún extra de más, pedido por el usuario.






Se acabó el bolígrafo, papel y calculadora, es mejor llevar todo registrado, para que no hayan perdidas, y que las transferencias y cálculos los haga una máquina perfecta.






b. ¿De qué se trata?


Pues trata de un programa basado en un entorno gráfico muy manejable y atractivo, con varias ventanas y registros, para llevar las bases de datos conectadas a Microsoft Access, con total facilidad, y comodidad. También incluye un diseñador de anillos para que el cliente pueda modelar y pedir su anillo, a su gusto, sin tener que acogerse a ningún estereotipo marcado por el joyero.


También tiene hora y fecha en cada ventana que se abra para facilitar en momentos de necesidad el saber qué hora es y qué día.


También incorpora accesos directos a la calculadora y el bloc de notas de Windows, por si hay que hacer algún cálculo rápido o necesita apuntar algo.










2. Objetivos del proyecto:






Crear una aplicación de mercado para Orfebres, que les ayude a manejar su negocio de una manera más cómoda y segura, a nivel administrativo y de gestión de negocio.










3. Funcionamiento del sistema:






El sistema consta de un “Nombre y Contraseña”, para entrar al programa, donde aparece el menú en otra ventana. Ésta, lógicamente no se abrirá si el nombre y contraseña introducidos no son correctos, aparecerá un mensaje de error, y se vaciarán ambos campos de nuevo.






Una vez en el menú veremos un gran botón en medio con el logo de la empresa, que sirve para actualizar todo el programa, por si hubiese algún dato no procesado en tiempo real. Alrededor, en círculo, encontraremos todos los botones y funciones que desempeña el programa, las bases de datos, los registros, la calculadora, el bloc de notas etc. Y abajo a la derecha un botón pequeño que nos dará acceso al Diseñador de Anillos, una aplicación extra que ayuda al cliente a escoger su anillo deseado, sin ningún estereotipo a seguir.


Los botones del menú principal (registros, bases de datos), son de fácil manejo, ahí se pueden consultar o escribir nuevos registros, para no tener ningún desorden y tener todos los clientes, productos, empresas etc., al día.


El Diseñador de Anillos, consta de 5 “combobox” que ayudan al usuario a decidirse entre algunos valores especificados: por tamaño, material, forma, piedra, y baño del anillo.


Una vez hecho esto, encontraremos el botón de imprimir ese formulario para que cliente y empresario tengan una copia de éste.






4. Dificultades técnicas: ( a la hora de crear el proyecto)






5. Aplicaciones en la vida real:






6. Manual del usuario:






7. Anexos






a. Especificaciones técnicas


b. Código fuente.






8. Bibliografía

Paso 13. Finalizado el extra de la impresora.

Ya se puede imprimir todo el formulario deseado, con la información cargada y puesta en pantalla, apretando solo un botón, y además con un texto de confirmación que afirma que la información ha sido mandada correctamente a la impresora.

Paso 12. Haciendo un Powerpoint para el proyecto.

Esta semana, Gerard nos ponía nota general del proyecto y nos dio todas las horas para elaborar un powerpoint, y presentárselo, para que pusiese nota del trabajo hecho hasta el dia de hoy, valia como 4 dias esa nota.

Aquí una foto de una diapositiva de mi PowerPoint.

Paso 11. Hacer mover los GIF del programa, y hacer un .txt para imprimir.

Esta semana, la he dedicado a buscar como imprimir ciertos datos que seleccione el usuario, en el Goldsmith Ring Creator, para que se guarden en un archivo .txt, hemos puesto ciertas lineas de código, pero no ha habido suficiente tiempo, y no se ha podido acabar, dejando así semejante error, que hace petar todos los timers del programa.
Las página de informacion para mover los GIFS ha sido: http://www.forosdelweb.com/f69/gif-visual-basic-486103/

Y lo de buscar como guardarlo en un .txt, lo he mirado en la práctica Agenda del 1er Trimestre.
Hasta aquí náda más.

Paso 10. Depurar el programa de errores.

Esta semana, como había acabado el apartado de la impresora, me he dedicado a buscar cosas para añadirle al programa, como clasificaciones de clientes, según ingresos económicos y otros detalles extra, me ha llevado tiempo y Gerard, me ha dicho tambien un par de cosas que lo podría añadir. El otro 50% de tiempo lo he dedicado a depurar todo el proyecto de errores ya sea a ojo, y poniendo ciertas linias de código que por si peta el programa, no se cierre, y no de ningún error por pantalla.

Paso 9. Finalizando el diseñador de anillos.

Ya funcionan todos los combobox, los comandos, los botones, y está a prueba de fallos, además esta semana, gerard me ha dicho que dedicase unas horas, a una idea que era imprimir el formulario, i después de largas búsquedas por internet, lo he conseguido y funciona a la perfección.
De momento no se le añadirá nada más a este subprograma, más que algunos retoques o detalles.

Robert Gómez - Práctica 4 Vaciar/Llenar

Código:

Dim i As Integer 'dimensionamos i como integer


Dim t As Integer ' dimensionamos t como integer



Private Sub Bstart_Click()

If text1.Top > 3120 Then 'en caso de que el text1.top sea mas grande que 3120 entonces volvera a ser 3120

text1.Top = 3120

End If

If text1.Top < 720 Then 'en caso de que el text1.top sea mas pequeño que 720 entonces pasara a tener el valor de 720

text1.Top = 720

End If

Timer1.Enabled = True 'enciende el timer

End Sub



Private Sub Command1_Click()

Timer1.Enabled = False 'apaga el timer

End Sub



Private Sub Timer1_Timer()

If Option1.Value = True Then 'en caso de que este marcada la option1 entonces el valor de i sera 20, sino sera -20

i = 20

Else

i = -20

End If



text1.Height = text1.Height + i ' el valor de text1.height es igual que el valor de text1.height mas el valor de i

text1.Top = text1.Top - i 'el valor de text1.top sera igual que el valor de text1.top mas el valor de i

If text1.Height > Picture1.Height Then 'en caso de que el text1.height sea mas grande que picture1.height entonces i pasara a tener el valor de 0 y el text1.height apsara a tener el valor de picture1.height y se apagara el timer

i = 0

text1.Height = Picture1.Height

Timer1.Enabled = False

End If

If text1.Height < 283 Then 'en caso de que el text1.height sea mas pekeño que 283 entonces pasara a tener el valro de 285 y el timer pasara a estar apagado

text1.Height = 285

Timer1.Enabled = False

End If

End Sub

Practica3 Ex - Compañero proyecto.

Código + Foto del programa:

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)


If KeyCode = vbKeyQ Then CmdQ.BackColor = vbGreen

If KeyCode = vbKeyW Then CmdW.BackColor = vbGreen

If KeyCode = vbKeyE Then CmdE.BackColor = vbGreen

If KeyCode = vbKeyR Then CmdR.BackColor = vbGreen

If KeyCode = vbKeyT Then CmdT.BackColor = vbGreen

If KeyCode = vbKeyY Then CmdY.BackColor = vbGreen

If KeyCode = vbKeyU Then CmdU.BackColor = vbGreen

If KeyCode = vbKeyI Then CmdI.BackColor = vbGreen

If KeyCode = vbKeyO Then CmDo.BackColor = vbGreen

If KeyCode = vbKeyP Then Cmdp.BackColor = vbGreen

If KeyCode = vbKeyA Then Cmda.BackColor = vbGreen

If KeyCode = vbKeyS Then Cmds.BackColor = vbGreen

If KeyCode = vbKeyD Then Cmdd.BackColor = vbGreen

If KeyCode = vbKeyF Then Cmdf.BackColor = vbGreen

If KeyCode = vbKeyG Then Cmdg.BackColor = vbGreen

If KeyCode = vbKeyH Then Cmdh.BackColor = vbGreen

If KeyCode = vbKeyJ Then Cmdj.BackColor = vbGreen

If KeyCode = vbKeyK Then Cmdk.BackColor = vbGreen

If KeyCode = vbKeyL Then Cmdl.BackColor = vbGreen

If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbGreen

If KeyCode = vbKeyZ Then cmdz.BackColor = vbGreen

If KeyCode = vbKeyX Then cmdx.BackColor = vbGreen

If KeyCode = vbKeyC Then cmdc.BackColor = vbGreen

If KeyCode = vbKeyV Then cmdv.BackColor = vbGreen

If KeyCode = vbKeyB Then cmdb.BackColor = vbGreen

If KeyCode = vbKeyN Then cmdn.BackColor = vbGreen

If KeyCode = vbKeyM Then cmdm.BackColor = vbGreen

If KeyCode = 188 Then cmdcoma.BackColor = vbGreen

If KeyCode = 190 Then cmdpunto.BackColor = vbGreen

If KeyCode = 111 Then cmdSlash.BackColor = vbGreen

If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbGreen

If KeyCode = vbKeySpace Then cmdbarra.BackColor = vbGreen

If Shift = vbAltMask Then cmdAlt.BackColor = vbGreen



End Sub



Private Sub Picture1_KeyUp(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyQ Then CmdQ.BackColor = vbButtonFace

If KeyCode = vbKeyW Then CmdW.BackColor = vbButtonFace

If KeyCode = vbKeyE Then CmdE.BackColor = vbButtonFace

If KeyCode = vbKeyR Then CmdR.BackColor = vbButtonFace

If KeyCode = vbKeyT Then CmdT.BackColor = vbButtonFace

If KeyCode = vbKeyY Then CmdY.BackColor = vbButtonFace

If KeyCode = vbKeyU Then CmdU.BackColor = vbButtonFace

If KeyCode = vbKeyI Then CmdI.BackColor = vbButtonFace

If KeyCode = vbKeyO Then CmDo.BackColor = vbButtonFace

If KeyCode = vbKeyP Then Cmdp.BackColor = vbButtonFace

If KeyCode = vbKeyA Then Cmda.BackColor = vbButtonFace

If KeyCode = vbKeyS Then Cmds.BackColor = vbButtonFace

If KeyCode = vbKeyD Then Cmdd.BackColor = vbButtonFace

If KeyCode = vbKeyF Then Cmdf.BackColor = vbButtonFace

If KeyCode = vbKeyG Then Cmdg.BackColor = vbButtonFace

If KeyCode = vbKeyH Then Cmdh.BackColor = vbButtonFace

If KeyCode = vbKeyJ Then Cmdj.BackColor = vbButtonFace

If KeyCode = vbKeyK Then Cmdk.BackColor = vbButtonFace

If KeyCode = vbKeyL Then Cmdl.BackColor = vbButtonFace

If KeyCode = 192 Then cmdPuntoYComa.BackColor = vbButtonFace

If KeyCode = vbKeyZ Then cmdz.BackColor = vbButtonFace

If KeyCode = vbKeyX Then cmdx.BackColor = vbButtonFace

If KeyCode = vbKeyC Then cmdc.BackColor = vbButtonFace

If KeyCode = vbKeyV Then cmdv.BackColor = vbButtonFace

If KeyCode = vbKeyB Then cmdb.BackColor = vbButtonFace

If KeyCode = vbKeyN Then cmdn.BackColor = vbButtonFace

If KeyCode = vbKeyM Then cmdm.BackColor = vbButtonFace

If KeyCode = 188 Then cmdcoma.BackColor = vbButtonFace

If KeyCode = 190 Then cmdpunto.BackColor = vbButtonFace

If KeyCode = 111 Then cmdSlash.BackColor = vbButtonFace

If KeyCode = vbKeyControl Then cmdCtrl.BackColor = vbButtonFace

If KeyCode = vbKeySpace Then cmdbarra.BackColor = vbButtonFace

If Shift = vbAltMask Then cmdAlt.BackColor = vbButtonFace



End Sub

Paso 8. Creando la interfaz gráfica, y los comandos de diseñador de anillos.

La semana pasada, acabemos las bases de datos, y teníamos toda la información para empezar a programar, y diseñar botones y demás en el subprograma.
Esta semana hemos empezado con el diseño, hecho con combobox básicamente, y un image que va rotando de fotografía según escojamos la piedra.

Veremos como tenemos todas las utilidades para diseñar el anillo, según tamaño, forma, material, etc, acaban dejando un único diseño, y un problema menos para el joyero.

Práctica2 Ex - Compañero de Proyecto.

Aquí la práctica número 2 de Robert Gómez Herrera, ex-compañero de mi proyecto.

Código:

Private Sub LeerDatos()


Form2.Show 'hace que form2 se muestre

Form2.DataGrid1.Row = mes 'hace qe la variable mes sea igual a la fila

For i = 0 To 30 'hace que se lean los datos de la base de datos en la caja de texto tdia

Tdia(i).Text = Form2.DataGrid1.Columns(i + 2)

Next

Unload Form2 'hace que form2 se desconecte

End Sub



Private Sub EscribirDatos()

Form2.Show 'hace que form2 se muestre

Form2.DataGrid1.Row = mes 'hace qe la variable mes sea igual a la fila

For i = 0 To 30 'hace que se guarde los datos de tdia en la base de datos

Form2.DataGrid1.Columns(i + 2) = Tdia(i).Text

Next

Unload Form2 'hace que form2 se desconecte

End Sub

Paso 7. Creando el diseñador de anillos.

He abandonado el tema, de la persiana eléctrica, por razones de alquiler del local, i no podremos hacer el proyecto previsto para controlarla desde el ordenador.
En lo que sí hemos avanzado es en el diseñador de anillos, ya tenemos las bases de datos hechas, con toda la información y tipos de anillos, piedras, materiales y baños, para comenzar a programar, i ponerlo en el formulario de visual basic.

Paso 6. Iniciación de las funciones extra del programa.

Como pone en el título, estoy iniciando las funciones extra del programa, como es un mini programa para diseñar anillos, o otro tema que está en prueba i nose si se acabará haciendo, ya que hay que comprar otros materiales más caros, consistía en desde el ordenador, poder subir y bajar la persiana metálica de la tienda.

Ayer, Lunes, estuve buscando los distintos materiales y piedras para el diseñador de anillos, y poder crear su base de datos correspondiente, también estuve buscando ese periférico (E/S) que pasa de usb a positivo y negativo, a ordendes para Visual Basic.

De momento estas son todas las novedades.

Ésta es la página consultada para el diseño de anillos.
http://www.ulammjoyas.com/anillosdecompromiso.html

Paso 5. Primera parte del programa finalizada, y revisada.

A día 09 de abril del 2010, tengo finalizada la primera parte del programa, que consta de el login del usuario, y el menu con todas las funciones, enlazadas a bases de datos, que completan los requisitos y necesidades, requeridas por el cliente.
A partir de ahora, voy a hacer otras partes, para ampliar funciones, igual cambiar algun diseño, y retocar otros aspectos.
Esta segunda parte constará de un mini programa para diseñar un anillo, y de otras pequeñas instancias.

Chavanel72.

Paso 4. Desarrollar funciones principales del programa.

Antes de nada, comunicar el abandono de mi compañero de proyecto Robert Gómez por razones relacionadas con su otro grado medio, que me ha dejado solo frente a este gran repto, pero también decir que ya con sus deberes hechos.

Esta semana hemos introducido las bases de datos correspondientes a las diferentes partes del programa, que necesitaban de ellas para seguir adelante, y avanzar en el proyecto en general. Los comandos u objetos usados han sido facilitados por las clases del profesor, y lo demás ya ha sido personalización o adaptación a las necesidades del programa.

Paso 3. Menu del programa para acceder a sus funciones.

En esta semana, mientras hemos ido diseñando las respectivas bases de datos, también, hemos avanzado la parte de programación del programa, diseñando los botones que enlazarán las diferentes funciones del programa.
Cada boton al ser pulsado llevará al apartado del programa correspondiente, para desempeñar la función deseada.

Inicio del programa.

Menú del programa.

Paso 2. Logo definitivo de la empresa.

Aquí tenemos el logo definitivo, el grande es para mostrar en cubiertas, o en gran detalle, y el pequeño para poner como icono del programa u otros usos parecidos.

Grande:

Pequeña:

Paso 1. Creación de la interfaz del usuario para entrar al programa.

El programa llamado, Goldsmith Manager, que significa en español manager de el orfebre, sirve para llevar toda la contabilidad de un orfebre (joyero), y aparte lleva también una sección con bases de datos, para la creación de anillos a medida, y los precios de las materias primas, como oro plata etc.


Esta semana hemos estado contactando con el cliente (familiar de oriol) para saber como quiere el programa, y que herramientas necesita, y como aún no estaba todo muy claro, hemos empezado a diseñar como seria el entorno gráfico, y la primera impresión del programa, como es la primera plana, Login y Password.


Links de la información:
Piedras preciosas y semipreciosas. (Bases de datos)
Piedras sintéticas. (Bases de datos)