ayuda para hacer una calculadora cientifica en Visual basic
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
Oye si teneis un codigo para una calculadora, serais tan amable de brindarmelo porfa.
mi e-amil: [email protected]
mi e-amil: [email protected]
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.
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
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
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]
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
necesito urgentemente ayuda para hacer un programa de una calculadora en visual basic
NO SEAN FLOJOS Y HAGANLA USTEDES MISMOS NO ESTA DIFICIL, SOLO HAY QUE HECHARLE COCO
No sean tan boludos, dedique mas tiempo al trabajo y menos a la diversion y seran mas productivos.
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
tengo el codigo de una calculadora por si lo quieres. solo mandame una dir para enviartelo
necesito el codigo de la calculadora plx, enviamelo cuanto antes, es un proyecto para clase, lo necesito para aprobar :P un abrazo y gracias
...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...
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
necesito porfa el codigo para una calcualdora en visual basic.
Gracias
Gracias
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
por favor mandame el algoritmo para hacer la calculadora la necesito te lo agradecere porfa......
AYUDAME NECESITO EL PROGRAMA PARA HACER UNA CALCULADORA CIENTIFICA.
POR FAVOR AYUDAME
POR FAVOR AYUDAME
Caro, 驴Me podrias pasar el codigo de la calculadora cientifica en Visual Basic?
y si no q\' a gran hp q\' va a haccer wevonnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnnn
Me podrias mandar el codigo de la calculadora cientifica en Visual Basic?, Por favor!
quiero una calculadora basica para visual studio 2005,para ver el codigo fuente
gracias
gracias
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
hola! me puedes enviar el c贸digo de c贸mo hacer una calculadora ci茅ntifica, yo te env铆o otra s铆?
Podrias enviarmelo a mi tambi茅n e el codigo de la calculadora cientifica
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]
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
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
agregame y te doy la erspuesta [email protected]
pero ojo es normal
pero ojo es normal
hola chicosnecesito el codigo de una calculadora cientifica en java porfa envienmelo a mi correo es [email protected].