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)

Wednesday, October 08, 2008

Calculadora (por Pau)



Private Sub c_Click()
visor.Text = ""
punto.Enabled = True
End Sub

Private Sub cero_Click()
visor.Text = visor.Text + "0"
End Sub

Private Sub cinco_Click()
visor.Text = visor.Text + "5"
End Sub

Private Sub Command2_Click()

End Sub

Private Sub cuatro_Click()
visor.Text = visor.Text + "4"
End Sub

Private Sub div_Click()
punto.Enabled = True
If visor.Text = "0" Then
visor.Text = "Error: división por cero"
Else
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "/"
End If
End Sub

Private Sub dos_Click()
visor.Text = visor.Text + "2"
End Sub

Private Sub igual_Click()
If aux1.Caption = "+" Then
visor.Text = Val(aux.Caption) + Val(visor.Text)
aux1.Caption = ""
End If
If aux1.Caption = "-" Then
visor.Text = Val(aux.Caption) - Val(visor.Text)
End If
If aux1.Caption = "x" Then
visor.Text = Val(aux.Caption) * Val(visor.Text)
End If
If aux1.Caption = "%" Then
visor.Text = 100 * Val(aux.Caption) / Val(visor.Text)
End If
If aux1.Caption = "/" And visor.Text = "0" Then
visor.Text = "Error: división por cero"
Else
If aux1.Caption = "/" Then
visor.Text = Val(aux.Caption) / Val(visor.Text)
End If
End If

End Sub

Private Sub mas_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "+"
punto.Enabled = True
End Sub

Private Sub maso_Click()
visor.Text = Val(visor.Text) * -1
End Sub

Private Sub menos_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "-"
punto.Enabled = True
End Sub

Private Sub nueve_Click()
visor.Text = visor.Text + "9"
End Sub

Private Sub ocho_Click()
visor.Text = visor.Text + "8"
End Sub

Private Sub por_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "x"
punto.Enabled = True
End Sub

Private Sub porcentaje_Click()
aux.Caption = visor.Text
visor.Text = ""
aux1.Caption = "%"
punto.Enabled = True
End Sub

Private Sub punto_Click()
visor.Text = visor.Text + "."
punto.Enabled = False
End Sub

Private Sub raiz_Click()
If visor.Text = "0" Then
visor.Text = "Error: raíz cudrada de cero"
Else
visor.Text = Sqr(visor.Text)
End If
End Sub

Private Sub seis_Click()
visor.Text = visor.Text + "6"
End Sub

Private Sub siete_Click()
visor.Text = visor.Text + "7"
End Sub

Private Sub tres_Click()
visor.Text = visor.Text + "3"
End Sub

Private Sub uno_Click()
visor.Text = visor.Text + "1"
End Sub

Private Sub unodivx_Click()
visor.Text = 1 / Val(visor.Text)
End Sub

No comments: