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

Codigo de la calculadora (Por Kevin H.)


Private Sub borrar_Click()Visor.Caption = ""aux1.Caption = ""aux2.Caption = ""End Sub
Private Sub cero_Click()Visor.Caption = Visor.Caption + "0"End Sub
Private Sub cinco_Click()Visor.Caption = Visor.Caption + "5"End Sub
Private Sub coma_Click()Visor.Caption = Visor.Caption + "."End Sub
Private Sub cuatro_Click()Visor.Caption = Visor.Caption + "4"End Sub
Private Sub dividir_Click()aux1.Caption = Visor.Captionaux2.Caption = "/"Visor.Caption = ""End Sub
Private Sub dos_Click()Visor.Caption = Visor.Caption + "2"End Sub
Private Sub igual_Click()If aux2.Caption = "+" ThenVisor.Caption = Val(aux1.Caption) + Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "-" ThenVisor.Caption = Val(aux1.Caption) - Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "/" ThenVisor.Caption = Val(aux1.Caption) / Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfIf aux2.Caption = "*" ThenVisor.Caption = Val(aux1.Caption) * Val(Visor.Caption)aux1.Caption = ""aux2.Caption = ""End IfEnd Sub
Private Sub mas_Click()aux1.Caption = Visor.Captionaux2.Caption = "+"Visor.Caption = ""End Sub
Private Sub menos_Click()aux1.Caption = Visor.Captionaux2.Caption = "-"Visor.Caption = ""End Sub
Private Sub multiplicar_Click()aux1.Caption = Visor.Captionaux2.Caption = "*"Visor.Caption = ""End Sub
Private Sub nueve_Click()Visor.Caption = Visor.Caption + "9"End Sub
Private Sub ocho_Click()Visor.Caption = Visor.Caption + "8"End Sub
Private Sub seis_Click()Visor.Caption = Visor.Caption + "6"End Sub
Private Sub siete_Click()Visor.Caption = Visor.Caption + "7"End Sub
Private Sub tres_Click()Visor.Caption = Visor.Caption + "3"End Sub
Private Sub uno_Click()Visor.Caption = Visor.Caption + "1"End Sub
Posted by at
Labels: ,

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)