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