Foros de debate en castellano Visual Basic. Como hacer una calculadora. Programación en Castellano.

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

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,