Realizar un video de entre 30 segundos y 1 minuto. Pueden aparecer los autores. Las imágenes deben ser tomadas de YouTube.

Debe relatar:

- Lo mas divertido (escolar) del año
- Lo mas aburrido (escolar) del año
- Lo mas dificil de TIC y en general (un tema, una clase, un proyecto)
- Lo mas interesante de TIC y en general (un tema, una clase, un proyecto)

No hacer nombres, solo mencionar materias. Publicarlo en YouTube y en el Campus (despues vemos como)
Showing posts with label control. Show all posts
Showing posts with label control. Show all posts

Friday, September 19, 2008

captura y codigo


End Sub

Private Sub Dos_Click()
Auxiliar.Caption = Auxiliar.Caption + "2"
End Sub

Private Sub Enter_Click()
Nrocanal.Caption = Auxiliar.Caption
Auxiliar.Caption = ""
End Sub

Private Sub Interruptor1_Click()
if Tvctv.Caption = TV
End Sub

Private Sub Masbrillo_Click()
Pantalla.Top = Pantalla.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Tvcatv.Top = Tvcatv.Top + 100
Onoff.Top = Onoff.Top + 100
Panasonic1.Top = Panasonic1.Top + 100
Bajo.Top = Bajo.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
End Sub

Private Sub Mascanal_Click()
If Tvcatv.Caption = "TV" Then
If Nrocanal.Caption < caption =" Nrocanal.Caption" caption =" 0" caption =" Nrocanal.Caption" caption =" 0" left =" Pantalla.Left" left =" Auxiliar.Left" left =" Tvcatv.Left" left =" Onoff.Left" left =" Panasonic1.Left" left =" Bajo.Left" left =" Nrocanal.Left" top =" Pantalla.Top" top =" Auxiliar.Top" top =" Tvcatv.Top" top =" Onoff.Top" top =" Panasonic1.Top" top =" Bajo.Top" top =" Nrocanal.Top"> 0 Then
Nrocanal.Caption = Nrocanal.Caption - 1
Else
Nrocanal.Caption = 130
End If
End Sub

Private Sub Menosvolumen_Click()
Pantalla.Left = Pantalla.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Tvcatv.Left = Tvcatv.Left - 100
Onoff.Left = Onoff.Left - 100
Panasonic1.Left = Panasonic1.Left - 100
Bajo.Left = Bajo.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
End Sub

Private Sub Nueve_Click()
Auxiliar.Caption = Auxiliar.Caption + "9"
End Sub

Private Sub Ocho_Click()
Auxiliar.Caption = Auxiliar.Caption + "8"
End Sub

Private Sub Off_Click()
Nrocanal.Caption = ""
Onoff.BackColor = vbBlack
Tvcatv.Caption = ""
Uno.Enabled = False
Dos.Enabled = False
Tres.Enabled = False
Cuatro.Enabled = False
Cinco.Enabled = False
Seis.Enabled = False
Siete.Enabled = False
Ocho.Enabled = False
Nueve.Enabled = False
Cero.Enabled = False
Tv.Enabled = False
Catv.Enabled = False
Enter.Enabled = False
Off.Enabled = False
Masvolumen.Enabled = False
Masbrillo.Enabled = False
Mascanal.Enabled = False
Menosvolumen.Enabled = False
Menosbrillo.Enabled = False
Menoscanal.Enabled = False
Onn.Enabled = True
Auxiliar.Caption = ""
End Sub

Private Sub Onn_Click()
Nrocanal.Caption = "0"
Onoff.BackColor = vbRed
Tvcatv.Caption = "TV"
Uno.Enabled = True
Dos.Enabled = True
Tres.Enabled = True
Cuatro.Enabled = True
Cinco.Enabled = True
Seis.Enabled = True
Siete.Enabled = True
Ocho.Enabled = True
Nueve.Enabled = True
Cero.Enabled = True
Tv.Enabled = True
Catv.Enabled = True
Enter.Enabled = True
Off.Enabled = True
Masvolumen.Enabled = True
Masbrillo.Enabled = True
Mascanal.Enabled = True
Menosvolumen.Enabled = True
Menosbrillo.Enabled = True
Menoscanal.Enabled = True
Onn.Enabled = False

End Sub

Private Sub Seis_Click()
Auxiliar.Caption = Auxiliar.Caption + "6"
End Sub

Private Sub Siete_Click()
Auxiliar.Caption = Auxiliar.Caption + "7"
End Sub

Private Sub Tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub

Private Sub Tv_Click()
Tvcatv.Caption = "TV"
End Sub

Private Sub Uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

hecho por herno y marcos

Sunday, August 05, 2007

Avances 20/7 (Por Tatu y Tali)

Hasta el dia 20/7 programamos todos los botones, incluidos el de bloquear y desbloquear el control.

Wednesday, August 01, 2007

Avance - (Por Sol y Gasti)

Hasta el día de hoy ya programamos los botones Offon y Catvtv, Canalmas, Canalmenos, junto con Auxcanal, Nrocanal y Enter, según si el Nro marcado es mayor o menor a 13.
El bloqueo o desbloqueo de todos los botones, según si se prende o se apaga (Offon).

Monday, July 23, 2007

avence, ari.t y axel.s

nuestros avances hasta eldia de hoy son:

comand button:
todos los numeros, enter, tv, catv, on, off, brillomas, brillomenos, contrastemas, contrastemenos, volumenmas, volumenmenos, canalmas, canalmenos.

labels:
pantalla, pantalla2, tvcatv, onoff, nrocanal, auxcanal.

Monday, July 09, 2007

Avance del control(por Tatu y Tali)

Hasta el dia 6/7 ya diseñamos todo y programamos todos los botones, los de brillo, contraste, volumen y canal, los de tv/catv y on/off, los numeros y el Enter.

Friday, July 06, 2007

avence, ari.t y axel.s

nuestros avances hasta eldia de hoy son:

comand button:
todos los numeros, enter, tv, catv, on, off, brillomas, brillomenos, contrastemas, contrastemenos, volumenmas, volumenmenos, canalmas, canalmenos.

labels:
pantalla, pantalla2, tvcatv, onoff, nrocanal, auxcanal.

Avance (por Sol y Gasti)

Hasta el día de hoy los botones que ya fueron programados son:
Botontv = TV
Botoncatv = CATV
Botonon = Rojo
Botonoff = Negro
Brillomas = Subir
Brillomenos = Bajar
Contrastemas = Derecha
Contrastemenos = Izquierda
Volumenmas = Ensanchar
Volumenmenos = Angostar
Canalmas = Sube un canal
Canalmenos = Baja un canal
Uno = Auxcanal + "1"
Dos = Auxcanal + "2"
Tres = Auxcanal + "3"
Cuatro = Auxcanal + "4"
Cinco = Auxcanal + "5"
Seis = Auxcanal + "6"
Siete = Auxcanal + "7"
Ocho = Auxcanal + "8"
Nueve = Auxcanal + "9"
Cero = Auxcanal + "0"
Enter = Pasa Nro. de Auxcanal a Nrocanal
Favorito = "7" en Nrocanal

Avance de Mica D. y Mica C

Hasta el día de hoy programamos los botones de brillo, contraste, volumen, canal, los números y el Enter. También programamos el "Aux Canal", tv/catv, on/off, número canal e hicimos que toda la pantalla se mueva al mismo tiempo.

Avance (Por Evelyn y Ariana)

Hasta el dia 6-7 nosotras terminamos el programar los numeros, el enter, el brillo, el canal, el contraste, el volumen, el tv, el catv, el on, el off, el auxcanal y el nrocanal.
Evelyn Szajewicz y Ariana Szmedra