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, September 05, 2008

Visual Basic (por alan)

Private Sub Label1_Click()

End Sub

Private Sub CATV_Click()
tvcatv.Caption = "CATV"
End Sub

Private Sub catvtv_Click()
Numerocanal.Caption = "0"
If tvcatv.Caption = "TV" Then
tvcatv.Caption = "CATV"
Else
tvcatv.Caption = "TV"
End If
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()
If tvcatv.Caption = "TV" Then
If Auxiliar.Caption < caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption = "CATV" caption =" Auxiliar.Caption" caption = "" caption =" 0" caption = "" caption =" Numerocanal.Caption" caption = "TV" caption =" 0" caption =" 0" top =" Pantalla.Top" left =" Pantalla.Left"> 0 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
If tvcatv.Caption = "CATV" Then
Numerocanal.Caption = 129
Else
Numerocanal.Caption = 13
End If
End If
End Sub

Private Sub menos1_Click()
Pantalla.Top = Pantalla.Top - 100
End Sub

Private Sub menos2_Click()
Pantalla.Left = Pantalla.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()
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False

End Sub

Private Sub offon_Click()
If onoff.BackColor = vbRed Then
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
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
Auxiliar.Caption = ""
mas.Enabled = False
mas1.Enabled = False
mas2.Enabled = False
menos1.Enabled = False
menos.Enabled = False
menos2.Enabled = False
catvtv.Enabled = False
Else
Numerocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.Enabled = True

End If

End Sub

Private Sub On_Click()
Numerocanal.Caption = "0"
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
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
mas.Enabled = True
mas1.Enabled = True
mas2.Enabled = True
menos1.Enabled = True
menos.Enabled = True
menos2.Enabled = True
catvtv.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: