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

martes, 22 de mayo de 2018

ELEMENTOS BLOG


1.     RELOJ
2.     CONTADOR VISITAS.
3.     CALENDARIO CON UBICACIÓN.
4.     PREDICCION DEL TIEMPO.
5.     ENTRADA DE VIDEO.
6.     ENTRADAS CON HIPERVÍNCULO.
7.     ALBUM: GOOGLE FOTOS COMPARTIDO.
8.     FICKR: VISOR FOTOS.
9.     RSS : MARCA-HERALDO O SIMILAR.
10.   BARRA DE VIDEO.
11.    FAVICON.
12.    FORMULARIO.
13. PRESENTACIÓN.
14.-MUSICA
15.-OTROS EFECTOS.