Páginas
miércoles, 20 de diciembre de 2017
jueves, 14 de diciembre de 2017
miércoles, 13 de diciembre de 2017
domingo, 19 de noviembre de 2017
TRABAJO TINF 1º BTO
El examen del Lunes queda suspendido hasta mi regreso.
Cuando esté en clase fijaremos una nueva fecha.
Trabajo Lunes y Miércoles.(El Miércoles revisar el blog)
Pasar todos ejercicios de photoshop a JPeg y con el editor MovieMaker (ya esta instalado) comenzar a montar una película con esas imágenes.
Descargar de youtube música y montarla en ese vídeo.
Por último habrá que subir el vídeo a una cuenta propia de youtube. Será más que probable que para subir el vídeo tengáis que cambiar la música por una de la lista que ofrece.
Que os ayuden los compañeros sí hay dudas e ir leyendo algún tutorial.
Pasar todos ejercicios de photoshop a JPeg y con el editor MovieMaker (ya esta instalado) comenzar a montar una película con esas imágenes.
Descargar de youtube música y montarla en ese vídeo.
Por último habrá que subir el vídeo a una cuenta propia de youtube. Será más que probable que para subir el vídeo tengáis que cambiar la música por una de la lista que ofrece.
Que os ayuden los compañeros sí hay dudas e ir leyendo algún tutorial.
TRABAJO INFORMATICA 4º
El trabajo para esta semana será el siguiente:
Tener todo el trabajo al día. (Se revisaran todos los ejercicios de clase)
Ejercicio 1:Buscar una imagen (que no sea de la galería) y realizar las siguientes operaciones:
Tener todo el trabajo al día. (Se revisaran todos los ejercicios de clase)
Ejercicio 1:Buscar una imagen (que no sea de la galería) y realizar las siguientes operaciones:
- Corregir arrugas.
- Blanquear dientes.
- Cambiar color ojos (Al menos dos capas con dos colores distintos).
- Maquillar.
- Cambiar color de pelo.
Ejercicio 2: Buscar una imagen de una playa y un dibujo con un personaje famoso para colorear (pato Donald, MicKey, Homer,etc)
- Limpiar la playa, quitando algún elemento que se vea sin problema.
- Colorear el personaje y pegarlo en la playa al menos dos veces con distintos tamaños.
- Añadir un texto.(Libre)
Se valorarán y corregirán los dos ejercicios.
jueves, 26 de octubre de 2017
domingo, 22 de octubre de 2017
viernes, 20 de octubre de 2017
lunes, 16 de octubre de 2017
miércoles, 27 de septiembre de 2017
PLAGIO: HERRAMIENTAS DETECCIÓN
La mayoría de trabajos entregados hoy en día en el sistema educativo se limitan a un copia pega y un ligero retoque, lo cual en muchas instituciones es considerada una falta grave, que conlleva el suspenso inmediato.
PAra su detección existen diversas herramientas que puedes consultar en el siguiente enlace:
viernes, 22 de septiembre de 2017
COMBINAR CORRESPONDENCIA
Más ejercicios para practicar la combinación de correspondencia.
EJERCICIOS COMBINAR CORRESPONDENCIA 1
EJERCICIOS COMBINAR CORRESPONDENCIA 2
EJERCICIOS COMBINAR CORRESPONDENCIA 1
EJERCICIOS COMBINAR CORRESPONDENCIA 2
jueves, 14 de septiembre de 2017
jueves, 22 de junio de 2017
miércoles, 7 de junio de 2017
VB: ABRIR ARCHIVOS
Private Sub cmdBlog_Click()
Shell "Explorer " & "http://informaticaiesandorra.blogspot.com.es/", vbNormalFocus
End Sub
Private Sub cmdGoogle_Click()
Shell "Explorer " & "https://www.google.es/", vbNormalFocus
End Sub
Private Sub cmdHeraldo_Click()
Shell "C:\Archivos de programa\Mozilla Firefox\firefox.EXE www.heraldo.es/", vbNormalFocus
End Sub
Private Sub cmdJuancarlos_Click()
Shell "explorer.exe root = E:\juan carlos", vbNormalFocus
End Sub
Private Sub cmdNotas_Click()
Shell "C:\Archivos de programa\Microsoft Office\OFFICE11\EXCEL.exe E:\juancarlos\TINF", vbNormalFocus
End Sub
Shell "Explorer " & "http://informaticaiesandorra.blogspot.com.es/", vbNormalFocus
End Sub
Private Sub cmdGoogle_Click()
Shell "Explorer " & "https://www.google.es/", vbNormalFocus
End Sub
Private Sub cmdHeraldo_Click()
Shell "C:\Archivos de programa\Mozilla Firefox\firefox.EXE www.heraldo.es/", vbNormalFocus
End Sub
Private Sub cmdJuancarlos_Click()
Shell "explorer.exe root = E:\juan carlos", vbNormalFocus
End Sub
Private Sub cmdNotas_Click()
Shell "C:\Archivos de programa\Microsoft Office\OFFICE11\EXCEL.exe E:\juancarlos\TINF", vbNormalFocus
End Sub
lunes, 5 de junio de 2017
VB:TIMER-FRM
Private Sub Timer1_Timer()
Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 1 Then
tiempo = 0
'accion a realizar
Unload Me
End If
End Sub
Private Sub cmdEleccion_Click()
If Val(Text1.Text) < 100 Then
frmCoche.Show
MsgBox "Comprate un coche"
Else
frmmoto.Show
MsgBox "Comprate una moto"
End If
End Sub
Static tiempo As Long
tiempo = tiempo + 1
If tiempo = 1 Then
tiempo = 0
'accion a realizar
Unload Me
End If
End Sub
Private Sub cmdEleccion_Click()
If Val(Text1.Text) < 100 Then
frmCoche.Show
MsgBox "Comprate un coche"
Else
frmmoto.Show
MsgBox "Comprate una moto"
End If
End Sub
jueves, 1 de junio de 2017
VB: ENTREGA VISUAL BASIC
En posteriores días iré actualizando la fecha de entrega y algún otro detalle.
De momento estos son los ejercicios de entrega:
De momento estos son los ejercicios de entrega:
- Calculadora.
- Conversor de unidades o similar.
- Indicador de zona climática.
- Formularios. Carga y cierre temporizado de formularios.
Se deberá publicar un comentario con el enlace a la carpeta donde tenéis guardados los ejecutables (.exe)
Aseguraros que los programas funcionan y que al entrar sin el usuario se puede acceder a la carpeta contenedora:
FECHA DE ENTREGA: PRÓXIMAMENTE
VB:CODIGO EJEMPLO 4
Private Sub cmdBorrar_Click()
hscTemperatura.Value = 0
txtBarra.Text = ""
txtResultado.Text = ""
txtResultado.Left = 1920
txtResultado.BackColor = vbWhite
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
txtResultado.Left = 1920
End Sub
Private Sub hscTemperatura_Change()
lblPresentacion.Visible = False
txtBarra.Text = hscTemperatura.Value
If Val(txtBarra.Text) > 30 Then
txtResultado.Text = "HACE MUCHO CALOR"
txtResultado.BackColor = vbRed
txtResultado.ForeColor = vbBlack
txtResultado.Left = 3840
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = True
Else
If Val(txtBarra.Text) > 8 Then
txtResultado.Text = "ZONA CONFORT"
txtResultado.BackColor = vbGreen
txtResultado.ForeColor = vbRed
txtResultado.Left = 1920
PictureFrio.Visible = False
PictureConfort.Visible = True
PictureCalor.Visible = False
Else
txtResultado.Text = "HACE MUCHO FRIO"
txtResultado.BackColor = vbBlue
txtResultado.ForeColor = vbWhite
txtResultado.Left = 500
PictureFrio.Visible = True
PictureConfort.Visible = False
PictureCalor.Visible = False
End If
End If
End Sub
hscTemperatura.Value = 0
txtBarra.Text = ""
txtResultado.Text = ""
txtResultado.Left = 1920
txtResultado.BackColor = vbWhite
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
End Sub
Private Sub cmdSalir_Click()
End
End Sub
Private Sub Form_Load()
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = False
txtResultado.Left = 1920
End Sub
Private Sub hscTemperatura_Change()
lblPresentacion.Visible = False
txtBarra.Text = hscTemperatura.Value
If Val(txtBarra.Text) > 30 Then
txtResultado.Text = "HACE MUCHO CALOR"
txtResultado.BackColor = vbRed
txtResultado.ForeColor = vbBlack
txtResultado.Left = 3840
PictureFrio.Visible = False
PictureConfort.Visible = False
PictureCalor.Visible = True
Else
If Val(txtBarra.Text) > 8 Then
txtResultado.Text = "ZONA CONFORT"
txtResultado.BackColor = vbGreen
txtResultado.ForeColor = vbRed
txtResultado.Left = 1920
PictureFrio.Visible = False
PictureConfort.Visible = True
PictureCalor.Visible = False
Else
txtResultado.Text = "HACE MUCHO FRIO"
txtResultado.BackColor = vbBlue
txtResultado.ForeColor = vbWhite
txtResultado.Left = 500
PictureFrio.Visible = True
PictureConfort.Visible = False
PictureCalor.Visible = False
End If
End If
End Sub
lunes, 22 de mayo de 2017
jueves, 20 de abril de 2017
martes, 18 de abril de 2017
miércoles, 29 de marzo de 2017
VOTAME-COLABORA
Los chicos de 6º del CP Justicia de Aragón de Alcorisa son finalistas de un concurso de cuentos de Ecoembes. Están entre los 10 finalistas de toda España y necesitan vuestra ayuda. VoTAME.
El cuento es "Escuchame"
lunes, 6 de marzo de 2017
lunes, 6 de febrero de 2017
EJERCICIOS VIDEO-PRESENTACIÓN
- Vídeo a partir de imágenes con MovieMaker. (Sín música)
- Vídeo a partir de imágenes con MovieMaker. (Con música)
- Vídeo recortado con MovieMaker.
- Vídeo editado con Youtube.
- Tutorial con Cam.
- Presentación con Emaze.
- Presentación con Prezzi.
- Fusionar dos vídeos con FormatFactory.
- Conversión formatos.
lunes, 16 de enero de 2017
Suscribirse a:
Entradas (Atom)