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

Calculadora 2 (por Daniel)


Private Sub borrar_Click()
pantalla.Caption = ""
Auxiliar.Caption = ""
aux2.Caption = ""
End Sub

Private Sub cero_Click()
pantalla.Caption = pantalla.Caption + "0"
End Sub

Private Sub cinco_Click()
pantalla.Caption = pantalla.Caption + "5"
End Sub

Private Sub coma_Click()
pantalla.Caption = pantalla.Caption + "."
End Sub

Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub

Private Sub dividido_Click()
aux2.Caption = "/"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(Auxiliar.Caption) + Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "-" Then
pantalla.Caption = Val(Auxiliar.Caption) - Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "*" Then
pantalla.Caption = Val(Auxiliar.Caption) * Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "/" Then
pantalla.Caption = Val(Auxiliar.Caption) / Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
Else
If aux2.Caption = "%" Then
pantalla.Caption = Val(Auxiliar.Caption) * 100 / Val(pantalla.Caption)
Auxiliar.Caption = ""
aux2.Caption = ""
End If
End If
End If
End If
End If
End Sub

Private Sub mas_Click()
aux2.Caption = "+"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
aux2.Caption = "-"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub nueve_Click()
pantalla.Caption = pantalla.Caption + "9"
End Sub

Private Sub ocho_Click()
pantalla.Caption = pantalla.Caption + "8"
End Sub

Private Sub por_Click()
aux2.Caption = "*"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub porc_Click()
aux2.Caption = "%"
Auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub seis_Click()
pantalla.Caption = pantalla.Caption + "6"
End Sub

Private Sub siete_Click()
pantalla.Caption = pantalla.Caption + "7"
End Sub

Private Sub tres_Click()
pantalla.Caption = pantalla.Caption + "3"
End Sub

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

No comments: