martes, 9 de abril de 2019

VB6: EJERCICIO8

Dim numeros() As Integer
Dim a, b, c


Private Sub cmdCalcular_Click()
For b = 1 To a
total = total + numeros(b)
Next b
lblResultado.Caption = total / a

End Sub

Private Sub Form_Load()
a = InputBox("Cuantos números vas a introducir", "Valores?")
ReDim numeros(a)

For b = 1 To a
c = InputBox("Introduce un valor numérico :", "Introducción de números")
numeros(b) = c
Next b



End Sub

lunes, 1 de abril de 2019

VB6: TEMPORIZADOR

Private Sub Timer2_Timer()
Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 2 Then
   tiempo = 0
   'accion a realizar
   Unload Me
End If
End Sub

martes, 5 de marzo de 2019

BLOGGER


  1. Predicción del tiempo.
  2. Reloj.
  3. RSS.
  4. Calendario con eventos.
  5. Localización en el mapa de un evento.
  6. Efectos externos (Cámara, marquesinas,etc).
  7. Otro gadget de blogger.
  8. Vídeo.
  9. Visor galería de fotos.
  10. Favicón.
  11. Imagen de perfil.
  12. Enlace a una red social con el Logo.
  13. Al menos dos entradas.
  14. Entradas etiquetadas.
  15. Enlace a un par de blogs interesantes.
  16. Presentación.
  17. Formulario.
  18. Archivo comprimido para descargar.
  19. PDF incrustado.
  20.  Comentario en esta entrada,con enlace al blog.

lunes, 11 de febrero de 2019

viernes, 5 de octubre de 2018

PYTHON


LISTADO PRACTICAS GIMP

Listado de ejercicios:
  1.  Hoja-Fondo transparente.
  2. Piragua_-tapón clonar-
  3. Quitar objetos de una foto.
  4. montaje estanque patos
  5. hojos
  6. Dientes
  7. Arrugas
  8. Tono de piel-Maquillaje
  9. Pecas
  10. Cara completa
  11. playa Lanzarote filtros
  12. desaturar-niveles
  13. Rosa filtros
  14. fundir capas
  15. house
  16. distorsiones
  17. montaje-niñas retrato
  18. montaje niñas libro
  19. montaje niñas edificio
  20. montaje niñas sello
  21. colorear pelo
  22. Dibujo/Imagen con movimiento.(.gif)
  23. Adelgazar.
  24. Engordar.
  25. Colorear dibujo
  26. Montaje con famoso.
  27. Cambio colores
  28. Lluvia
  29. Filtros títulos.
  30. Dado.

lunes, 11 de junio de 2018

miércoles, 23 de mayo de 2018

VISUALBASIC :EJERCICIO 10

Dim seg, minu, hor As Integer

Private Sub Form_Load()
seg = 0
minu = 0
hor = 0
End Sub

Private Sub Timer1_Timer()

seg = seg + 1
If seg = 60 Then
minu = minu + 1
seg = 0
If minu = 60 Then
hor = hor + 1
minu = 0
If hor = 24 Then
hor = 1

End If