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
lunes, 3 de diciembre de 2018
miércoles, 24 de octubre de 2018
viernes, 5 de octubre de 2018
LISTADO PRACTICAS GIMP
- Hoja-Fondo transparente.
- Piragua_-tapón clonar-
- Quitar objetos de una foto.
- montaje estanque patos
- hojos
- Dientes
- Arrugas
- Tono de piel-Maquillaje
- Pecas
- Cara completa
- playa Lanzarote filtros
- desaturar-niveles
- Rosa filtros
- fundir capas
- house
- distorsiones
- montaje-niñas retrato
- montaje niñas libro
- montaje niñas edificio
- montaje niñas sello
- colorear pelo
- Dibujo/Imagen con movimiento.(.gif)
- Adelgazar.
- Engordar.
- Colorear dibujo
- Montaje con famoso.
- Cambio colores
- Lluvia
- Filtros títulos.
- Dado.
jueves, 14 de junio de 2018
lunes, 11 de junio de 2018
martes, 5 de junio de 2018
viernes, 25 de mayo de 2018
VISUALBASIC: EJERCICIO9
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Shape1.Top = Y
Shape1.Left = X
End If
End Sub
If Button = 1 Then
Shape1.Top = Y
Shape1.Left = X
End If
End Sub
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
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
Suscribirse a:
Entradas (Atom)








