Hacer una calculadora en Visual Basic .NET 2013
ฝัง
- เผยแพร่เมื่อ 22 ต.ค. 2024
- Vídeo acerca de cómo hacer una calculadora sencilla en Visual Basic .NET 2013 (Versión Express).
Aquí debajo coloco las líneas de programación por sí quieren copiar algunas:
Dim Operacion As String
Dim ValorResultado As Nullable(Of Double) = Nothing
Dim Valor2 As Nullable(Of Double) = Nothing
Dim SePresionaOperador As Boolean
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "1"
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "2"
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "3"
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "4"
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "5"
End Sub
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "6"
End Sub
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "7"
End Sub
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "8"
End Sub
Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "9"
End Sub
Private Sub Button0_Click(sender As Object, e As EventArgs) Handles Button0.Click
EvaluaRestriccionesParaConcatenar()
TxtResultado.Text &= "0"
End Sub
Private Sub ButtonPunto_Click(sender As Object, e As EventArgs) Handles ButtonPunto.Click
EvaluaRestriccionesParaConcatenar()
If InStr(TxtResultado.Text, ".", CompareMethod.Text) = 0 Then
TxtResultado.Text &= "."
End If
End Sub
Private Sub ButtonSuma_Click(sender As Object, e As EventArgs) Handles ButtonSuma.Click
EvaluayHazOperacion()
Operacion = "+"
End Sub
Private Sub ButtonResta_Click(sender As Object, e As EventArgs) Handles ButtonResta.Click
EvaluayHazOperacion()
Operacion = "-"
End Sub
Private Sub ButtonMultiplicacion_Click(sender As Object, e As EventArgs) Handles ButtonMultiplicacion.Click
EvaluayHazOperacion()
Operacion = "*"
End Sub
Private Sub ButtonDivison_Click(sender As Object, e As EventArgs) Handles ButtonDivison.Click
EvaluayHazOperacion()
Operacion = "/"
End Sub
Private Sub ButtonBorrar_Click(sender As Object, e As EventArgs) Handles ButtonBorrar.Click
TxtResultado.Text = "0"
Valor2 = Nothing
ValorResultado = Nothing
End Sub
Private Sub ButtonIgual_Click(sender As Object, e As EventArgs) Handles ButtonIgual.Click
EvaluayHazOperacion()
Operacion = ""
End Sub
Public Sub EvaluayHazOperacion()
SePresionaOperador = True
Valor2 = Val(TxtResultado.Text)
If ValorResultado IsNot Nothing Then
Select Case Operacion
Case "+"
ValorResultado = ValorResultado + Valor2
Case "-"
ValorResultado -= Valor2
Case "*"
ValorResultado *= Valor2
Case "/"
ValorResultado /= Valor2
End Select
TxtResultado.Text = ValorResultado
Else
ValorResultado = Valor2
End If
End Sub
Public Sub EvaluaRestriccionesParaConcatenar()
If SePresionaOperador = True Then
TxtResultado.Text = ""
SePresionaOperador = False
ElseIf TxtResultado.Text = "0" Then
TxtResultado.Text = ""
End If
End Sub
Me ayudaste a pasar mi examen final. INFINITAS GRACIAS
x2
Tu manera de explicar hace comprenderlo mucho más facil, gracias
Gran vídeo gracias a ti puedo comprender mucho esto para una práctica escolar ❤
Gracias hermoso ser me sirvió un vergo y gracias a usted voy a pasar el colegio
Espero tenga una larga y muy prospera navidad, año nuevo, da del arbol, dia de laindependencia, dia dela virgen, dia del conserje, dia del niño,dia de la madre, dia del padre, dia del hijo, en caso, toda su vida.
Guapo
increible video man, me salvaste el parcial. muy bien explicado.
me ayudaste a presentar una tarea, gracias TE AMO
muchas gracias por el contenido tenia error en algunas partes gracias al video lo resolvi
¡Nada más con lo del punto te ganaste mi eterno agradecimiento!
Nos ayudo un montón Tecnológico de Jalapa Ver Saludos
Gracias amigo me salvaste el semestre.
Muchiisiimaas felicidades y gracias, me sirvió demasiado y entregué mi tarea, exito
Excelente vídeo. muchas gracias
Wow te felicito 100x100 muy bien explicado
Me re salvaste el semestre
Gracias!! me sirvió de ayuda. 🧡
Gracias por tu video acabas de salvarme
Que onda, muy bueno con la explicación, no me perdí nunca jaja, salu2
te funciona le sumar me puedes mandar tu archivop
Amigo me salvaste el trasero, gracias.
Muchas grs me sirvió de mucho.
Excelente, me gusto tu explicación muy buen tutorial. Te felicito...
gracia. muy bien explicado y de mucha ayuda graciasss
fuiste de gran ayuda, muchas gracias.. el que sabe,,, sabe
Wow qué mujer tan guapa.
Excelente explicación, gracias!!👍
Sí el usuario quiere ingresar por teclado las cantidades y realizar las operaciones. que se debe agregar saludos
gracias bro, estoy estudiando y me has enseñado unos tips muy buenos
mn me sale error en lo de isnot nothing dice Error 1 'IsNot' requiere operandos que tienen tipos de referencia, pero este operando tiene el tipo de valor 'System.Nullable(Of Double)'.
muchas gracias amigo saludos desde argentina
muchas gracias hermano, saludos desde venezuela.
que buen video... sirvio mucho grasias
Eres mi súper héroe bro😎
Dios te bendiga
que mas puedo agregar además del &, ingrese el código de esta manera
resultados.Text &= "1"
pero no funciona que mas estaría faltando?
Muchas gracias!!! Me fue de gran utilidad!!!
wow hermano sos bueno muchas gracias me sacastes de apuros
Con una pregunta para que no te aparecieran errores como lo declaraste perdona amigo. Gracias
😁
Excelente muy bien explicado
olvidalo gracias si funciono me salvaste jejeje
Gracias, muy buen trabajo
Me salio Genial....Gracias....Sigue así.
muy bueno el video muchas gracias
gracias bro bien expliacado tube un par de errores pero me funciono bien
Muy bueno, Gracias.
Perfecto muchas gracias
Disculpe mi ignorancia tengo una pregunta ese ya es un lenguaje de programación?
Hola muy buen video !! 👍
Tengo una duda
Si divido cualquier número entre cero debería decir error osea que no se puede llevar acabo la operación
Ejemplo
123/0= error
A mi me dice infinito eso en lo lógica matemática estaría incorrecto, espero me puedas ayudar con ese detalle
Todo número dividido entre cero es un número imaginario "Indeterminado" por si decirlo es un número infinito
Gracias
muy bueno, excelentemente bien explicado.
txResultado me marca ERROR PORQUe NO APaReCE declaRAda, LA Puse AsÍ: Dim TxtResultado As TextBox Y al correr el programa me marca error. System.NullReferenceException: 'Referencia a objeto no establecida como instancia de un objeto.'
TxtResultado fue Nothing.
amigo al presionar el botón IGUAL no arroja ningún resultado ¿porque?
john gabriel pin quiroz hey no me el igual que sera
Le agregaste a cada botón operador su respectivo signo ejemplo;
'Para el de suma'
Private Sub ButtonSuma_Click(sender As Object, e As EventArgs) Handles ButtonSuma.Click
EvaluayHazOperacion()
Operacion = "+" '
me sale lo mismo ¿como lo soluciono?
@@leonardozuleta7690 hace vos el programa y deja de copiar
@@Unknown971 xD
MUCHAS GRACIAS
es necesario poner lo de valor resultado , valor 2 etc.¿????
Gracias mas videos asi de rapidos ♥
A lo maldita sea!, re genial, muchas gracias!
Que buen vídeo broo espero más contenido en tu canal
Muy buen tutorial, Bien explicado y sencillo, Muchas gracias.
muchas gracias me sirvió mucho
eres el puto amo
muy buen video sigue asi solo un pequeñisimo detallito, se te paso explicar como acomodar en el texbox los caracteres hacia la derecha, es sencillo pero para que quede igual al tuyo.Gracias.
Mentira.
Excelente, buen tutorial!!!
Excelente Muchas gracias
No me funciona el sumar sale el mismo resultado que puse antes
ME sirvio mucho gracias bro
Muy buena explicación!!!!!
grande un nuevo seguidor mas sdfjkbjksdffasfasfasfasfasd por que no todos los tutoriales son haci de bien echos jajaaj tienes un buen futuro hermano espero que contestes este comentario XDN´T
funciono perfectamente gracias
Graciaaaaaaas bro muy buen video!
Y Si Quiero Que Se Visualice Toda La Operación que estoy realizando en el textbox ?
soy un genio si corre
Muy buen video man, like.
Te mamaste bro gracias por la explicación
Gracias muchos besitos me salvaste la vida mi amor, como dirían por acá mi kuka pa usted
aqui hay un problema y es que a la hora de dar el boton borrar lo borra pero ya no contatena los numeros
¿Funcionará en el Visual Básic 6.0?
De casualidad hay un tutorial para hacerlo con Visual basic 2015? El lenguaje de códigos son diferentes al que yo tengo que al del vídeo:(
LO ENCONTRASTE ESTOY EN LAS MISMAS..! QUIERO LLORAR
como podría hacer para que las operaciones se visualicen!! ??
es decir al ingresar el operador dos no desaparezca sino que se quede en el textbox para ver cuales han sido los numero ingresados y que el resultado salga a lado !!!!!
Tendrias que almancenar esos valores en un label.
Tengo un error en ElseIf TextResultado.Text = "0" Then dice que tiene que ir precendida de una intruccion elseif o if
Excelente video 10/10
SOS MI HEROE AAAAAAAAAAAAAAAAAAAA
En la condicional If , me manda error a la hora de correr el programa. Estoy usando Visual Basic 2010
Muy bien explicado bro te felicito muy sencillo de entender pero tengo un error en la compilación de txtResultado con & este signo me podrías decir xq
yo tambien tengo ese mismo problema amigo.
Yo igual
Llegue otra ves profe
gracias Bro:) este es mi proyecto
Que tipo de proyecto hay que abrir ?
me sale que no se pueda usar & cuando ponemos textBox1.Text = "1", que hago ayuda por favor (uso visual basic 2013)
+itsTavoRC y me sale diferente el lenguaje del programa, me pueden decir que lenguaje usa en el video por favor gracias
Yo tengo un problema con el resultado no me sale, me ayudas porfa yo hice tal y como lo hicistes
Muchas gracias amigo me sirvió de mucho 🙏
gracias :3
Gracias crack!
Como puedo hacer una cientifica con esa programación?
Mi visual no acepta los comandos Dim, &, ni InStr, alguna solución ???
oye amigo no me funciona el Public Sub EvaluayHazOperacion() SePresionaOperador = True Valor2 = Val(TxtResultado.Text) If ValorResultado IsNot Nothing Then Select Case Operacion Case "+" ValorResultado = ValorResultado + Valor2 Case "-" ValorResultado -= Valor2 Case "*" ValorResultado *= Valor2 Case "/" ValorResultado /= Valor2 End Select TxtResultado.Text = ValorResultado Else ValorResultado = Valor2 End If
solo me aparecen errores
+Stefania Bonilla asi es ; Val(TextResultado.Text
es porque no escribiste bien el codigo te faltan millares de cosas todo esta bien si sigues el video pero debes revisar si nombraste correctamente tus botones ya q esa es la cagada q seguramente no te permite continuar :3 suerte
Amigo, al ejecutarlo me aparece que no he declarado el TxtResultado.text ni el EvaluaYHazOperacion() qué hago?
+Pako Bennington me pasa igual :/
Revisen las mayusculas, si falta alguna letra o esos detalles...
En ButtonBrorra no borra!!!!!, solo sale el numero con ceros.Puse exactamente lo mismo que indicaste
Que hago??
TxtResultado.Text &= "0"
Valor2 = Nothing
ValorResultado = Nothing
Él le ha cambiado el nombre de "TextBox" a " TxtResultado".......
Por eso a él le sale....
Prueba lo mismo pero con "TextBox.Text"
Gracias !!!
gracias amigo :)
gracias broki
sos un capo
_:/
por que me dice que al colocar evalúa restricciones y al colocar operador me da error y me dice que no esta declarado
como te adoro
Como se le hace par saber si este concatena los numeros, si le doy a f5 y no me aparece
ya pude gracias!
por cada numero que coloco me sale el error de que & no se puede aplicar a operandos del tipo string y string
sos un crack weon
gran video bro