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

Thursday, September 18, 2008

Codigos Visual Basic

Private Sub Apagar_Click()Nrocanal.Caption = ""Ncanal.Caption = ""TVcanal.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseonoff.BackColor = vbBlackonoff.Caption = "Apagado"onoff.ForeColor = vbRedTV.Enabled = FalseCATV.Enabled = FalseEnter.Enabled = FalseCanalmas.Enabled = FalseCanalmenos.Enabled = FalseVolmas.Enabled = FalseVolmenos.Enabled = FalseBrillomas.Enabled = FalseBrillomenos.Enabled = FalseEnd SubPrivate Sub Brillomas_Click()Televisión.Left = Televisión.Left + 100Auxiliar.Left = Auxiliar.Left + 100Base.Left = Base.Left + 100Ncanal.Left = Ncanal.Left + 100Nrocanal.Left = Nrocanal.Left + 100onoff.Left = onoff.Left + 100TVcanal.Left = TVcanal.Left + 100End Sub
Private Sub Brillomenos_Click()Televisión.Left = Televisión.Left - 100Auxiliar.Left = Auxiliar.Left - 100Base.Left = Base.Left - 100Ncanal.Left = Ncanal.Left - 100Nrocanal.Left = Nrocanal.Left - 100onoff.Left = onoff.Left - 100TVcanal.Left = TVcanal.Left - 100End Sub
Private Sub Canalmas_Click()If TVcanal.Caption = "TV canal" ThenIf Ncanal.Caption > 14 ThenNcanal.Caption = Ncanal.Caption + 1Else: Ncanal.Caption = 1End IfElse: Ncanal.Caption = 1End IfEnd Sub
Private Sub Canalmenos_Click()If Ncanal.Caption < 3 ThenIf TVcanal.Caption = "TV Canal" ThenNcanal.Caption = 13Else: Ncanal.Caption = 100End IfElse: Ncanal.Caption = Ncanal.Caption - 1End IfEnd Sub
Private Sub CATV_Click()TVcanal.Caption = "CATV Canal"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 Encender_Click()Nrocanal.Caption = "Numero de Canal"Ncanal.Caption = ""TVcanal.Caption = "TV Canal"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnter.Enabled = Trueonoff.BackColor = vbRedonoff.Caption = "Encendido"onoff.ForeColor = vbBlackTV.Enabled = TrueCATV.Enabled = TrueEnter.Enabled = TrueCanalmas.Enabled = TrueCanalmenos.Enabled = TrueVolmas.Enabled = TrueVolmenos.Enabled = TrueBrillomas.Enabled = TrueBrillomenos.Enabled = TrueEnd Sub
Private Sub Enter_Click()Ncanal.Caption = Auxiliar.CaptionAuxiliar.Caption = ""Nrocanal.Caption = "Numero de Canal:"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 offon_Click()If uno.Enabled = True ThenNrocanal.Caption = ""Ncanal.Caption = ""TVcanal.Caption = ""uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falseonoff.BackColor = vbBlackonoff.Caption = "Apagado"onoff.ForeColor = vbRedTV.Enabled = FalseCATV.Enabled = FalseEnter.Enabled = FalseCanalmas.Enabled = FalseCanalmenos.Enabled = FalseVolmas.Enabled = FalseVolmenos.Enabled = FalseBrillomas.Enabled = FalseBrillomenos.Enabled = FalseTVCATV.Enabled = FalseTelevisión.BackColor = vbBlackElse: Nrocanal.Caption = "Numero de Canal"Ncanal.Caption = ""TVcanal.Caption = "TV Canal"uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = TrueEnter.Enabled = Trueonoff.BackColor = vbRedonoff.Caption = "Encendido"onoff.ForeColor = vbBlackTV.Enabled = TrueCATV.Enabled = TrueEnter.Enabled = TrueCanalmas.Enabled = TrueCanalmenos.Enabled = TrueVolmas.Enabled = TrueVolmenos.Enabled = TrueBrillomas.Enabled = TrueBrillomenos.Enabled = TrueTVCATV.Enabled = TrueTelevisión.BackColor = vbBlueEnd IfEnd 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()TVcanal.Caption = "TV Canal"End Sub
Private Sub TVCATV_Click()If TVcanal.Caption = "TV Canal" ThenTVcanal.Caption = "CATV Canal"Else: TVcanal.Caption = "TV Canal"End IfEnd Sub
Private Sub uno_Click()Auxiliar.Caption = Auxiliar.Caption + "1"End Sub
Private Sub Volmas_Click()Televisión.Top = Televisión.Top + 100Auxiliar.Top = Auxiliar.Top + 100Base.Top = Base.Top + 100Ncanal.Top = Ncanal.Top + 100Nrocanal.Top = Nrocanal.Top + 100onoff.Top = onoff.Top + 100TVcanal.Top = TVcanal.Top + 100End Sub
Private Sub Volmenos_Click()Televisión.Top = Televisión.Top - 100Auxiliar.Top = Auxiliar.Top - 100Base.Top = Base.Top - 100Ncanal.Top = Ncanal.Top - 100Nrocanal.Top = Nrocanal.Top - 100onoff.Top = onoff.Top - 100TVcanal.Top = TVcanal.Top - 100End Sub
Posted by at

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)