Hacer una calculadora en visual basic

estan buenos los codigos pero para mejor referencia agregen la ingerfaz

no kieres k te agregue esta!!! ¬¬'

necesito ayuda tengo q crear una calculadora la cual se programe un solo boton en bisual basic ayudenme xfa

necesito codigos para salir y limpiar

aver si si jala el codigo

ayudame tengo un exame y no se ni un codigo y con lo que estoy viendo no se a que mismo comando pertenecen los codios please ayudame

ayudame tengo un exame y no se ni un codigo y con lo que estoy viendo no se a que mismo comando pertenecen los codios please ayudame

necesito porfavor

necesito porfavor

chinita yo te ayudo

123 LOOD

asd

asdasdasdsad

bueno

Hasta que veo alguien que no se de lios y hace algo realemente facil y corto :D eso si es un codigo util y sencillo, gracias de verdad me sera de ayuda ^^

No se te ocurrio hacer una que puedas ingresar todos los datos que quieras del modo que quieras, tipo las calculadoras reales

yq haga operacons multiples?

2 mas 2 igual a mil millones

No lo entendi mucho,vah creo que no sirve para el mio ja ja ja !!!

malo haselo mas claro x fa

amigo k es el LBLmen.caption no me acepta cuando lo ingreso k ago

gracias lo entendi completamente

asdfasd no me sale la suma ;n;

callate diablo

soy un reo de venezuela

Puedes intentar con las variables, yo no uso visual basic 6.0 uso el express, el express por si no lo sabias lo que hace es comprimirte mas los codigos, pero bueno, puedes usar el DIm eso te sera uy util.

ha que aburrido no entiendo esta p...............

como esta loco

no entiendo

yo tampoco

yo si, aunke yo lo hubiera realizado mejor xD

ammm no entiendo asuuu ... essto mas parece java .. =?

mensos jajajaja wtf

asquerossssssoo

preciosssso

eso no es

genial, graziaz me zirvio de mucho

ke machete

gracias mesirvio

compa nesecito el codigo para mandar datos de un datagrid a otro y a la ves restarle 1 al valor cantidad me podrias hacer el favor de ayudarm...graxias

solo me multiplica

eso es una mariquera mejor compren una calculadora cientifica que le sale mas economico y no gastan tiempo buscando eso poganse oficio jejejejejejeje
att: nalga cuadrada

chinga tu madra nalga cuadrada mejor di que no sabes hacerla, eres tan puñal que no puedes decirme las cosas frente a frente

bato no save por eso dice q compren una calcu y si es una mariquera porque diablos te pones a ber nalga cuadrada mejor ve a jugar con tus muñecas

ME salvaste la vida xD ahjahjaa te creas muy bien ;) gracias

olle no esque yo no tenga dinero para comprar si no que es una tarea que nos dejaro para invetijar como la vez ;) cuadrada dinero me sobra para comprar villones de calculadoras cientificas jajajajaajaj

es una calculadora muy simple, pero los ayudaste! =)

esta calculadora no llena mis espectativas de verdad pense que se venia un codigo maestro .
Mi hermanito que tiene 10 años lo hizo primero que usted que triste

mmmmm si muy inportante como no entendia jjajajajj

ES BUENO

'esta Genial :D

pero en que formato se guarda. en punto vbs o que ??

en este formatoo!!! ¬¬'

no mmz el formato se pone solo ala hora de guardarlo!! bueii!!

formato? XDDDD csm epic fail...D:

se mir4 f4cil

nde se coloca estyo?

Gracias por la ayda sabes quisiera saber que mas sabes y si me podrias enseñar espero tu respuesta cuidate muxo chau

Hola, preguntame la duda que necesites y yo te ayudaré en lo que te haga falta. Cuidate.

Con este codigo podras hacer una calculadora con las 4 operaciones basicas matematica, lo unico que debes hacer es copiar el codigo y pegarlo, (claro esta que esta diseñado en VisualBasic .NET), debes agregar los botones (del 0 al 9 ) , =, +, /, -, * , Espero te sea de gran ayuda.... Suerteeee..........


Public Class Form1

Dim N1 As String = 0 'Numero 1
Dim N2 As String = 0 'Numero 2
Dim Signo1 As String
Dim Signo2 As String 'Signo de la operacion
Dim Resultado As String 'Resultado de la operacion
Dim Pantalla As String
Dim I As Integer 'Identificador de numero en digicion (N1 or N2)
Dim S As Integer 'Identifica

Private Sub BtnMas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMas.Click

N1IgualPantalla()

If I = 3 Then
N2 = 0
End If

If N1 <> 0 And N2 <> 0 Then
Operacion()
I = 3
N1IgualPantalla()
End If

Signo2 = "+"

If I = 3 Then
S = 1
End If

End Sub

Private Sub BtnMenos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMenos.Click

N1IgualPantalla()

If I = 3 Then
N2 = 0
End If

If N1 <> 0 And N2 <> 0 Then
Operacion()
I = 3
N1IgualPantalla()
End If

Signo2 = "-"

If I = 3 Then
S = 1
End If

If N1 = 0 And N2 = 0 Then
Signo1 = "-"
Signo2 = ""
End If

End Sub

Private Sub BtnMultiplicar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMultiplicar.Click

N1IgualPantalla()

If I = 3 Then
N2 = 0
End If

If N1 <> 0 And N2 <> 0 Then
Operacion()
I = 3
N1IgualPantalla()
End If

Signo2 = "*"

If I = 3 Then
S = 1
End If

End Sub

Private Sub BtnDividir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnDividir.Click

N1IgualPantalla()

If I = 3 Then
N2 = 0
End If

If N1 <> 0 And N2 <> 0 Then
Operacion()
I = 3
N1IgualPantalla()
End If

Signo2 = "/"

If I = 3 Then
S = 1
End If

End Sub

Private Sub BtnPunto_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnPunto.Click

If Signo2 = "" Then
N1 = N1 + ","
I = 1
Else
N2 = N2 + ","
I = 2
End If

End Sub

Private Sub Btn0_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn0.Click
AsignarValores(0)
End Sub

Private Sub Btn1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn1.Click
AsignarValores(1)
End Sub

Private Sub Btn2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn2.Click
AsignarValores(2)
End Sub

Private Sub Btn3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn3.Click
AsignarValores(3)
End Sub

Private Sub Btn4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn4.Click
AsignarValores(4)
End Sub

Private Sub Btn5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn5.Click
AsignarValores(5)
End Sub

Private Sub Btn6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn6.Click
AsignarValores(6)
End Sub

Private Sub Btn7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn7.Click
AsignarValores(7)
End Sub

Private Sub Btn8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn8.Click
AsignarValores(8)
End Sub

Private Sub Btn9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn9.Click
AsignarValores(9)
End Sub

Private Sub BtnIgual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIgual.Click
N1IgualPantalla()

Operacion()
I = 3

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim C1 As Integer
Dim C2 As Integer
Dim C3 As Integer
C1 = N1.Count
C2 = N2.Count

Pantalla = Me.TbxResutado.Text
C3 = Pantalla.Count

If I = 1 Then
If C1 > 1 Then
N1 = Mid(N1, 1, (C1 - 1))
Else
N1 = Mid(N1, 1, (C1 - 1))
N1 = 0
End If
Me.TbxResutado.Text = N1
Else
If I = 2 Then
If C2 > 1 Then
N2 = Mid(N2, 1, (C2 - 1))
Else
N2 = Mid(N2, 1, (C2 - 1))
N2 = 0
End If
Me.TbxResutado.Text = N2
Else
If I = 3 Then
If C3 > 1 Then
Pantalla = Mid(Pantalla, 1, (C3 - 1))
Else
Pantalla = Mid(Pantalla, 1, (C3 - 1))
Pantalla = 0
End If
If Pantalla = "-" Then
Pantalla = 0
End If
Me.TbxResutado.Text = Pantalla
End If
End If
End If

End Sub

Sub N1IgualPantalla()

If I = 3 Then
N1 = Me.TbxResutado.Text
End If

End Sub

Sub AsignarValores(ByVal n As String)

If I = 3 And S = 1 Then
N2 = 0
S = 0
Else
If I = 3 Then
N1 = 0
N2 = 0
Signo1 = ""
Signo2 = ""
Resultado = ""
Me.TbxResutado.Text = ""
S = 0
End If
End If

If Signo2 = "" Then
If N1 <> "0" Then
N1 = N1 + n
Else
N1 = n
End If
Me.TbxResutado.Text = N1
I = 1
Else
If N2 <> "0" Then
N2 = N2 + n
Else
N2 = n
End If
Me.TbxResutado.Text = N2
I = 2
End If


End Sub

Public Sub Operacion()

If Signo1 = "" Then
Select Case Signo2
Case "+"
Resultado = CDbl(N1) + CDbl(N2)
Case "-"
Resultado = N1 - N2
Case "*"
Resultado = N1 * N2
Case "/"
Resultado = N1 / N2
End Select
Else
If N1.Contains("-") = True Then
N1 = Mid(N1, 2, N1.Count)
End If
Select Case Signo2
Case "+"
Resultado = -CDbl(N1) + CDbl(N2)
Case "-"
Resultado = -N1 - N2
Case "*"
Resultado = -N1 * N2
Case "/"
Resultado = -N1 / N2
Case ""
Resultado = -N1 + 0
End Select
End If

Me.TbxResutado.Text = Resultado

End Sub

Private Sub BtnLimpiar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnLimpiar.Click
N1 = 0
N2 = 0
Signo1 = ""
Signo2 = ""
Resultado = ""
Me.TbxResutado.Text = 0
I = 1
End Sub

End Class

que pasa si quiero sumar mas de dos numeros por ejemplo 3+6+7+8+9

vete ala v....

jajajajaj k lok ese hregdmelomamaknombretanlargo

maricones

TU madree chucha!!

como 0obtengo la formula de un boton
PARA K sea el resultado

como encuentro la formula de la caja de texto y me de el resultado de la operacion de una calculadora en visual basic

jajaj estan padres todos jejej

yo no entiendo donde hay que poner cada cosa me ayudan en eso?

mejor demen el el archivo para descargar

mike me la chupas uevon d mier

Private Sub Combo1_Change()
Form2
End Sub

Private Sub Command1_Click()
Text1.Text = Text1.Text & "1"
End Sub

Private Sub Command10_Click()
Text1.Text = Text1.Text & "0"
End Sub

Private Sub Command11_Click()
Label1.Caption = Text1.Text
Label2.Caption = "/"
Text1.Text = ""
End Sub

Private Sub Command12_Click()
Label1.Caption = Text1.Text
Label2.Caption = "*"
Text1.Text = ""
End Sub

Private Sub Command13_Click()
Label1.Caption = Text1.Text
Label2.Caption = "-"
Text1.Text = ""
End Sub

Private Sub Command14_Click()
Label1.Caption = Text1.Text
Label2.Caption = "+"
Text1.Text = ""
End Sub

Private Sub Command15_Click()
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(Label1.Caption) - Val(Text1.Text)
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(Label1.Caption) / Val(Text1.Text)
End If
End If
End If
End If
End Sub



Private Sub Command16_Click()
Text1.Text = ""
Label1.Caption = ""
Label2.Caption = ""
End Sub

Private Sub Command17_Click()
Text1.Text = ""
End Sub

Private Sub Command18_Click()
Label3.Caption = Text1.Text
End Sub

Private Sub Command19_Click()
Text1.Text = Label3.Caption
End Sub

Private Sub Command2_Click()
Text1.Text = Text1.Text & "2"
End Sub

Private Sub Command20_Click()
Label3.Caption = ""
End Sub

Private Sub Command21_Click()
Label4.Caption = Text1.Text
End Sub

Private Sub Command22_Click()
Text1.Text = Label4.Caption
End Sub

Private Sub Command23_Click()
Label4.Caption = ""
End Sub

Private Sub Command24_Click()

End Sub

Private Sub Command3_Click()
Text1.Text = Text1.Text & "3"
End Sub

Private Sub Command4_Click()
Text1.Text = Text1.Text & "4"
End Sub

Private Sub Command5_Click()
Text1.Text = Text1.Text & "5"
End Sub

Private Sub Command6_Click()
Text1.Text = Text1.Text & "6"
End Sub

Private Sub Command7_Click()
Text1.Text = Text1.Text & "7"
End Sub

Private Sub Command8_Click()
Text1.Text = Text1.Text & "8"
End Sub

Private Sub Command9_Click()
Text1.Text = Text1.Text & "9"
End Sub

explicatee mejor weee!!!

preguntale a tu father

necesito una calculadora con todos los botones en numeros y asi, pero tambien debe tener dos botones uno "C" que tiene que servir para que cuando ya este el resultado solo borre uno y el otro "CC" que de servir para que cuando ya este el resultado borre 2 numeros... no se que hacer!!! =s

Me ayudan!!! Cual es la formula para Multiplicar en Visual Basic al hacer una Calculadora

di como aser una calculadora cientifica si

en bisual

el de arriba se la come doblada

' "CALCULADORA MUY BASICA SIMILAR A LA DE WINDOWS"

'CREEN LA INTERFAZ Y REEMPLAZEN EL NOMBRE DE LOS FORMS Y LAS VARIABLES SI 'ASI LO PREFIEREN O NECESITAN.

' Primero les recomiendo insertar un frame y luego insertar el textbox y los botones dentro
'de este frame, les da mejor presentacion y manejo de todos estos elementos.

'============== ------> Frame
'|| 1234567890 || -----> Textbox
'==============
'|| 7 | 8 | 9 | C | CE || ------>CommandButtons
'|| 4 | 5 | 6 | - | / | ||
'|| 1 | 2 | 3 | +| * | ||
'|| | 0 | = | ||
'||=============||

'En los Botones de numeros 1,2,3,4,5,6,7,8,9,0 se le debe poner el nombre cmdnum en las 'propiedades de cada boton(el mismo para todos) y al hacer doble clic en alguno de estos 'botones insertar este codigo; es el mismo para todos, con escribirlo una sola vez esta bien 'ya que estos botones tendran el mismo nombre.

Private Sub Cmdnum_Click(Index As Integer)
Dim l As Integer
l = Index
k = num(l)
End Sub

' ------------------------------------------------------------------

'En los Botones operadores +,-,*,/,= se le debe poner el nombre cmdoper en las 'propiedades de cada boton(el mismo para todos) y al hacer doble clic en alguno de estos 'botones insertar este codigo; es el mismo para todos, con escribirlo una sola vez esta bien 'ya que estos botones tendran el mismo nombre.

Private Sub Cmdoper_Click(Index As Integer)
Dim l As Integer
l = Index
k = oper(l)
End Sub

' ------------------------------------------------------------------

' Borra toda la memoria
' Boton CE
Private Sub Command1_Click()
Dim tex As String
tex = clearall(Txtscreen)
End Sub

' Borra ultimo numero antes de operarlo con otro
' Boton C
Private Sub Command14_Click()
Dim te As String
te = clear(Txtscreen)
End Sub

' -------------------------------------------------------------------------------------------------------

'ESTE CODIGO VA EN UN MODULO QUE DEBEN DE CREAR CON EL NOMBRE POR 'DEFECTO QUE DA VISUAL (Module1.bas).

Public Enum calcu
cero 'vale 0
bite 'vale 1
operacion 'variable numero de operaciones acumuladas
End Enum
Option Explicit
Dim digito1, digito2 As Double
Dim ultent As calcu 'ultima funcion # o oper
Dim ope As Integer 'acumula la memoria
Dim calcula As String * 1 'variable de operaciones

Public Function clear(tx As String) 'funcion para limpiar pantalla
Frmcal.Txtscreen = Format(" ")
ultent = bite
End Function

Public Function clearall(txt As String) 'funcion limpia pantalla y memoria
Frmcal.Txtscreen = Format(" ")
ultent = cero
ope = 0
End Function

Public Function oper(d As Integer) ' funcion de operaciones
If ope = 0 Then 'verifico el ultimo digito o funcion aplicada
ultent = bite
End If
If ultent = bite Then
ope = ope + 1
End If
If ope = 1 Then
digito1 = Val(Frmcal.Txtscreen)
ElseIf ope = 2 Then
digito2 = Val(Frmcal.Txtscreen)

Select Case calcula
Case "+": digito1 = digito1 + digito2
Case "*": digito1 = digito1 * digito2
Case "-": digito1 = digito1 - digito2
Case "/":
If digito2 = 0 Then
MsgBox "Division por cero", vbCritical, "Calculadora"
Else
digito1 = digito1 / digito2
End If
End Select

Frmcal.Txtscreen = Str(digito1)
ope = 1
End If
ultent = operacion
calcula = Frmcal.Cmdoper(d).Caption
End Function

Public Function num(t As Integer) ' funcion para numeros
Dim cNumeros As String
If ultent <> bite Then 'esta desicion me permite agregar mas numeros
Frmcal.Txtscreen = " "
ultent = bite
End If
cNumeros = Frmcal.Txtscreen
Frmcal.Txtscreen = cNumeros & Frmcal.Cmdnum(t).Caption 'imprime los numeros
End Function

'TRATEN DE MEJORARLA....LE FALTA EL PUNTO DECIMAL, EL PORCENTAJE, LA RAIZ, 'ETC.. 'Y LAS OTRAS OPERACIONES NORMALES DE UNA CALCULADORA.
'ESTE ES MI PEQUEÑO APORTE, YA QUE YO TAMBIEN BUSCO CODIGO DE EJEMPLO 'QUE ME SON DE MUCHA AYUDA PARA AGILIZAR MI TRABAJO, LA MEJOR DE LAS 'SUERTES CON SUS PROYECTOS Y ESTAMOS EN CONTACTO!

hola amiguito cabesita me tienes k xplicar mas claro si vsn a explicar........jejeje..tkm....si mamacita porfa alcola si no te apliko ,,,,,,,,muaaaaaa