none
Como puedo ver el resultado de esta Public Shared Function en un label RRS feed

  • Pregunta

  • como puedo ver sg de esta funcion en un label

    Gracias

     Public Shared Function brix_to_sgp(ByVal brix As Single) As Single
            'Dim brix As Decimal = 10
            brix = 10
            Dim sg As Single = (1.000019! + ((0.003865613! * brix) + (0.00001296425! * brix)) + (0.00000005701128! * brix))
            brix_to_sgp = (sg * 1000.0!)
        End Function

    domingo, 16 de abril de 2017 20:25

Todas las respuestas

  • Hola JETET

    Primero comenta el valor que le das en duro

     Public Shared Function brix_to_sgp(ByVal brix As Single) As Single
            'Dim brix As Decimal = 10
            'brix = 10
            Dim sg As Single = (1.000019! + ((0.003865613! * brix) + (0.00001296425! * brix)) + (0.00000005701128! * brix))
            brix_to_sgp = (sg * 1000.0!)
        End Function

    Luego por ejemplo en un boton puedes llamarlo así y convertirlo al formato string

      Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       'Por ejemplo le mandas 20 o declaras una variable y le mandas:
           Dim valor As Single = 20
            Label1.Text = brix_to_sgp(valor).ToString()
        End Sub

    Saludos


    Si ayudé a resolver tu consulta, no olvides marcar como respuesta y/o votar como útil.



    domingo, 16 de abril de 2017 20:29
  • Hola JETET,

    ¿Si es una función porque nunca usas el Return? ¿No sería así ?

    Public Shared Function brix_to_sgp(ByVal brix As Single) As Single
    
        '...
        Return (sg * 1000.0!)
    End Function

    Tienes que retornar un valor de tipo Single.

    ¿El método se encuentra en una clase ? Si es así solo usarías :

    Dim brix As Single = 1
    Label1.Text = MiClase.brix_to_sgp(brix).ToString()
    

    Saludos.


    JC NaupaCrispín
    Lima - Perú

    La magia no existe, la programación SI

    domingo, 16 de abril de 2017 20:36
  • relamente es asi

    Public Shared Function brix_to_sgp(ByVal brix As Single) As Single
            Dim sg As Single = (1.000019!  _
                        + (((0.003865613! * brix) + (1.296425E-05! * CType(Math.pow(CType(brix,Double), 2.0d),Single))) + (5.701128E-08! * CType(Math.pow(CType(brix,Double), 3.0d),Single))))
            Log.i("brix_to_sgp", String.valueOf(((sg * 1000!)  _
                                - 1000!)))
            Return ((sg * 1000!)  _
                        - 1000!)
        End Function

    lunes, 17 de abril de 2017 5:09