ayuda para hacer una calculadora cientifica en Visual basic

Lucas Hernandez
14 de Diciembre del 2009
nececisto saber el codigo para hacer una calculadora

vcarrillo
14 de Diciembre del 2009
Public Class Form1
Private Enum Entrada
NINGUNA
DIGITO
OPERADOR
CE
End Enum

Private ultimaEntrada As Entrada
Private comaDecimal As Boolean
Private operador As Char
Private numOperandos As Byte
Private operando1 As Double
Private operando2 As Double

Private Sub btDigito_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDigito7.Click, btDigito8.Click, btDigito9.Click, btDigito4.Click, btDigito5.Click, btDigito6.Click, btDigito1.Click, btDigito2.Click, btDigito3.Click, btDigito0.Click
Dim objButton As Button = CType(sender, Button)

Select Case objButton.Text
Case "0"c
My.Computer.Audio.Play("..Sonidoscero.wav", AudioPlayMode.Background)
Case "1"c
My.Computer.Audio.Play("..Sonidosuno.wav", AudioPlayMode.Background)
Case "2"c
My.Computer.Audio.Play("..Sonidosdos.wav", AudioPlayMode.Background)
Case "3"c
My.Computer.Audio.Play("..Sonidostres.wav", AudioPlayMode.Background)
Case "4"c
My.Computer.Audio.Play("..Sonidoscuatro.wav", AudioPlayMode.Background)
Case "5"c
My.Computer.Audio.Play("..Sonidoscinco.wav", AudioPlayMode.Background)
Case "6"c
My.Computer.Audio.Play("..Sonidosseis.wav", AudioPlayMode.Background)
Case "7"c
My.Computer.Audio.Play("..Sonidossiete.wav", AudioPlayMode.Background)
Case "8"
My.Computer.Audio.Play("..Sonidosocho.wav", AudioPlayMode.Background)
Case "9"c
My.Computer.Audio.Play("..Sonidosnueve.wav", AudioPlayMode.Background)
End Select

If (ultimaEntrada <> Entrada.DIGITO) Then
If (objButton.Text = "0") Then Return
etPantalla.Text = ""
ultimaEntrada = Entrada.DIGITO
comaDecimal = False
End If

etPantalla.Text += objButton.Text
End Sub

Private Sub btComaDec_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btComaDec.Click
My.Computer.Audio.Play("..Sonidospunto.wav", AudioPlayMode.Background)
If (ultimaEntrada <> Entrada.DIGITO) Then
etPantalla.Text = "0,"
ultimaEntrada = Entrada.DIGITO
ElseIf (comaDecimal = False) Then
etPantalla.Text = etPantalla.Text + ","
End If
comaDecimal = True
End Sub

Private Sub btOperacion_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btDividir.Click, btMenos.Click, btPor.Click, btMas.Click, btIgual.Click
' Obtener el id del bot贸n que gener贸 el evento
Dim objButton As Button = CType(sender, Button)
' Obtener el texto del bot贸n pulsado
Dim textoBoton As String = objButton.Text

Select Case textoBoton
Case "+"c
My.Computer.Audio.Play("..Sonidosmas.wav", AudioPlayMode.Background)
Case "-"c
My.Computer.Audio.Play("..Sonidosmenos.wav", AudioPlayMode.Background)
Case "x"c
My.Computer.Audio.Play("..Sonidospor.wav", AudioPlayMode.Background)
Case "/"c
My.Computer.Audio.Play("..Sonidosdividido.wav", AudioPlayMode.Background)
Case "="c
My.Computer.Audio.Play("..Sonidosigual.wav", AudioPlayMode.Background)
End Select

If ((numOperandos = 0) And (textoBoton(0) = "-"c)) Then
ultimaEntrada = Entrada.DIGITO
End If

If (ultimaEntrada = Entrada.DIGITO) Then
numOperandos += 1
End If

If (numOperandos = 1) Then
operando1 = Double.Parse(etPantalla.Text)
ElseIf (numOperandos = 2) Then
operando2 = Double.Parse(etPantalla.Text)
Select Case (operador)
Case "+"c : operando1 += operando2
Case "-"c : operando1 -= operando2
Case "x"c : operando1 *= operando2
Case "/"c : operando1 /= operando2
Case "="c : operando1 = operando2
End Select
' Visualizar el resultado
etPantalla.Text = operando1.ToString()
numOperandos = 1
End If
operador = textoBoton(0) ' car谩cter de la posici贸n 0
ultimaEntrada = Entrada.OPERADOR
End Sub

Private Sub btTantoPorCiento_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btTantoPorCiento.Click
My.Computer.Audio.Play("..Sonidostpc.wav", AudioPlayMode.Background)
Dim resultado As Double
If (ultimaEntrada = Entrada.DIGITO) Then
resultado = operando1 * Double.Parse(etPantalla.Text) / 100
' Visualizar el resultado
etPantalla.Text = resultado.ToString
' Simular que se ha hecho clic en "="
btIgual.PerformClick()
' Enfocar la tecla %
btTantoPorCiento.Focus()
End If
End Sub

Private Sub btIniciar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btIniciar.Click
My.Computer.Audio.Play("..Sonidosborrart.wav", AudioPlayMode.Background)
etPantalla.Text = "0,"
ultimaEntrada = Entrada.NINGUNA
comaDecimal = False
operador = Convert.ToChar(0)
numOperandos = 0
operando1 = 0
operando2 = 0
End Sub

Private Sub btBorrarEntrada_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btBorrarEntrada.Click
My.Computer.Audio.Play("..Sonidosborrard.wav", AudioPlayMode.Background)
etPantalla.Text = "0,"
ultimaEntrada = Entrada.CE
comaDecimal = False
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
End Class

la pantalla se llama etPantalla
y los botones btDigito7

erika
14 de Diciembre del 2009
por fa

erick185
14 de Diciembre del 2009
Oye si teneis un codigo para una calculadora, serais tan amable de brindarmelo porfa.

mi e-amil: [email protected]

patroclo
14 de Diciembre del 2009
no tengo idea yo tambien nesecito

BATMAN
14 de Diciembre del 2009
Mira es muy sencillo para el que sabe como yo. Apunt谩. El c贸digo de barra es '1134511567833-9' y la consigues en cualquier almacen de carrefour. Sin贸 te vendo la m铆a que saca coordenadas estelares, resultados en a帽os luz, desarrolla algoritmos de la fusi贸n de la materia etc. Como ves es bien cient铆fica.

exterminio
14 de Diciembre del 2009
por favor necesito los codigos de visual basic para realizar una calculadora cientifica que tenga cuadrado raiz y numero sobre numero nam

este es mi correo exterminio4750@hotmail

es urgente por favor

lucas
14 de Diciembre del 2009
sabes tengo que hacer un trabajo y con informe para la U de una calculadora cientifica.si me pudieras ayudar con el codigo por favor . muchas graciias

lucas
14 de Diciembre del 2009
sabes tengo que hacer un trabajo y con informe para la U de una calculadora cientifica.si me pudieras ayudar con el codigo por favor . muchas graciias.
este es mi mail [email protected]

eduardo
14 de Diciembre del 2009
Hola amigos, necesito el codigo de una calculadora cientifica para un proyecto en java, les agradeceria mucho si me la pudieran mandar a mi mail, gracias

lupis
14 de Diciembre del 2009
necesito urgentemente ayuda para hacer un programa de una calculadora en visual basic

Ehecatl
14 de Diciembre del 2009
NO SEAN FLOJOS Y HAGANLA USTEDES MISMOS NO ESTA DIFICIL, SOLO HAY QUE HECHARLE COCO

jose
14 de Diciembre del 2009
enviarme codigo

Trabajen
14 de Diciembre del 2009
No sean tan boludos, dedique mas tiempo al trabajo y menos a la diversion y seran mas productivos.

panda
14 de Diciembre del 2009
suma=
Text3=val(text1)+val(text2)
y seguis solo le cambias el signo enves del de suma el de resta asi

Caro
14 de Diciembre del 2009
tengo el codigo de una calculadora por si lo quieres. solo mandame una dir para enviartelo

naxo
14 de Diciembre del 2009
necesito el codigo de la calculadora plx, enviamelo cuanto antes, es un proyecto para clase, lo necesito para aprobar :P un abrazo y gracias

Ivan Donoso
14 de Diciembre del 2009
...hola,disculpa q,te moleste.Podr矛as mandarme
el codigo en "visual basic" de una calculadora
cientifica "pofi"o si me dices los codigos para
configurar los botones: %,-/+, raiz cuadrada,cle-
ar,etc...
te estoy muy agradecido por tu bondad
y que "Dios"te Bendiga",nos vemos...

Ana Montoya
14 de Diciembre del 2009
Por favor ayudame tengo que hacerla para el mi茅rcoles

plaza
14 de Diciembre del 2009
dame los codigos

Zat
14 de Diciembre del 2009
Me podrias mandar el codigo para la calculadora cientifica, te lo agradeceria mucho
mi correo es [email protected]
Gracias

William
14 de Diciembre del 2009
necesito porfa el codigo para una calcualdora en visual basic.

Gracias

sergio
14 de Diciembre del 2009
hola me gustaria que me ayudaras para ver como tener mas informacion de la calculadora cientifica y estandar ojala me puedas ayudar te lo voy a agradecer de verdad mil grasias si me ayudas bye

Raul Arias
14 de Diciembre del 2009
por favor mandame el algoritmo para hacer la calculadora la necesito te lo agradecere porfa......

Adriana anabel montelongo
14 de Diciembre del 2009
AYUDAME NECESITO EL PROGRAMA PARA HACER UNA CALCULADORA CIENTIFICA.
POR FAVOR AYUDAME

Cristian
14 de Diciembre del 2009
Necesito el codigo para hacer una calculadora

Claudia Patricia
14 de Diciembre del 2009
mandame el codigo para una calculadora

Pablo
14 de Diciembre del 2009
Porfavor me podrias mandar ami tambi茅n el c贸dicgo. Mil gracias

sergio andres
14 de Diciembre del 2009
socio sera que me puedes enviar al correo el codigo gracias

jonathan
14 de Diciembre del 2009
porfa mandame la calculadora

edwin
14 de Diciembre del 2009
le agradeseria si me puedes colaborar con ese codigo

Oscar
14 de Diciembre del 2009
Caro, 驴Me podrias pasar el codigo de la calculadora cientifica en Visual Basic?

blablabla
14 de Diciembre del 2009
y si no q\' a gran hp q\' va a haccer wevonnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn

Espiricueta
14 de Diciembre del 2009
Me pordrian pasar el codigo de la calculadora cientifica?

Luis
14 de Diciembre del 2009
Me podrias mandar el codigo de la calculadora cientifica en Visual Basic?, Por favor!

jose
14 de Diciembre del 2009
quiero una calculadora basica para visual studio 2005,para ver el codigo fuente
gracias

oreo_18
14 de Diciembre del 2009
ayuda necesito una calculadora en visual basic es para adjuntarlo a una base de datos
porfa ayudenme
mi correo:
[email protected]
nombre: oriana
gracias por tu ayuda

liliana rivero
14 de Diciembre del 2009
hola! me puedes enviar el c贸digo de c贸mo hacer una calculadora ci茅ntifica, yo te env铆o otra s铆?

tom
14 de Diciembre del 2009
Podrias enviarmelo a mi tambi茅n e el codigo de la calculadora cientifica

paul saenz
14 de Diciembre del 2009
sala

olalladoce
14 de Diciembre del 2009
Hola!

Me podr铆as mandar el c贸digo en visual de la calculadora cient铆fica.

Muchas gracias

[email protected]

luz
14 de Diciembre del 2009
para saber el codigo de igual

carlos
14 de Diciembre del 2009
nesesito todos los codigos o la proogramacion de la
calculadora cientifica para ya o sea ahorita por favor

juan
14 de Diciembre del 2009
por fabor los codigos de una calculadora
y podrias probar si funcionan los codigos para logaritmos, senos, cosenos,
hize una pero me envia errores como respuesta

has
14 de Diciembre del 2009
agregame y te doy la erspuesta [email protected]
pero ojo es normal

adriana
14 de Diciembre del 2009
hola chicosnecesito el codigo de una calculadora cientifica en java porfa envienmelo a mi correo es [email protected].