Calculadora por Joy

Captura de pantalla:













Codigo de calculadora:

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

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

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

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

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.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 punto_Click()
visor.Caption = visor.Caption + "."
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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Captura de Calculadora (Por Vicky)

Calculadora por Joy

Captura de pantalla:













Codigo de calculadora:

Private Sub borrador_Click()
visor.Caption = " "
End Sub

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

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

Private Sub dividido_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "/"
visor.Caption = " "
End Sub

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

Private Sub igual_Click()
If auxiliardos.Caption = "+" Then
visor.Caption = Val(auxiliaruno.Caption) + Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "-" Then
visor.Caption = Val(auxiliaruno.Caption) - Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "/" Then
visor.Caption = Val(auxiliaruno.Caption) / Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
If auxiliardos.Caption = "*" Then
visor.Caption = Val(auxiliaruno.Caption) * Val(visor.Caption)
auxiliaruno.Caption = ""
auxiliardos.Caption = ""
End If
End Sub


Private Sub mas_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "+"
visor.Caption = " "
End Sub

Private Sub menos_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.Caption = "-"
visor.Caption = " "
End Sub

Private Sub multiplicar_Click()
auxiliaruno.Caption = visor.Caption
auxiliardos.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 punto_Click()
visor.Caption = visor.Caption + "."
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

Private Sub zero_Click()
visor.Caption = visor.Caption + "0"
End Sub

Codigos de calculadora Visual Basic 1 (por Javier)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.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 dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.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 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

Calculadora (por Teo y Darío)

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 dos_Click()
visor.Caption = visor.Caption + "2"
End Sub

Private Sub igual_Click()
If auxoper.Caption = "+" Then
visor.Caption = Val(auxnro.Caption) + Val(visor.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
visor.Caption = Val(auxnro.Caption) - Val(visor.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = visor.Caption
auxoper.Caption = "+"
visor.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = visor.Caption
auxoper.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 ONCE_Click()
visor.Caption = ""
auxnro.Caption = ""
auxoper.Caption = ""
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

Calculador (por Kumo!)

Private Sub Borrar_Click()
Pantalla.Caption = ""
End Sub

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

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

Private Sub division_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "/"
Pantalla.Caption = ""
End Sub

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

Private Sub igual_Click()
If auxsigno.Caption = "+" Then
Pantalla.Caption = Val(Auxnro.Caption) + Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "-" Then
Pantalla.Caption = Val(Auxnro.Caption) - Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "*" Then
Pantalla.Caption = Val(Auxnro.Caption) * Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

If auxsigno.Caption = "/" Then
Pantalla.Caption = Val(Auxnro.Caption) / Val(Pantalla.Caption)
Auxnro.Caption = ""
auxsigno.Caption = ""
End If

End Sub

Private Sub mas_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "+"
Pantalla.Caption = ""
End Sub

Private Sub menos_Click()
Auxnro.Caption = Pantalla.Caption
auxsigno.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()
Auxnro.Caption = Pantalla.Caption
auxsigno.Caption = "*"
Pantalla.Caption = ""
End Sub

Private Sub punto_Click()
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
Private Sub zero_Click()
Pantalla.Caption = Pantalla.Caption + "0"
End Sub

codigos de calculadora 1 (por Abi)

Private Sub borrar_Click()
pantalla.Caption = ""
auxnro.Caption = ""
auxoper.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 dos_Click()
pantalla.Caption = pantalla.Caption + "2"
End Sub

Private Sub igual_Click()
If auxoper.Caption = "+" Then
pantalla.Caption = Val(auxnro.Caption) + Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
If auxoper.Caption = "-" Then
pantalla.Caption = Val(auxnro.Caption) - Val(pantalla.Caption)
auxnro.Caption = ""
auxoper.Caption = ""
End If
End Sub

Private Sub mas_Click()
auxnro.Caption = pantalla.Caption
auxoper.Caption = "+"
pantalla.Caption = ""
End Sub

Private Sub menos_Click()
auxnro.Caption = pantalla.Caption
auxoper.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 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

Avance de la clase 11/10, (Por Juan Ignacio),

Del trabajo de la calculadora ya tengo programado:

numeros: 1,2,3,4,5,6,7,8,9,0

signo "+" (mas)

signo "-" (menos)

signo "*" (por)

signo "/" (dividir)

signo "=" (igual)

y el boton "."(coma)

signo de radicacion

potenciacion

porcentaje

Me faltaria programar el signo "+/-"

Avance de la clase del 11 de octubre por Ary y Ezequiel

Pudimos programar:

-mas/menos
-porcentaje
-1/x

Con esto terminamos la calculadora.

avance del 20/9

Hata ahora programe porcentaje, +/-, potenciacion y radicacion.

Avance de la clase 20/09/07, por Juan Ignacio

En la clase logre programar:
todos los nmumeros: 1,2,3,4,5,6,7,8,9,0
botones:"+"
"-"
"*"
y dividir aunque tengo que corregir una cosa
tambien programe el boton "C"(borrar)

Avance de la clase del 20 de setiembre por Ary

Con mi compañero Ezequiel en esta clase logramos programar las siguientes funciones

-Raíz
-Potenciacion
-+/-
Tambien logramos corregir algo del igual que estaba mal y diseñar el porcentaje, el cual todabia no pudimos programar.Esperamos programarlo la clase que viene.

Avance en clase 20/9 por Guillermo Mosse

En la clase del 20/9 terminé la calculadora con todas sus funciones,excepto la que es +/-, que no funciona bien(es un error que no pude terminar y lo resuelvo para el lunes).
Las otras funciones que tengo son, además de +/- raíz cuadrada, número al cuadrado, más, menos, dividir y multiplicar, porcentaje (escribís un número x, el símbolo, otro número y, igual y te calcula el x porciento de y), C(borra todo), que cuando hagas un cálculo, escribís otro dígito y reemplaza automáticamente el contenido de la pantalla por dicho número, el punto decimal(en realidad una coma), que NO SE PUEDA DIVIDIR POR CERO, el onoff (el programa empieza con todo apagado), los números y el igual; tal vez me falte la función 1/ (aparece en la calculadora de windows), pero no es obligatoria.
Usé un solo auxiliar para la calculadora.

avance,calculadora

Programe:
-el igual
_mas
_menos
_multiplicar
_dividir(tiene algunas deficultades)
_punto
_dos label auxiliares (para el numero y el signo)
_on/off (con las teclas bloqueadas en apagado)

Avance de la clace,(Juan Ignacio)

en la ultima clace, programe de la calculadora
todos los numeros(1, 2, 3, 4, 5, 6, 7, 8, 9, 0)
boton onoff
signo "mas"(+)
habia programado el signo - tambien pero tuve un error que despues me lo exlico guille y pude entenderlo.

Avance de la clase del 6/9 (por brian)

Hasta ahora programe el punto, onoff, todos los numero, todos los signos, igual, AC, e hice que cuando pones un numero dividido por cero te aparesca en la pantalla la palabra "ERROR" .

Avance de la clase del 6 de setiembre

En esta clase con mi compañero EZequiel lo que hicimos fue:
Programar en la calculadora:el boton borrar, multiplicar,dividir,la coma,un label afuera de la computadora para que borrase los signos, el igual(lo completamos ya que nos faltaba algo)
Ademas diseñamos 3 botones auxiliares para tapar los numeros y signos auxiliares.

avance de la clase 6/9 (por denu)

con mi compañera emilia la clase pasada ya habiamos diseñado la calculadora y habiamos programado los botones:
-todos los numeros
-borrar
-onoff
y esta clase seguimos programando los botones:
-mas
-menos
-division
-multiplicacion
-igual

Avance de clase(por brian)

Hasta ahora:
Diseñe toda la calculadora.
Programe:
_Todos los numeros
_Onoff
_Mas
_Menos
_Por
_Dividir
_AC