[Tutorial]Aprende a Hacer Una Calculadora En Visual Basic

[mycrosystem]

CREAR UNA CALCULADORA EN
VISUAL BASIC

Lo primero de todo es crear 3 cajas de texto una para cada factor y otra para el resultado de las operaciones, y un botón para cada operación (sumar, restar, dividir y multiplicar) siguientes:

Para sumar: (Este código se introduce en el botón que quieres que sea el de sumar)
Textbox3.Text = Val(Textbox1.Text) + Val(Textbox2.Text)

Para restar: (Este código se introduce en el botón que quieres que sea el de restar)
Textbox3.Text = Val(Textbox1.Text) - Val(Textbox2.Text)

Para dividir: (Este código se introduce en el botón que quieres que sea el de dividir)
Textbox3.Text = Val(Textbox1.Text) / Val(Textbox2.Text)

Para multiplicar: (Este código se introduce en el botón que quieres que sea el de multiplicar)
Textbox3.Text = Val(Textbox1.Text) * Val(Textbox2.Text)


ESPERO QUE LES HAYA SERVIDO DE AYUDA
TUTORIAL SACADO DE http://www.programacion-ard.com

[diegoalejandro]

Gracias por tu colaboracion.
Diego.

[Ftanori]

Gracias por tu colaboracion.
Diego.

Yo no le veo colaboracion a eso, ni a los mensajes de este usuario, creo que solo pega cualquier cosa para publicitar su sitio web que contiene publicidad, y talvez hasta la indexacion en buscadores, ademas de que no es una buana aportacion ya que ni esta bien explicado, ni utiliza resaltado de sintaxis o algo mas detallado como imagenes, la explicacion es mala en fin... me parecen de mal gusto estos mensajes


Saludos

[yalmar]

No te pases, quieres que dejemos un tutorial para una pregunta?
la respuesta "debe" ser tan simple como sea posible. Obviamente si no sabe la respuesta mejor no responder.
Y para el autor de la pregunta, creo que es eç tipo de programa fácil de encontrar con google.

[scorpion979]

Yo diseñe una calculadora hace algun tiempo es algo sencilla pero funciona. esta en vb6.0
estos son los controles= Un solo textbox(text1), 1 boton para cada numero del 0 al 9, 1 boton para cada operador aritmetico(+,-,*,/) 1 boton limpiar y uno de resultado(=), dos label.

En cada boton numerico escribe el sig codigo:
Text1.Text = Text1.Text & "1" (ten en cuenta que es un numero para cada boton del 0 al 9, este ejemplo es para el boton 1)

En cada boton de operador aritmetico escribe lo siguiente:
Label1.Caption = Text1.Text
Label2.Caption = "+"
Text1.Text = "" (recuerda que es un signo para cada boton y debes cambiarlo, este ejemplo es para el boton de suma (+)

El boton limpiar:
Text1.Text = ""
Label1.Caption = ""
Label2.Caption = ""

en el boton de resultado(=) debes colocar unas sentencias If para consultar que tipo de operacion se va a efectuar:
If Label2.Caption = "+" Then
Label2.Caption = Label2.Caption & Text1.Text
Text1.Text = Val(Text1.Text) + Val(Label1.Caption)
end if (esto es para realizar la suma, las sentencias van separadas por Else para cada operacion)

nota: No olvides los labels label1 y label2 puedes colocarlos mas arriba del textbox

ESTE ES EL CODIGO COMPLETO ES SENCILLO Y CORRE ESPERO LES SIRVA:

Private Sub Command1_Click() 'Este codigo es para el boton 1
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Command2_Click() 'Este codigo es para el boton 2
Text1.Text = Text1.Text & "2"
End Sub

Private Sub Command3_Click() 'Este codigo es para el boton 3
Text1.Text = Text1.Text & "3"
End Sub

Private Sub Command4_Click() 'Este codigo es para el boton 4
Text1.Text = Text1.Text & "4"
End Sub

Private Sub Command5_Click() 'Este codigo es para el boton 5
Text1.Text = Text1.Text & "5"
End Sub

Private Sub Command6_Click() 'Este codigo es para el boton 6
Text1.Text = Text1.Text & "6"
End Sub

Private Sub Command7_Click() 'Este codigo es para el boton 7
Text1.Text = Text1.Text & "7"
End Sub

Private Sub Command8_Click() 'Este codigo es para el boton 8
Text1.Text = Text1.Text & "8"
End Sub

Private Sub Command9_Click() 'Este codigo es para el boton 9
Text1.Text = Text1.Text & "9"
End Sub

Private Sub Command10_Click() 'Este codigo es para el boton 0
Text1.Text = Text1.Text & "0"
End Sub

Private Sub Command11_Click() 'Este codigo es para el boton /
Label1.Caption = Text1.Text
Label2.Caption = "/"
Text1.Text = ""
End Sub

Private Sub Command12_Click() 'Este codigo es para el boton -
Label1.Caption = Text1.Text
Label2.Caption = "-"
Text1.Text = ""
End Sub

Private Sub Command13_Click() 'Este codigo es para el boton +
Label1.Caption = Text1.Text
Label2.Caption = "+"
Text1.Text = ""
End Sub

Private Sub Command14_Click() 'Este codigo es para el boton *
Label1.Caption = Text1.Text
Label2.Caption = "*"
Text1.Text = ""
End Sub

Private Sub Command15_Click() 'Este codigo es para el boton Limpiar
Text1.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub Command16_Click() 'Este codigo es para el boton =
If Label2.Caption = "+" Then
Label2.Caption = Label2.Caption & Text1.Text
Text1.Text = Val(Text1.Text) + Val(Label1.Caption)
Else
If Label2.Caption = "-" Then
Label2.Caption = Label2.Caption & Text1.Text
Text1.Text = Val(Label1.Caption) - Val(Text1.Text)
Else
If Label2.Caption = "*" Then
Label2.Caption = Label2.Caption & Text1.Text
Text1.Text = Val(Text1.Text) * Val(Label1.Caption)
Else
If Label2.Caption = "/" Then
Label2.Caption = Label2.Caption & Text1.Text
Text1.Text = Val(Label1.Caption) / Val(Text1.Text)
End If
End If
End If
End If
End Sub

[PANCHO20]

Compadre los Label1 y Label 2 que son?

yo ise una calculadora binaria con 1 textbox y solo boton 1 2 y los otros de algoritmo....

pero label1 y label2 como los pusiste¿

[scorpion979]

Los labels son etiquetas, osea en la forma que yo diseñe la calculadora tu ingresas el primer monto luego en una etiqueta se va a almacenar ese monto, al seleccionar el operador aritmetico este se le asigna a la segunda etiqueta para cuando tu ingreses el segundo monto y le des en resultado el programa vea que tipo de operacion se va a realizar, el codigo se ve muy largo lo que pasa es que quize ser lo mas detallado posible, pero es muy sencillo, yo tambien la he hecho con una caja de texto y los botones de operaciones es muy facil, pero en esta si tu la haces como te digo te queda muy parecida a la calculadora de windows.

[kenny]

Escorpio, en la codificación que envías, me sale varias veces: No se ha declarado el nombre 'text1'
'Caption' no es un miembro de 'System.Windows.Forms.Label'.
Qué es lo que me falta codificar?

Gracias.

[raul338]

Escorpio, en la codificación que envías, me sale varias veces: No se ha declarado el nombre 'text1'
'Caption' no es un miembro de 'System.Windows.Forms.Label'.
Qué es lo que me falta codificar?

Gracias.

Ese codigo es para visual basic 6, no para .net