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
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]
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
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]
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
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...
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
mi correo es [email protected]
Gracias
William
14 de Diciembre del 2009
necesito porfa el codigo para una calcualdora en visual basic.
Gracias
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
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
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
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]
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
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
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
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].