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 17, 2008

TRABAJO DE VISUAL BASIC POR MARCOS

Private Sub Apagar_Click()
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
End Sub
Private Sub Brillomas_Click()
Televisión.Left = Televisión.Left + 100
Auxiliar.Left = Auxiliar.Left + 100
Base.Left = Base.Left + 100
Ncanal.Left = Ncanal.Left + 100
Nrocanal.Left = Nrocanal.Left + 100
onoff.Left = onoff.Left + 100
TVcanal.Left = TVcanal.Left + 100
End Sub

Private Sub Brillomenos_Click()
Televisión.Left = Televisión.Left - 100
Auxiliar.Left = Auxiliar.Left - 100
Base.Left = Base.Left - 100
Ncanal.Left = Ncanal.Left - 100
Nrocanal.Left = Nrocanal.Left - 100
onoff.Left = onoff.Left - 100
TVcanal.Left = TVcanal.Left - 100
End Sub

Private Sub Canalmas_Click()
If Ncanal.Caption < caption =" Ncanal.Caption" caption =" 1"> 1 Then
Ncanal.Caption = Ncanal.Caption - 1
Else: Ncanal.Caption = 100
End If
End 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 = 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
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
End Sub

Private Sub Enter_Click()
Ncanal.Caption = Auxiliar.Caption
Auxiliar.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 Then
Nrocanal.Caption = ""
Ncanal.Caption = ""
TVcanal.Caption = ""
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
onoff.BackColor = vbBlack
onoff.Caption = "Apagado"
onoff.ForeColor = vbRed
TV.Enabled = False
CATV.Enabled = False
Enter.Enabled = False
Canalmas.Enabled = False
Canalmenos.Enabled = False
Volmas.Enabled = False
Volmenos.Enabled = False
Brillomas.Enabled = False
Brillomenos.Enabled = False
TVCATV.Enabled = False
Else: Nrocanal.Caption = "Numero de Canal"
Ncanal.Caption = ""
TVcanal.Caption = "TV Canal"
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
Enter.Enabled = True
onoff.BackColor = vbRed
onoff.Caption = "Encendido"
onoff.ForeColor = vbBlack
TV.Enabled = True
CATV.Enabled = True
Enter.Enabled = True
Canalmas.Enabled = True
Canalmenos.Enabled = True
Volmas.Enabled = True
Volmenos.Enabled = True
Brillomas.Enabled = True
Brillomenos.Enabled = True
TVCATV.Enabled = True
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 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" Then
TVcanal.Caption = "CATV Canal"
Else: TVcanal.Caption = "TV Canal"
End If
End Sub

Private Sub uno_Click()
Auxiliar.Caption = Auxiliar.Caption + "1"
End Sub

Private Sub Volmas_Click()
Televisión.Top = Televisión.Top + 100
Auxiliar.Top = Auxiliar.Top + 100
Base.Top = Base.Top + 100
Ncanal.Top = Ncanal.Top + 100
Nrocanal.Top = Nrocanal.Top + 100
onoff.Top = onoff.Top + 100
TVcanal.Top = TVcanal.Top + 100
End Sub

Private Sub Volmenos_Click()
Televisión.Top = Televisión.Top - 100
Auxiliar.Top = Auxiliar.Top - 100
Base.Top = Base.Top - 100
Ncanal.Top = Ncanal.Top - 100
Nrocanal.Top = Nrocanal.Top - 100
onoff.Top = onoff.Top - 100
TVcanal.Top = TVcanal.Top - 100
End Sub

QUERIA AGRADECER A KEVIN HERZOG POR AYUDARME EN ESTE TRABAJO Y EXPLICARME COMO LO HIZO Y ESAS COSAS.....GRACIAS KEVIN!

No comments: