Tareas

Tareas 3/7 - a. Realizar la recopilación de noticias de la semana. b. Tarea para realizar durante la clase del 3/7. Incluyendo 4 objetos (uno de ellos una imagen importada), realizar una animación en Flash de 20 segundos (circular) que incluya: 1. Una deformación 2. Desaparición y reaparición 3. Cambios de colores La imagen importada debe ser un logo conocido (de un equipo, un canal, una marca, etc.) y las animaciones deben resaltar el logo. Publicar el swf en los dos blogs, y en el campus (en la tarea destinada al respecto). Se puede trabajar de a dos, pero la publicación es individual, como siempre. Título: Animación, logo Tags: animación, logo, nombre Fecha de destacado: hasta el 30-7 (Para el campus) Guille

Wednesday, September 10, 2008

Visual Basic, Codigos (Por Denu)

Private Sub brillomas_Click()
TV.Left = TV.Left + 100
End Sub
Private Sub brillomenos_Click()
TV.Left = TV.Left - 100
End Sub
Private Sub canalmas_Click()
If Numerocanal.Caption < 120 Then
Numerocanal.Caption = Numerocanal.Caption + 1
Else
Numerocanal.Caption = 1
End If
End Sub
Private Sub canalmenos_Click()
If Numerocanal.Caption > 1 Then
Numerocanal.Caption = Numerocanal.Caption - 1
Else
Numerocanal.Caption = 120
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 Label1_Click()
End Sub
Private Sub enter_Click()
Auxiliar.Caption = Auxiliar.Caption
Numerocanal = ""
Numerocanal.Caption = Auxiliar.Caption
Auxiliar = ""
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Auxiliar.Caption = ""

End Sub
Private Sub on_Click()
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
End Sub
Private Sub onoff1_Click()
If uno.Enabled = False Then
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
catv.Enabled = True
enter.Enabled = True
tv1.Enabled = True
tvcatv.Caption = "TV"
onoff.BackColor = vbRed
Else
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
tv1.Enabled = False
enter.Enabled = False
catv.Enabled = False
Numerocanal.Caption = ""
tvcatv.Caption = ""
onoff.BackColor = vbBlack
End If

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 sonidomas_Click()
TV.Top = TV.Top + 100
Auxiliar.Top = Auxiliar.Top + 100

End Sub
Private Sub sonidomenos_Click()
TV.Top = TV.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
End Sub
Private Sub tres_Click()
Auxiliar.Caption = Auxiliar.Caption + "3"
End Sub
Private Sub tvcatv1_Click()
End Sub
Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub
Private Sub VScroll1_Change()
End Sub

No comments: