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)

Friday, August 29, 2008

Visual Basic (por Bri)

Private Sub CATV_Click()TVCATV.Caption = "CATV"End Sub
Private Sub cero_Click()auxiliar.Caption = auxiliar.Caption + "0"End Sub
Private Sub cinco_Click()auxiliar.Caption = auxiliar.Caption + "5"End Sub
Private Sub cuatro_Click()auxiliar.Caption = auxiliar.Caption + "4"End Sub
Private Sub dos_Click()auxiliar.Caption = auxiliar.Caption + "2"End Sub
Private Sub ENTER_Click()NUMEROCANAL.Caption = auxiliar.Captionauxiliar.Caption = ""End Sub
Private Sub masbrillo_Click()Pantalla.Top = Pantalla.Top + 100End Sub
Private Sub mascanal_Click()If NUMEROCANAL.Caption < caption =" NUMEROCANAL.Caption" caption =" 0End" left =" Pantalla.Left" top =" Pantalla.Top"> 0 ThenNUMEROCANAL.Caption = NUMEROCANAL.Caption - 1ElseNUMEROCANAL.Caption = 129End IfEnd Sub
Private Sub menosvolumen_Click()Pantalla.Left = Pantalla.Left - 100End 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()auxiliar.Caption = ""NUMEROCANAL.Caption = ""TVCATV.Caption = ""ONOFF.BackColor = vbBlackuno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = FalseTV.Enabled = FalseCATV.Enabled = FalseEnd Sub
Private Sub ON_Click()NUMEROCANAL.Caption = "0"TVCATV.Caption = "TV"ONOFF.BackColor = vbReduno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueTV.Enabled = TrueCATV.Enabled = True
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

No comments: