Páginas
lunes, 3 de junio de 2019
domingo, 12 de mayo de 2019
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
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
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
- Predicción del tiempo.
- Reloj.
- RSS.
- Calendario con eventos.
- Localización en el mapa de un evento.
- Efectos externos (Cámara, marquesinas,etc).
- Otro gadget de blogger.
- Vídeo.
- Visor galería de fotos.
- Favicón.
- Imagen de perfil.
- Enlace a una red social con el Logo.
- Al menos dos entradas.
- Entradas etiquetadas.
- Enlace a un par de blogs interesantes.
- Presentación.
- Formulario.
- Archivo comprimido para descargar.
- PDF incrustado.
- Comentario en esta entrada,con enlace al blog.
lunes, 11 de febrero de 2019
jueves, 7 de febrero de 2019
domingo, 27 de enero de 2019
jueves, 24 de enero de 2019
lunes, 14 de enero de 2019
Suscribirse a:
Entradas (Atom)