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