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 1 (por Daniel)



Private Sub catv_Click()
TVCATV.Caption = "CATV"
End Sub

Private Sub cero_Click()
nrocanal.Caption = "0"
auxiliar.Caption = auxiliar.Caption + "0"
End Sub

Private Sub cinco_Click()
nrocanal.Caption = "5"
auxiliar.Caption = auxiliar.Caption + "5"
End Sub

Private Sub Command1_Click()

End Sub

Private Sub cuatro_Click()
nrocanal.Caption = "4"
auxiliar.Caption = auxiliar.Caption + "4"
End Sub

Private Sub dos_Click()
nrocanal.Caption = "2"
auxiliar.Caption = auxiliar.Caption + "2"
End Sub

Private Sub enter_Click()
nrocanal.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub masbrillo_Click()
pantalla.Top = pantalla.Top + 100
pantallita.Top = pantallita.Top + 100
auxiliar.Top = auxiliar.Top + 100
End Sub

Private Sub mascanal_Click()
If nrocanal.Caption < 129 Then
nrocanal.Caption = nrocanal.Caption + 1
Else
nrocanal.Caption = 0
End If
End Sub

Private Sub masvolumen_Click()
pantalla.Left = pantalla.Left + 50
End Sub

Private Sub menosbrillo_Click()
pantalla.Top = pantalla.Top - 100
pantallita.Top = pantallita.Top - 100
auxiliar.Top = auxiliar.Top - 100
End Sub

No comments: