Hacer una calculadora en visual basic

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!!

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....

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