Como hacer una calculadora

JOSE DAVID
03 de Noviembre del 2009
Hola me podrian decir el codigo para poder hacer una calculadora sencilla. Muchas gracias.

liza
03 de Noviembre del 2009
DAvid, veo que te han mandado muchos correos con las respuestas, porque no me ayudas y me mandas, unos codigos a mi, te lo agradecería.

rafa
03 de Noviembre del 2009
yo te puedo mandar un ocx que hice que es una calculadora, a la que puedes cambiar colores, y lo mas interesante es que puedes recuperar el resultado, no como la de windows.

[email protected]
03 de Noviembre del 2009
hola rafa... sdisculapa me puedes mandar el codigo de como realizar un calculadora.. lo hare en vicual c#, pero necesito una base,, y el obejtivo es que sea cientifica. muchas gracais. MI CORREO ES ESTE=
[email protected] O [email protected]
e

sorangela obando
03 de Noviembre del 2009
gane

[email protected]
03 de Noviembre del 2009
hola rafa... sdisculapa me puedes mandar el codigo de como realizar un calculadora.. lo hare en vicual c#, pero necesito una base,, y el obejtivo es que sea cientifica. muchas gracais. MI CORREO ES ESTE=
[email protected] O [email protected]
e

jazzmin
03 de Noviembre del 2009
te lo agradeceria se me lo envias, me sacarias de un grande apuro la neta ke lo necesito. gracias

Stella
03 de Noviembre del 2009
Yo tengo un código de calculadora, si me escrihes al correo de lo puedo enviar, es muy similar a la que trae el windows.

Henry
03 de Noviembre del 2009
Hola soy Henry de Peru te pído por favor STELLA enviame a mi correo el codigo de la calculadora lo necesito eres muy amable.
gracias

edwin
03 de Noviembre del 2009
por favor mandar los codigos para la calculadora

Edwin A. Balam xool
03 de Noviembre del 2009
te lo pido porfavor si no es mucha molestia que me mandes el codigo de la calculadora y si me lo puedes mandar explicado por fa haaaaaaaaaa y me mandas una imagen de como esta la calculadora si porfa.....bay lo espero gracias.......

ivonne
03 de Noviembre del 2009
hola, si mandamela porfa.

gracias

jose lardo
03 de Noviembre del 2009
con el coño he tu madre

LORENA AIDEE
03 de Noviembre del 2009
QUERO HACER UNA CALCULADORA PERO NO SECOMO YO NECESITO LOS DATOS Y ELCODIGO PORFABOR.

[email protected]
03 de Noviembre del 2009
Soy una estudiante de informatica he visto en el foro que usted decia que si la escribiamos un correro nos podia enviar el codigo de una calculadora similar a la de windows, me haria un gran favor si me lo enviara a mi direccion de correo, un saludo y gracias.

Rocio Yanet
03 de Noviembre del 2009
Hola soy Rocio porfavor me podrias mandar el còdigo

alex
03 de Noviembre del 2009
hola espero que pronto me puedeas pasar el codigo de la calculadora ya me urge para hoy si es posible
Gracias

yesmine
03 de Noviembre del 2009
hola

tatiana valerio
03 de Noviembre del 2009
exito

PEDRO
03 de Noviembre del 2009
OYE BONITA NO QUIERES CONOCERME Y PODER TENER FASHION BIEN SABROSO ESPERO QUE ESTES CHICHONA

claudia
03 de Noviembre del 2009
tal vez ya te dijeron como se crea una calculadora no se si podrias hacerme ese favor y ayudarme ya que yo necesito esa informacion te lo agradecere muchisimo en serio.

wilbert
03 de Noviembre del 2009
codificacion de la calculadora

juanma
03 de Noviembre del 2009
cuando te la nvien mandamela de vuelta.. plisss
reenviala ya¿

martha
03 de Noviembre del 2009
tedigo como pero te lomando desdemicorreo con todo y formas sale espero tu respuesta si quieres quete la mande

lila o martha
03 de Noviembre del 2009
tengo el codigo pero no recibe datos adjuntos este metodo mandame ami correo tu e-mail y te lo hago llegar con gusto

arturo
03 de Noviembre del 2009
poner todos lo combos como si fueran numero de calculadora bueno si quiere saber mas sobre sto escribeme en [email protected] ok bay

Gilber L?
03 de Noviembre del 2009
Deja de usar còdigos que resultan muy extensos, usa la calculadora predeterminada de Windows

dolores
03 de Noviembre del 2009
por favor necesito saber como elaborar una calculadora sencilla garacias

carolina
03 de Noviembre del 2009
como hacer una calculadora en visual basic 6.0 sencilla

raul
03 de Noviembre del 2009
permiteme ingresar a la pagina

aracely
03 de Noviembre del 2009
necesito el codigo de una calculadora en visual basic

Everaldo
03 de Noviembre del 2009
Option Compare Database
Public tipo
Public valor


Private Sub borrar_Click()
caja = ""
tipo = ""
valor = ""
End Sub

Private Sub cinco_Click()
caja = caja & 5
End Sub

Private Sub cuatro_Click()
caja = caja & 4
End Sub

Private Sub division_Click()
tipo = 4
valor = Val(caja)
caja = ""
End Sub

Private Sub dos_Click()
caja = caja & 2
End Sub

Private Sub mas_Click()
tipo = 1
valor = Val(caja)
caja = ""
End Sub

Private Sub menos_Click()
tipo = 2
valor = Val(caja)
caja = ""
End Sub

Private Sub nueve_Click()
caja = caja & 9
End Sub

Private Sub ocho_Click()
caja = caja & 8
End Sub

Private Sub por_Click()
tipo = 3
valor = Val(caja)
caja = ""
End Sub

Private Sub resultado_Click()
Call igual
End Sub

Private Sub seis_Click()
caja = caja & 6
End Sub

Private Sub siete_Click()
caja = caja & 7
End Sub

Private Sub tres_Click()
caja = caja & 3
End Sub

Private Sub uno_Click()
caja = caja & 1
End Sub
Sub igual()
Select Case Val(tipo)
Case 1
caja = Val(valor) + Val(caja)
Case 2
caja = Val(valor) - Val(caja)
Case 3
caja = Val(valor) * Val(caja)
Case 4
caja = Val(valor) / Val(caja)
End Select
End Sub

PABLO
03 de Noviembre del 2009
Dim Cambio As Byte
Dim Punto As Boolean
Dim memoria As Double
Private Sub CmdC_Click()

TxtN1.Text = ""
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
Punto = False

End Sub

Private Sub CmdCE_Click()

If Cambio = 1 Then
TxtN1.Text = ""
ElseIf Cambio = 2 Then
TxtN2.Text = ""
End If
Punto = False

End Sub

Private Sub CmdCero_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "0"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "0"
Else
TxtN1.Text = "0"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdCinco_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "5"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "5"
Else
TxtN1.Text = "5"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdCuatro_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "4"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "4"
Else
TxtN1.Text = "4"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdDos_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "2"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "2"
Else
TxtN1.Text = "2"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdEntre_Click()
oper.Caption = "/"
Cambio = 2
Punto = False
End Sub

Private Sub CmdExp_Click()
oper.Caption = "^"
Cambio = 2
Punto = False
End Sub

Private Sub CmdIgual_Click()
Dim Result As Double

If oper.Caption = "+" Then
Result = Val(TxtN1.Text) + Val(TxtN2.Text)
TxtRes.Text = Result
ElseIf oper.Caption = "-" Then
Result = Val(TxtN1.Text) - Val(TxtN2.Text)
TxtRes.Text = Result
ElseIf oper.Caption = "*" Then
Result = Val(TxtN1.Text) * Val(TxtN2.Text)
TxtRes.Text = Result
ElseIf oper.Caption = "/" Then
If Val(TxtN2.Text) = 0 Then
TxtRes.Text = " Division Por Cero"
Else
Result = Val(TxtN1.Text) / Val(TxtN2.Text)
TxtRes.Text = Result
End If
Else
Result = Val(TxtN1.Text) ^ Val(TxtN2.Text)
TxtRes.Text = Result
End If
If Not ((Cambio = 2 And (Len(TxtN2.Text) = 0)) Or Cambio = 1) Then
Cambio = 0
Punto = False
Else
TxtRes.Text = ""
End If

End Sub

Private Sub CmdMas_Click()
oper.Caption = "+"
Cambio = 2
Punto = False
End Sub

Private Sub CmdMenos_Click()
oper.Caption = "-"
Cambio = 2
Punto = False
End Sub

Private Sub CmdNueve_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "9"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "9"
Else
TxtN1.Text = "9"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If

End Sub

Private Sub CmdOcho_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "8"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "8"
Else
TxtN1.Text = "8"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdPor_Click()
oper.Caption = "*"
Cambio = 2
Punto = False
End Sub

Private Sub CmdPunto_Click()

If Not Punto Then
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "."
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "."
Else
TxtN1.Text = "."
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
Punto = True
End If

End Sub

Private Sub CmdRetro_Click()
Dim ltxt As Integer

If Cambio = 1 Then
ltxt = Len(TxtN1.Text) - 1
If Right(TxtN1.Text, 1) = "." Then
Punto = False
End If
If ltxt >= 0 Then
TxtN1.Text = Left(TxtN1.Text, ltxt)
End If
ElseIf Cambio = 2 Then
ltxt = Len(TxtN2.Text) - 1
If Right(TxtN2.Text, 1) = "." Then
Punto = False
End If
If ltxt >= 0 Then
TxtN2.Text = Left(TxtN2.Text, ltxt)
End If
End If

End Sub

Private Sub CmdSeis_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "6"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "6"
Else
TxtN1.Text = "6"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdSiete_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "7"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "7"
Else
TxtN1.Text = "7"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdTres_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "3"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "3"
Else
TxtN1.Text = "3"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub CmdUno_Click()
If Cambio = 1 Then
TxtN1.Text = TxtN1.Text & "1"
ElseIf Cambio = 2 Then
TxtN2.Text = TxtN2.Text & "1"
Else
TxtN1.Text = "1"
TxtN2.Text = ""
TxtRes.Text = ""
Cambio = 1
End If
End Sub

Private Sub Form_Activate()
Cambio = 1
Punto = False
memoria = 0
TxtN1.Text = ""
TxtN2.Text = ""
TxtRes.Text = ""
End Sub

Private Sub Form_DblClick()

Form1.Caption = "Calculadora BENJAMIN BETANCOURT OCHOA"

End Sub

Private Sub MemC_Click()
LblMem.Caption = ""
End Sub

Private Sub MemMas_Click()

If Cambio = 1 Then
memoria = Val(TxtN1) + Val(LblMem.Caption)
ElseIf Cambio = 2 Then
memoria = Val(TxtN2) + Val(LblMem.Caption)
Else
memoria = Val(TxtRes) + Val(LblMem.Caption)
End If
LblMem.Caption = memoria

End Sub


Private Sub MemS_Click()

If Cambio = 1 Then
memoria = Val(TxtN1)
ElseIf Cambio = 2 Then
memoria = Val(TxtN2)
Else
memoria = Val(TxtRes)
End If
LblMem.Caption = memoria

End Sub

gladifer
03 de Noviembre del 2009
como hacer una calculadora

Er?a
03 de Noviembre del 2009
me prodia hacer el favor de darme la codificación de la calculadora en visual basic.

pamela
03 de Noviembre del 2009
utiliza tres label:
(valor1, valor2,resultado)
utiliza tres caja de texto

utiliza cinco command botton¨:
(sumar, restar , multiplicar, dividir,salir´


shendy dayana
03 de Noviembre del 2009
como puedo realizar una calculadora en visual basic disculpa pero si me la puedes mandar lo mas antes posible please

japerlas13
03 de Noviembre del 2009
Tienes que hacer toda la interfase y después ir haciendo las cuentas mediante la opción "Val" en el código que indica el valor de un control en el paréntesis, lo demás es fácil, si querés te puedo mandar un email con un proyecto que yo hice con su debido código fuente. Mi e-mail es [email protected]

torres sobeida
03 de Noviembre del 2009
tutorial de visual basic

mari
03 de Noviembre del 2009
mira primero declara las variables que va a utilizar , luego tienes que ver con que lo vas a calcular si es un label commando o option
sabes si te lo manda a calcular con option debes calcular en cada uno de ellos
utlizando el text o resultado con val
ejemplo
if option = val(text1.text)+ val(text2.text)
ok chaooo

judith
03 de Noviembre del 2009
solo quiero con la multiplicacion ,resta,suma,division,el porcentaje,