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)

Saturday, August 30, 2008

Visual Basic (por ariel m)


Private Sub Encendido_Click()

End Sub

Private Sub boton0_Click()

nrocanal.Caption = "0"

End Sub

Private Sub boton1_Click()

auxiliar.Caption = auxiliar.Caption + "1"

End Sub

Private Sub boton2_Click()

auxiliar.Caption = auxiliar.Caption + "2"

End Sub

Private Sub Command8_Click()

End Sub

Private Sub Command9_Click()

End Sub

Private Sub Command10_Click()

End Sub

Private Sub boton3_Click()

auxiliar.Caption = auxiliar.Caption + "3"

End Sub

Private Sub boton4_Click()

auxiliar.Caption = auxiliar.Caption + "4"

End Sub

Private Sub boton5_Click()

auxiliar.Caption = auxiliar.Caption + "5"

End Sub

Private Sub boton6_Click()

auxiliar.Caption = auxiliar.Caption + "6"

End Sub

Private Sub boton7_Click()

auxiliar.Caption = auxiliar.Caption + "7"

End Sub

Private Sub boton8_Click()

auxiliar.Caption = auxiliar.Caption + "8"

End Sub

Private Sub boton9_Click()

auxiliar.Caption = auxiliar.Caption + "9"

End Sub

Private Sub brillomas_Click()

Monitor.Top = Monitor.Top + 100

End Sub

Private Sub brillomenos_Click()

Monitor.Top = Monitor.Top - 100

End Sub

Private Sub canalmas_Click()

If nrocanal.Caption <>

nrocanal.Caption = nrocanal.Caption + 1

Else

nrocanal.Caption = 129

End If

End Sub

Private Sub canalmenos_Click()

If nrocanal.Caption > 0 Then

nrocanal.Caption = nrocanal.Caption - 1

Else

nrocanal.Caption = 129

End If

End Sub

Private Sub enter_Click()

nrocanal.Caption = auxiliar.Caption

auxiliar.Caption = ""

End Sub

Private Sub off_Click()

nrocanal.Caption = ""

tvcatv.Caption = "tv"

botonencendido.BackColor = vbBlue

boton1.Enabled = False

boton2.Enabled = False

boton3.Enabled = False

boton4.Enabled = False

boton5.Enabled = False

boton6.Enabled = False

boton7.Enabled = False

boton8.Enabled = False

boton9.Enabled = False

boton0.Enabled = False

enter.Enabled = False

brillo.Enabled = False

End Sub

Private Sub on_Click()

nrocanal.Caption = "0"

tvcatv.Caption = "tv"

botonencendido.BackColor = vbRed

boton1.Enabled = True

boton2.Enabled = True

boton3.Enabled = True

boton4.Enabled = True

boton5.Enabled = True

boton6.Enabled = True

boton7.Enabled = True

boton8.Enabled = True

boton9.Enabled = True

boton0.Enabled = True

enter.Enabled = True

brillo.Enabled = True

End Sub

No comments: