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