elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP) (Moderador: kub0x)
| | | |-+  Ayuda con calculadora Visual Basic .Net
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Ayuda con calculadora Visual Basic .Net  (Leído 1,036 veces)
arts

Desconectado Desconectado

Mensajes: 103


Ver Perfil
Ayuda con calculadora Visual Basic .Net
« en: 1 Abril 2013, 19:31 pm »

Muy buenas, tengo muchas duda sobre como hacer una calculadora, hasta ahora he hecho la recogida de los datos pero tal y como lo he planteado no se si es la mejor forma se supone que debe haber solo 1 texbox aunque yo le he puesto 2 para ver si realmente me realiza las operaciones y me guarda en sus variables los números.  Agradezco cualquier ayuda. Dejo el proyecto para que se vea rápidamente como va.
http://www.mediafire.com/?sxzle6zvjm9urat

Código
  1. Public Class Form1
  2.  
  3.    Dim resultado As Double
  4.    Dim b As Boolean
  5.    Dim primerNumero As Double
  6.    Dim segundoNumero As Double
  7.    Dim cont As Short = 0
  8.  
  9.  
  10.    'NUMEROS Y COMA
  11.    Private Sub Btn0_Click(sender As System.Object, e As System.EventArgs) Handles Btn0.Click
  12.        TextBox1.Text = TextBox1.Text & 0
  13.    End Sub
  14.  
  15.    Private Sub Btn1_Click(sender As System.Object, e As System.EventArgs) Handles Btn1.Click
  16.        TextBox1.Text = TextBox1.Text & 1
  17.    End Sub
  18.  
  19.    Private Sub Btn2_Click(sender As System.Object, e As System.EventArgs) Handles Btn2.Click
  20.        TextBox1.Text = TextBox1.Text & 2
  21.    End Sub
  22.  
  23.    Private Sub Btn3_Click(sender As System.Object, e As System.EventArgs) Handles Btn3.Click
  24.        TextBox1.Text = TextBox1.Text & 3
  25.    End Sub
  26.  
  27.    Private Sub Btn4_Click(sender As System.Object, e As System.EventArgs) Handles Btn4.Click
  28.        TextBox1.Text = TextBox1.Text & 4
  29.    End Sub
  30.  
  31.    Private Sub Btn5_Click(sender As System.Object, e As System.EventArgs) Handles Btn5.Click
  32.        TextBox1.Text = TextBox1.Text & 5
  33.    End Sub
  34.  
  35.    Private Sub Btn6_Click(sender As System.Object, e As System.EventArgs) Handles Btn6.Click
  36.        TextBox1.Text = TextBox1.Text & 6
  37.    End Sub
  38.  
  39.    Private Sub Btn7_Click(sender As System.Object, e As System.EventArgs) Handles Btn7.Click
  40.        TextBox1.Text = TextBox1.Text & 7
  41.    End Sub
  42.  
  43.    Private Sub Btn8_Click(sender As System.Object, e As System.EventArgs) Handles Btn8.Click
  44.        TextBox1.Text = TextBox1.Text & 8
  45.    End Sub
  46.  
  47.    Private Sub Btn9_Click(sender As System.Object, e As System.EventArgs) Handles Btn9.Click
  48.        TextBox1.Text = TextBox1.Text & 9
  49.    End Sub
  50.  
  51.    Private Sub BtnComa_Click(sender As System.Object, e As System.EventArgs) Handles BtnComa.Click
  52.        TextBox1.Text = TextBox1.Text & ","
  53.    End Sub
  54.  
  55.    'FUNCIÓN QUE RECORRA CADA VEZ QUE SE AÑADA UN Nº EN EL TEXTBOX EN BUSCA DE COMAS Y CUENTE SI YA HAY 1 PARA QUE NO PERMITA PONER MAS, POR EJEMPLO DESHABILITANDO EL BOTÓN O INFORMANDOLO MSGBOX
  56.  
  57.  
  58.    'OPERACIONES
  59.    Private Sub BtnMas_Click(sender As System.Object, e As System.EventArgs) Handles BtnMas.Click
  60.        cont = cont + 1
  61.        Call Operar(TextBox1.Text, BtnMas.Text)
  62.    End Sub
  63.  
  64.    Private Sub BtnMenos_Click(sender As System.Object, e As System.EventArgs) Handles BtnMenos.Click
  65.        cont = cont + 1
  66.        Call Operar(TextBox1.Text, BtnMenos.Text)
  67.    End Sub
  68.  
  69.    Private Sub BtnMultiplicar_Click(sender As System.Object, e As System.EventArgs) Handles BtnMultiplicar.Click
  70.        cont = cont + 1
  71.        Call Operar(TextBox1.Text, BtnMultiplicar.Text)
  72.    End Sub
  73.  
  74.    Private Sub BtnDividir_Click(sender As System.Object, e As System.EventArgs) Handles BtnDividir.Click
  75.        cont = cont + 1
  76.        Call Operar(TextBox1.Text, BtnDividir.Text)
  77.    End Sub
  78.  
  79.    Private Sub BtnIgual_Click(sender As System.Object, e As System.EventArgs) Handles BtnIgual.Click
  80.        cont = cont + 1
  81.        If cont = 1 Then
  82.            TextBox2.Text = primerNumero
  83.        End If
  84.        If cont = 2 Then
  85.            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
  86.        End If
  87.        If cont > 2 Then
  88.            TextBox2.Text = TextBox2.Text & TextBox1.Text & " = " & resultado
  89.        End If
  90.    End Sub
  91.  
  92.    Private Sub Operar(ByVal numero As Double, ByVal operando As String)
  93.  
  94.        Select Case cont
  95.            Case 1
  96.                Select Case operando
  97.                    Case "+"
  98.                        primerNumero = numero
  99.                        TextBox2.Text = primerNumero & operando
  100.                    Case "-"
  101.                        primerNumero = numero
  102.                    Case "X"
  103.                        primerNumero = numero
  104.                    Case "/"
  105.                        primerNumero = numero
  106.                End Select
  107.                TextBox1.Text = ""
  108.  
  109.            Case 2
  110.                Select Case operando
  111.                    Case "+"
  112.                        TextBox2.Text = TextBox2.Text & numero & operando
  113.                        resultado = primerNumero + numero
  114.                    Case "-"
  115.                        resultado = primerNumero * numero
  116.                    Case "X"
  117.                        resultado = primerNumero * numero
  118.                    Case "/"
  119.                        resultado = primerNumero / numero
  120.                End Select
  121.                'TextBox2.Text = resultado
  122.                TextBox1.Text = ""
  123.  
  124.            Case Else
  125.                Select Case operando
  126.                    Case "+"
  127.                        TextBox2.Text = TextBox2.Text & numero & operando
  128.                        resultado = resultado + numero
  129.                    Case "-"
  130.                        resultado = resultado - numero
  131.                    Case "X"
  132.                        resultado = resultado * numero
  133.                    Case "/"
  134.                        resultado = resultado / numero
  135.                End Select
  136.                TextBox1.Text = ""
  137.        End Select
  138.  
  139.    End Sub
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146. End Class
  147.  


En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
ayuda en visual basic
Programación Visual Basic
kristian 5 3,903 Último mensaje 26 Noviembre 2003, 08:42 am
por byebye
Ayuda en BASIC... no visual basic
Ejercicios
mike_soto 3 3,235 Último mensaje 19 Junio 2007, 23:40 pm
por mike_soto
Cual se utiliza mas actualmente Visual Basic o Visual basic.net?
Programación Visual Basic
Axus 9 10,874 Último mensaje 4 Julio 2009, 07:00 am
por el_c0c0
[Ayuda] Sniffer en visual basic, para visual basic
Programación Visual Basic
The_Shakah 8 7,950 Último mensaje 18 Agosto 2010, 19:35 pm
por _katze_
Necesito ayuda para una calculadora en visual basic.
Programación Visual Basic
qerde 2 2,037 Último mensaje 29 Septiembre 2011, 19:40 pm
por qerde
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines