Sv Community El Salvador

Soporte y Tecnología => Programación => VB => Mensaje iniciado por: Trogdor en septiembre 29, 2010, 03:31:39 pm

Título: Problema con selección de una función en un combo box
Publicado por: Trogdor en 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:

Título: Re: Problema con selección de una función en un combo box
Publicado por: Trogdor en 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: