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)
Showing posts with label calculadora. Show all posts
Showing posts with label calculadora. Show all posts

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

Posted by at No comments:
Labels: ,

Tuesday, October 07, 2008

Calculadora 3 (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.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 + "."
coma.Enabled = False
End Sub
Private Sub cuatro_Click()
pantalla.Caption = pantalla.Caption + "4"
End Sub
Private Sub dividido_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "/"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub
Private Sub igual_Click()
If aux2.Caption = "+" Then
pantalla.Caption = Val(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
coma.Enabled = True
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
coma.Enabled = True
End Sub
Private Sub masmenos_Click()
pantalla.Caption = pantalla.Caption * -1
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.Caption = "-"
pantalla.Caption = ""
coma.Enabled = True
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()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
coma.Enabled = True
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
If Val(pantalla.Caption) > -1 Then
pantalla.Caption = Sqr(pantalla.Caption)
Else
pantalla.Caption = "error"
End If
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
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub
Posted by at No comments:
Labels: ,

Calculadora 2 (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.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()
aux.Caption = pantalla.Caption
aux2.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(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
If aux2.Caption = "%" Then
pantalla.Caption = Val(aux.Caption) * 100 / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
aux2.Caption = "+"
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.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()
aux.Caption = pantalla.Caption
aux2.Caption = "*"
pantalla.Caption = ""
End Sub
Private Sub porcentaje_Click()
aux.Caption = pantalla.Caption
aux2 = "%"
pantalla.Caption = ""
End Sub
Private Sub raiz_Click()
pantalla.Caption = Sqr(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
Private Sub unodividido_Click()
pantalla.Caption = 1 / Val(pantalla.Caption)
End Sub
Posted by at No comments:
Labels: ,

Friday, October 03, 2008

calculadora (por cami)

Private Sub C_Click()
auxiliar.Caption = ""
aux2.Caption = ""
aux.Caption = ""
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 coma_Click()
auxiliar.Caption = auxiliar.Caption + ","
End Sub
Private Sub Command_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
aux.Caption = Command.Caption
End Sub
Private Sub cuatro_Click()
auxiliar.Caption = auxiliar.Caption + "4"
End Sub
Private Sub dividir_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "/"
auxiliar.Caption = ""
End Sub
Private Sub dos_Click()
auxiliar.Caption = auxiliar.Caption + "2"
End Sub
Private Sub igual_Click()
If aux.Caption = "+" Then
auxilar.Caption = Val(aux2.Caption) + Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "-" Then
auxilar.Caption = Val(aux2.Caption) - Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "/" Then
auxilar.Caption = Val(aux2.Caption) / Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "*" Then
auxilar.Caption = Val(aux2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""
aux.Caption = ""
End If
If aux.Caption = "%" Then
auxiliar.Caption = Val(auxiliar.Caption) / Val(aux.Caption)
End If
auxiliar.Caption = ""
End Sub
Private Sub mas_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "+"
auxiliar.Caption = ""
End Sub
Private Sub menos_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "--"
auxiliar.Caption = ""
End Sub

Private Sub mult_Click()
aux2.Caption = auxiliar.Caption
aux.Caption = "x"
auxiliar.Caption = ""
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 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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub
Posted by at No comments:
Labels: ,

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
Posted by at No comments:
Labels: , ,

Thursday, October 02, 2008

Calculadora 2 (por Anita)


Private Sub C_Click()
pantalla.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()
auxiliar2.Caption = dividido.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 auxiliar2.Caption = "+" Then
pantalla.Caption = Val(auxiliar.Caption) + Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
pantalla.Caption = Val(auxiliar.Caption) - Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "x" Then
pantalla.Caption = Val(auxiliar.Caption) * Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
pantalla.Caption = Val(auxiliar.Caption) / Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "%" Then
pantalla.Caption = Val(pantalla.Caption) / Val(auxiliar.Caption)
End If
auxiliar2.Caption = ""

End Sub

Private Sub mas_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub menos_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = menos.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()
auxiliar2.Caption = por.Caption
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub

Private Sub porcentaje_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = porcentaje.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
Posted by at No comments:
Labels: ,

Saturday, September 27, 2008

Calculadora 2 (por Lau)


Private Sub C_Click()
Visor.Text = "0"
auxiliar.Caption = "0"
operacion.Caption = ""
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 cuatro_Click()
Visor.Text = Visor.Text + "4"
End Sub
Private Sub division_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "/"
End Sub
Private Sub dos_Click()
Visor.Text = Visor.Text + "2"
End Sub
Private Sub igual_Click()
If operacion.Caption = "+" Then
Visor.Text = Val(auxiliar.Caption) + Val(Visor.Text)
End If
If operacion.Caption = "-" Then
Visor.Text = Val(auxiliar.Caption) - Val(Visor.Text)
End If
If operacion.Caption = "*" Then
Visor.Text = Val(auxiliar.Caption) * Val(Visor.Text)
End If
If operacion.Caption = "/" Then
Visor.Text = Val(auxiliar.Caption) / Val(Visor.Text)
End If
auxiliar.Caption = "0"
operacion.Caption = ""
End Sub
Private Sub multiplicacion_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "*"
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 OFF_Click()
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
suma.Enabled = False
resta.Enabled = False
multiplicacion.Enabled = False
division.Enabled = False
OFF.Enabled = False
C.Enabled = False
igual.Enabled = False
punto.Enabled = False
Visor.Text = ""
End Sub
Private Sub ON_Click()
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
suma.Enabled = True
resta.Enabled = True
multiplicacion.Enabled = True
division.Enabled = True
OFF.Enabled = True
C.Enabled = True
igual.Enabled = True
punto.Enabled = True
Visor.Text = "0"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = "%"
auxiliar.Caption = Visor.Text
Visor.Text = ""
End Sub
Private Sub punto_Click()
Visor.Text = Visor.Text + "."
End Sub
Private Sub resta_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "-"
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 suma_Click()
auxiliar.Caption = Visor.Text
Visor.Text = "0"
operacion.Caption = "+"
End Sub
Private Sub tres_Click()
Visor.Text = Visor.Text + "3"
End Sub
Private Sub uno_Click()
Visor.Text = Visor.Text + "1"
End Sub
Posted by at No comments:
Labels: ,

Friday, September 26, 2008

Calculadora 2 (por Galu)

Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub coma_Click()
cuenta.Caption = cuenta.Caption + "."
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dividir_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "/"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "/" Then
cuenta.Caption = Val(auxiliar.Caption) / Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "%" Then
cuenta.Caption = 100 * auxiliar.Caption / cuenta.Caption
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub porcentaje_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "%"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sqrt_Click()
cuenta.Caption = ""
cuenta.Caption = Sqr(cuenta.Caption)
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub
Posted by at No comments:
Labels: ,

Calculadora (por Galu)



Private Sub borrar_Click()
cuenta.Caption = ""
auxiliar.Caption = ""
auxiliar2.Caption = ""
End Sub
Private Sub cero_Click()
cuenta.Caption = cuenta.Caption + "0"
End Sub
Private Sub cinco_Click()
cuenta.Caption = cuenta.Caption + "5"
End Sub
Private Sub cuatro_Click()
cuenta.Caption = cuenta.Caption + "4"
End Sub
Private Sub dos_Click()
cuenta.Caption = cuenta.Caption + "2"
End Sub
Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
cuenta.Caption = Val(auxiliar.Caption) + Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "-" Then
cuenta.Caption = Val(auxiliar.Caption) - Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
If auxiliar2.Caption = "*" Then
cuenta.Caption = Val(auxiliar.Caption) * Val(cuenta.Caption)
auxiliar.Caption = ""
auxiliar2.Caption = ""
End If
End Sub
Private Sub multiplicar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "*"
End Sub
Private Sub nueve_Click()
cuenta.Caption = cuenta.Caption + "9"
End Sub
Private Sub ocho_Click()
cuenta.Caption = cuenta.Caption + "8"
End Sub
Private Sub restar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "-"
End Sub
Private Sub seis_Click()
cuenta.Caption = cuenta.Caption + "6"
End Sub
Private Sub siete_Click()
cuenta.Caption = cuenta.Caption + "7"
End Sub
Private Sub sumar_Click()
auxiliar.Caption = cuenta.Caption
cuenta.Caption = ""
auxiliar2.Caption = "+"
End Sub
Private Sub tres_Click()
cuenta.Caption = cuenta.Caption + "3"
End Sub
Private Sub uno_Click()
cuenta.Caption = cuenta.Caption + "1"
End Sub
Posted by at No comments:
Labels: ,

Thursday, September 25, 2008

Calculadora (por alan)




Private Sub Borrar_Click()
Numeros.Caption = "0"
End Sub

Private Sub Command10_Click()
Numeros.Caption = ""

Private Sub cero_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "0"
Else
Numeros.Caption = Numeros.Caption + "0"
End If
End Sub

Private Sub cinco_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "5"
Else
Numeros.Caption = Numeros.Caption + "5"
End If
End Sub

Private Sub cuatro_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "4"
Else
Numeros.Caption = Numeros.Caption + "4"
End If
End Sub

Private Sub dos_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "2"
Else
Numeros.Caption = Numeros.Caption + "2"
End If
End Sub

Private Sub Igual_Click()
If Auxiliar.Caption = Numeros.Caption Then
Numeros.Caption = Val(Auxiliar.Caption) + Val(Numeros.Caption)
Auxiliar.Caption = ""
Else
Numeros.Caption = Val(Auxiliar2.Caption) - Val(Numeros.Caption)
Auxiliar2.Caption = ""
End If
End Sub

Private Sub nueve_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "9"
Else
Numeros.Caption = Numeros.Caption + "9"
End If
End Sub

Private Sub ocho_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "8"
Else
Numeros.Caption = Numeros.Caption + "8"
End If
End Sub

Private Sub restar_Click()
Auxiliar2.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub seis_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "6"
Else
Numeros.Caption = Numeros.Caption + "6"
End If
End Sub

Private Sub siete_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "7"
Else
Numeros.Caption = Numeros.Caption + "7"
End If
End Sub

Private Sub sumar_Click()
Auxiliar.Caption = Numeros.Caption
Numeros.Caption = "0"
End Sub

Private Sub tres_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "3"
Else
Numeros.Caption = Numeros.Caption + "3"
End If
End Sub

Private Sub uno_Click()
If Numeros.Caption = 0 Then
Numeros.Caption = ""
Numeros.Caption = "1"
Else
Numeros.Caption = Numeros.Caption + "1"
End If
End Sub
Posted by at No comments:
Labels: ,

Calculadora (por Anita)


Private Sub C_Click()
pantalla.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()
auxiliar2.Caption = dividido.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 auxiliar2.Caption = "+" Then
pantalla.Caption = Val(auxiliar.Caption) + Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
pantalla.Caption = Val(auxiliar.Caption) - Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "x" Then
pantalla.Caption = Val(auxiliar.Caption) * Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
pantalla.Caption = Val(auxiliar.Caption) / Val(pantalla.Caption)
auxiliar.Caption = ""
End If
auxiliar2.Caption = ""

End Sub

Private Sub mas_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub menos_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = menos.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()
auxiliar2.Caption = por.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
Posted by at No comments:
Labels: ,

calculadora (por marto)

Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.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()
aux.Caption = pantalla.Caption
aux2.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(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.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()
aux.Caption = pantalla.Caption
aux2.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
Posted by at No comments:
Labels: , ,

Calculadora (por cami)


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 igual_Click()
auxilar.Caption = Val(aux2.Caption) + Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) - Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) / Val(auxiliar.Caption)
aux2.Caption = ""
auxilar.Caption = Val(aux2.Caption) * Val(auxiliar.Caption)
aux2.Caption = ""

End Sub

Private Sub mas_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
End Sub

Private Sub menos_Click()
aux2.Caption = auxiliar.Caption
auxiliar.Caption = ""
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 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 uno_Click()
auxiliar.Caption = auxiliar.Caption + "1"
End Sub
Posted by at No comments:
Labels: ,

Monday, September 22, 2008

Calculadora (por Ari y Iaru)














Private Sub borrar_Click()
barra.Caption = ""
End Sub

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

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

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

Private Sub dividido_Click()

End Sub

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

Private Sub igual_Click()
If auxiliar2.Caption = "+" Then
barra.Caption = Val(auxiliar.Caption) + Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) - Val(barra.Caption)
End If
If auxiliar2.Caption = "/" Then
barra.Caption = Val(auxiliar.Caption) / Val(barra.Caption)
Else
barra.Caption = Val(auxiliar.Caption) * Val(barra.Caption)
End If
End Sub

Private Sub mas_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

Private Sub menos_Click()
auxiliar.Caption = barra.Caption
barra.Caption = ""
End Sub

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

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

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

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

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

Private Sub uno_Click()
barra.Caption = barra.Caption + "1"
End Sub
Posted by at No comments:
Labels: , ,

Sunday, September 21, 2008

Calculadora (Por Maga)

Esta es la calculadora:




Private Sub C_Click()
pantalla.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()
auxiliar2.Caption = dividido.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 auxiliar2.Caption = "+" Then
pantalla.Caption = Val(auxiliar.Caption) + Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "-" Then
pantalla.Caption = Val(auxiliar.Caption) - Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "x" Then
pantalla.Caption = Val(auxiliar.Caption) * Val(pantalla.Caption)
auxiliar.Caption = ""
End If
If auxiliar2.Caption = "/" Then
pantalla.Caption = Val(auxiliar.Caption) / Val(pantalla.Caption)
auxiliar.Caption = ""
End If
auxiliar2.Caption = ""

End Sub

Private Sub mas_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = mas.Caption
End Sub

Private Sub menos_Click()
auxiliar.Caption = pantalla.Caption
pantalla.Caption = ""
auxiliar2.Caption = menos.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()
auxiliar2.Caption = por.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
Posted by at No comments:
Labels: ,

Friday, September 19, 2008

Calculadora (por Lula)



Private Sub Borrrar_Click()
pantalla.Caption = ""
aux.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()
aux.Caption = pantalla.Caption
aux2.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(aux.Caption) + Val(pantalla.Caption)
End If
If aux2.Caption = "-" Then
pantalla.Caption = Val(aux.Caption) - Val(pantalla.Caption)
End If
If aux2.Caption = "*" Then
pantalla.Caption = Val(aux.Caption) * Val(pantalla.Caption)
End If
If aux2.Caption = "/" Then
pantalla.Caption = Val(aux.Caption) / Val(pantalla.Caption)
End If
aux.Caption = ""
aux2.Caption = ""
End Sub
Private Sub mas_Click()
aux.Caption = pantalla.Caption
pantalla.Caption = ""
End Sub
Private Sub menos_Click()
aux.Caption = pantalla.Caption
aux2.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()
aux.Caption = pantalla.Caption
aux2.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
Posted by at No comments:
Labels: ,

Calculadora (por Lau)


Private Sub C_Click()Visor.Text = "0"auxiliar.Caption = "0"operacion.Caption = ""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 cuatro_Click()Visor.Text = Visor.Text + "4"End Sub
Private Sub division_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "/"End Sub
Private Sub dos_Click()Visor.Text = Visor.Text + "2"End Sub
Private Sub igual_Click()If operacion.Caption = "+" ThenVisor.Text = Val(auxiliar.Caption) + Val(Visor.Text)End IfIf operacion.Caption = "-" ThenVisor.Text = Val(auxiliar.Caption) - Val(Visor.Text)End IfIf operacion.Caption = "*" ThenVisor.Text = Val(auxiliar.Caption) * Val(Visor.Text)End IfIf operacion.Caption = "/" ThenVisor.Text = Val(auxiliar.Caption) / Val(Visor.Text)End Ifauxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub multiplicacion_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "*"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 OFF_Click()uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falsesuma.Enabled = Falseresta.Enabled = Falsemultiplicacion.Enabled = Falsedivision.Enabled = FalseOFF.Enabled = FalseC.Enabled = Falseigual.Enabled = FalseVisor.Text = ""End Sub
Private Sub ON_Click()uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Truesuma.Enabled = Trueresta.Enabled = Truemultiplicacion.Enabled = Truedivision.Enabled = TrueOFF.Enabled = TrueC.Enabled = Trueigual.Enabled = TrueVisor.Text = "0"End Sub
Private Sub resta_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "-"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 suma_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "+"End Sub
Private Sub tres_Click()Visor.Text = Visor.Text + "3"End Sub
Private Sub uno_Click()Visor.Text = Visor.Text + "1"
End Sub
Posted by at No comments:
Labels: ,

Calculadora (por Bri)


Private Sub C_Click()Visor.Text = "0"auxiliar.Caption = "0"operacion.Caption = ""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 cuatro_Click()Visor.Text = Visor.Text + "4"End Sub
Private Sub division_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "/"End Sub
Private Sub dos_Click()Visor.Text = Visor.Text + "2"End Sub
Private Sub igual_Click()If operacion.Caption = "+" ThenVisor.Text = Val(auxiliar.Caption) + Val(Visor.Text)End IfIf operacion.Caption = "-" ThenVisor.Text = Val(auxiliar.Caption) - Val(Visor.Text)End IfIf operacion.Caption = "*" ThenVisor.Text = Val(auxiliar.Caption) * Val(Visor.Text)End IfIf operacion.Caption = "/" ThenVisor.Text = Val(auxiliar.Caption) / Val(Visor.Text)End Ifauxiliar.Caption = "0"operacion.Caption = ""End Sub
Private Sub multiplicacion_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "*"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 OFF_Click()uno.Enabled = Falsedos.Enabled = Falsetres.Enabled = Falsecuatro.Enabled = Falsecinco.Enabled = Falseseis.Enabled = Falsesiete.Enabled = Falseocho.Enabled = Falsenueve.Enabled = Falsecero.Enabled = Falsesuma.Enabled = Falseresta.Enabled = Falsemultiplicacion.Enabled = Falsedivision.Enabled = FalseOFF.Enabled = FalseC.Enabled = Falseigual.Enabled = FalseVisor.Text = ""End Sub
Private Sub ON_Click()uno.Enabled = Truedos.Enabled = Truetres.Enabled = Truecuatro.Enabled = Truecinco.Enabled = Trueseis.Enabled = Truesiete.Enabled = Trueocho.Enabled = Truenueve.Enabled = Truecero.Enabled = Truesuma.Enabled = Trueresta.Enabled = Truemultiplicacion.Enabled = Truedivision.Enabled = TrueOFF.Enabled = TrueC.Enabled = Trueigual.Enabled = TrueVisor.Text = "0"End Sub
Private Sub resta_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "-"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 suma_Click()auxiliar.Caption = Visor.TextVisor.Text = "0"operacion.Caption = "+"End Sub
Private Sub tres_Click()Visor.Text = Visor.Text + "3"End Sub
Private Sub uno_Click()Visor.Text = Visor.Text + "1"
End Sub
Posted by at No comments:
Labels: , ,

Monday, September 10, 2007

avance (por david y niko)

hasta el dia de hoy programamos todos los numeros,el boton de borrar,el del encendido y apagado, las 4 operaciones y el igual.nos fslta el punto y las otras 2 operaciones
Posted by at No comments:
Labels: , ,
Subscribe to: Posts (Atom)