Autor Tema: Problema con selección de una función en un combo box  (Leído 1889 veces)

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Trogdor

  • Trade Count: (0)
  • MiembrosReales
  • *
  • Thank You
  • -Given: 6
  • -Receive: 0
  • Mensajes: 47
Problema con selección de una función en un combo box
« : septiembre 29, 2010, 03:31:39 pm »
Hola saludos comunidad. pues tengo otro problema :(

el ejercicio que estoy haciendo es crear una calculadora mediante unas clases que son importadas de un form. dejo el ejercicio anexo y el codigo. ya que cuando compilo el programa solo me funciona la operacion SUMAR, pero las demas (resta, multiplicacion y division nada)

aqui dejo el codigo fuente y archivo adjunto.

class1.vb
Código: [Seleccionar]
Namespace operaciones
    Public Class basicas
        Public Shared Function Suma(ByVal n1 As Double, ByVal n2 As Double) As Double
            Return (n1 + n2)
        End Function
        Public Shared Function resta(ByVal n1 As Double, ByVal n2 As Double) As Double
            Return (n1 - n2)
        End Function
        Public Shared Function multiplicacion(ByVal n1 As Double, ByVal n2 As Double) As Double
            Return (n1 * n2)
        End Function
        Public Shared Function division(ByVal n1 As Double, ByVal n2 As Double) As Double
            Return (n1 / n2)
        End Function
    End Class
End Namespace



Boton calcular
Código: [Seleccionar]
Imports misoperaciones.operaciones.basicas


Public Class Form1


    Private Sub btncalcular_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btncalcular.Click
        Dim numero1, numero2 As Double
        numero1 = CDbl(txtn1.Text)
        numero2 = CDbl(txtn2.Text)
        Select Case cmboperacion.Text
            Case "Suma"
                lblnresultado.Text = Suma(numero1, numero2).ToString
            Case "resta"
                lblnresultado.Text = resta(numero1, numero2).ToString
            Case "multiplicacion"
                lblnresultado.Text = multiplicacion(numero1, numero2).ToString
            Case "division"
                lblnresultado.Text = division(numero1, numero2).ToString
            Case Else
                MessageBox.Show("elija una opcion")


        End Select
    End Sub

End Class


Gracias y espero que me ayuden a saber donde esta el error  :embarassed: :cry:
« Última Modificación: septiembre 29, 2010, 03:33:20 pm por Trogdor »

Desconectado Trogdor

  • Trade Count: (0)
  • MiembrosReales
  • *
  • Thank You
  • -Given: 6
  • -Receive: 0
  • Mensajes: 47
Re: Problema con selección de una función en un combo box
« Respuesta #1 : septiembre 29, 2010, 06:13:36 pm »
después de tanto había un error ya que en el combobox puse las cadenas con la primera letra en mayúsculas y en las clases estaban en minúsculas.

un error de newbie.....  :sad: :embarassed: