como hacer una calculadora en visual basic

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por tatiana valerio el día 27 de octubre de 2005

exito

 

Responder

como hacer una calculadora en visual basic 6.0 sencilla

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por LORENA PEREZ COYOTL el día 5 de mayo de 2005

si me puede n dar información

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por FRANCY el día 25 de mayo de 2005

tengo que hacer una calculadora sencilla en visual basic

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por Celeste el día 14 de octubre de 2005

CELESTE

 

Responder

Re: Re: Re: Como hacer una calculadora en visual basic

Enviado por Lilia el día 15 de octubre de 2005

quisiera saber porfavor como se hace una calculadora cientifica en visual basic, sus codigos y la forma de hacerce por favor se los pido... gracias.

 

Responder

permiteme ingresar a la pagina

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por fernando el día 14 de mayo de 2005

ayudeme como le ago los numeros tienen que estar asociados en una matriz

 

Responder

por favor necesito saber como elaborar una calculadora sencilla garacias

Responder

necesito el codigo de una calculadora en visual basic

Responder

porfis me puedes mandar la elaboracion de la calculadora gracias es urgente

Responder

oye queria ver si me puedes mandar la calculadora lo que pasa es para mi trabajo final y la neta no le se muy chido. gracias

Responder

ok

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por angel el día 31 de marzo de 2005

por fa vor envia el codigo de la calculadora garcias

 

Responder

reespuesta

Responder

peieigjf

Responder

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.

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por mrenun@mixmail.com el día 16 de diciembre de 2003

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.

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por Rocio Yanet el día 6 de octubre de 2004

Hola soy Rocio porfavor me podrias mandar el còdigo

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por Senón Paredes Sánchez el día 9 de noviembre de 2004

por favor pido que me envies tu calculadora creada en visual basic quiero todos su codificación te ruego de manera de favor por que lo necesito para mi trabajo que tengo que presentar

tendrás muchos éxitos en tus estuidios si me haces ese servicio gracias

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por alex el día 4 de febrero de 2004

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

 

Responder

por fa

Enviado por Henry el día 8 de febrero de 2004

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

 

Responder

Re: Re: Re: Como hacer una calculadora importante

Enviado por Edwin A. Balam xool el día 20 de febrero de 2004

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.......

 

Responder

Re: Re: Re: Re: Como hacer una calculadora importante

Enviado por ivonne el día 23 de agosto de 2004

hola, si mandamela porfa.

gracias

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por LORENA AIDEE el día 6 de enero de 2005

QUERO HACER UNA CALCULADORA PERO NO SECOMO YO NECESITO LOS DATOS Y ELCODIGO PORFABOR.

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por --------- el día 20 de marzo de 2005

hola soy un estudiante de informatica y necesito hacer una calculadora en visua basic 6.0 por favor si puedes ayudarme mandame algun ejemplo de como hacer una calculadora cientifica gracias

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por lorena M el día 4 de noviembre de 2005

hola, un favor, me puedes ayudar como se crea una calculadora en visual basic, utilizando las matrices.
ayudame por favor.

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por pepe el día 14 de diciembre de 2005

que estas tonto oque piensa tonto

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por edwin el día 25 de enero de 2006

por favor mandar los codigos para la calculadora

 

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por jose lardo el día 29 de mayo de 2008

con el coño he tu madre

 

Responder

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=
millernavia@hotmail.com O SOPORTETECNICOCALI@HOTMAIL.COM
e

Responder

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=
millernavia@hotmail.com O SOPORTETECNICOCALI@HOTMAIL.COM
e

Responder

hola te pido de manera de favor me envies la codificacion de una calculadora para aprender como lo has hecho te felicito por tu interés de aprender a programar, agradecere mucho de mi parte si lo hicieras realidad lo que te estoy pidiendo

Responder

te lo agradeceria se me lo envias, me sacarias de un grande apuro la neta ke lo necesito. gracias

Responder

por favor necesito hacer una calculadora sencilla y una cientifica por favor mandame el codigo.

Responder

amiga tu sabes como hago una calculadora con funciones trigonometricas y si puedes me puedes mandar la explicacion lo necesito urgente si no me puedes agregar por fa mi correo es dolvar_26@hotmail.com

Responder

Yi se como con visual basic 6.0 es muy sencillo:
con 3 boxtext y creas un boton que tenga de accion que text3= val(text2) + (segun convenga sumar) val(text2)

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por Victor(tano) el día 8 de febrero de 2004

Aqui les doy una simple calculadora que hice, ustedes hagan lo visual. No esta completamente terminada. Solo tengo 13 años que quieren que haga una super calculadora (DIGO ESTO POR UN AMIGO QUE ME CARGA EN LA ESCUELA)

Public tipo
Public valor
Private Sub Command0_Click(Index As Integer)
Text1.Text = Text1.Text + "0"
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text + "1"
End Sub

Private Sub Command10_Click()
valor = ""
tipo = ""
Text1.Text = ""
End Sub

Private Sub Command11_Click()

tipo = 4
valor = Val(Text1.Text)
Text1.Text = ""

End Sub

Private Sub Command12_Click()

tipo = 3
valor = Val(Text1.Text)
Text1.Text = ""

End Sub

Private Sub Command13_Click()

tipo = 2
valor = Val(Text1.Text)
Text1.Text = ""
End Sub

Private Sub Command14_Click()

tipo = 1
valor = Val(Text1.Text)
Text1.Text = ""
End Sub

Private Sub Command16_Click()
Text1.Text = Text1.Text + ","
End Sub

Private Sub Command17_Click()
Call igual
End Sub

Private Sub Command19_Click()

End Sub

Private Sub Command2_Click(Index As Integer)
Text1.Text = Text1.Text + "2"
End Sub

Private Sub Command3_Click(Index As Integer)
Text1.Text = Text1.Text + "3"
End Sub

Private Sub Command4_Click(Index As Integer)
Text1.Text = Text1.Text + "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text + "5"
End Sub

Private Sub Command6_Click(Index As Integer)
Text1.Text = Text1.Text + "6"
End Sub

Private Sub Command7_Click(Index As Integer)
Text1.Text = Text1.Text + "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text + "8"
End Sub

Private Sub Command9_Click(Index As Integer)
Text1.Text = Text1.Text + "9"
End Sub

Private Sub igual()
Select Case Val(tipo)
Case Is = 1
Text1.Text = Val(valor) + Val(Text1.Text)
Case Is = 2
Text1.Text = Val(valor) - Val(Text1.Text)
Case Is = 3
Text1.Text = Val(valor) * Val(Text1.Text)
Case Is = 4
Text1.Text = Val(valor) \ Val(Text1.Text)
End Select
End Sub

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por nekoro el día 13 de febrero de 2004

Victor, si solo tienes 13 años deberías estar por ahi con tus amigos intentando meter con alguna pibita, en vez de estar estudiando programacion...
Aprovecha tu adolescencia, tonto...

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por sdemingo el día 13 de febrero de 2004

Tu metías con pibitas a los 13 años?
Estoy casi seguro de que no ;-)

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por Baltasar el día 13 de febrero de 2004

qué casualidad que la gente que hace este tipo de comentarios tenga una direccion de correo tan extraña:

ad@a.es

donde se contrata esa dirección de correo?

P.D.: Victor, sigue adelante con lo de la programación que si a esa edad (yo empecé a los 20) ya sabes usar un poco el visual, no quisiera enfrentarme contigo dentro de unos años.

;-)

 

Responder

Re: Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por Senón Paredes Sánchez el día 9 de noviembre de 2004

por favor enviar el código de una calculadora hecho en Vísual Basic que quiero aprender a programar en dicho programa por eso quiero informarme de una calculadora que se la mas adecuada para entender
le agradeceré mucho

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por Juan Diego el día 23 de agosto de 2004

Joé, que calculadorón ;-)

Con 13 años y todo ( te habla uno que tb tiene 13, y lo maximo que esta haciendo es una especie de suite matemática con muchas operaciones matematicas )

 

Responder

Re: Re: Re: Re: Re: Como hacer una calculadora

Enviado por robin el día 1 de septiembre de 2004

Bueno y quien dice que tiene 13 años, yo tengo 4 ojos, 3 orejas y vuelo, y no por eso me tienen que creer, y ademas tengo 115 años y no me quejo.

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por susana el día 18 de mayo de 2005

oyes si tienes el codigo de los botones + ,- ,* , /, raiz, etc. las funciones basicas de una calculadora sencilla por favor mandamelos, gracias.

 

Responder

Re: Re: Re: Re: Como hacer una calculadora

Enviado por gigiovenoso el día 21 de octubre de 2005

maricon

 

Responder

gracias por la informacion se ve que eres muy inteligente ¿podrias decirme como programo las funciones seno coseno y tangente?

Responder

Re: Re: Re: Como hacer una calculadora

Enviado por juan05 el día 12 de enero de 2005

te voy a tocar el seño y te voy a meter la pinga por el coseno mi vida chiquita sabrosa

 

Responder

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

Responder

Re: Re: Re: como hacer una calculadora cientifica

Enviado por susana el día 13 de mayo de 2005

por favor me podrian decir como se programa el codigo de las funciones trigonometricas, ademas de programar los numero y funciones con voz.

 

Responder

pasos especificos para hacer funcionar una calculadora matematica es importante su ayuda ayudenme quiero respuesta hoy mismo utilizando frame y una matriz deben estar los numeros asosiados en una matriz

Responder

OYE BONITA NO QUIERES CONOCERME Y PODER TENER FASHION BIEN SABROSO ESPERO QUE ESTES CHICHONA

Responder